(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "14-Sep-94 18:44:22" ("compiled on " {DSK}lispusers>tmenu.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED " 8-Nov-88 17:04:43" {ERINYES}MEDLEY>TMENU.;2 31829 changes to%: (FNS ReShapeMenu) previous date%: "16-Feb-87 16:33:23" {ERINYES}MEDLEY>TMENU.;1) MakeFileMenus :D8 (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 ZddNdgENgNgN gNhIig MNK[rdgdgaNdg.gN NIig MNK[(g@ gNhIig M]6@HK [gH \dK Ldig M]@MhWch(272 TMenu 259 SET 251 PACK* 239 SORT 216 TMenu 193 CONCAT 169 TMenu 152 CONCAT 95 TMenu 70 CONCAT 19 EVAL 10 PACK*) (267 WindowShade 245 RELEVANT% 211 WindowShade 199 QUOTE 187 % 164 WindowShade 143 % 134 * 121 CLASSES 113 FNS 90 WindowShade 76 FetchNames 61 % 49 * 37 VARS 5 COMS) () TMenu :D8 (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) gl a@d + @ @[ddi3 g@hbBdiK o b3`dKdgdHdBdi djdg dgjdndhdM jdJ J hL LA JIjd I IWBA hd`dKdgdHdkdi dg dgjdndhdN Z Ydg@ Igg IggDgh EIgE CI I(414 MakeWindowShade 405 PUTWINDOWPROP 391 PUTWINDOWPROP 386 APPLY 360 PUTWINDOWPROP 344 PUTWINDOWPROP 331 ReShapeMenu 253 CREATEW 242 MOVEW 235 ADDMENU 224 CREATEW 216 DSPCLIPPINGREGION 205 BITMAPHEIGHT 200 CHECK/MENU/IMAGE 194 BITMAPWIDTH 189 CHECK/MENU/IMAGE 180 DSPCREATE 91 CEILING 80 LENGTH 39 EVAL 32 \DEFINEDP 23 EVAL 11 FONTCREATE) (399 DEFAULTTRAILERSTRING 379 MenuButtonFn 371 FUNCTION 366 BUTTONEVENTFN 355 ReShapeMenu 350 RESHAPEFN 338 MENUEXPR 305 DEFAULTMENUHELDFN 296 CLRPROMPT 272 UnreadExpr 260 |MENUTYPE#| 154 DEFAULTMENUHELDFN 145 CLRPROMPT 116 UnreadExpr 104 |MENUTYPE#| 60 QUOTE 4 GACHA) ( 85 15.0) PROMPT :D8 (P 1 I P 0 nargs) >ehng` ` jHIhIkYa` (57 PRIN1 32 DSPRESET 22 DSPFILL) (52 PROMPTWINDOW 27 PROMPTWINDOW 17 PROMPTWINDOW 12 INPUT) () CPROMPT :D8 (P 2 MSG P 1 I P 0 nargs) aejhng` ` 0HI KZddh` ` hIkYaL Mh\M&(72 CENTERPRINTINREGION 62 DSPCLIPPINGREGION 36 DSPRESET 26 DSPFILL) (67 PROMPTWINDOW 57 PROMPTWINDOW 31 PROMPTWINDOW 21 PROMPTWINDOW 16 INPUT) () CloseFileMenus :D8 (P 3 window P 0 fileInfo I 0 fileName F 4 menuedFiles) ;0TY hXdZ@JiIdK HT ch(53 REMOVE 41 CLOSEW) NIL () MakeWindowShade :D8 (P 2 iconWindow P 1 title P 0 wregion I 0 window) @dib @o @ @ (HHHmHlhI Z@gJ Jg@ Jgg Jgg Jgg Jgg @ h(183 CLOSEW 177 PUTWINDOWPROP 161 PUTWINDOWPROP 145 PUTWINDOWPROP 129 PUTWINDOWPROP 113 PUTWINDOWPROP 101 PUTWINDOWPROP 88 CREATEW 52 \INSUREWINDOW 44 \INSUREWINDOW 37 ERROR 25 WINDOWP 18 SELECTW 7 WHICHW) (172 UnMakeWindowShade 167 CLOSEFN 156 ReshapeShadeFn 151 RESHAPEFN 140 MoveShadeFn 135 MOVEFN 124 WindowShadeButtonFn 119 BUTTONEVENTFN 107 IconFor 95 IconWindow) ( 32 "Not a window") MoveShadeFn :D8 (P 2 mainR P 1 mainW P 0 wr I 1 pos I 0 iconWindow) :@ @g I ZIJAHJAH h(54 MOVEW 27 \INSUREWINDOW 18 GETWINDOWUSERPROP 5 \INSUREWINDOW) (13 IconFor) () ReshapeShadeFn :D8 (P 1 w P 0 r I 2 region I 1 bitMap I 0 shadeWindow) ,@ @g @ IH I h(40 MakeWindowShade 34 SHAPEW 27 CLOSEW 18 GETWINDOWUSERPROP 5 \INSUREWINDOW) (13 IconFor) () UnMakeWindowShade :D8 (P 0 w I 0 shade) D@ bg H Hgh Hgh @gh H(64 PUTWINDOWPROP 52 PUTWINDOWPROP 40 PUTWINDOWPROP 28 OPENW 19 GETWINDOWUSERPROP 7 WHICHW) (58 IconFor 46 IconWindow 34 CLOSEFN 14 IconFor) () WindowShadeButtonFn :D8 (P 0 mainWindow I 0 windowShade) 3@g jm H HkIH h(47 CLOSEW 32 \INSUREWINDOW 26 ADJUSTCURSORPOSITION 15 OPENW 10 GETWINDOWUSERPROP) (5 IconFor) () AddItem :D8 (P 0 item I 1 menu I 0 window F 1 lastDeletedItem) Koo QXAAHh @ h(71 ReShapeMenu 63 \NCONC2 41 CPROMPT 36 CLEARBUF 27 READ 22 PROMPT 7 CLEARBUF) (53 MENU 47 MENU) ( 17 "(Either an atom or a list of form: (printThis evalThis comment trailerStr))" 12 "Please type in new menu item.") CEILING :D8 (P 0 num I 0 fnum) @jX@HdkHNIL NIL () ComputeMenuItems :D8 (P 1 items P 0 expr I 1 menu I 0 window) E @g Xd(d YIAI@hdA oo h(65 CPROMPT 48 ReShapeMenu 23 EVAL 13 GETWINDOWUSERPROP) (35 MENU 8 MENUEXPR) ( 60 "No expression for this menu." 54 "Menu expression returns non-list.") DInsert :D8 (P 0 TempList I 2 List I 1 oldItem I 0 newItem) @AhAB XBHBHB(14 LSUBST) NIL () DeleteItem :D8 (P 1 itemExpr P 0 items I 2 button I 1 menu I 0 item F 2 lastDeletedItem) ? @cA@A A hdA Agh(46 ReShapeMenu 38 WFROMMENU 32 CPROMPT 25 DREMOVE) (57 UnreadExpr 52 MENU 18 MENU 11 MENU) () FetchNames :D8 (L (0 lst)) 0@ddIHhZH&JNIL NIL () InsertItem :D8 (P 1 newList P 0 newItem I 2 button I 1 menu I 0 listItem F 2 lastDeletedItem) _ oo RXAH@A A hdA Agh(78 ReShapeMenu 70 WFROMMENU 62 DInsert 41 CPROMPT 36 CLEARBUF 27 READ 22 PROMPT 7 CLEARBUF) (89 UnreadExpr 84 MENU 55 MENU 47 MENU) ( 17 "(Either an atom, or a list of form: (printThis evalThis comment trailerStr))" 12 "Please type in new item.") MenuButtonFn :D8 (P 1 selection P 0 menu I 0 window F 3 YellowButtonItems F 4 YellowButtonMenu) 0@g X@ `dlj%H@ YHII kj`dSdg dgjdndhdJ c dg@H jdg@H Xdg@H Fdg@H 4dg@H "dg@H g @H h(252 PrintMenuExpr 236 NewMenuExpr 218 ComputeMenuItems 200 SetUpInsertItem 182 SortItems 164 SetUpDeleteItem 146 AddItem 130 MENU 66 DOSELECTEDITEM 49 MENU.HANDLER 42 \INSUREWINDOW 21 TOTOPW 13 GETWINDOWUSERPROP) (242 PrintExpr 226 NewExpr 208 UseExpr 190 InsertItem 172 SortItems 154 DeleteItem 136 AddItem 103 DEFAULTMENUHELDFN 94 CLRPROMPT 82 |MENUTYPE#| 26 LASTMOUSEBUTTONS 8 MENU) () NewMenuExpr :D8 (P 0 EXPR I 1 menu I 0 window) .o X@gH @A h(42 ComputeMenuItems 35 CPROMPT 30 PUTWINDOWPROP 17 READ 12 CPROMPT) (24 MENUEXPR) ( 7 "Enter New Expression for computing Menu items.") PrintMenuExpr :D8 (P 0 EXPR I 1 menu I 0 window) +@g Xdd o h(39 CLEARBUF 33 CPROMPT 22 PRINT 13 GETWINDOWUSERPROP) (8 MENUEXPR) ( 28 "No Expression Set for this Menu") ReShapeMenu :D8 (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)  C@g bh@ _dZO[C_0Cdd_O Oh_ O&_O \dO l]L _JM_OdOO_kOkXJH]OH YKIO _dOO^KN Ydl (Ol!OlOHOo JH۰(KOO NMOIkkOKO۾JCHC NC MChCj@ _C C @gh C@jdOIH @gg @ggOh @(420 PUTWINDOWPROP 415 APPLY 395 PUTWINDOWPROP 379 ADDMENU 363 PUTWINDOWPROP 351 UPDATE/MENU/IMAGE 345 DELETEMENU 335 \INSUREWINDOW 232 CEILING 198 EQP 189 CEILING 156 CEILING 115 FLENGTH 105 MAXSTRINGWIDTH 26 DSPCLIPPINGREGION 15 GETWINDOWUSERPROP) (406 FUNCTION 401 BUTTONEVENTFN 390 ReShapeMenu 385 RESHAPEFN 357 SCROLLFN 326 MENU 317 MENU 305 MENU 292 MENU 283 MENU 248 FONTDESCRIPTOR 167 FONTDESCRIPTOR 59 MENU 46 MENU 10 MENU) ( 226 2.0) SetUpDeleteItem :D8 (I 1 menu I 0 window) Ago (22 CPROMPT) (10 DeleteItem 5 MENU) ( 17 "Please select menu item to be deleted.") SetUpInsertItem :D8 (I 1 menu I 0 window) Ago (22 CPROMPT) (10 InsertItem 5 MENU) ( 17 "Select item to insert new item before.") SortItems :D8 (I 1 menu I 0 window) AA @hdA (29 ReShapeMenu 18 SORT) (11 MENU 5 MENU) () UnreadExpr :D8 (P 2 trailx P 1 evalx P 0 printx I 1 menu I 0 exp) ^0A g Z@dJ2o+@Y@@ H JoH Jd h(90 BKSYSBUF 82 BKSYSBUF 60 EVAL 18 GETWINDOWUSERPROP 8 WFROMMENU) (13 DEFAULTTRAILERSTRING) ( 75 " " 32 " ") SELECTW :D8 NIL Wo l`ljjkj&`lHj HH (84 WHICHW 78 PROMPT 72 GETMOUSESTATE 64 \FZEROP 36 GETMOUSESTATE 9 PROMPT) (42 LASTMOUSEBUTTONS 17 \LASTKEYSTATE) ( 4 "Move mouse to desired window. then press down the CTRL key or click mouse") FLIPREGION :D8 (I 1 REGION I 0 DSP) 3Ah@ bhdd@AAAAggn (48 BKBITBLT 8 DSPCLIPPINGREGION) (39 INVERT 34 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 1988)) NIL