(FILECREATED " 6-Jul-94 01:51:14" ("compiled on " {DSK}lispusers>PAGEHOLD.;1) " 2-Jun-94 10:43:09" bcompl'd in "Medley 2-Jun-94 ..." dated " 2-Jun-94 10:52:50") (FILECREATED " 8-Jul-86 17:40:07" {ERIS}LISPCORE>PAGEHOLD.;3 31304 changes to: (VARS PAGEHOLDCOMS) (MACROS CTRLREALLYDOWN?) (FNS END.OF.PAGE.HOLD \EOP.DO.BUTTON) previous date: "15-Apr-86 11:21:20" {ERIS}LISPCORE>PAGEHOLD.;1) END.OF.PAGE.HOLD D8 (L (0 STREAM) F 2 \TERM.OFD) @R Hg `YI3 IghH gHg jig @Ig7kIg l}hi g `i @HI (167 \EOP.DO.BUTTON 157 READP 143 SHIFTDOWNP 132 DISMISS 121 SHIFTDOWNP 95 SHIFTDOWNP 76 GETWINDOWUSERPROP 57 DSPSCROLL 28 GETWINDOWUSERPROP 14 WFROMDS) (150 PAGE.WAIT.IGNORETYPEAHEAD 138 CTRL 116 CTRL 103 STOP 90 SHIFT 83 PAGE.WAIT.SECONDS 71 PAGE.WAIT.SECONDS 62 OFF 48 STOP 35 PAGE.WAIT.SECONDS 23 PAGE.WAIT.SECONDS 9 STREAM) () \EOP.DO.BUTTONA0001 D8 (NAME SI*UNWIND-PROTECT* I 0 SI*CLEANUP-FORMS* F 23 WAIT.SECS F 24 WINDOW F 25 SI*RESETFORMS*) W0g ` W0 ,3 jW0 ZJIHٻJJ`IټK`lIJػL`l IJHg ؼoHHikOgi OKL O oOhW2c2O H_,O,_,]Mlwj_(Ogl_`ln ol_`lnfo_W.gi_ _k__h"_ O,O,_,^Nl W._&O"nw O(g 5O"O"g $O O Hi` h_(_&O(g OOO h_Om_jHiO `` O__O"O SOdgHh` :g3OkjO "HhlO`` O O(O(lwO_(Og _$O$dg𓿱g5Ogi _*dg𓿱gc` oW.h`hl  c.d3j؇ghc.W0gW. W.dj𓿱G`c.O*djdgdgdgqjj-O*dgOg`O*ggc.W0 oO* W0gO*ghW. W.j iaO*g|gc.`i {O Yg Ml}hi g 7g IO"Oc.O"O,_gOfg O&AO O&g `_=h`hh Hig h_&l l_"OiO(1196 \DAYTIME0 1180 TIMEREXPIRED? 1166 LAST 1161 \NCONC2 1129 SHIFTDOWNP 1101 TIMEREXPIRED? 1060 SHIFTDOWNP 1048 SHIFTDOWNP 1037 DISMISS 1026 SHIFTDOWNP 1009 \GETKEY 1003 READP 955 PUTWINDOWPROP 928 PROMPTPRINT 915 FLASHWINDOW 798 PUTWINDOWPROP 764 MKATOM 759 PROMPTFORWORD 736 FRESHLINE 704 \PageHold.doMenu 698 PUTWINDOWPROP 655 GETWINDOWUSERPROP 642 BLOCK 610 TOTOPW 602 \PageHold.printMessage 576 DSPRESET 552 \PageHold.printMessage 527 DSPRESET 510 \PageHold.printMessage 455 TIMEREXPIRED? 433 \PageHold.printMessage 420 DSPRESET 407 TIMEREXPIRED? 390 SHIFTDOWNP 373 BLOCK 356 \DAYTIME0 205 OPENW 181 DSPRESET 173 MOVEW 163 PUTWINDOWPROP 130 GETWINDOWPROP 48 \INSUREWINDOW 33 \INSUREWINDOW 23 \PageHold.GET 11 GETWINDOWUSERPROP) (1175 SECONDS 1153 \PAGEHOLDBUTTONS 1139 \PAGEHOLDBUTTONS 1124 SHIFT 1096 SECONDS 1085 FIXP 1055 SHIFT 1043 CTRL 1021 CTRL 996 PAGE.WAIT.IGNORETYPEAHEAD 986 STOP 978 PAGE.WAIT.STOPMSG 943 DEFAULT 936 PAGE.WAIT.SECONDS 905 STOP 897 STOP 889 PAGE.WAIT.SECONDS 882 DEFAULT 870 INFINITY 853 STOP 845 DEFAULT 836 INFINITY 818 PAGE.WAIT.SECONDS 791 PAGE.WAIT.SECONDS 778 STOP 750 PROMPTWINDOW 731 PROMPTWINDOW 723 PAGE.WAIT.SECONDS 712 END.OF.PAGE.HOLD 692 END.OF.PAGE.HOLD 680 MENU 669 END.OF.PAGE.HOLD 650 END.OF.PAGE.HOLD 630 FIXP 618 FIXP 597 PAGE.WAIT.RELEASEMSG 591 PAGE.WAIT.HOLDMSG 559 FLASHING 547 PAGE.WAIT.HOLDMSG 537 WINKING 505 PAGE.WAIT.RELEASEMSG 499 PAGE.WAIT.STOPMSG 450 TICKS 428 PAGE.WAIT.RELEASEMSG 402 SECONDS 385 SHIFT 345 FIXP 309 STOP 286 \MACHINETYPE 260 \MACHINETYPE 247 FLASHING 234 FIXP 223 FIXP 157 END.OF.PAGE.HOLD 125 HEIGHT 106 SCREENHEIGHT 90 SCREENWIDTH 80 TitleBarHeight 18 PAGE.WAIT.ACTIVITY 6 PAGE.WAIT.ACTIVITY) ( 921 "Setting Default timelimit for this window to " 742 "Default holding timelimit for this window = " 299 1260000 274 2100000 187 (AND (WINDOWP OLDVALUE) (CLOSEW OLDVALUE)) 138 2147483647) \EOP.DO.BUTTON D8 (L (0 STREAM) P 2 RESETSTATE P 1 SI*RESETFORMS* P 0 LISPXHIST I 2 WAIT.SECS I 1 WINDOW F 3 LISPXHIST) S!g $(23 SIRESETUNWIND 18 \MVLIST 13 \EOP.DO.BUTTONA0001) (8 SIRESETUNWIND) () \PageHold.printMessage D8 (L (2 MSG 1 BOTTOMP 0 PAGEHOLDBUTTON)) 5@H A`H @BH BH (50 PRIN3 42 DSPXPOSITION 25 DSPYPOSITION 12 DSPRESET) (19 HoldButtonBottomLine) () \PageHold.buttonEventFn D8 (L (0 W)) ,@g`dkjgljgi (41 PUTWINDOWPROP) (34 END.OF.PAGE.HOLD 22 MENU 10 LASTMOUSEBUTTONS 5 END.OF.PAGE.HOLD) () \PageHold.doMenu D8 NIL W`K`dodkdodg dgjdndhHdI  (84 MENU) (79 HoldingButtonMenu 50 DEFAULTMENUHELDFN 41 CLRPROMPT 11 MENUTYPE# 4 HoldingButtonMenu) ( 32 "Window Wait Options" 18 (("set Window Wait to read-in" (QUOTE PAGE.WAIT.SECONDS) "Window gets new PAGE.WAIT.SECS property from type-in.") ("set Window Wait to infinity" (QUOTE INFINITY) "Set Window's PAGE.WAIT.SECS prop to infinity") ("set Window Wait to 0" 0 "Set Window's PAGE.WAIT.SECS prop to 0") ("use default Wait value" (QUOTE DEFAULT) "Remove Window's PAGE.WAIT.SECS property") ("set Window Wait to 'stop'" (QUOTE T) "Set Window's PAGE.WAIT.SECS prop for 'stopping' mode") ("Keep this hold indefinitely" (QUOTE T) "Go into indefinite hold mode") ("simple 'stop' now" (QUOTE HoldMessage.stop) "Puts current hold into 'stopped' state") ("Release this hold!" (QUOTE END.OF.PAGE.HOLD) "Simple release from holding"))) MakePageHoldButton D8 (L (0 ACTIVITY)) 9 @`dgl!dgl@d hj`` `` #@`blJlH \odL@glk` hH hhHi [`K `K Kgg Kgg Kgg Kgi @k_l$l j_NOh^Ok԰O&M@Kdg h(305 GETWINDOWPROP 264 \CLOCK0 245 PUTWINDOWPROP 233 PUTWINDOWPROP 217 PUTWINDOWPROP 201 PUTWINDOWPROP 185 DSPTEXTURE 174 DSPFONT 162 CREATEW 149 HEIGHTIFWINDOW 109 WIDTHIFWINDOW 83 STRINGWIDTH 67 STRINGWIDTH 42 \ILLEGAL.ARG) (300 WIDTH 239 END.OF.PAGE.HOLD 228 \PageHold.buttonEventFn 223 BUTTONEVENTFN 212 DON'T 207 RESHAPEFN 196 DON'T 191 SHRINKFN 179 GRAYSHADE 168 PAGE.WAIT.FONT 139 FONTDESCRIPTOR 134 PAGE.WAIT.FONT 123 WINKING 93 PAGE.WAIT.ACTIVITY 78 PAGE.WAIT.FONT 72 PAGE.WAIT.RELEASEMSG 62 PAGE.WAIT.FONT 56 PAGE.WAIT.HOLDMSG 49 PAGE.WAIT.ACTIVITY 26 FLASHING 13 WINKING 7 PAGE.WAIT.ACTIVITY) ( 115 -16383) \PageHold.GET D8 (L (0 ACTIVITY)) ,`HYh@ @IIIhI(22 MakePageHoldButton) (4 \PAGEHOLDBUTTONS) () (PRETTYCOMPRINT PAGEHOLDCOMS) (RPAQQ PAGEHOLDCOMS ((COMS (* "Parameters adjustable by user.") (INITVARS (PAGE.WAIT.SECONDS 20) ( PAGE.WAIT.ACTIVITY (QUOTE WINKING)) (PAGE.WAIT.IGNORETYPEAHEAD NIL) (PAGE.WAIT.FONT (FONTCREATE (QUOTE HELVETICA) 12)) (PAGE.WAIT.HOLDMSG (QUOTE (" -- SHIFT to hold typeout -- " 198))) ( PAGE.WAIT.RELEASEMSG (QUOTE (" -- Release SHIFT for more -- " 215))) (PAGE.WAIT.STOPMSG (QUOTE ( " -- Scrolling Stopped -- " 169)))) (GLOBALVARS PAGE.WAIT.SECONDS PAGE.WAIT.ACTIVITY PAGE.WAIT.IGNORETYPEAHEAD PAGE.WAIT.FONT PAGE.WAIT.HOLDMSG PAGE.WAIT.RELEASEMSG PAGE.WAIT.STOPMSG)) ( DECLARE: DONTCOPY (MACROS TYPEAHEADP CTRLREALLYDOWN?) (RECORDS PAGEHOLDBUTTON PAGEHOLDMSG)) (VARS ( HoldingButtonMenu NIL) (HoldButtonBottomLine (FONTDESCENT PAGE.WAIT.FONT)) (TitleBarHeight (FONTHEIGHT (DSPFONT NIL WindowTitleDisplayStream)))) (GLOBALVARS HoldingButtonMenu HoldButtonBottomLine TitleBarHeight) (FNS END.OF.PAGE.HOLD \EOP.DO.BUTTON \PageHold.printMessage \PageHold.buttonEventFn \PageHold.doMenu) (COMS (* "Items related to the PAGEHOLDBUTTON resource") (DECLARE: DONTCOPY ( RESOURCES PAGEHOLDBUTTON)) (INITRESOURCES PAGEHOLDBUTTON) (FNS MakePageHoldButton \PageHold.GET) ( GLOBALVARS \PAGEHOLDBUTTONS)) (DECLARE: DONTEVAL@LOAD DOCOPY (P (MOVD? (QUOTE PAGEFULLFN) (QUOTE OLDPAGEFULLFN) NIL T) (/MOVD (QUOTE END.OF.PAGE.HOLD) (QUOTE PAGEFULLFN)))) (LOCALVARS . T))) (RPAQ? PAGE.WAIT.SECONDS 20) (RPAQ? PAGE.WAIT.ACTIVITY (QUOTE WINKING)) (RPAQ? PAGE.WAIT.IGNORETYPEAHEAD NIL) (RPAQ? PAGE.WAIT.FONT (FONTCREATE (QUOTE HELVETICA) 12)) (RPAQ? PAGE.WAIT.HOLDMSG (QUOTE (" -- SHIFT to hold typeout -- " 198))) (RPAQ? PAGE.WAIT.RELEASEMSG (QUOTE (" -- Release SHIFT for more -- " 215))) (RPAQ? PAGE.WAIT.STOPMSG (QUOTE (" -- Scrolling Stopped -- " 169))) (RPAQQ HoldingButtonMenu NIL) (RPAQ HoldButtonBottomLine (FONTDESCENT PAGE.WAIT.FONT)) (RPAQ TitleBarHeight (FONTHEIGHT (DSPFONT NIL WindowTitleDisplayStream))) (/SETTOPVAL (QUOTE \PAGEHOLDBUTTONS) (LIST NIL)) (MOVD? (QUOTE PAGEFULLFN) (QUOTE OLDPAGEFULLFN) NIL T) (/MOVD (QUOTE END.OF.PAGE.HOLD) (QUOTE PAGEFULLFN)) (PUTPROPS PAGEHOLD COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986)) NIL