(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "17-Feb-2021 13:49:06" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOWSCROLL.;2) " 9-Apr-2000 18:01:32" brecompiled changes%: SCROLL.HANDLER in "Medley 3.5 Full Sysout 14-Feb-2021 ..." dated "14-Feb-2021 21:52:33") (FILECREATED "17-Feb-2021 13:49:06" {DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOWSCROLL.;2 54471 changes to%: (FNS SCROLL.HANDLER) previous date%: "16-Feb-94 12:36:43" {DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOWSCROLL.;1) SCROLLW :D8 (I 3 CONTINUOUSFLG I 2 DY I 1 DX I 0 WINDOW) *`–@ ¿@Éµg@ABClH(11 \CARET.DOWN) (27 SCROLLBYREPAINTFN 18 WINDOW 4 \CARET.UP) () SCROLLBYREPAINTFN :D8 (P 24 NEWY P 23 OLDY P 22 NEWX P 21 OLDX P 16 ONSHEIGHT P 15 ONSWIDTH P 14 ONSBOTTOM P 13 ONSLEFT P 12 ONSCREENREG P 11 YEXTENTUSE P 10 XEXTENTUSE P 9 WHOLEWIDTH P 8 WHOLEHEIGHT P 7 CRBOTTOM P 6 CRLEFT P 5 CRWIDTH P 4 CRHEIGHT P 3 X P 2 EXTENTUSE P 1 EXTENT P 0 DSP I 3 CONTINUOUSFLG I 2 YDELTA I 1 XDELTA I 0 WINDOW) Â@ É@ É@g ó0hH [d^K_K]K\I²WJµg_¿g_¿°Bdið³8dgð³/dgð³&dgð³dgð³gð•g„JµXi__¿A–Iµjb¿C²bAjð³]Ajñ´OjhH Ù°Jmÿð³Þ IAIMÙê Ø_,¿hH O,Ùb°½ _¿J _¿°H b¿B²?Iµjb¿°6mÿð³ó oBéILÙê IØ_0¿hH O0ÙbC²Bjð³Bjñ´jhH Ù…H b¿@É2_"¿jdO"ÉO"Éh@ É ³hK@É2_$¿jdO$ÉO$ÉhHÉ0 _µAH ¿BH h_¿O_¿O_¿ON_¿O_¿M_¿L_ ¿Ajð’±ÑI²dOið³^Imÿð³UNIOgð¨Ogð‘M€jÙÙNMØIIØOgð¨Ogð‘M€jÔÙdAñ¡¿A_&¿dO&ñ’¿O&bjðhð€i²h@OO@AOØOOO gg ¿AH ¿OAÙ_¿@Ajñ–OOA°OOØAØdOñ¢¿OOjAÙdOñ’¿OO i¿Bjð’±þúI²jOið³dImÿð³ZOIOgð¨Ogð‘L€jÙÙOLØIIØOgð¨Ogð‘L€jÔÙdBñ¡¿B_(¿dO(ñ’¿O(bjðhð€i´‚±þ‰@OO@OBOØOO gg ¿BH ¿OBÙ»@Bjñ—OKOB°OO KØBØdKñ¡¿KOjBÙdO ñ’¿O i¿±þ#(956 REDISPLAYW 950 CREATEREGION 899 WYOFFSET 891 BKBITBLT 737 REDISPLAYW 731 CREATEREGION 676 WXOFFSET 668 BKBITBLT 480 WYOFFSET 472 WXOFFSET 461 INTERSECTREGIONS 456 \DSPUNTRANSFORMREGION 404 SUBREGIONP 397 \INSUREWINDOW 352 DSPLINEFEED 344 DSPLINEFEED 317 WYOFFSET 303 FIXR 254 DSPLINEFEED 243 \DECODE.EXTENT.USE 233 \DECODE.EXTENT.USE 219 WXOFFSET 208 FIXR 179 DSPLINEFEED 39 DSPCLIPPINGREGION 26 GETWINDOWUSERPROP 13 \INSUREWINDOW 5 \INSUREWINDOW) (885 REPLACE 880 INPUT 821 +- 812 - 785 + 776 +- 662 REPLACE 657 INPUT 602 +- 593 - 569 + 560 +- 449 STREAM 436 SCREEN 427 SCREEN 413 WINDOW 384 SCREEN 375 SCREEN 361 WINDOW 136 +- 129 -+ 121 LIMIT 112 +- 103 - 94 + 78 + 70 LIMIT 21 SCROLLEXTENTUSE) ( 288 1.0) ADJUSTOFFSETS :D8 (P 0 DSP I 2 YDELTA I 1 XDELTA I 0 WINDOW) @ ÉBH AH h(24 WXOFFSET 17 WYOFFSET 5 \INSUREWINDOW) NIL () CREATESCROLLINGW :D8 (I 1 BORDER I 0 TITLE) h@Agg(22 PUTWINDOWPROP 7 CREATEW) (17 SCROLLBYREPAINTFN 12 SCROLLFN) () IN/SCROLL/BAR? :D8 (P 1 EXTENTUSE P 0 EXTENT I 2 Y I 1 X I 0 WINDOW) ï@É´‚±â@g hð´‚±Ï@ÉAB‘h@ÉAB²U@ É@g Hhðµ‚±Hmÿðµ‚±€IhðµzId gðhðµfh@ H @ÉAB´G@ É@g Hhðµ,Hmÿðµ#Id gðhðµh@ H (236 EXTENDPASTHORIZBOUNDARIES 230 DSPCLIPPINGREGION 213 \DECODE.EXTENT.USE 186 GETWINDOWUSERPROP 173 \INSUREWINDOW 165 INSIDE? 149 EXTENDPASTVERTBOUNDARIES 143 DSPCLIPPINGREGION 126 \DECODE.EXTENT.USE 86 GETWINDOWUSERPROP 73 \INSUREWINDOW 65 INSIDE? 47 INSIDE? 24 GETWINDOWUSERPROP) (218 LIMIT 181 SCROLLEXTENTUSE 156 WINDOW 131 LIMIT 81 SCROLLEXTENTUSE 56 WINDOW 38 WINDOW 19 NOSCROLLBARS 5 WINDOW) () RELDSPXOFFSET :D8 (I 1 DISPLAYSTREAM I 0 DX) @hA ØA (14 DSPXOFFSET 7 DSPXOFFSET) NIL () RELDSPYOFFSET :D8 (I 1 DISPLAYSTREAM I 0 DY) @hA ØA (14 DSPYOFFSET 7 DSPYOFFSET) NIL () SCROLL.HANDLERA0005 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 BUTTON F 2 WINDOW F 3 TIMEDOWN F 4 SCROLLW F 5 CONTINUOUSSCROLL? F 6 DIRECTION F 7 SCROLLREG F 8 TIMEIN F 9 RIGHTCURSOR F 10 SCROLLCURSOR F 11 MIDDLECURSOR F 12 LEFTCURSOR) ¿¿R ®T ¿hiWµ