AkaTest.cm
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Require PCedar PopUpButtons PopUpButtons
Require PCedar LoganBerry LoganBerry
push /dan/aka
run CopyRegistryImpl
-- Ignore the unbound import; it's for a test routine that you don't need until later.
SnarfRegistry
-- Copy the current command registry to a safe place.
echo setproperty isd "(" $(installed) ")"|Commander
-- Get a list of the currently-installed packages to property $isd.
push /dan/commander
run CommanderImpl
-- Picks up the snarfed registry during initialization, automatically.
run CommanderBasicCommandsImpl
run CommanderFileCommandsImpl
-- Now need to transfer the installed packages list into global variables in ...FileCommands...
installed $isd
run CommanderNewOpsImpl
-- Now new Commander is running, and all old commands and systems are reinstalled.
pop
run AKAImpl
-- Now AkaOn should work.
pop