(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "16-Feb-87 16:37:21" ("compiled on " {ERIS}LYRIC>TMENU.;1) "21-Jan-87 21:13:09" tcompl'd in "Xerox Lisp 21-Jan-87 ..." dated "21-Jan-87 21:48:22") (FILECREATED "16-Feb-87 16:33:23" {ERIS}LYRIC>TMENU.;1 32151 previous date%: " 5-JUN-83 22:07:19" {ERIS}KOTO>LISPUSERS>TMENU.;1) MakeFileMenus :D4 (P 6 com P 5 windows P 4 relevantComsName P 3 relevantComs P 2 comsList P 1 title P 0 coms I 0 fileName F 7 menuedFiles) @g QH ZddNdg9NgNgN gNhIig MNK[ZdgdgMNdg&gN NIig MNK[g@ gNhIig M]\@HK [gH \dK Ldig M]@MhWch(216 TMenu 207 SET 201 PACK* 193 SORT 172 TMenu 155 CONCAT 135 TMenu 122 CONCAT 75 TMenu 56 CONCAT 13 EVAL 6 PACK*) (213 WindowShade 197 RELEVANT% 169 WindowShade 159 QUOTE 151 % 132 WindowShade 115 % 108 * 97 CLASSES 91 FNS 72 WindowShade 60 FetchNames 49 % 39 * 29 VARS 3 COMS) () TMenu :D4 (P 4 dsp P 3 items P 2 menu P 1 window P 0 font I 5 defaultTrailerString I 4 buttonFn I 3 windowShadeFlg I 2 displaySpec I 1 title I 0 itemExpr) Sgl a@d $ @ @[ddi3 g@hbBdiK o b3`dKdgdHdBdi djdg dgjdndhdM jdJ J hL LA JIjd I IKBA hd`dKdgdHdkdi dg dgjdndhdN Z Ydg@ Igg IggDgh EIgE CI I(335 MakeWindowShade 328 PUTWINDOWPROP 318 PUTWINDOWPROP 315 APPLY 297 PUTWINDOWPROP 287 PUTWINDOWPROP 278 ReShapeMenu 210 CREATEW 201 MOVEW 196 ADDMENU 187 CREATEW 181 DSPCLIPPINGREGION 167 CHECK/MENU/IMAGE 158 CHECK/MENU/IMAGE 151 DSPCREATE 72 CEILING 64 LENGTH 29 EVAL 24 \DEFINEDP 17 EVAL 7 FONTCREATE) (324 DEFAULTTRAILERSTRING 310 MenuButtonFn 304 FUNCTION 301 BUTTONEVENTFN 294 ReShapeMenu 291 RESHAPEFN 283 MENUEXPR 254 DEFAULTMENUHELDFN 247 CLRPROMPT 225 UnreadExpr 215 |MENUTYPE#| 170 BITMAP 161 BITMAP 127 DEFAULTMENUHELDFN 120 CLRPROMPT 93 UnreadExpr 83 |MENUTYPE#| 47 QUOTE 2 GACHA) ( 68 15.0) PROMPT :D4 (P 1 I P 0 nargs) 0ehng` ` jHIIkYa` (42 PRIN1 22 DSPRESET 16 DSPFILL) (39 PROMPTWINDOW 19 PROMPTWINDOW 13 PROMPTWINDOW 10 INPUT) () CPROMPT :D4 (P 2 MSG P 1 I P 0 nargs) Oejhng` ` 0HIIkYaL Mh\M&KZddh` ` h(75 CENTERPRINTINREGION 69 DSPCLIPPINGREGION 26 DSPRESET 20 DSPFILL) (72 PROMPTWINDOW 66 PROMPTWINDOW 23 PROMPTWINDOW 17 PROMPTWINDOW 14 INPUT) () CloseFileMenus :D4 (P 3 window P 0 fileInfo I 0 fileName F 4 menuedFiles) 70TY hXdZ@JiIdK HT ch(49 REMOVE 39 CLOSEW) NIL () MakeWindowShade :D4 (P 2 iconWindow P 1 title P 0 wregion I 0 window) @bib@ @o @ @ (HHHlHlhI Z@gJ Jg@ Jgg Jgg Jgg Jgg @ h(136 CLOSEW 132 PUTWINDOWPROP 122 PUTWINDOWPROP 112 PUTWINDOWPROP 102 PUTWINDOWPROP 92 PUTWINDOWPROP 84 PUTWINDOWPROP 75 CREATEW 41 \INSUREWINDOW 35 \INSUREWINDOW 30 ERROR 21 WINDOWP 14 SELECTW 5 WHICHW) (129 UnMakeWindowShade 126 CLOSEFN 119 ReshapeShadeFn 116 RESHAPEFN 109 MoveShadeFn 106 MOVEFN 99 WindowShadeButtonFn 96 BUTTONEVENTFN 88 IconFor 80 IconWindow) ( 27 "Not a window") MoveShadeFn :D4 (P 2 mainR P 1 mainW P 0 wr I 1 pos I 0 iconWindow) 0@ @g I ZIJAHJAH h(44 MOVEW 19 \INSUREWINDOW 12 GETWINDOWUSERPROP 3 \INSUREWINDOW) (9 IconFor) () ReshapeShadeFn :D4 (P 1 w P 0 r I 2 region I 1 bitMap I 0 shadeWindow) @ @g @ IH I h(28 MakeWindowShade 24 SHAPEW 19 CLOSEW 12 GETWINDOWUSERPROP 3 \INSUREWINDOW) (9 IconFor) () UnMakeWindowShade :D4 (P 0 w I 0 shade) -@bg H Hg Hg @g H(41 PUTWINDOWPROP 34 PUTWINDOWPROP 27 PUTWINDOWPROP 20 OPENW 13 GETWINDOWUSERPROP 5 WHICHW) (38 IconFor 31 IconWindow 24 CLOSEFN 10 IconFor) () WindowShadeButtonFn :D4 (P 0 mainWindow I 0 windowShade) '@g jm H HkIH h(35 CLOSEW 22 \INSUREWINDOW 18 ADJUSTCURSORPOSITION 9 OPENW 6 GETWINDOWUSERPROP) (3 IconFor) () AddItem :D4 (P 0 item I 1 menu I 0 window F 1 lastDeletedItem) 7oo QXAAHh @ h(51 ReShapeMenu 45 \NCONC2 29 CPROMPT 26 CLEARBUF 19 READ 16 PROMPT 5 CLEARBUF) (37 MENU 33 MENU) ( 13 "(Either an atom or a list of form: (printThis evalThis comment trailerStr))" 9 "Please type in new menu item.") CEILING :D4 (L (0 fnum)) @jX@HdkHNIL NIL () ComputeMenuItems :D4 (P 1 items P 0 expr I 1 menu I 0 window) 6 @g Xd d YIAI@hdA oo h(50 CPROMPT 37 ReShapeMenu 17 EVAL 9 GETWINDOWUSERPROP) (26 MENU 6 MENUEXPR) ( 47 "No expression for this menu." 42 "Menu expression returns non-list.") DInsert :D4 (P 0 TempList I 2 List I 1 oldItem I 0 newItem) @AhAB XBHBHB(12 LSUBST) NIL () DeleteItem :D4 (P 1 itemExpr P 0 items I 2 button I 1 menu I 0 item F 2 lastDeletedItem) / @cA@A A hdA Agh(34 ReShapeMenu 28 WFROMMENU 24 CPROMPT 19 DREMOVE) (41 UnreadExpr 38 MENU 14 MENU 9 MENU) () FetchNames :D4 (L (0 lst)) 0@ddIHhZH&JNIL NIL () InsertItem :D4 (P 1 newList P 0 newItem I 2 button I 1 menu I 0 listItem F 2 lastDeletedItem) E oo RXAH@A A hdA Agh(56 ReShapeMenu 50 WFROMMENU 44 DInsert 29 CPROMPT 26 CLEARBUF 19 READ 16 PROMPT 5 CLEARBUF) (63 UnreadExpr 60 MENU 39 MENU 33 MENU) ( 13 "(Either an atom, or a list of form: (printThis evalThis comment trailerStr))" 9 "Please type in new item.") MenuButtonFn :D4 (P 1 selection P 0 menu I 0 window F 3 YellowButtonItems F 4 YellowButtonMenu) 0@g X@ `dljH@ YHII kj`dSdg dgjdndhdJ c dg@H Rdg@H Ddg@H 6dg@H (dg@H dg@H g@H h(202 PrintMenuExpr 190 NewMenuExpr 176 ComputeMenuItems 162 SetUpInsertItem 148 SortItems 134 SetUpDeleteItem 120 AddItem 108 MENU 52 DOSELECTEDITEM 37 MENU.HANDLER 32 \INSUREWINDOW 15 TOTOPW 9 GETWINDOWUSERPROP) (194 PrintExpr 182 NewExpr 168 UseExpr 154 InsertItem 140 SortItems 126 DeleteItem 112 AddItem 83 DEFAULTMENUHELDFN 76 CLRPROMPT 66 |MENUTYPE#| 18 LASTMOUSEBUTTONS 6 MENU) () NewMenuExpr :D4 (P 0 EXPR I 1 menu I 0 window) !o X@gH @A h(29 ComputeMenuItems 24 CPROMPT 21 PUTWINDOWPROP 12 READ 9 CPROMPT) (17 MENUEXPR) ( 6 "Enter New Expression for computing Menu items.") PrintMenuExpr :D4 (P 0 EXPR I 1 menu I 0 window) @g Xdd o h(28 CLEARBUF 24 CPROMPT 16 PRINT 9 GETWINDOWUSERPROP) (6 MENUEXPR) ( 21 "No Expression Set for this Menu") ReShapeMenu :D4 (P 10 oldButtonEventFn P 9 clipRegion P 8 numItems P 7 font P 6 itemHeight P 5 itemWidth P 4 items P 3 height P 2 width P 1 menuRows P 0 menuColumns I 3 menu I 2 oldRegion I 1 oldImageBm I 0 window) V C@g bh@ _dZO[C_0Cdd_O Oh_O&_O\dO l]L _JMO k XJH]OH YKIO _dOO^KN Ydl $OlOlOHOo JH۰$KOO NMOIkkOKO۾JCHC NC MChCj@ _C C @g C@jdOIH @gg @ggOh @(338 PUTWINDOWPROP 335 APPLY 321 PUTWINDOWPROP 311 ADDMENU 297 PUTWINDOWPROP 290 UPDATE/MENU/IMAGE 286 DELETEMENU 278 \INSUREWINDOW 205 FONTHEIGHT 191 CEILING 161 EQP 154 CEILING 136 FONTHEIGHT 127 CEILING 115 MAX 111 MIN 101 FLENGTH 93 MAXSTRINGWIDTH 20 DSPCLIPPINGREGION 11 GETWINDOWUSERPROP) (328 FUNCTION 325 BUTTONEVENTFN 318 ReShapeMenu 315 RESHAPEFN 294 SCROLLFN 271 MENU 264 MENU 254 MENU 243 MENU 236 MENU 49 MENU 38 MENU 8 MENU) ( 187 2.0) SetUpDeleteItem :D4 (I 1 menu I 0 window) Ago (15 CPROMPT) (6 DeleteItem 3 MENU) ( 12 "Please select menu item to be deleted.") SetUpInsertItem :D4 (I 1 menu I 0 window) Ago (15 CPROMPT) (6 InsertItem 3 MENU) ( 12 "Select item to insert new item before.") SortItems :D4 (I 1 menu I 0 window) AA @hdA (21 ReShapeMenu 12 SORT) (7 MENU 3 MENU) () UnreadExpr :D4 (P 2 trailx P 1 evalx P 0 printx I 1 menu I 0 exp) P0A g Z@dJ.o(@Y@@ H JoH Jd h(76 BKSYSBUF 70 BKSYSBUF 51 EVAL 12 GETWINDOWUSERPROP 6 WFROMMENU) (9 DEFAULTTRAILERSTRING) ( 65 " " 25 " ") SELECTW :D4 NIL ;o g `lHj HH (56 WHICHW 52 PROMPT 48 GETMOUSESTATE 42 \FZEROP 18 GETMOUSESTATE 13 KEYDOWNP 6 PROMPT) (22 LASTMOUSEBUTTONS 10 CTRL) ( 3 "Move mouse to desired window. then press down the CTRL key or click mouse") FLIPREGION :D4 (I 1 REGION I 0 DSP) +Ah@ bhdd@AAAAggn (40 BITBLT 6 DSPCLIPPINGREGION) (33 INVERT 30 TEXTURE) () (PRETTYCOMPRINT TMENUCOMS) (RPAQQ TMENUCOMS ((* Copyright (c) 1982 by Xerox Corporation.) (* * Functions to support editable menus that insert items into the TTY stream. Written in 1981 by Mark Stefik, Danny Bobrow, and Christopher Tong.) (FNS * TMENUFNS) (* * Fns to support WindowShade feature.) (FNS * WINDOWSHADEFNS) ( * * These fns would probably not be called by a user.) (FNS * InternalTMENUFNS) (VARS YellowButtonItems (YellowButtonMenu NIL) (firstCallFlgTmenu T) (lastDeletedItem NIL) (menuedFiles NIL) ) (* Display Utility Functions) (FNS SELECTW FLIPREGION) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CPROMPT PROMPT))))) (RPAQQ TMENUFNS (MakeFileMenus TMenu PROMPT CPROMPT CloseFileMenus)) (RPAQQ WINDOWSHADEFNS (MakeWindowShade MoveShadeFn ReshapeShadeFn UnMakeWindowShade WindowShadeButtonFn)) (RPAQQ InternalTMENUFNS (AddItem CEILING ComputeMenuItems DInsert DeleteItem FetchNames InsertItem MenuButtonFn NewMenuExpr PrintMenuExpr ReShapeMenu SetUpDeleteItem SetUpInsertItem SortItems UnreadExpr)) (RPAQQ YellowButtonItems ((AddItem (QUOTE AddItem) "Add item to menu") (DeleteItem (QUOTE DeleteItem) "Delete item from menu") (InsertItem (QUOTE InsertItem) "Insert item in menu") (SortItems (QUOTE SortItems) "Sort items in menu") (UseExpr (QUOTE UseExpr) "Use itemExpr to recompute item list for menu") (NewExpr (QUOTE NewExpr) "Used to enter a new expression for computing items on menu") (PrintExpr (QUOTE PrintExpr) "Prints the current itemExpr"))) (RPAQQ YellowButtonMenu NIL) (RPAQQ firstCallFlgTmenu T) (RPAQQ lastDeletedItem NIL) (RPAQQ menuedFiles NIL) (PUTPROPS TMENU COPYRIGHT ("Xerox Corporation" 1987)) NIL