(DEFINE-FILE-INFO PACKAGE "IL" READTABLE "INTERLISP" BASE 10) (FILECREATED " 9-Sep-94 13:48:45" ("compiled on " {DSK}lispusers>LOADMENUITEMS.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "20-Apr-88 18:04:32" |{EG:PARC:XEROX}LISP>USERS>LOADMENUITEMS.;6| 13487 changes to%: (FNS LoadUtilityPackage) previous date%: " 3-Dec-87 11:38:28" |{EG:PARC:XEROX}LISP>USERS>LOADMENUITEMS.;5|) AddLoadMenuItemA0001 :D8 (I 1 y I 0 x) @A (8 ALPHORDER) NIL () AddLoadMenuItemA0002 :D8 (I 1 y I 0 x) @A (8 ALPHORDER) NIL () AddLoadMenuItem :D8 (P 21 file P 19 newItem P 18 groupItem P 17 groupList P 16 item P 14 topLevelItem P 13 topLevelItem P 12 item P 10 startUpForm P 9 fileDescr P 5 loadForm P 4 startUpFormProvided P 3 fileName P 0 group I 2 startUpForm I 1 fileDescr I 0 group) *@oAddh OhY'hBhhBggKho gggggOhgOhhhoh` Oh*ohoghh o OO OhCHhoghhO ^O"N O g O"KMoK hO$ h__`hphZJiI_o O#iO__ HO  O EiAO_1_O&OiOLOO(EiO$ O& O$ g hg`o _*dO(_( i g h(547 GETPROP 537 ROOTFILENAME 531 U-CASE 511 UNDOSAVE 483 SORT 471 LAST 464 /NCONC1 456 LAST 393 CL::SIMPLE-STRING-EQUAL 359 CL::SIMPLE-STRING-EQUAL 310 LAST 296 CONCAT 276 SORT 264 LAST 256 /RPLACD 244 LAST 197 LAST 183 SAVESETQ) (542 FILEDATES 499 BackgroundMenu 494 SETQ 489 BackgroundMenu 478 AddLoadMenuItemA0002 271 AddLoadMenuItemA0001 227 SUBITEMS 163 SUBITEMS 131 BackgroundMenuCommands 103 QUOTE 93 QUOTE 88 LoadUtilityPackage 83 QUOTE 78 LISPXEVAL 73 QUOTE 54 QUOTE 49 PROMPTPRINT) ( 504 (NIL) 354 "Load utility" 290 "Load " 222 "Load a utility file" 178 (BackgroundMenuCommands (CONS topLevelItem BackgroundMenuCommands)) 158 "Load a utility file" 152 "Load utility" 120 ("_") 63 (" loaded") 7 "Misc") LoadUtilityPackage :D8 (P 15 thisItem P 14 groupItem P 12 topLevelItem P 11 item P 9 x P 5 windowOpen? P 0 myWindow I 1 startUpForm I 0 fileDescr F 16 \TERM.OFD) HW AH h oh @hYhh h 0@6ZJiId Od ONh_N&_O A ` O&h O !O-MH _o OiO__ h[ h_ O@LLiKO  O OO  hO_ih(308 DREMOVE 301 LAST 288 LAST 280 DREMOVE 274 LAST 224 LAST 201 CL::SIMPLE-STRING-EQUAL 186 CLOSEW 163 LAST 138 EVAL 132 DOFILESLOAD 103 MKATOM 98 U-CASE 63 TERPRI 56 PRIN1 41 PRIN1 29 TERPRI 20 OPENWP 11 WFROMDS 4 ALLOW.BUTTON.EVENTS) (315 BackgroundMenu 143 BackgroundMenuCommands) ( 196 "Load utility" 35 "Loading ") PickLoadUtilityItemA0001 :D8 (L (0 XCL-USER::MENU-ITEM)) @NIL NIL () PickLoadUtilityItemA0002 :D8 (L (0 XCL-USER::MENU-ITEM)) @NIL NIL () PickLoadUtilityItemA0003 :D8 (L (0 XCL-USER::MENU-ITEM)) @NIL NIL () PickLoadUtilityItemA0004 :D8 (L (0 XCL-USER::MENU-ITEM)) @ (15 CL:EVAL 10 CL:EVAL 5 PickLoadUtilityItemA0002) NIL () PickLoadUtilityItemA0005 :D8 (L (1 XCL-USER::ALIST 0 XCL-USER::X)) @Agg (21 CL:ASSOC 16 CL:SYMBOL-FUNCTION) (11 STRING-EQUAL 6 :TEST) () PickLoadUtilityItemA0006 :D8 (L (2 XCL-USER::TITLE 1 XCL-USER::ITEMS 0 &KEY)) =`dBdAdi dg dgjdndhHdI NIL (35 DEFAULTMENUHELDFN 26 CLRPROMPT 4 |MENUTYPE#|) () PickLoadUtilityItemA0014 :D8 (L (0 XCL-USER::GROUP-ITEM) F 0 XCL-USER::GROUP-NAME F 1 XCL-USER::UTILITY-NAME) !Q@ PhP@ (30 CL::SIMPLE-STRING-EQUAL 25 PickLoadUtilityItemA0001 11 PickLoadUtilityItemA0005 6 PickLoadUtilityItemA0003) NIL () PickLoadUtilityItem :D8 (L (2 XCL-USER::NO-ERRORS-P) I 1 XCL-USER::GROUP-NAME I 0 XCL-USER::UTILITY-NAME) go`  kH @H iBHoo@Ao hoo@Hh[ZLGK gogH_h_O>O _@O i KJI&IhZL\_ OhONM&Mh^_O_(215 PickLoadUtilityItemA0001 189 PickLoadUtilityItemA0001 181 PickLoadUtilityItemA0004 176 PickLoadUtilityItemA0005 171 PickLoadUtilityItemA0003 159 MENU 154 PickLoadUtilityItemA0006 120 CL:CERROR 92 CL:CERROR 60 PickLoadUtilityItemA0004 55 PickLoadUtilityItemA0005 50 PickLoadUtilityItemA0003 39 CL:LENGTH 29 CL:REMOVE-IF-NOT 24 PickLoadUtilityItemA0003 19 PickLoadUtilityItemA0005) (135 :ITEMS 125 :TITLE 14 BackgroundMenuCommands 4 PickLoadUtilityItemA0014) ( 130 "Load utility from which group?" 104 "~%%Utility ~A found under multiple groups on the LoadUtilty menu.~%%~{ ~A~}" 99 "Pick one of them to load." 87 "any group" 78 "~%%Utility ~A not found under ~A on the LoadUtilty menu." 73 "Forget loading the utility." 9 "Load utility") LOADMENUITEMSCOMS :D8 (P 3 packageDescr I 1 X I 0 GROUP) g@Ad[d3@gg@hgKhhgKk gg@hgKhh@Kl +gg@hgKhgKhhoK IHhZH&dJh(150 ERROR 96 EQLENGTH 56 EQLENGTH) (127 QUOTE 117 QUOTE 108 QUOTE 103 AddLoadMenuItem 77 QUOTE 68 QUOTE 63 AddLoadMenuItem 39 QUOTE 30 QUOTE 25 AddLoadMenuItem 4 P) ( 144 "Utility description has too many arguments") (PRETTYCOMPRINT LOADMENUITEMSCOMS) (RPAQQ LOADMENUITEMSCOMS ((* ;;; "Defines a new FILEPKGCOM called LOADMENUITEMS that can be used to add entries onto the background menu for easy loading of utility files" ) (FNS AddLoadMenuItem LoadUtilityPackage PickLoadUtilityItem LOADMENUITEMSCOMS) (FILEPKGCOMS LOADMENUITEMS) (* ;; "Make the Filemanager happy") (DECLARE%: DONTCOPY (PROP MAKEFILE-ENVIRONMENT LOADMENUITEMS)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA PickLoadUtilityItem))))) (PUTDEF (QUOTE LOADMENUITEMS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO ((GROUP . X) (COMS * ( LOADMENUITEMSCOMS (QUOTE GROUP) (QUOTE X)))) CONTENTS NILL)))) (PUTPROPS LOADMENUITEMS COPYRIGHT ("Xerox Corporation" 1986 1987 1988)) NIL