(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "14-Sep-94 18:37:13" ("compiled on " {DSK}lispusers>SOLID-MOVEW.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "26-Jun-88 00:05:44" |{NEWTON:EUROPARC:RX}LISP>LYRIC>SOLID-MOVEW.;23| 11836 changes to%: (VARS SOLID-MOVEWCOMS) (FNS SOLID-MOVEW \SOLID-MOVEW-CLOSEW-WATCHER) previous date%: " 8-May-88 01:58:13" |{NEWTON:EUROPARC:RX}LISP>LYRIC>SOLID-MOVEW.;21|) MAYBE-SOLID-MOVEW :D8 (I 2 Y I 1 POSorX I 0 WINDOW) @ `dg@g N@g @ H`6H``d3HH`h@AB @AB (129 ORIGINAL-MOVEW 120 SOLID-MOVEW 54 POSITIONP 47 GETWINDOWUSERPROP 34 GETWINDOWUSERPROP 5 WINDOWREGION) (108 *SOLID-MOVEW-FLAG* 87 *SOLID-MOVEW-FLAG* 79 *SOLID-MOVEW-FLAG* 65 *SOLID-MOVEW-FLAG* 42 ICONIMAGE 29 ICONFOR 19 ICON 13 *SOLID-MOVEW-FLAG*) () SOLID-MOVEWA0002 :D8 (NAME SI::*UNWIND-PROTECT* P 1 \INTERRUPTABLE I 0 SI::*CLEANUP-FORMS* F 2 tmpMap F 3 x F 4 y F 5 width F 6 height F 7 savX F 8 savY F 9 shadowHeight F 10 intX F 11 intY F 12 savWidth F 13 savHeight F 14 screen F 15 mask F 16 tmpX F 17 tmpY F 18 savMap F 19 shadowWidth F 20 image F 21 shade F 22 buttonWait F 23 firstTime F 24 intWidth F 25 intHeight F 26 tmpWidth F 27 tmpHeight F 28 oldCursor F 29 cxOff F 30 cyOff F 31 moveFns F 32 WINDOW) Vo c8`Wc:`WcW@ST HcHcSW WTW WW$jdWWWWW WSTW$jdWW ScTcWSTRjdW4W6 WX`"WjdRW&jUVgg` WjdRjWUVhg W(jdRjWUVhg 0``RW&jUVg W(jdRjWUV W*W*jdRjWUVhg RjdWSTW4W6 ISdWWc TdWWc"SW cTW"cSW Wc0TW Wc2WW W"RjdW0W2 W$jdRWW WW"WW RWWW$jdWW ScTcWd`&WjdRWW&WUVgg` WjdRWWWUVhg W(jdRWWWUVhg 8``RWW&WUVg W(jdRWWWUV W*W*jdRWWWUVhg RjdWW W"W0W2 (849 BKBITBLT 829 BKBITBLT 798 BKBITBLT 777 BLTSHADE 742 BKBITBLT 715 BKBITBLT 688 BKBITBLT 633 BKBITBLT 610 BKBITBLT 584 BKBITBLT 559 ABS 544 ABS 494 BKBITBLT 476 BKBITBLT 449 BKBITBLT 432 BLTSHADE 401 BKBITBLT 378 BKBITBLT 355 BKBITBLT 312 BKBITBLT 286 BKBITBLT 264 BKBITBLT 236 ABS 221 ABS 199 ICONW.MOVEFN 194 CREATEPOSITION 142 \FZEROP 105 \FZEROP 61 GETMOUSESTATE 49 GETMOUSESTATE 43 \CURSORPOSITION 9 CURSOR) (823 PAINT 771 PAINT 756 *SOLID-MOVEW-SHADOW-SHADE* 749 *SOLID-MOVEW-SHADOW* 736 PAINT 709 ERASE 682 *SOLID-MOVEW-SHADOW-SHADE* 677 PAINT 672 MERGE 651 *SOLID-MOVEW-SHADOW* 470 PAINT 426 PAINT 415 *SOLID-MOVEW-SHADOW-SHADE* 408 *SOLID-MOVEW-SHADOW* 395 PAINT 372 ERASE 349 *SOLID-MOVEW-SHADOW-SHADE* 344 PAINT 339 MERGE 322 *SOLID-MOVEW-SHADOW* 180 ICONW.MOVEFN 173 *SOLID-MOVEW-GRIDDING* 120 LASTMOUSEBUTTONS 83 LASTMOUSEBUTTONS 75 LASTMOUSEY 67 LASTMOUSEX 28 LASTMOUSEY 17 LASTMOUSEX) ( 4 (CURSORCREATE (BITMAPCREATE 0 0))) SOLID-MOVEWA0005 :D8 (F 2 WINDOW F 3 savX F 4 savY F 5 cxOff F 6 result F 7 cyOff F 8 oldCursor F 9 wyOff F 10 savMap F 11 screen F 12 savWidth F 13 y F 14 savHeight F 15 windows F 16 x F 17 wxOff) SUTW W WjdWSTWW `lHj HH 7Rgg RW W"WW c Rgg Rg Rgh %W g HdkIhRg R (198 DOUSERFNS 192 GETWINDOWUSERPROP 163 CL:SYMBOL-FUNCTION 153 REVERSE 143 PUTWINDOWPROP 130 GETWINDOWUSERPROP 118 WINDOWDELPROP 99 ORIGINAL-MOVEW 82 WINDOWADDPROP 63 \FZEROP 36 BKBITBLT 18 CURSOR 11 \CURSORPOSITION) (187 TOTOPFN 158 \OPENW1 137 SOLID-CLIENT-CLOSED 125 SOLID-CLIENT-CLOSED 113 \SOLID-MOVEW-CLOSEW-WATCHER 108 CLOSEFN 77 \SOLID-MOVEW-CLOSEW-WATCHER 72 CLOSEFN 41 LASTMOUSEBUTTONS) () SOLID-MOVEW :D8 (L (2 Y 1 POSorX) P 49 \INTERRUPTABLE P 35 firstTime P 34 cyOff P 33 cxOff P 32 wyOff P 31 wxOff P 30 result P 29 buttonWait P 28 oldCursor P 27 moveFns P 26 screen P 25 windows P 24 shade P 23 mask P 22 image P 21 intHeight P 20 intWidth P 19 tmpHeight P 18 tmpWidth P 17 savHeight P 16 savWidth P 15 intY P 14 intX P 13 tmpY P 12 tmpX P 11 savY P 10 savX P 9 y P 8 x P 7 tmpMap P 6 savMap P 5 shadowHeight P 4 shadowWidth P 3 height P 2 width I 0 WINDOW) 2,A@AB @&ddh_6d`dh_6gO6o h` ``d3lj \` ``d3lj ]@ _HOHOHOHH_IM_JL_ KM_"O l_$O"l_&`jddd0``E``O dOZO"O\RO OZ4OZ2 _^` _` _Z` _\O O"dO\O\ O$dO^O&O`"O$O^O^O$O&dO`O` ``_O K O$O& _@dg _2@2_4@_JO_>OJO_@O2JK _,JK _.O2d_N_LONg GONg jdO,OLHOLI ONg jdO.OLHOLI KO4OLOLO,OLHOLIOLOL nO.OLHOLIOLOL PP@g @g @_,@g @g _.@g _0@ O4OONjdO O" O2h_T_Rg OOBOOD O8 NjdO4OOO O" `l_VjOV@OV 7@gg @OO>OO@ _<@gg @g |@gh _T \1OT OT_POTjdNOPOOPO O4OPOPOTjd OT ORO2 g _XdkOX@g @ $O<(1154 DOUSERFNS 1148 GETWINDOWUSERPROP 1121 CL:SYMBOL-FUNCTION 1111 REVERSE 1097 \CLOSEW1 1089 BKBITBLT 1062 BKBITBLT 1018 \INTERNALTOTOPW 1006 OPENWP 994 PUTWINDOWPROP 980 GETWINDOWUSERPROP 968 WINDOWDELPROP 949 ORIGINAL-MOVEW 932 WINDOWADDPROP 914 \FZEROP 887 BKBITBLT 867 CURSOR 859 \CURSORPOSITION 844 \MVLIST 839 SOLID-MOVEWA0002 814 BKBITBLT 795 TOTOPW 786 GETWINDOWUSERPROP 772 GETWINDOWUSERPROP 759 GETWINDOWUSERPROP 735 GETWINDOWUSERPROP 722 GETWINDOWUSERPROP 700 BLTSHADE 666 BKBITBLT 625 BKBITBLT 604 GETWINDOWUSERPROP 591 BKBITBLT 570 GETWINDOWUSERPROP 556 GETWINDOWUSERPROP 522 BITMAPCREATE 512 BITMAPCREATE 451 ATTACHEDWINDOWS 436 BITMAPCREATE 426 BITMAPCREATE 396 BITMAPCREATE 349 BITMAPCREATE 327 BITMAPHEIGHT 314 BITMAPWIDTH 304 BITMAPHEIGHT 291 BITMAPWIDTH 154 WINDOWREGION 147 ABS 120 POSITIONP 109 ABS 82 POSITIONP 70 PROMPTPRINT 18 ORIGINAL-MOVEW) (1143 TOTOPFN 1116 \OPENW1 1079 WINDOW 1038 WINDOW 1026 WINDOW 988 SOLID-CLIENT-CLOSED 975 SOLID-CLIENT-CLOSED 963 \SOLID-MOVEW-CLOSEW-WATCHER 958 CLOSEFN 927 \SOLID-MOVEW-CLOSEW-WATCHER 922 CLOSEFN 893 LASTMOUSEBUTTONS 834 SOLID-MOVEWA0005 781 SHADEIMAGE 767 ICONMASK 754 MASK 743 WINDOW 730 ICONIMAGE 717 IMAGE 599 ICONMASK 565 ICONIMAGE 551 ICONMASK 539 WINDOW 477 WINDOW 467 SCREEN 460 WINDOW 446 MOVEW 413 \SOLID-LAST-TMPMAP 407 \SOLID-LAST-SAVMAP 401 \SOLID-LAST-TMPMAP 354 \SOLID-LAST-SAVMAP 322 \SOLID-LAST-SAVMAP 299 \SOLID-LAST-TMPMAP 258 \SOLID-LAST-TMPMAP 252 BITMAP 247 \SOLID-LAST-TMPMAP 240 \SOLID-LAST-SAVMAP 234 BITMAP 229 \SOLID-LAST-SAVMAP 213 *SOLID-MOVEW-CASHING* 133 *SOLID-MOVEW-SHADOW* 126 *SOLID-MOVEW-SHADOW* 115 *SOLID-MOVEW-SHADOW* 95 *SOLID-MOVEW-SHADOW* 88 *SOLID-MOVEW-SHADOW* 77 *SOLID-MOVEW-SHADOW* 56 DON'T 43 LAMBDASPLST 25 WINDOW) ( 65 "Can't move this window.") \SOLID-MOVEW-CLOSEW-WATCHER :D8 (I 0 WINDOW) @gi (11 PUTWINDOWPROP) (5 SOLID-CLIENT-CLOSED) () (PRETTYCOMPRINT SOLID-MOVEWCOMS) (RPAQQ SOLID-MOVEWCOMS ((INITVARS (*SOLID-MOVEW-FLAG* 15000) (*SOLID-MOVEW-SHADOW* T) ( *SOLID-MOVEW-SHADOW-SHADE* 42405) (*SOLID-MOVEW-GRIDDING* NIL) (*SOLID-MOVEW-CASHING* T) ( \SOLID-LAST-SAVMAP) (\SOLID-LAST-TMPMAP)) (FNS MAYBE-SOLID-MOVEW SOLID-MOVEW \SOLID-MOVEW-CLOSEW-WATCHER) (APPENDVARS (GAINSPACEFORMS ((OR \SOLID-LAST-SAVMAP \SOLID-LAST-TMPMAP) "discard SOLID-MOVEW cached bitmaps" (PROGN (SETQ \SOLID-LAST-SAVMAP) (SETQ \SOLID-LAST-TMPMAP))))) (P (MOVD? (FUNCTION MOVEW) (FUNCTION ORIGINAL-MOVEW)) (CL:UNLESS (AND (BOUNDP (QUOTE LDFLG)) (FMEMB LDFLG (QUOTE (PROP ALLPROP)))) (MOVD (FUNCTION MAYBE-SOLID-MOVEW) (FUNCTION MOVEW)))) (PROP (FILETYPE MAKEFILE-ENVIRONMENT) SOLID-MOVEW) (GLOBALVARS *SOLID-MOVEW-FLAG* *SOLID-MOVEW-SHADOW* *SOLID-MOVEW-SHADOW-SHADE* *SOLID-MOVEW-GRIDDING* *SOLID-MOVEW-CASHING* \SOLID-LAST-SAVMAP \SOLID-LAST-TMPMAP))) (RPAQ? *SOLID-MOVEW-FLAG* 15000) (RPAQ? *SOLID-MOVEW-SHADOW* T) (RPAQ? *SOLID-MOVEW-SHADOW-SHADE* 42405) (RPAQ? *SOLID-MOVEW-GRIDDING* NIL) (RPAQ? *SOLID-MOVEW-CASHING* T) (RPAQ? \SOLID-LAST-SAVMAP) (RPAQ? \SOLID-LAST-TMPMAP) (APPENDTOVAR GAINSPACEFORMS ((OR \SOLID-LAST-SAVMAP \SOLID-LAST-TMPMAP) "discard SOLID-MOVEW cached bitmaps" (PROGN (SETQ \SOLID-LAST-SAVMAP) (SETQ \SOLID-LAST-TMPMAP)))) (MOVD? (FUNCTION MOVEW) (FUNCTION ORIGINAL-MOVEW)) (CL:UNLESS (AND (BOUNDP (QUOTE LDFLG)) (FMEMB LDFLG (QUOTE (PROP ALLPROP)))) (MOVD (FUNCTION MAYBE-SOLID-MOVEW) (FUNCTION MOVEW))) (PUTPROPS SOLID-MOVEW FILETYPE :COMPILE-FILE) (PUTPROPS SOLID-MOVEW MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP")) (PUTPROPS SOLID-MOVEW COPYRIGHT ("Xerox Corporation" 1988)) NIL