(FILECREATED " 5-Jun-84 21:02:57" ("compiled on " {PHYLUM}LISPUSERS>PAGEHOLD.;16) "28-May-84 18:54:14" recompiled changes: END.OF.PAGE.HOLD MakePageHoldButton DoPageHoldMenu in WORK dated "31-May-84 22:31:16") (FILECREATED " 5-Jun-84 21:02:34" {PHYLUM}LISPUSERS>PAGEHOLD.;16 13067 changes to: (VARS PAGEHOLDCOMS \EndOfPageHold.button.GLOBALRESOURCE) (FNS DoPageHoldMenu END.OF.PAGE.HOLD MakePageHoldButton) previous date: " 2-Jun-84 23:23:54" {PHYLUM}LISPUSERS>PAGEHOLD.;10) END.OF.PAGE.HOLDA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 12Q EndOfPageHold.button F 13Q WAIT.SECS F 14Q WAIT.WINDOW F 15Q RESETVARSLST F 16Q HoldMessage.holdAdjustment F 17Q RESETY)  oWhWco W Wg ^N[lK_lOl WNN\lL_lOl jJnw L`l@j`lj0JJg %W W `W `W h\QLg HW IhYW `W `JWW `W LlLl `Wg gWgi ]dg𓿱g` oWh`hl  ddcWgWdjc Wdj𒿰:`cKKdg h[`l@j`ljiciMjMgMgW oMdjjcgHc`djch] WgM Wj h`njgl `njR`l@j`ljhgJJg +HcJN_lOl lZ(1174Q \DAYTIME0 1137Q TIMEREXPIRED? 1054Q BLOCK 1014Q PUTWINDOWPROP 1002Q PROMPTPRINT 725Q FLASHWINDOW 625Q TIMEREXPIRED? 567Q PUTWINDOWPROP 532Q MKATOM 527Q PROMPTFORWORD 505Q FRESHLINE 454Q DoPageHoldMenu 450Q PUTWINDOWPROP 422Q GETWINDOWUSERPROP 411Q BLOCK 401Q \CLOCK0 362Q PRIN3 351Q DSPXPOSITION 332Q DSPXPOSITION 321Q TERPRI 305Q DSPRESET 276Q TIMEREXPIRED? 261Q PRIN3 250Q DSPXPOSITION 237Q TERPRI 231Q DSPRESET 222Q TIMEREXPIRED? 154Q BLOCK 141Q \CLOCK0 100Q \DAYTIME0 43Q GETWINDOWUSERPROP 32Q OPENW) (1134Q SECONDS 1112Q \EM.KBDAD3 1077Q \EM.KBDAD2 1060Q \EM.KBDAD2 1033Q \EM.KBDAD2 1010Q PAGE.WAIT.SECS 761Q PAGE.WAIT.SECS 750Q INFINITY 715Q CLEAR 707Q INFINITY 656Q \EM.KBDAD3 640Q \EM.KBDAD2 622Q SECONDS 610Q PAGE.WAIT.SECS 554Q PAGE.WAIT.SECS 520Q PROMPTWINDOW 502Q PROMPTWINDOW 472Q PAGE.WAIT.SECS 461Q END.OF.PAGE.HOLD 444Q END.OF.PAGE.HOLD 432Q MENU 417Q END.OF.PAGE.HOLD 404Q BUTTON.FLASH.INTERVAL 355Q HoldMessage.more 336Q HoldMessage.holding 325Q HoldMessageAdjustment 273Q MILLISECONDS 254Q HoldMessage.holding 243Q HoldMessageAdjustment 217Q SECONDS 200Q \EM.KBDAD3 165Q \EM.KBDAD2 40Q BUTTONFLASHTIMERS) ( 732Q "Setting Default timelimit for this window to " 512Q "Default holding timelimit for this window = " 22Q 17777777777Q 3 (AND (WINDOWP OLDVALUE) (CLOSEW OLDVALUE))) END.OF.PAGE.HOLD D1 (L (0 STREAM) P 10Q RESETY P 7 LISPXHIST P 6 EndOfPageHold.button P 1 WAIT.SECS P 0 WAIT.WINDOW F 12Q TtyDisplayStream F 13Q LISPXHIST F 14Q RESETVARSLST) "  @W Xdg d `dYd@ dkI`l@j`lj!`njl} `nji@H ,djZH [`nKKJ`\`lKJؼKK`J]`l JK`ؽNLM N Ngi W! Wog hhg_ OON(426Q ERROR! 417Q RESETRESTORE 375Q END.OF.PAGE.HOLDA0001 353Q PUTWINDOWPROP 342Q DSPRESET 335Q MOVEW 227Q MakePageHoldButton 214Q \INSUREWINDOW 174Q \INSUREWINDOW 146Q BLOCK 57Q OLDPAGEFULLFN 26Q GETWINDOWUSERPROP 16Q WFROMDS) (436Q \EndOfPageHold.button.GLOBALRESOURCE 412Q ERROR 404Q \EndOfPageHold.button.GLOBALRESOURCE 372Q INTERNAL 347Q END.OF.PAGE.HOLD 324Q HoldingButtonHeight 310Q SCREENHEIGHT 301Q TitleBarHeight 253Q SCREENWIDTH 245Q HoldingButtonWidth 222Q \EndOfPageHold.button.GLOBALRESOURCE 152Q \EM.KBDAD2 127Q \EM.KBDAD2 113Q \EM.KBDAD3 100Q \EM.KBDAD2 41Q PAGE.WAIT.SECS 23Q PAGE.WAIT.SECS 13Q STREAM) ( 367Q (DUMMY.FOR.ERRORSET)) MakePageHoldButton D1 (F 10Q HoldMessage.holdAdjustment) l`` `` lod`J`H `lhH hhHi [hK H hK H JIlJIlcKg@k_ll jM Nh]OkذN&L `K `K Kgg Kgg Kgg K(342Q PUTWINDOWPROP 330Q PUTWINDOWPROP 316Q PUTWINDOWPROP 304Q DSPTEXTURE 275Q DSPFONT 266Q PUTWINDOWPROP 233Q \CLOCK0 160Q HEIGHTIFWINDOW 150Q DSPCLIPPINGREGION 143Q \INSUREWINDOW 132Q WIDTHIFWINDOW 123Q DSPCLIPPINGREGION 116Q \INSUREWINDOW 110Q CREATEW 75Q HEIGHTIFWINDOW 55Q WIDTHIFWINDOW 23Q STRINGWIDTH 12Q STRINGWIDTH) (337Q HoldingButtonEventFn 334Q BUTTONEVENTFN 325Q DON'T 322Q RESHAPEFN 313Q DON'T 310Q SHRINKFN 300Q GRAYSHADE 271Q HoldButtonFont 212Q BUTTONFLASHTIMERS 175Q HoldMessageAdjustment 163Q HoldingButtonHeight 135Q HoldingButtonWidth 63Q FONTDESCRIPTOR 60Q HoldButtonFont 47Q HoldMessageAdjustment 43Q HoldMessageAdjustment 33Q HoldMessageAdjustment 20Q HoldButtonFont 15Q HoldMessage.holding 7 HoldButtonFont 4 HoldMessage.more) ( 37Q -37777Q) HoldingButtonEventFn D1 (I 0 W) @g`dkjgljhh (35Q PUTWINDOWPROP) (20Q MENU 6 LASTMOUSEBUTTONS 3 END.OF.PAGE.HOLD) () DoPageHoldMenu D1 NIL I`A`dodkdodg dgjdndhHdI  (106Q MENU) (103Q HoldingButtonMenu 50Q DEFAULTMENUHELDFN 41Q CLRPROMPT 7 MENUTYPE# 2 HoldingButtonMenu) ( 32Q "Window Wait Options" 15Q (("set Window Wait to read-in" (QUOTE PAGE.WAIT.SECS) "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 CLEAR) "Remove Window's PAGE.WAIT.SECS property") ("Release this hold!" (QUOTE END.OF.PAGE.HOLD) "Simple release from holding"))) (PRETTYCOMPRINT PAGEHOLDCOMS) (RPAQQ PAGEHOLDCOMS ((COMS (* * "Temporary kludge patches.") (P (UNADVISE PAGEFULLFN))) (COMS (* * "Parameters adjustable by user.") (INITVARS (PAGE.WAIT.SECS 10) (BUTTON.FLASH.INTERVAL 500) ( HoldButtonFont (FONTCREATE (QUOTE HELVETICA) 12)) (HoldMessage.more " -- SHIFT for more -- ") ( HoldMessage.holding " -- Holding typeout -- "))) (GLOBALRESOURCES EndOfPageHold.button) (VARS ( HoldingButtonMenu NIL) (TitleBarHeight (FONTHEIGHT (DSPFONT NIL WindowTitleDisplayStream)))) (* * "Following variables computed at time of creation of 'button' or its menu.") (INITVARS ( HoldMessageAdjustment NIL) (HoldingButtonWidth NIL) (HoldingButtonHeight NIL)) (LOCALVARS . T) (FNS END.OF.PAGE.HOLD MakePageHoldButton HoldingButtonEventFn DoPageHoldMenu) (DECLARE: DONTCOPY (MACROS SHIFTDOWN?)) (GLOBALVARS HoldingButtonMenu PAGE.WAIT.SECS BUTTON.FLASH.INTERVAL HoldMessage.more HoldMessage.holding HoldButtonFont HoldMessageAdjustment HoldingButtonWidth HoldingButtonHeight TitleBarHeight) (P (MOVD? (QUOTE PAGEFULLFN) (QUOTE OLDPAGEFULLFN)) (MOVD (QUOTE END.OF.PAGE.HOLD) ( QUOTE PAGEFULLFN))))) (UNADVISE PAGEFULLFN) (RPAQ? PAGE.WAIT.SECS 10) (RPAQ? BUTTON.FLASH.INTERVAL 500) (RPAQ? HoldButtonFont (FONTCREATE (QUOTE HELVETICA) 12)) (RPAQ? HoldMessage.more " -- SHIFT for more -- ") (RPAQ? HoldMessage.holding " -- Holding typeout -- ") (RPAQQ \EndOfPageHold.button.GLOBALRESOURCE NIL) (RPAQQ HoldingButtonMenu NIL) (RPAQ TitleBarHeight (FONTHEIGHT (DSPFONT NIL WindowTitleDisplayStream))) (RPAQ? HoldMessageAdjustment NIL) (RPAQ? HoldingButtonWidth NIL) (RPAQ? HoldingButtonHeight NIL) (MOVD? (QUOTE PAGEFULLFN) (QUOTE OLDPAGEFULLFN)) (MOVD (QUOTE END.OF.PAGE.HOLD) (QUOTE PAGEFULLFN)) (PUTPROPS PAGEHOLD COPYRIGHT ("Xerox Corporation" 1982 1983 1984)) NIL