(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "29-Nov-2021 22:06:35" ("compiled on " {DSK}kaplan>Local>medley3.5>my-medley>lispusers>WHEELSCROLL.;21) "29-Nov-2021 20:56:08" brecompiled changes%: INSTALL-WHEELSCROLL in "FULL 29-Nov-2021 ..." dated "29-Nov-2021 20:56:13") (FILECREATED "29-Nov-2021 22:06:33" {DSK}kaplan>Local>medley3.5>my-medley>lispusers>WHEELSCROLL.;21 11690 changes to%: (FNS INSTALL-WHEELSCROLL) previous date%: "29-Nov-2021 21:58:55" {DSK}kaplan>Local>medley3.5>my-medley>lispusers>WHEELSCROLL.;20) ENABLEWHEELSCROLL :D8 (P 2 I P 1 K P 0 KAT I 1 EXCLUDEHORIZONTAL I 0 ON F 3 \CURRENTKEYACTION F 4 \COMMANDKEYACTION F 5 \DEFAULTKEYACTION F 6 WHEELSCROLLENABLED F 7 WHEELSCROLLINTERRUPTS F 8 TEDIT.READTABLE) •@¢±ág g ³.g ²"gg ¿gg ¿STUh°IdA–o°5o°.dYIdgð–¿g‡IhgH ¿µÓhµ¸W°;dJJJ ¿g ²JghJhW ¿µÆic g g Ÿgg ¿W°(dJh ¿g šJhW ¿µÙSTUh°LdgoH ¿goH ¿goH ¿goH µµhc (394 KEYACTION 377 KEYACTION 360 KEYACTION 343 KEYACTION 307 TEDIT.SETFUNCTION 296 BOUNDP 285 INTERRUPTCHAR 267 MOVD 251 EQP 246 GETD 236 GETD 216 TEDIT.SETFUNCTION 192 BOUNDP 181 INTERRUPTCHAR 147 KEYACTION 74 MOVD 58 MOVD? 41 \DEFINEDP 29 EQP 24 GETD 14 GETD) (383 PAD5 366 PAD4 349 PAD2 332 PAD1 291 TEDIT.READTABLE 262 LISPINTERRUPTS 257 LISPINTERRUPTS.WSORIG 241 LISPINTERRUPTS 231 LISPINTERRUPTS.WHEELSCROLL 201 LAMBDA 187 TEDIT.READTABLE 140 IGNORE 126 IGNORE 118 IGNORE 69 LISPINTERRUPTS 64 LISPINTERRUPTS.WHEELSCROLL 53 LISPINTERRUPTS.WSORIG 48 LISPINTERRUPTS 36 LISPINTERRUPTS.WHEELSCROLL 19 LISPINTERRUPTS.WHEELSCROLL 9 LISPINTERRUPTS) ( 388 (IGNORE . IGNORE) 371 (IGNORE . IGNORE) 354 (IGNORE . IGNORE) 337 (IGNORE . IGNORE) 103 ((PAD1 156) (PAD2 157) (PAD4 158) (PAD5 159)) 96 ((PAD1 156) (PAD2 157) (PAD4 IGNORE) (PAD5 IGNORE))) WHEELSCROLL :D8 (P 1 W I 1 DELTA I 0 DIRECTION) ÷¿`låHjðµ H´H ´‚±ÐId¢±Â ɲ^g @gð²"gId²dið¬3µ gIhjAh°"gId²dið¬3µ gIhAo @dgð²'¿Ig ´D``AØ gð´%Ig ´A`Ø` (244 GETMOUSESTATE 239 \CURSORPOSITION 220 GETWINDOWUSERPROP 200 GETMOUSESTATE 195 \CURSORPOSITION 176 GETWINDOWUSERPROP 153 PROCESS.EVAL 72 FIND.PROCESS 58 \INSUREWINDOW 44 WHICHW 32 \FZEROP 4 GETMOUSESTATE) (234 LASTMOUSEY 228 LASTMOUSEX 215 HORIZONTALSCROLLBARFOR 206 HORIZONTAL 188 LASTMOUSEY 183 LASTMOUSEX 171 VERTICALSCROLLBARFOR 161 VERTICAL 135 QUOTE 118 WHEELSCROLL.DOIT 103 QUOTE 86 WHEELSCROLL.DOIT 78 VERTICAL 67 MOUSE 10 LASTMOUSEBUTTONS) ( 145 (0)) WHEELSCROLL.DOITA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 WINDOW F 1 DX F 2 DY) gi PQR (18 SCROLLW 10 SETTOPVAL) (4 \WHEELSCROLLINPROGRESS) () WHEELSCROLL.DOIT :D8 (P 0 SI::*RESETFORMS* I 2 DY I 1 DX I 0 WINDOW) 4`³,gd hg ¿$h(43 SI::RESETUNWIND 38 \MVLIST 33 WHEELSCROLL.DOITA0001 17 GETTOPVAL) (28 SI::RESETUNWIND 11 \WHEELSCROLLINPROGRESS 4 \WHEELSCROLLINPROGRESS) () INSTALL-WHEELSCROLL :D8 (F 0 WHEELSCROLLINTERRUPTS) ocNIL NIL ( 4 ((156 (WHEELSCROLL (QUOTE VERTICAL) WHEELSCROLLDELTA) T) (157 (WHEELSCROLL (QUOTE VERTICAL) (IMINUS WHEELSCROLLDELTA)) T) (158 (WHEELSCROLL (QUOTE HORIZONTAL) (IMINUS (OR HWHEELSCROLLDELTA WHEELSCROLLDELTA)) T)) (159 (WHEELSCROLL (QUOTE HORIZONTAL) (OR HWHEELSCROLLDELTA WHEELSCROLLDELTA) WHEELSCROLLDELTA T)))) LISPINTERRUPTS.WHEELSCROLL :D8 (F 0 WHEELSCROLLINTERRUPTS) P (10 \APPEND2 5 LISPINTERRUPTS.WSORIG) NIL () (PRETTYCOMPRINT WHEELSCROLLCOMS) (RPAQQ WHEELSCROLLCOMS ((FNS ENABLEWHEELSCROLL WHEELSCROLL WHEELSCROLL.DOIT INSTALL-WHEELSCROLL LISPINTERRUPTS.WHEELSCROLL) (* ;; "These are the highest meta-ctrl characters, they will be unaffected by teh state of ctrl and meta mode keys" ) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\WSUP 156) (\WSDOWN 157) (\WSLEFT 158) (\WSRIGHT 159))) (GLOBALVARS WHEELSCROLLDELTA WHEELSCROLLSETTLETIME \WHEELSCROLLINPROGRESS) (* ;; "To restore the keyactions for PAD..., if the keyaction table has been reinitialized") (ADDVARS ( AFTERSYSOUTFORMS (AND WHEELSCROLLENABLED (ENABLEWHEELSCROLL T))) (AFTERMAKESYSFORMS (AND WHEELSCROLLENABLED (ENABLEWHEELSCROLL T)))) (INITVARS (WHEELSCROLLENABLED NIL) (WHEELSCROLLDELTA 20) ( HWHEELSCROLLDELTA NIL) (WHEELSCROLLSETTLETIME 50) (\WHEELSCROLLINPROGRESS NIL)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INSTALL-WHEELSCROLL) (ENABLEWHEELSCROLL T))))) (ADDTOVAR AFTERSYSOUTFORMS (AND WHEELSCROLLENABLED (ENABLEWHEELSCROLL T))) (ADDTOVAR AFTERMAKESYSFORMS (AND WHEELSCROLLENABLED (ENABLEWHEELSCROLL T))) (RPAQ? WHEELSCROLLENABLED NIL) (RPAQ? WHEELSCROLLDELTA 20) (RPAQ? HWHEELSCROLLDELTA NIL) (RPAQ? WHEELSCROLLSETTLETIME 50) (RPAQ? \WHEELSCROLLINPROGRESS NIL) (INSTALL-WHEELSCROLL) (ENABLEWHEELSCROLL T) NIL