(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "16-Nov-93 17:20:49" ("compiled on " {DSK}export>lispcore>lispusers>BACKGROUNDMENU.;1) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED "31-Jan-87 18:09:00" {ERIS}LYRIC>BACKGROUNDMENU.;1 7367 previous date%: "31-Jan-86 11:36:13" {ERIS}KOTO>LISPUSERS>BACKGROUNDMENU.;1) BkgMenu.add.item :D8 (I 2 atend I 1 superitem I 0 item F 0 BackgroundMenu) `Aµ$B`@h ‹@`¿hci bd².¬Ag@h&°B›A@h ‰A@A¿hci(77 \NCONC2 41 \BkgMenu.locate 17 \NCONC2) (57 SUBITEMS 30 BackgroundMenuCommands 24 BackgroundMenuCommands 9 BackgroundMenuCommands) () BkgMenu.fixup :D8 (P 6 i P 4 stack P 3 x P 2 result P 1 stacking F 7 BackgroundMenuSuperItem F 8 BackgroundMenuFixupMode F 9 BackgroundMenuTopLevelItems) ŸWgðhði#Hµ I¢±ƒL°|»WMµh²CI²SWgð³IL°.^ K ô•NµÝi°ÚM]°ÑdNW ¡hºµí°I”KL¼‹KWi¡h¹HX°dNW ¡hºµíJ(147 BkgMenu.move.item 126 BkgMenu.move.item 100 BkgMenu.move.item 74 MKSTRING 68 MKSTRING 4 BkgMenu.subitems) (55 top 11 bottom) () BkgMenu.move.item :D8 (I 2 atend I 1 superitem I 0 item) %@ bd² @AB‘i@ h(33 \BkgMenu.unremove.item 24 BkgMenu.add.item 15 \BkgMenu.remove.item 5 \BkgMenu.locate) NIL () BkgMenu.remove.item :D8 (I 0 item F 0 BackgroundMenu) @ bd˜ hci(14 \BkgMenu.remove.item 5 \BkgMenu.locate) NIL () BkgMenu.rename.item :D8 (I 1 new.name I 0 item F 0 BackgroundMenu) @ d–Ahci(5 \BkgMenu.locate) NIL () BkgMenu.reorder.items :D8 (P 2 i I 2 atend I 1 superitem I 0 itemlist) (B‘@…@ !HµIhðZAB¡i¹HX°é(30 BkgMenu.move.item 9 REVERSE) NIL () BkgMenu.subitems :D8 (I 0 item) Q@µ0`°@ b²!0@Žd¸IµHhZH&¹µïJgd¸IµHhZH&¹µïJ(17 \BkgMenu.locate) (57 NotAnItem 10 BackgroundMenuCommands) () \BkgMenu.locate :D8 (I 1 menu I 0 item) 7@d²d²A b¡h@’@€@ Aµ`A(52 \BkgMenu.locater 37 MKSTRING 15 \BkgMenu.locate) (46 BackgroundMenuCommands) () \BkgMenu.locater :D8 (P 0 queue I 2 preitems I 1 items I 0 name) 1hd@ABHYµHd¡Ibb¿Hd¿H³ÞHh¿°Ø(14 \BkgMenu.scan.item.list) NIL () \BkgMenu.remove.item :D8 (L (0 item)) @™@d@¿`NIL (23 BackgroundMenuCommands 17 BackgroundMenuCommands) () \BkgMenu.scan.item.list :D8 (P 0 i I 3 queue I 2 preitems I 1 items I 0 name) 2AµhX @ô“HBH›CH ¿Abb°Õ(39 TCONC 16 MKSTRING) NIL () \BkgMenu.unremove.item :D8 (L (0 item)) @dšd@@¿`NIL (26 BackgroundMenuCommands 20 BackgroundMenuCommands) () (PRETTYCOMPRINT BACKGROUNDMENUCOMS) (RPAQQ BACKGROUNDMENUCOMS ((INITVARS BackgroundMenuFixupMode BackgroundMenuSuperItem BackgroundMenuTopLevelItems) (FNS BkgMenu.add.item BkgMenu.fixup BkgMenu.move.item BkgMenu.remove.item BkgMenu.rename.item BkgMenu.reorder.items BkgMenu.subitems \BkgMenu.locate \BkgMenu.locater \BkgMenu.remove.item \BkgMenu.scan.item.list \BkgMenu.unremove.item))) (RPAQ? BackgroundMenuFixupMode NIL) (RPAQ? BackgroundMenuSuperItem NIL) (RPAQ? BackgroundMenuTopLevelItems NIL) (PUTPROPS BACKGROUNDMENU COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL