(FILECREATED " 9-Sep-94 13:53:03" ("compiled on " {DSK}lispusers>MACWINDOW.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "26-Apr-86 13:49:13" {ERIS}LISPCORE>MACWINDOW.;4 5327 changes to: (VARS MACWINDOWCOMS) previous date: "22-Apr-86 14:29:47" {ERIS}LISPCORE>MACWINDOW.;3) MACWINDOW.ZOOM2 D8 (I 3 C I 2 M I 1 B I 0 A) @CA@BNIL NIL () MACWINDOW.ZOOMBOX D8 (P 21 TIMER P 20 I P 18 PP P 17 YTW P 16 YTI P 15 YBW P 14 YBI P 13 XRW P 12 XRI P 11 XLW P 10 XLI P 9 M P 8 I P 7 ZOOMYT P 6 ZOOMYB P 5 ZOOMXR P 4 ZOOMXL P 3 OLDYT P 2 OLDYB P 1 OLDXR P 0 OLDXL I 2 ICONPOSITION I 1 TOWHAT I 0 IW F 22 MACWINDOW.SPEED F 23 MACWINDOW.ZOOMSTEPTIME F 24 MACWINDOW.ZOOMGRAY) 9@h@ _$_O$O$m_O$_O$O$m_ @g _$ABA ABBAAh_$ _$_O$O$m_O$_O$O$m_"O$@  W,_dj-kO(O&UO*O*O$@g _$hl W._*OO( O* hO* O(k_(LNMOW0 h(309 DRAWGRAYBOX 301 SCREENBITMAP 281 BLOCK 272 TIMEREXPIRED? 264 MACWINDOW.ZOOMSTEP 249 \CLOCK0 235 GETWINDOWUSERPROP 186 REGION-DISTANCE 179 \INSUREWINDOW 124 \INSUREWINDOW 88 WINDOWP 71 GETWINDOWUSERPROP 13 \INSUREWINDOW) (230 ICONWINDOW 214 FIXP 110 BITMAP 102 BITMAP 66 ICONFOR) () MACWINDOW.ZOOMSTEP D8 (I 1 C I 0 M F 0 ZOOMXL F 1 OLDXL F 2 ZOOMXR F 3 ZOOMYB F 4 ZOOMYT F 5 OLDXR F 6 OLDYB F 7 OLDYT F 8 MACWINDOW.ZOOMGRAY F 9 YBW F 10 YBI F 11 YTI F 12 XRW F 13 XLI F 14 XLW F 15 YTW F 16 XRI) iPcRc Sc TcWW@A cW W@A cWW@A cWW@A cQQVUWW PSRTW (102 DRAWGRAYBOX 94 SCREENBITMAP 84 DRAWGRAYBOX 76 SCREENBITMAP 61 MACWINDOW.ZOOM2 48 MACWINDOW.ZOOM2 35 MACWINDOW.ZOOM2 22 MACWINDOW.ZOOM2) NIL () REGION-DISTANCE D8 (I 1 REG2 I 0 REG1) Q@@AA l @@AA l j(76 SQRT 70 EXPT 58 ABS 33 EXPT 21 ABS) (63 FLOATP 26 FLOATP) () (PRETTYCOMPRINT MACWINDOWCOMS) (RPAQQ MACWINDOWCOMS ((FNS MACWINDOW.ZOOM2 MACWINDOW.ZOOMBOX MACWINDOW.ZOOMSTEP REGION-DISTANCE) ( INITVARS (MACWINDOW.ZOOMSTEPTIME 10) (MACWINDOW.SPEED 15) (MACWINDOW.ZOOMGRAY 42405)) (ADVISE EXPANDW SHRINKW))) (RPAQ? MACWINDOW.ZOOMSTEPTIME 10) (RPAQ? MACWINDOW.SPEED 15) (RPAQ? MACWINDOW.ZOOMGRAY 42405) (PUTPROPS EXPANDW READVICE (NIL (BEFORE FIRST (MACWINDOW.ZOOMBOX ICONW)))) (PUTPROPS SHRINKW READVICE (NIL (BEFORE FIRST (MACWINDOW.ZOOMBOX WINDOW TOWHAT ICONPOSITION)))) (READVISE EXPANDW SHRINKW) (PUTPROPS MACWINDOW COPYRIGHT ("Xerox Corporation" 1984 1985 1986)) NIL