(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "19-Sep-2022 19:21:39" ("compiled on " {DSK}matt>medley>LISPUSERS>HISTMENU.;4) "12-Aug-2022 23:46:35" recompiled changes%: HistMenuOp in "FULL 12-Aug-2022 ..." dated "12-Aug-2022 23:46:38") (FILECREATED "19-Sep-2022 19:20:51" {DSK}matt>medley>LISPUSERS>HISTMENU.;4 16184 :CHANGES-TO ( VARS HISTMENUCOMS) (FNS HistMenuOp) :PREVIOUS-DATE "15-Sep-2022 21:50:50" {DSK}matt>medley>LISPUSERS>HISTMENU.;3) HistEventString :D8 (P 6 item P 5 tail P 3 str P 2 key P 1 newLst P 0 event I 0 entry F 7 HistEventWidth F 8 HISTSTR0 F 9 BadHistoryItems) @og'@1HZdgPHJHo`Hg  hJ YH!L]TWM^HN)o^4JW@ggh gl Ig IN MgI [ WKkW o @gKh K(238 \NCONC2 222 CONCAT 212 SUBSTRING 198 NCHARS 192 APPLY 175 TCONC 167 TCONC 155 \TYPEMASK.UFN 142 \NCONC2 87 TCONC 79 \APPEND2 74 \APPEND2 68 LISPXFIND) (229 HistoryString 185 CONCAT 162 % 147 Deleted 134 Deleted 129 HistoryString 63 ENTRY 56 LISPXHISTORY 37 UNDO 16 HistoryString) ( 217 " ..." 114 "()" 51 (" -- ") 7 (" ")) HistHeldFnA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 item F 1 key) Aoh Qgooh Ph h P h (62 TERPRI 56 PRIN3 49 TERPRI 43 PRIN1 35 PRIN1 10 PRIN1) (16 MIDDLE) ( 29 "REDO " 23 "do one of UNDO, FIX, ??, or Delete on " 4 "Will ") HistHeldFn :D8 (P 0 SI::*RESETFORMS* I 2 key I 1 menu I 0 item F 1 PROMPTWINDOW) 4gQ hhhg $(45 SI::RESETUNWIND 40 \MVLIST 35 HistHeldFnA0001 15 OUTPUT 4 CLRPROMPT) (30 SI::RESETUNWIND 9 OUTPUT) () HistMenuOp :D8 (P 0 op I 2 key I 1 menu I 0 exp F 2 HistOpMenu F 3 HistMenuExecOnly F 4 HistOpMenuItems F 5 UpdateOnDeleteFlg)  @,S*og 3 o hBdggXgRR2`dTdg dgjdndhdI c Xdg7`@hg gg UpA cH o @ l h(241 BKSYSCHARCODE 233 BKSYSBUF 225 BKSYSBUF 214 BKSYSBUF 201 UpdateHistory 187 LISTPUT 169 LISPXFIND 139 MENU 47 PROMPTPRINT 34 STRPOS 29 PROCESSPROP 19 TTY.PROCESS) (182 Deleted 177 HistoryString 164 ENTRY 155 LISPXHISTORY 146 Delete 112 DEFAULTMENUHELDFN 103 CLRPROMPT 91 |MENUTYPE#| 82 MENU 73 MIDDLE 64 REDO 56 LEFT 24 NAME) ( 220 " " 42 "Please select an Exec window for this action." 14 "EXEC") HistRightButtonFn :D8 (P 2 COM I 0 WINDOW F 3 HistRightMenu) dg ;`dodg dgjdndhHdI c@ S Z@kJi(88 MENU 79 TOTOPW 9 \EVALV1) (46 DEFAULTMENUHELDFN 37 CLRPROMPT 21 |MENUTYPE#| 14 MENU 4 HistRightMenu) ( 28 ((Bury (QUOTE BURYW) "Puts this window on the bottom.") (Move (QUOTE MOVEW) "Moves window by a corner.") (Shrink (QUOTE SHRINKW) "Replaces this window with its icon (or title if it doesn't have an icon.") (Update (QUOTE UpdateHistoryWindow) "Update the window to show all current items"))) HistoryIcon :D8 (P 1 H P 0 W I 2 iconPosition I 1 histPosition I 0 N F 2 HistoryBitMap F 3 HistoryMask F 4 HistoryWindow) *RSBi @A Yd HBg c(37 SHRINKW 25 WFROMMENU 18 HistoryMenu 8 ICONW) (32 UpdateHistoryWindow) () HistoryMenu :D8 (P 7 MD P 3 wregion P 2 wwidth P 1 W P 0 wheight I 1 histMenuPosition I 0 histMenuLength F 8 HistoryMenu F 9 HistMenuItemHeight F 10 HistItemsShown F 11 HistDefaultSlice F 12 HistMenuWidth) WWa@Wb`@ dLdjdgdgdg jdndhdM ^d WN Wc"OWg@h"g@ W W i AA3Ad3JHhddo bAJHh[o Ygg WIjdi W(279 ADDMENU 266 PUTWINDOWPROP 250 CREATEW 227 GETBOXPOSITION 194 HEIGHTIFWINDOW 188 BITMAPHEIGHT 183 CHECK/MENU/IMAGE 175 WIDTHIFWINDOW 170 BITMAPWIDTH 165 CHECK/MENU/IMAGE 157 LISTPUT 26 LastNEvents) (261 HistRightButtonFn 256 RIGHTBUTTONFN 151 HistorySlice 139 HistorySlice 134 MENU 118 MENU 103 MENU 88 MENU 61 CLRPROMPT 52 HistHeldFn 43 HistMenuOp 19 |MENUTYPE#|) ( 245 "History Window" 221 "Position History Window") LastNEvents :D8 (P 7 hist1 P 3 hist P 2 lastN P 1 ev P 0 i I 0 N) fk`jk`B@HGK_KO YgHkظKOI`O oM Nh]N&L(75 ENTRY# 44 HistEventString) (68 LISPXHISTORY 50 Deleted 20 LISPXHISTORY 8 LISPXHISTORY) ( 82 (" ")) UpdateHistory :D8 (P 0 historyWindow I 0 histMenu) 4@ @@"g' @ @H h(48 BLTMENUIMAGE 41 UPDATE/MENU/IMAGE 33 LastNEvents 5 WFROMMENU) (27 HistorySlice 20 MENU 14 MENU) () UpdateHistoryWindow :D8 (I 0 window) @g  (16 UpdateHistory 10 GETWINDOWUSERPROP) (5 MENU) () (PRETTYCOMPRINT HISTMENUCOMS) (RPAQQ HISTMENUCOMS ((VARS * HISTMENUVARS) (INITVARS HistMenuExecOnly) (FNS * HISTMENUFNS) (BITMAPS HistoryBitMap HistoryMask) (PROP (FILETYPE MAKEFILE-ENVIRONMENT) HISTMENU))) (RPAQQ HISTMENUVARS (BadHistoryItems HistDefaultSlice HistItemsShown HistMenuItemHeight HistMenuWidth HistOpMenuItems HistWindowWidth HistEventWidth UpdateOnDeleteFlg (HistRightMenu) (HistOpMenu) ( HistoryWindow) (HistoryMenu))) (RPAQQ BadHistoryItems (EDIT ?= OK T NIL ^)) (RPAQQ HistDefaultSlice 30) (RPAQQ HistItemsShown 51) (RPAQQ HistMenuItemHeight 15) (RPAQQ HistMenuWidth 164) (RPAQQ HistOpMenuItems ((REDO (QUOTE REDO) "REDO event selected") (FIX (QUOTE FIX) "Edit event selected") (UNDO (QUOTE UNDO) "UNDO event selected") (?? (QUOTE ??) "Show event selected") (Delete (QUOTE Delete) "Delete event from history menu"))) (RPAQQ HistWindowWidth 164) (RPAQQ HistEventWidth 60) (RPAQQ UpdateOnDeleteFlg T) (RPAQQ HistRightMenu NIL) (RPAQQ HistOpMenu NIL) (RPAQQ HistoryWindow NIL) (RPAQQ HistoryMenu NIL) (RPAQ? HistMenuExecOnly NIL) (RPAQQ HISTMENUFNS (HistEventString HistHeldFn HistMenuOp HistRightButtonFn HistoryIcon HistoryMenu LastNEvents UpdateHistory UpdateHistoryWindow)) (RPAQQ HistoryBitMap #*(64 64)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOON@AH@@@@@@@@@@@FA@C@@@@@@@@@@@@D@HB@@@@@@@@@@@@L@HB@@@@@@@@@@@@H@DB@@@@@@@@@@@@H@DB@@@@@@@@@@@@H@DB@@@@@@@@@@@@D@HC@@@@@@@@@@@@DDHA@DDA@@@@@@@@CG@AHDD@@@A@@@@@@H@@HDDG@NCLCHKBAH@@HGLAAAA@DDLJBD@@LDDA@LA@DDHBBD@@LDDA@BA@DDHADD@@DDDAAAABDDHADD@@FDDA@N@LCHH@HD@@B@@@@@@@@@@@HD@@B@@@@@@@@@@CHD@@C@@@@@@@@@@@@D@@C@@@@@@@@@@@@D@@A@@@@@@@@@@@@D@@A@@@@@@@@@@@@D@@A@@@@@@@@@@@@D@@AH@@@@@@@@@@@F@@@H@@@@@@@@@@@B@@@H@@@@@@@@@@@B@@@H@@@@@@@@@@@B@@@H@@@@@@@@@@@B@@@H@@@@@@@@@@@B@@@H@@@@@@@@@@@B@@@H@@@@@@@@@@@B@@@H@@@@@@@@@@@B@@@L@@@@@@@@@@@C@@@L@@@@@@@@@@@A@@@D@@@@@@@@@@@A@@@D@@@@@@@@@@@A@@@D@@@@@@@@@@@A@@@D@@@@@@@@@@@A@@@D@@@@@@@@@@@A@@@D@@@@@@@@@@@A@@@D@@@@@@@@@@@A@@@D@@@@@@@@@@@A@@@D@@@@@@@@@@@A@@@L@@@@@@@@@@@A@@@H@@@@@@@@@@@A@@@H@@@@@@@@@@@A@@@H@@@@@@@@@@@A@@OOOOOOOOOOOO@A@AH@@@@@@@@@@GLA@F@@@@@@@@@@@LFA@D@@@@@@@@@@AHBC@L@@@@@@@@@@A@FB@H@@@@@@@@@@A@LF@H@@@@@@@@@@AOHD@H@@@@@@@@@@AH@D@L@@@@@@@@@@@H@H@L@@@@@@@@@@@LA@@N@@@@@@@@@@@GF@@CH@@@@@@@@@@AL@@@OOOOOOOOOOOOH@@ ) (RPAQQ HistoryMask #*(64 64)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOON@AOOOOOOOOOOOOOOHCOOOOOOOOOOOOOOHCOOOOOOOOOOOOOOLCOOOOOOOOOOOOOOLCOOOOOOOOOOOOOOLCOOOOOOOOOOOOOOLCOOOOOOOOOOOOOOLCOOOOOOOOOOOOOOLAOOOOOOOOOOOOOOHAOOOOOOOOOOOOON@@OOOOOOOOOOOOON@@OOOOOOOOOOOOOL@@OOOOOOOOOOOOOL@@OOOOOOOOOOOOOL@@GOOOOOOOOOOOOL@@GOOOOOOOOOOOOL@@COOOOOOOOOOOOL@@COOOOOOOOOOOOL@@COOOOOOOOOOOOL@@COOOOOOOOOOOOL@@AOOOOOOOOOOOOL@@AOOOOOOOOOOOOL@@AOOOOOOOOOOOOL@@AOOOOOOOOOOOON@@@OOOOOOOOOOOON@@@OOOOOOOOOOOON@@@OOOOOOOOOOOON@@@OOOOOOOOOOOON@@@OOOOOOOOOOOON@@@GOOOOOOOOOOON@@@GOOOOOOOOOOON@@@GOOOOOOOOOOON@@@GOOOOOOOOOOOO@@@GOOOOOOOOOOOO@@@GOOOOOOOOOOOO@@@GOOOOOOOOOOOO@@@GOOOOOOOOOOOO@@@GOOOOOOOOOOOO@@@GOOOOOOOOOOOO@@@GOOOOOOOOOOOO@@@GOOOOOOOOOOOO@@@GOOOOOOOOOOOO@@@GOOOOOOOOOOOO@@@OOOOOOOOOOOOO@@@OOOOOOOOOOOOO@@@OOOOOOOOOOOOO@@@OOOOOOOOOOOOO@@OOOOOOOOOOOOOO@COOOOOOOOOOOOOO@GOOOOOOOOOOOOOO@GOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOON@OOOOOOOOOOOOOON@OOOOOOOOOOOOOOL@OOOOOOOOOOOOOOL@OOOOOOOOOOOOOOH@OOOOOOOOOOOOOO@@COOOOOOOOOOOOL@@AOOOOOOOOOOOOH@@ ) (PUTPROPS HISTMENU FILETYPE :TCOMPL) (PUTPROPS HISTMENU MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP")) (PUTPROPS HISTMENU COPYRIGHT ("Xerox Corporation" 1984 1987 2022)) NIL