/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / scroll-bar.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 33 3a 35 37 3a 33 | 34 20 31 39 39 33 0a 3b | 23:57:3|4 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 73 63 72 | 6f 6c 6c 2d 62 61 72 2e |lisp/scr|oll-bar.|
|00000080| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|00000090| 73 69 6f 6e 20 31 39 2e | 31 35 2e 31 36 2e 0a 3b |sion 19.|15.16..;|
|000000a0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000b0| 69 6f 6e 20 46 53 46 20 | 32 2e 31 30 0a 3b 3b 3b |ion FSF |2.10.;;;|
|000000c0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000d0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|000000e0| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|000000f0| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000100| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 38 2e 0a |st in Em|acs 18..|
|00000110| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000120| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000130| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000140| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|00000150| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|00000160| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|00000170| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|00000180| 76 65 72 73 69 6f 6e 20 | 22 31 39 22 29 29 29 0a |version |"19"))).|
|00000190| 20 20 20 20 28 65 72 72 | 6f 72 20 22 54 68 69 73 |    (err|or "This|
|000001a0| 20 66 69 6c 65 20 77 61 | 73 20 63 6f 6d 70 69 6c | file wa|s compil|
|000001b0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 31 39 22 |ed for E|macs 19"|
|000001c0| 29 29 0a 0a 28 72 65 71 | 75 69 72 65 20 28 71 75 |))..(req|uire (qu|
|000001d0| 6f 74 65 20 6d 6f 75 73 | 65 29 29 0a 28 64 65 66 |ote mous|e)).(def|
|000001e0| 61 6c 69 61 73 20 27 73 | 63 72 6f 6c 6c 2d 62 61 |alias 's|croll-ba|
|000001f0| 72 2d 73 63 61 6c 65 20 | 23 5b 28 6e 75 6d 2d 64 |r-scale |#[(num-d|
|00000200| 65 6e 6f 6d 20 77 68 6f | 6c 65 29 20 22 c0 c1 5c |enom who|le) "..\|
|00000210| 6e 40 21 0b 5f 5c 6e 41 | a5 21 87 22 20 5b 74 72 |n@!._\nA|.!." [tr|
|00000220| 75 6e 63 61 74 65 20 66 | 6c 6f 61 74 20 6e 75 6d |uncate f|loat num|
|00000230| 2d 64 65 6e 6f 6d 20 77 | 68 6f 6c 65 5d 20 33 20 |-denom w|hole] 3 |
|00000240| 22 5c 0a 47 69 76 65 6e | 20 61 20 70 61 69 72 20 |"\.Given| a pair |
|00000250| 28 4e 55 4d 20 2e 20 44 | 45 4e 4f 4d 29 20 61 6e |(NUM . D|ENOM) an|
|00000260| 64 20 57 48 4f 4c 45 2c | 20 72 65 74 75 72 6e 20 |d WHOLE,| return |
|00000270| 28 2f 20 28 2a 20 4e 55 | 4d 20 57 48 4f 4c 45 29 |(/ (* NU|M WHOLE)|
|00000280| 20 44 45 4e 4f 4d 29 2e | 0a 54 68 69 73 20 69 73 | DENOM).|.This is|
|00000290| 20 68 61 6e 64 79 20 66 | 6f 72 20 73 63 61 6c 69 | handy f|or scali|
|000002a0| 6e 67 20 61 20 70 6f 73 | 69 74 69 6f 6e 20 6f 6e |ng a pos|ition on|
|000002b0| 20 61 20 73 63 72 6f 6c | 6c 20 62 61 72 20 69 6e | a scrol|l bar in|
|000002c0| 74 6f 20 72 65 61 6c 20 | 75 6e 69 74 73 2c 0a 6c |to real |units,.l|
|000002d0| 69 6b 65 20 62 75 66 66 | 65 72 20 70 6f 73 69 74 |ike buff|er posit|
|000002e0| 69 6f 6e 73 2e 20 20 49 | 66 20 53 43 52 4f 4c 4c |ions.  I|f SCROLL|
|000002f0| 2d 42 41 52 2d 50 4f 53 | 20 69 73 20 74 68 65 20 |-BAR-POS| is the |
|00000300| 28 50 4f 52 54 49 4f 4e | 20 2e 20 57 48 4f 4c 45 |(PORTION| . WHOLE|
|00000310| 29 20 70 61 69 72 0a 66 | 72 6f 6d 20 61 20 73 63 |) pair.f|rom a sc|
|00000320| 72 6f 6c 6c 20 62 61 72 | 20 65 76 65 6e 74 2c 20 |roll bar| event, |
|00000330| 74 68 65 6e 20 28 73 63 | 72 6f 6c 6c 2d 62 61 72 |then (sc|roll-bar|
|00000340| 2d 73 63 61 6c 65 20 53 | 43 52 4f 4c 4c 2d 42 41 |-scale S|CROLL-BA|
|00000350| 52 2d 50 4f 53 0a 28 62 | 75 66 66 65 72 2d 73 69 |R-POS.(b|uffer-si|
|00000360| 7a 65 29 29 20 69 73 20 | 74 68 65 20 70 6f 73 69 |ze)) is |the posi|
|00000370| 74 69 6f 6e 20 69 6e 20 | 74 68 65 20 63 75 72 72 |tion in |the curr|
|00000380| 65 6e 74 20 62 75 66 66 | 65 72 20 63 6f 72 72 65 |ent buff|er corre|
|00000390| 73 70 6f 6e 64 69 6e 67 | 20 74 6f 0a 74 68 61 74 |sponding| to.that|
|000003a0| 20 73 63 72 6f 6c 6c 20 | 62 61 72 20 70 6f 73 69 | scroll |bar posi|
|000003b0| 74 69 6f 6e 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |tion."])|.(defali|
|000003c0| 61 73 20 27 73 63 72 6f | 6c 6c 2d 62 61 72 2d 6d |as 'scro|ll-bar-m|
|000003d0| 6f 64 65 20 23 5b 28 66 | 6c 61 67 29 20 22 c0 09 |ode #[(f|lag) "..|
|000003e0| 9e 89 1a 83 0d 00 5c 6e | 41 82 0e 00 c3 29 1c 0d |......\n|A....)..|
|000003f0| 84 19 00 0c 3f 82 5c 22 | 00 0d a7 3f 86 5c 22 00 |....?.\"|...?.\".|
|00000400| 0d c6 59 14 c7 c8 c9 5c | 22 88 ca 20 89 1e 0b 85 |..Y....\|".. ....|
|00000410| 47 00 cc 0e 0b 40 c0 0c | 42 cd 0c 42 44 5c 22 88 |G....@..|B..BD\".|
|00000420| 0e 0b 41 89 16 0b 84 30 | 00 ce 2a 87 22 20 5b 76 |..A....0|..*." [v|
|00000430| 65 72 74 69 63 61 6c 2d | 73 63 72 6f 6c 6c 2d 62 |ertical-|scroll-b|
|00000440| 61 72 73 20 64 65 66 61 | 75 6c 74 2d 66 72 61 6d |ars defa|ult-fram|
|00000450| 65 2d 61 6c 69 73 74 20 | 61 73 73 71 20 74 20 73 |e-alist |assq t s|
|00000460| 63 72 6f 6c 6c 2d 62 61 | 72 2d 6d 6f 64 65 20 66 |croll-ba|r-mode f|
|00000470| 6c 61 67 20 30 20 6d 61 | 70 63 61 72 20 23 5b 28 |lag 0 ma|pcar #[(|
|00000480| 70 61 72 61 6d 2d 6e 61 | 6d 65 29 20 22 08 09 9e |param-na|me) "...|
|00000490| 89 1a 3a 83 0f 00 5c 6e | 0b a1 82 16 00 08 0b 42 |..:...\n|.......B|
|000004a0| 09 42 89 11 29 87 22 20 | 5b 70 61 72 61 6d 2d 6e |.B..)." |[param-n|
|000004b0| 61 6d 65 20 64 65 66 61 | 75 6c 74 2d 66 72 61 6d |ame defa|ult-fram|
|000004c0| 65 2d 61 6c 69 73 74 20 | 70 61 72 61 6d 65 74 65 |e-alist |paramete|
|000004d0| 72 20 73 63 72 6f 6c 6c | 2d 62 61 72 2d 6d 6f 64 |r scroll|-bar-mod|
|000004e0| 65 5d 20 33 5d 20 28 76 | 65 72 74 69 63 61 6c 2d |e] 3] (v|ertical-|
|000004f0| 73 63 72 6f 6c 6c 2d 62 | 61 72 73 20 68 6f 72 69 |scroll-b|ars hori|
|00000500| 7a 6f 6e 74 61 6c 2d 73 | 63 72 6f 6c 6c 2d 62 61 |zontal-s|croll-ba|
|00000510| 72 73 29 20 66 72 61 6d | 65 2d 6c 69 73 74 20 66 |rs) fram|e-list f|
|00000520| 72 61 6d 65 73 20 6d 6f | 64 69 66 79 2d 66 72 61 |rames mo|dify-fra|
|00000530| 6d 65 2d 70 61 72 61 6d | 65 74 65 72 73 20 68 6f |me-param|eters ho|
|00000540| 72 69 7a 6f 6e 74 61 6c | 2d 73 63 72 6f 6c 6c 2d |rizontal|-scroll-|
|00000550| 62 61 72 73 20 6e 69 6c | 5d 20 36 20 22 5c 0a 54 |bars nil|] 6 "\.T|
|00000560| 6f 67 67 6c 65 20 64 69 | 73 70 6c 61 79 20 6f 66 |oggle di|splay of|
|00000570| 20 76 65 72 74 69 63 61 | 6c 20 73 63 72 6f 6c 6c | vertica|l scroll|
|00000580| 20 62 61 72 73 20 6f 6e | 20 65 61 63 68 20 66 72 | bars on| each fr|
|00000590| 61 6d 65 2e 0a 54 68 69 | 73 20 63 6f 6d 6d 61 6e |ame..Thi|s comman|
|000005a0| 64 20 61 70 70 6c 69 65 | 73 20 74 6f 20 61 6c 6c |d applie|s to all|
|000005b0| 20 66 72 61 6d 65 73 20 | 74 68 61 74 20 65 78 69 | frames |that exi|
|000005c0| 73 74 20 61 6e 64 20 66 | 72 61 6d 65 73 20 74 6f |st and f|rames to|
|000005d0| 20 62 65 0a 63 72 65 61 | 74 65 64 20 69 6e 20 74 | be.crea|ted in t|
|000005e0| 68 65 20 66 75 74 75 72 | 65 2e 0a 57 69 74 68 20 |he futur|e..With |
|000005f0| 61 20 6e 75 6d 65 72 69 | 63 20 61 72 67 75 6d 65 |a numeri|c argume|
|00000600| 6e 74 2c 20 69 66 20 74 | 68 65 20 61 72 67 75 6d |nt, if t|he argum|
|00000610| 65 6e 74 20 69 73 20 6e | 65 67 61 74 69 76 65 2c |ent is n|egative,|
|00000620| 0a 74 75 72 6e 20 6f 66 | 66 20 73 63 72 6f 6c 6c |.turn of|f scroll|
|00000630| 20 62 61 72 73 3b 20 6f | 74 68 65 72 77 69 73 65 | bars; o|therwise|
|00000640| 2c 20 74 75 72 6e 20 6f | 6e 20 73 63 72 6f 6c 6c |, turn o|n scroll|
|00000650| 20 62 61 72 73 2e 22 20 | 22 50 22 5d 29 0a 28 64 | bars." |"P"]).(d|
|00000660| 65 66 61 6c 69 61 73 20 | 27 73 63 72 6f 6c 6c 2d |efalias |'scroll-|
|00000670| 62 61 72 2d 73 65 74 2d | 77 69 6e 64 6f 77 2d 73 |bar-set-|window-s|
|00000680| 74 61 72 74 20 23 5b 28 | 65 76 65 6e 74 29 20 22 |tart #[(|event) "|
|00000690| 08 18 c1 08 38 3a 83 0d | 00 c1 82 0e 00 c2 08 38 |....8:..|.......8|
|000006a0| 29 89 1b 40 1c c1 0b 38 | 1d 8a c6 0c 21 71 88 8a |)..@...8|....!q..|
|000006b0| 65 c7 0d 64 65 5a 5c 22 | 5c 5c 62 88 c8 79 88 c9 |e..deZ\"|\\b..y..|
|000006c0| 0c 60 5c 22 2d 87 22 20 | 5b 65 76 65 6e 74 20 32 |.`\"-." |[event 2|
|000006d0| 20 31 20 65 6e 64 2d 70 | 6f 73 69 74 69 6f 6e 20 | 1 end-p|osition |
|000006e0| 77 69 6e 64 6f 77 20 70 | 6f 72 74 69 6f 6e 2d 77 |window p|ortion-w|
|000006f0| 68 6f 6c 65 20 77 69 6e | 64 6f 77 2d 62 75 66 66 |hole win|dow-buff|
|00000700| 65 72 20 73 63 72 6f 6c | 6c 2d 62 61 72 2d 73 63 |er scrol|l-bar-sc|
|00000710| 61 6c 65 20 30 20 73 65 | 74 2d 77 69 6e 64 6f 77 |ale 0 se|t-window|
|00000720| 2d 73 74 61 72 74 5d 20 | 36 20 22 5c 0a 53 65 74 |-start] |6 "\.Set|
|00000730| 20 74 68 65 20 77 69 6e | 64 6f 77 20 73 74 61 72 | the win|dow star|
|00000740| 74 20 61 63 63 6f 72 64 | 69 6e 67 20 74 6f 20 77 |t accord|ing to w|
|00000750| 68 65 72 65 20 74 68 65 | 20 73 63 72 6f 6c 6c 20 |here the| scroll |
|00000760| 62 61 72 20 69 73 20 64 | 72 61 67 67 65 64 2e 0a |bar is d|ragged..|
|00000770| 45 56 45 4e 54 20 73 68 | 6f 75 6c 64 20 62 65 20 |EVENT sh|ould be |
|00000780| 61 20 73 63 72 6f 6c 6c | 20 62 61 72 20 63 6c 69 |a scroll| bar cli|
|00000790| 63 6b 20 6f 72 20 64 72 | 61 67 20 65 76 65 6e 74 |ck or dr|ag event|
|000007a0| 2e 22 20 22 65 22 5d 29 | 0a 28 64 65 66 61 6c 69 |." "e"])|.(defali|
|000007b0| 61 73 20 28 71 75 6f 74 | 65 20 73 63 72 6f 6c 6c |as (quot|e scroll|
|000007c0| 2d 62 61 72 2d 64 72 61 | 67 2d 31 29 20 23 5b 28 |-bar-dra|g-1) #[(|
|000007d0| 65 76 65 6e 74 29 20 22 | 08 89 18 41 40 29 89 19 |event) "|...A@)..|
|000007e0| 40 1a c3 09 38 1c 8a c5 | 5c 6e 21 71 88 65 c6 0c |@...8...|\n!q.e..|
|000007f0| 64 65 5a 5c 22 5c 5c 62 | 88 c7 79 88 c8 5c 6e 60 |deZ\"\\b|..y..\n`|
|00000800| 5c 22 2c 87 22 20 5b 65 | 76 65 6e 74 20 73 74 61 |\",." [e|vent sta|
|00000810| 72 74 2d 70 6f 73 69 74 | 69 6f 6e 20 77 69 6e 64 |rt-posit|ion wind|
|00000820| 6f 77 20 32 20 70 6f 72 | 74 69 6f 6e 2d 77 68 6f |ow 2 por|tion-who|
|00000830| 6c 65 20 77 69 6e 64 6f | 77 2d 62 75 66 66 65 72 |le windo|w-buffer|
|00000840| 20 73 63 72 6f 6c 6c 2d | 62 61 72 2d 73 63 61 6c | scroll-|bar-scal|
|00000850| 65 20 30 20 73 65 74 2d | 77 69 6e 64 6f 77 2d 73 |e 0 set-|window-s|
|00000860| 74 61 72 74 5d 20 36 5d | 29 0a 28 64 65 66 61 6c |tart] 6]|).(defal|
|00000870| 69 61 73 20 27 73 63 72 | 6f 6c 6c 2d 62 61 72 2d |ias 'scr|oll-bar-|
|00000880| 64 72 61 67 20 23 5b 28 | 65 76 65 6e 74 29 20 22 |drag #[(|event) "|
|00000890| c0 19 c2 0b 21 88 c4 20 | 29 87 22 20 5b 6e 69 6c |....!.. |)." [nil|
|000008a0| 20 64 6f 6e 65 20 73 63 | 72 6f 6c 6c 2d 62 61 72 | done sc|roll-bar|
|000008b0| 2d 64 72 61 67 2d 31 20 | 65 76 65 6e 74 20 28 6c |-drag-1 |event (l|
|000008c0| 61 6d 62 64 61 20 6e 69 | 6c 20 28 74 72 61 63 6b |ambda ni|l (track|
|000008d0| 2d 6d 6f 75 73 65 20 28 | 62 79 74 65 2d 63 6f 64 |-mouse (|byte-cod|
|000008e0| 65 20 22 08 3f 85 26 00 | c1 20 89 12 a2 c3 3d 83 |e ".?.&.|. ....=.|
|000008f0| 12 00 c1 20 12 5c 6e a2 | c4 3d 83 20 00 c5 5c 6e |... .\n.|.=. ..\n|
|00000900| 21 88 82 00 00 c6 89 10 | 82 01 00 87 22 20 5b 64 |!.......|...." [d|
|00000910| 6f 6e 65 20 72 65 61 64 | 2d 65 76 65 6e 74 20 65 |one read|-event e|
|00000920| 76 65 6e 74 20 6d 6f 75 | 73 65 2d 6d 6f 76 65 6d |vent mou|se-movem|
|00000930| 65 6e 74 20 73 63 72 6f | 6c 6c 2d 62 61 72 2d 6d |ent scro|ll-bar-m|
|00000940| 6f 76 65 6d 65 6e 74 20 | 73 63 72 6f 6c 6c 2d 62 |ovement |scroll-b|
|00000950| 61 72 2d 64 72 61 67 2d | 31 20 74 5d 20 33 29 29 |ar-drag-|1 t] 3))|
|00000960| 29 5d 20 32 20 22 5c 0a | 53 63 72 6f 6c 6c 20 74 |)] 2 "\.|Scroll t|
|00000970| 68 65 20 77 69 6e 64 6f | 77 20 62 79 20 64 72 61 |he windo|w by dra|
|00000980| 67 67 69 6e 67 20 74 68 | 65 20 73 63 72 6f 6c 6c |gging th|e scroll|
|00000990| 20 62 61 72 20 73 6c 69 | 64 65 72 2e 0a 49 66 20 | bar sli|der..If |
|000009a0| 79 6f 75 20 63 6c 69 63 | 6b 20 6f 75 74 73 69 64 |you clic|k outsid|
|000009b0| 65 20 74 68 65 20 73 6c | 69 64 65 72 2c 20 74 68 |e the sl|ider, th|
|000009c0| 65 20 77 69 6e 64 6f 77 | 20 73 63 72 6f 6c 6c 73 |e window| scrolls|
|000009d0| 20 74 6f 20 62 72 69 6e | 67 20 74 68 65 20 73 6c | to brin|g the sl|
|000009e0| 69 64 65 72 20 74 68 65 | 72 65 2e 22 20 22 65 22 |ider the|re." "e"|
|000009f0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 63 |]).(defa|lias 'sc|
|00000a00| 72 6f 6c 6c 2d 62 61 72 | 2d 73 63 72 6f 6c 6c 2d |roll-bar|-scroll-|
|00000a10| 64 6f 77 6e 20 23 5b 28 | 65 76 65 6e 74 29 20 22 |down #[(|event) "|
|00000a20| c0 20 19 c2 8e 0b 1b c4 | 0b 38 3a 83 12 00 c4 82 |. ......|.8:.....|
|00000a30| 13 00 c5 0b 38 29 89 1e | 06 40 1e 07 c4 0e 06 38 |....8)..|.@.....8|
|00000a40| 1e 08 c9 0e 07 21 88 ca | cb 0e 08 cc 20 53 5c 22 |.....!..|.... S\"|
|00000a50| 21 2d 87 22 20 5b 73 65 | 6c 65 63 74 65 64 2d 77 |!-." [se|lected-w|
|00000a60| 69 6e 64 6f 77 20 6f 6c | 64 2d 73 65 6c 65 63 74 |indow ol|d-select|
|00000a70| 65 64 2d 77 69 6e 64 6f | 77 20 28 28 73 65 6c 65 |ed-windo|w ((sele|
|00000a80| 63 74 2d 77 69 6e 64 6f | 77 20 6f 6c 64 2d 73 65 |ct-windo|w old-se|
|00000a90| 6c 65 63 74 65 64 2d 77 | 69 6e 64 6f 77 29 29 20 |lected-w|indow)) |
|00000aa0| 65 76 65 6e 74 20 32 20 | 31 20 65 6e 64 2d 70 6f |event 2 |1 end-po|
|00000ab0| 73 69 74 69 6f 6e 20 77 | 69 6e 64 6f 77 20 70 6f |sition w|indow po|
|00000ac0| 72 74 69 6f 6e 2d 77 68 | 6f 6c 65 20 73 65 6c 65 |rtion-wh|ole sele|
|00000ad0| 63 74 2d 77 69 6e 64 6f | 77 20 73 63 72 6f 6c 6c |ct-windo|w scroll|
|00000ae0| 2d 64 6f 77 6e 20 73 63 | 72 6f 6c 6c 2d 62 61 72 |-down sc|roll-bar|
|00000af0| 2d 73 63 61 6c 65 20 77 | 69 6e 64 6f 77 2d 68 65 |-scale w|indow-he|
|00000b00| 69 67 68 74 5d 20 35 20 | 22 5c 0a 53 63 72 6f 6c |ight] 5 |"\.Scrol|
|00000b10| 6c 20 74 68 65 20 77 69 | 6e 64 6f 77 27 73 20 74 |l the wi|ndow's t|
|00000b20| 6f 70 20 6c 69 6e 65 20 | 64 6f 77 6e 20 74 6f 20 |op line |down to |
|00000b30| 74 68 65 20 6c 6f 63 61 | 74 69 6f 6e 20 6f 66 20 |the loca|tion of |
|00000b40| 74 68 65 20 73 63 72 6f | 6c 6c 20 62 61 72 20 63 |the scro|ll bar c|
|00000b50| 6c 69 63 6b 2e 0a 45 56 | 45 4e 54 20 73 68 6f 75 |lick..EV|ENT shou|
|00000b60| 6c 64 20 62 65 20 61 20 | 73 63 72 6f 6c 6c 20 62 |ld be a |scroll b|
|00000b70| 61 72 20 63 6c 69 63 6b | 2e 22 20 22 65 22 5d 29 |ar click|." "e"])|
|00000b80| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 63 72 6f |.(defali|as 'scro|
|00000b90| 6c 6c 2d 62 61 72 2d 73 | 63 72 6f 6c 6c 2d 75 70 |ll-bar-s|croll-up|
|00000ba0| 20 23 5b 28 65 76 65 6e | 74 29 20 22 c0 20 19 c2 | #[(even|t) ". ..|
|00000bb0| 8e 0b 1b c4 0b 38 3a 83 | 12 00 c4 82 13 00 c5 0b |.....8:.|........|
|00000bc0| 38 29 89 1e 06 40 1e 07 | c4 0e 06 38 1e 08 c9 0e |8)...@..|...8....|
|00000bd0| 07 21 88 ca cb 0e 08 cc | 20 53 5c 22 21 2d 87 22 |.!......| S\"!-."|
|00000be0| 20 5b 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f | [select|ed-windo|
|00000bf0| 77 20 6f 6c 64 2d 73 65 | 6c 65 63 74 65 64 2d 77 |w old-se|lected-w|
|00000c00| 69 6e 64 6f 77 20 28 28 | 73 65 6c 65 63 74 2d 77 |indow ((|select-w|
|00000c10| 69 6e 64 6f 77 20 6f 6c | 64 2d 73 65 6c 65 63 74 |indow ol|d-select|
|00000c20| 65 64 2d 77 69 6e 64 6f | 77 29 29 20 65 76 65 6e |ed-windo|w)) even|
|00000c30| 74 20 32 20 31 20 65 6e | 64 2d 70 6f 73 69 74 69 |t 2 1 en|d-positi|
|00000c40| 6f 6e 20 77 69 6e 64 6f | 77 20 70 6f 72 74 69 6f |on windo|w portio|
|00000c50| 6e 2d 77 68 6f 6c 65 20 | 73 65 6c 65 63 74 2d 77 |n-whole |select-w|
|00000c60| 69 6e 64 6f 77 20 73 63 | 72 6f 6c 6c 2d 75 70 20 |indow sc|roll-up |
|00000c70| 73 63 72 6f 6c 6c 2d 62 | 61 72 2d 73 63 61 6c 65 |scroll-b|ar-scale|
|00000c80| 20 77 69 6e 64 6f 77 2d | 68 65 69 67 68 74 5d 20 | window-|height] |
|00000c90| 35 20 22 5c 0a 53 63 72 | 6f 6c 6c 20 74 68 65 20 |5 "\.Scr|oll the |
|00000ca0| 6c 69 6e 65 20 6e 65 78 | 74 20 74 6f 20 74 68 65 |line nex|t to the|
|00000cb0| 20 73 63 72 6f 6c 6c 20 | 62 61 72 20 63 6c 69 63 | scroll |bar clic|
|00000cc0| 6b 20 74 6f 20 74 68 65 | 20 74 6f 70 20 6f 66 20 |k to the| top of |
|00000cd0| 74 68 65 20 77 69 6e 64 | 6f 77 2e 0a 45 56 45 4e |the wind|ow..EVEN|
|00000ce0| 54 20 73 68 6f 75 6c 64 | 20 62 65 20 61 20 73 63 |T should| be a sc|
|00000cf0| 72 6f 6c 6c 20 62 61 72 | 20 63 6c 69 63 6b 2e 22 |roll bar| click."|
|00000d00| 20 22 65 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 | "e"]).(|byte-cod|
|00000d10| 65 20 22 c0 c1 c2 5c 22 | 88 c0 c3 c2 5c 22 88 c0 |e "...\"|....\"..|
|00000d20| c4 c5 5c 22 88 c0 c6 c7 | 5c 22 88 c0 c8 c7 5c 22 |..\"....|\"....\"|
|00000d30| 88 c9 ca 21 87 22 20 5b | 67 6c 6f 62 61 6c 2d 73 |...!." [|global-s|
|00000d40| 65 74 2d 6b 65 79 20 5b | 76 65 72 74 69 63 61 6c |et-key [|vertical|
|00000d50| 2d 73 63 72 6f 6c 6c 2d | 62 61 72 20 6d 6f 75 73 |-scroll-|bar mous|
|00000d60| 65 2d 31 5d 20 73 63 72 | 6f 6c 6c 2d 62 61 72 2d |e-1] scr|oll-bar-|
|00000d70| 73 63 72 6f 6c 6c 2d 75 | 70 20 5b 76 65 72 74 69 |scroll-u|p [verti|
|00000d80| 63 61 6c 2d 73 63 72 6f | 6c 6c 2d 62 61 72 20 64 |cal-scro|ll-bar d|
|00000d90| 72 61 67 2d 6d 6f 75 73 | 65 2d 31 5d 20 5b 76 65 |rag-mous|e-1] [ve|
|00000da0| 72 74 69 63 61 6c 2d 73 | 63 72 6f 6c 6c 2d 62 61 |rtical-s|croll-ba|
|00000db0| 72 20 64 6f 77 6e 2d 6d | 6f 75 73 65 2d 32 5d 20 |r down-m|ouse-2] |
|00000dc0| 73 63 72 6f 6c 6c 2d 62 | 61 72 2d 64 72 61 67 20 |scroll-b|ar-drag |
|00000dd0| 5b 76 65 72 74 69 63 61 | 6c 2d 73 63 72 6f 6c 6c |[vertica|l-scroll|
|00000de0| 2d 62 61 72 20 6d 6f 75 | 73 65 2d 33 5d 20 73 63 |-bar mou|se-3] sc|
|00000df0| 72 6f 6c 6c 2d 62 61 72 | 2d 73 63 72 6f 6c 6c 2d |roll-bar|-scroll-|
|00000e00| 64 6f 77 6e 20 5b 76 65 | 72 74 69 63 61 6c 2d 73 |down [ve|rtical-s|
|00000e10| 63 72 6f 6c 6c 2d 62 61 | 72 20 64 72 61 67 2d 6d |croll-ba|r drag-m|
|00000e20| 6f 75 73 65 2d 33 5d 20 | 70 72 6f 76 69 64 65 20 |ouse-3] |provide |
|00000e30| 73 63 72 6f 6c 6c 2d 62 | 61 72 5d 20 33 29 0a    |scroll-b|ar] 3). |
+--------+-------------------------+-------------------------+--------+--------+