/ The Datafile PD-CD 3 / PDCD_3.iso / languages / panebasic / lib / blib2 / Blib / WIMP

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 10 2a 7c 73 74 | 61 72 74 20 57 69 6d 70 |....*|st|art Wimp|
|00000010| 0d 00 02 13 2a 7c 21 57 | 49 4d 50 20 4c 69 62 72 |....*|!W|IMP Libr|
|00000020| 61 72 79 0d 00 03 07 2a | 7c 21 0d 00 04 3f 2a 7c |ary....*||!...?*||
|00000030| 21 54 68 69 73 20 6c 69 | 62 72 61 72 79 20 63 6f |!This li|brary co|
|00000040| 6e 74 61 69 6e 73 20 74 | 68 65 20 72 6f 75 74 69 |ntains t|he routi|
|00000050| 6e 65 73 20 66 6f 72 20 | 69 6e 69 74 69 61 6c 69 |nes for |initiali|
|00000060| 73 69 6e 67 20 77 69 74 | 68 0d 00 05 44 2a 7c 21 |sing wit|h...D*|!|
|00000070| 74 68 65 20 57 49 4d 50 | 20 61 6e 64 20 61 6c 73 |the WIMP| and als|
|00000080| 6f 20 70 65 72 66 6f 72 | 6d 69 6e 67 20 57 69 6d |o perfor|ming Wim|
|00000090| 70 5f 50 6f 6c 6c 73 2c | 20 65 72 72 6f 72 20 6d |p_Polls,| error m|
|000000a0| 65 73 73 61 67 65 73 2c | 20 65 74 63 2e 0d 00 06 |essages,| etc....|
|000000b0| 04 0d 00 07 0f 2a 7c 73 | 74 6f 70 20 57 69 6d 70 |.....*|s|top Wimp|
|000000c0| 0d 00 08 19 2a 7c 73 74 | 61 72 74 20 50 52 4f 43 |....*|st|art PROC|
|000000d0| 77 69 6d 70 5f 69 6e 69 | 74 0d 00 09 36 2a 7c 21 |wimp_ini|t...6*|!|
|000000e0| 50 52 4f 43 77 69 6d 70 | 5f 69 6e 69 74 28 20 54 |PROCwimp|_init( T|
|000000f0| 61 73 6b 5f 6e 61 6d 65 | 20 2c 20 53 70 72 69 74 |ask_name| , Sprit|
|00000100| 65 5f 6e 61 6d 65 20 2c | 20 73 69 7a 65 20 29 0d |e_name ,| size ).|
|00000110| 00 0a 07 2a 7c 21 0d 00 | 0b 3d 2a 7c 21 49 6e 69 |...*|!..|.=*|!Ini|
|00000120| 74 69 61 6c 69 73 65 73 | 20 74 68 65 20 74 61 73 |tialises| the tas|
|00000130| 6b 20 77 69 74 68 20 74 | 68 65 20 77 69 6d 70 20 |k with t|he wimp |
|00000140| 77 69 74 68 20 74 68 65 | 20 67 69 76 65 6e 20 74 |with the| given t|
|00000150| 61 73 6b 0d 00 0c 41 2a | 7c 21 6e 61 6d 65 2e 20 |ask...A*||!name. |
|00000160| 41 6c 73 6f 20 69 6e 73 | 74 61 6c 6c 73 20 74 68 |Also ins|talls th|
|00000170| 65 20 74 61 73 6b 73 20 | 69 63 6f 6e 20 6f 6e 20 |e tasks |icon on |
|00000180| 74 68 65 20 69 63 6f 6e | 62 61 72 20 28 72 69 67 |the icon|bar (rig|
|00000190| 68 74 29 2e 0d 00 0d 38 | 2a 7c 21 54 68 65 20 74 |ht)....8|*|!The t|
|000001a0| 61 73 6b 20 68 61 6e 64 | 6c 65 20 69 73 20 61 76 |ask hand|le is av|
|000001b0| 61 69 6c 61 62 6c 65 20 | 69 6e 20 74 68 65 20 5f |ailable |in the _|
|000001c0| 77 69 6d 70 5f 68 61 6e | 64 6c 65 25 0d 00 0e 3f |wimp_han|dle%...?|
|000001d0| 2a 7c 21 76 61 72 69 61 | 62 6c 65 2e 20 27 73 69 |*|!varia|ble. 'si|
|000001e0| 7a 65 27 20 72 65 66 65 | 72 73 20 74 6f 20 74 68 |ze' refe|rs to th|
|000001f0| 65 20 73 69 7a 65 20 6f | 66 20 61 20 67 65 6e 65 |e size o|f a gene|
|00000200| 72 61 6c 20 70 75 72 70 | 6f 73 65 0d 00 0f 42 2a |ral purp|ose...B*|
|00000210| 7c 21 62 75 66 66 65 72 | 20 74 68 61 74 20 73 68 ||!buffer| that sh|
|00000220| 6f 75 6c 64 20 62 65 20 | 73 65 74 20 75 70 20 66 |ould be |set up f|
|00000230| 6f 72 20 73 63 72 61 74 | 63 68 20 73 70 61 63 65 |or scrat|ch space|
|00000240| 2e 20 54 68 69 73 20 73 | 68 6f 75 6c 64 0d 00 10 |. This s|hould...|
|00000250| 44 2a 7c 21 62 65 20 61 | 74 20 6c 65 61 73 74 20 |D*|!be a|t least |
|00000260| 62 69 67 20 65 6e 6f 75 | 67 68 20 74 6f 20 68 6f |big enou|gh to ho|
|00000270| 6c 64 20 74 68 65 20 6c | 61 72 67 65 73 74 20 77 |ld the l|argest w|
|00000280| 69 6e 64 6f 77 20 64 65 | 66 69 6e 69 74 69 6f 6e |indow de|finition|
|00000290| 2e 0d 00 11 42 2a 7c 21 | 49 66 20 61 20 76 61 6c |....B*|!|If a val|
|000002a0| 75 65 20 6f 66 20 30 20 | 69 73 20 67 69 76 65 6e |ue of 0 |is given|
|000002b0| 20 66 6f 72 20 27 73 69 | 7a 65 27 20 74 68 65 20 | for 'si|ze' the |
|000002c0| 64 65 66 61 75 6c 74 20 | 62 75 66 66 65 72 20 28 |default |buffer (|
|000002d0| 35 31 32 0d 00 12 3f 2a | 7c 21 62 79 74 65 73 29 |512...?*||!bytes)|
|000002e0| 20 77 69 6c 6c 20 62 65 | 20 75 73 65 64 2e 20 49 | will be| used. I|
|000002f0| 66 20 79 6f 75 20 70 61 | 73 73 20 61 20 76 61 6c |f you pa|ss a val|
|00000300| 75 65 20 6c 65 73 73 20 | 74 68 61 6e 20 32 35 36 |ue less |than 256|
|00000310| 20 61 0d 00 13 43 2a 7c | 21 62 75 66 66 65 72 20 | a...C*||!buffer |
|00000320| 6f 66 20 32 35 36 20 62 | 79 74 65 73 20 77 69 6c |of 256 b|ytes wil|
|00000330| 6c 20 62 65 20 73 65 74 | 2c 20 74 68 69 73 20 69 |l be set|, this i|
|00000340| 73 20 74 6f 20 61 6c 6c | 6f 77 20 74 68 65 20 62 |s to all|ow the b|
|00000350| 75 66 66 65 72 0d 00 14 | 43 2a 7c 21 74 6f 20 62 |uffer...|C*|!to b|
|00000360| 65 20 75 73 65 64 20 62 | 79 20 77 69 6d 70 5f 70 |e used b|y wimp_p|
|00000370| 6f 6c 6c 2e 20 49 66 20 | 61 20 6e 75 6c 6c 20 73 |oll. If |a null s|
|00000380| 70 72 69 74 65 20 6e 61 | 6d 65 20 69 73 20 67 69 |prite na|me is gi|
|00000390| 76 65 6e 20 74 68 65 6e | 0d 00 15 2d 2a 7c 21 6e |ven then|...-*|!n|
|000003a0| 6f 20 73 70 72 69 74 65 | 20 69 73 20 69 6e 73 74 |o sprite| is inst|
|000003b0| 61 6c 6c 65 64 20 6f 6e | 20 74 68 65 20 69 63 6f |alled on| the ico|
|000003c0| 6e 62 61 72 2e 0d 00 16 | 19 dd f2 77 69 6d 70 5f |nbar....|...wimp_|
|000003d0| 69 6e 69 74 28 54 24 2c | 49 24 2c 53 25 29 0d 00 |init(T$,|I$,S%)..|
|000003e0| 17 36 ea 20 42 25 2c 43 | 25 2c 58 25 2c 59 25 2c |.6. B%,C|%,X%,Y%,|
|000003f0| 4d 25 3a e7 20 53 25 3d | 30 20 8c 20 53 25 3d 35 |M%:. S%=|0 . S%=5|
|00000400| 31 32 3a 8b 20 e7 20 53 | 25 3c 32 35 36 20 53 25 |12:. . S|%<256 S%|
|00000410| 3d 32 35 36 0d 00 18 53 | 5f 77 69 6d 70 5f 74 61 |=256...S|_wimp_ta|
|00000420| 73 6b 24 3d 54 24 3a 5f | 77 69 6d 70 5f 62 75 66 |sk$=T$:_|wimp_buf|
|00000430| 66 65 72 25 3d a4 6d 61 | 6c 6c 6f 63 28 53 25 29 |fer%=.ma|lloc(S%)|
|00000440| 3a 42 25 3d a4 6d 61 6c | 6c 6f 63 28 33 38 2b a9 |:B%=.mal|loc(38+.|
|00000450| 28 49 24 29 29 3a 5f 77 | 69 6d 70 5f 69 63 6f 6e |(I$)):_w|imp_icon|
|00000460| 62 61 72 25 3d 42 25 0d | 00 19 3d c8 99 20 26 34 |bar%=B%.|..=.. &4|
|00000470| 30 30 43 30 2c 32 30 30 | 2c 26 34 42 35 33 34 31 |00C0,200|,&4B5341|
|00000480| 35 34 2c 54 24 20 b8 20 | 5f 77 69 6d 70 5f 76 65 |54,T$ . |_wimp_ve|
|00000490| 72 73 69 6f 6e 25 2c 5f | 77 69 6d 70 5f 68 61 6e |rsion%,_|wimp_han|
|000004a0| 64 6c 65 25 0d 00 1a 0e | e7 20 49 24 3c 3e 22 22 |dle%....|. I$<>""|
|000004b0| 20 8c 0d 00 1b 25 20 20 | c8 99 20 26 34 30 30 45 | ....%  |.. &400E|
|000004c0| 39 2c 34 30 2c 2c 49 24 | 20 b8 20 2c 2c 2c 58 25 |9,40,,I$| . ,,,X%|
|000004d0| 2c 59 25 2c 2c 4d 25 0d | 00 1c 22 20 20 c8 99 20 |,Y%,,M%.|.."  .. |
|000004e0| 26 33 35 2c 4d 25 2c 34 | 20 b8 20 2c 2c 43 25 3a |&35,M%,4| . ,,C%:|
|000004f0| 58 25 3d 58 25 3c 3c 43 | 25 0d 00 1d 22 20 20 c8 |X%=X%<<C|%..."  .|
|00000500| 99 20 26 33 35 2c 4d 25 | 2c 35 20 b8 20 2c 2c 43 |. &35,M%|,5 . ,,C|
|00000510| 25 3a 59 25 3d 59 25 3c | 3c 43 25 0d 00 1e 44 20 |%:Y%=Y%<|<C%...D |
|00000520| 20 21 42 25 3d 2d 31 3a | 42 25 21 34 3d 30 3a 42 | !B%=-1:|B%!4=0:B|
|00000530| 25 21 38 3d 30 3a 42 25 | 21 31 32 3d 58 25 3a 42 |%!8=0:B%|!12=X%:B|
|00000540| 25 21 31 36 3d 59 25 3a | 42 25 21 32 30 3d 26 32 |%!16=Y%:|B%!20=&2|
|00000550| 31 30 32 3a 42 25 21 32 | 34 3d 42 25 2b 33 36 0d |102:B%!2|4=B%+36.|
|00000560| 00 1f 43 20 20 24 28 42 | 25 2b 33 36 29 3d 49 24 |..C  $(B|%+36)=I$|
|00000570| 3a 42 25 21 32 38 3d 31 | 3a 42 25 21 33 32 3d a9 |:B%!28=1|:B%!32=.|
|00000580| 28 49 24 29 2b 31 3a c8 | 99 20 26 34 30 30 43 32 |(I$)+1:.|. &400C2|
|00000590| 2c 2c 42 25 20 b8 20 5f | 77 69 6d 70 5f 69 63 6f |,,B% . _|wimp_ico|
|000005a0| 6e 25 0d 00 20 05 cd 0d | 00 21 05 e1 0d 00 22 04 |n%.. ...|.!....".|
|000005b0| 0d 00 23 18 2a 7c 73 74 | 6f 70 20 50 52 4f 43 77 |..#.*|st|op PROCw|
|000005c0| 69 6d 70 5f 69 6e 69 74 | 0d 00 24 1a 2a 7c 73 74 |imp_init|..$.*|st|
|000005d0| 61 72 74 20 50 52 4f 43 | 77 69 6d 70 5f 65 72 72 |art PROC|wimp_err|
|000005e0| 6f 72 0d 00 25 32 2a 7c | 21 50 52 4f 43 77 69 6d |or..%2*||!PROCwim|
|000005f0| 70 5f 65 72 72 6f 72 28 | 20 66 61 74 61 6c 20 2c |p_error(| fatal ,|
|00000600| 20 65 72 72 2d 6e 75 6d | 20 2c 20 6d 65 73 73 61 | err-num| , messa|
|00000610| 67 65 20 29 0d 00 26 07 | 2a 7c 21 0d 00 27 40 2a |ge )..&.|*|!..'@*|
|00000620| 7c 21 44 69 73 70 6c 61 | 79 65 73 20 74 68 65 20 ||!Displa|yes the |
|00000630| 67 69 76 65 6e 20 65 72 | 72 6f 72 20 6d 65 73 73 |given er|ror mess|
|00000640| 61 67 65 20 69 6e 20 61 | 20 57 69 6d 70 20 45 72 |age in a| Wimp Er|
|00000650| 72 6f 72 20 64 69 73 70 | 6c 61 79 0d 00 28 35 2a |ror disp|lay..(5*|
|00000660| 7c 21 77 69 6e 64 6f 77 | 2c 20 61 6e 64 20 69 66 ||!window|, and if|
|00000670| 20 27 66 61 74 61 6c 27 | 20 69 73 20 54 52 55 45 | 'fatal'| is TRUE|
|00000680| 20 77 69 6c 6c 20 61 6c | 73 6f 20 71 75 69 74 2e | will al|so quit.|
|00000690| 0d 00 29 1a dd f2 77 69 | 6d 70 5f 65 72 72 6f 72 |..)...wi|mp_error|
|000006a0| 28 46 25 2c 45 25 2c 4d | 24 29 0d 00 2a 19 ea 20 |(F%,E%,M|$)..*.. |
|000006b0| 42 25 3a 42 25 3d 5f 77 | 69 6d 70 5f 62 75 66 66 |B%:B%=_w|imp_buff|
|000006c0| 65 72 25 0d 00 2b 25 21 | 42 25 3d 45 25 3a 24 28 |er%..+%!|B%=E%:$(|
|000006d0| 42 25 2b 34 29 3d 4d 24 | 3a 3f 28 42 25 2b 34 2b |B%+4)=M$|:?(B%+4+|
|000006e0| a9 28 4d 24 29 29 3d 30 | 0d 00 2c 1e c8 99 20 26 |.(M$))=0|..,... &|
|000006f0| 34 30 30 44 46 2c 42 25 | 2c 31 2c 5f 77 69 6d 70 |400DF,B%|,1,_wimp|
|00000700| 5f 74 61 73 6b 24 0d 00 | 2d 15 e7 20 46 25 20 8c |_task$..|-.. F% .|
|00000710| 20 f2 77 69 6d 70 5f 71 | 75 69 74 0d 00 2e 05 e1 | .wimp_q|uit.....|
|00000720| 0d 00 2f 04 0d 00 30 19 | 2a 7c 73 74 6f 70 20 50 |../...0.|*|stop P|
|00000730| 52 4f 43 77 69 6d 70 5f | 65 72 72 6f 72 0d 00 31 |ROCwimp_|error..1|
|00000740| 1d 2a 7c 73 74 61 72 74 | 20 46 4e 77 69 6d 70 5f |.*|start| FNwimp_|
|00000750| 6d 65 73 73 61 67 65 62 | 6f 78 0d 00 32 3b 2a 7c |messageb|ox..2;*||
|00000760| 21 46 4e 77 69 6d 70 5f | 6d 65 73 73 61 67 65 62 |!FNwimp_|messageb|
|00000770| 6f 78 28 20 63 61 6e 63 | 65 6c 20 2c 20 74 69 74 |ox( canc|el , tit|
|00000780| 6c 65 5f 73 74 72 69 6e | 67 20 2c 20 6d 65 73 73 |le_strin|g , mess|
|00000790| 61 67 65 20 29 0d 00 33 | 07 2a 7c 21 0d 00 34 4a |age )..3|.*|!..4J|
|000007a0| 2a 7c 21 44 69 73 70 6c | 61 79 73 20 61 20 73 74 |*|!Displ|ays a st|
|000007b0| 61 6e 64 61 72 64 20 65 | 72 72 6f 72 20 62 6f 78 |andard e|rror box|
|000007c0| 20 28 77 69 74 68 20 63 | 61 6e 63 65 6c 20 6f 70 | (with c|ancel op|
|000007d0| 74 69 6f 6e 20 69 66 20 | 27 63 61 6e 63 65 6c 27 |tion if |'cancel'|
|000007e0| 20 54 52 55 45 29 0d 00 | 35 45 2a 7c 21 77 69 74 | TRUE)..|5E*|!wit|
|000007f0| 68 20 67 69 76 65 6e 20 | 74 69 74 6c 65 20 61 6e |h given |title an|
|00000800| 64 20 6d 65 73 73 61 67 | 65 2e 20 52 65 74 75 72 |d messag|e. Retur|
|00000810| 6e 73 20 31 20 69 66 20 | 4f 2e 4b 2e 20 73 65 6c |ns 1 if |O.K. sel|
|00000820| 65 63 74 65 64 2c 20 32 | 20 69 66 0d 00 36 17 2a |ected, 2| if..6.*|
|00000830| 7c 21 63 61 6e 63 65 6c | 20 73 65 6c 65 63 74 65 ||!cancel| selecte|
|00000840| 64 2e 0d 00 37 1f dd a4 | 77 69 6d 70 5f 6d 65 73 |d...7...|wimp_mes|
|00000850| 73 61 67 65 62 6f 78 28 | 43 25 2c 54 24 2c 4d 24 |sagebox(|C%,T$,M$|
|00000860| 29 0d 00 38 32 ea 20 42 | 25 2c 52 25 2c 46 25 3a |)..82. B|%,R%,F%:|
|00000870| 42 25 3d 5f 77 69 6d 70 | 5f 62 75 66 66 65 72 25 |B%=_wimp|_buffer%|
|00000880| 3a 46 25 3d 31 37 3a e7 | 20 43 25 20 8c 20 46 25 |:F%=17:.| C% . F%|
|00000890| 3d 31 39 0d 00 39 24 21 | 42 25 3d 30 3a 24 28 42 |=19..9$!|B%=0:$(B|
|000008a0| 25 2b 34 29 3d 4d 24 3a | 3f 28 42 25 2b 34 2b a9 |%+4)=M$:|?(B%+4+.|
|000008b0| 28 4d 24 29 29 3d 30 0d | 00 3a 1c c8 99 20 26 34 |(M$))=0.|.:... &4|
|000008c0| 30 30 44 46 2c 42 25 2c | 46 25 2c 54 24 20 b8 20 |00DF,B%,|F%,T$ . |
|000008d0| 2c 52 25 0d 00 3b 07 3d | 52 25 0d 00 3c 04 0d 00 |,R%..;.=|R%..<...|
|000008e0| 3d 1c 2a 7c 73 74 6f 70 | 20 46 4e 77 69 6d 70 5f |=.*|stop| FNwimp_|
|000008f0| 6d 65 73 73 61 67 65 62 | 6f 78 0d 00 3e 19 2a 7c |messageb|ox..>.*||
|00000900| 73 74 61 72 74 20 50 52 | 4f 43 77 69 6d 70 5f 70 |start PR|OCwimp_p|
|00000910| 6f 6c 6c 0d 00 3f 23 2a | 7c 21 50 52 4f 43 77 69 |oll..?#*||!PROCwi|
|00000920| 6d 70 5f 70 6f 6c 6c 28 | 20 6d 61 73 6b 20 2c 20 |mp_poll(| mask , |
|00000930| 74 69 6d 65 20 29 0d 00 | 40 07 2a 7c 21 0d 00 41 |time )..|@.*|!..A|
|00000940| 4a 2a 7c 21 54 68 69 73 | 20 70 72 6f 63 65 64 75 |J*|!This| procedu|
|00000950| 72 65 20 70 65 72 66 6f | 72 6d 73 20 61 20 77 69 |re perfo|rms a wi|
|00000960| 6d 70 20 70 6f 6c 6c 20 | 61 6e 64 20 74 68 65 6e |mp poll |and then|
|00000970| 20 63 61 6c 6c 73 20 72 | 65 6c 65 76 61 6e 74 20 | calls r|elevant |
|00000980| 27 65 76 65 6e 74 27 0d | 00 42 4f 2a 7c 21 72 6f |'event'.|.BO*|!ro|
|00000990| 75 74 69 6e 65 73 20 64 | 65 70 65 6e 64 69 6e 67 |utines d|epending|
|000009a0| 20 75 70 6f 6e 20 74 68 | 65 20 72 65 73 75 6c 74 | upon th|e result|
|000009b0| 20 6f 66 20 74 68 61 74 | 20 70 6f 6c 6c 2e 20 50 | of that| poll. P|
|000009c0| 61 72 61 6d 65 74 65 72 | 73 20 61 72 65 20 74 68 |arameter|s are th|
|000009d0| 65 20 77 69 6d 70 0d 00 | 43 4c 2a 7c 21 70 6f 6c |e wimp..|CL*|!pol|
|000009e0| 6c 20 6d 61 73 6b 2c 20 | 61 6e 64 20 61 20 6d 69 |l mask, |and a mi|
|000009f0| 6e 69 6d 75 6d 20 74 69 | 6d 65 20 62 65 66 6f 72 |nimum ti|me befor|
|00000a00| 65 20 61 6e 20 69 64 6c | 65 20 65 76 65 6e 74 20 |e an idl|e event |
|00000a10| 28 69 6e 20 63 65 6e 74 | 69 73 65 63 6f 6e 64 73 |(in cent|iseconds|
|00000a20| 29 2e 0d 00 44 4b 2a 7c | 21 53 65 65 20 74 68 65 |)...DK*||!See the|
|00000a30| 20 27 65 76 65 6e 74 27 | 20 6c 69 62 72 61 72 79 | 'event'| library|
|00000a40| 20 66 6f 72 20 64 65 74 | 61 69 6c 73 20 6f 66 20 | for det|ails of |
|00000a50| 70 72 6f 63 65 64 75 72 | 65 73 20 74 68 61 74 20 |procedur|es that |
|00000a60| 61 72 65 20 63 61 6c 6c | 65 64 20 62 79 0d 00 45 |are call|ed by..E|
|00000a70| 4d 2a 7c 21 74 68 69 73 | 20 70 72 6f 63 65 64 75 |M*|!this| procedu|
|00000a80| 72 65 2e 20 54 68 69 73 | 20 70 72 6f 63 65 64 75 |re. This| procedu|
|00000a90| 72 65 20 6d 61 6b 65 73 | 20 75 73 65 20 6f 66 20 |re makes| use of |
|00000aa0| 42 6c 69 62 27 73 20 63 | 6f 6e 64 69 74 69 6f 6e |Blib's c|ondition|
|00000ab0| 61 6c 20 6c 69 6e 6b 69 | 6e 67 0d 00 46 4c 2a 7c |al linki|ng..FL*||
|00000ac0| 21 61 6e 64 20 77 69 6c | 6c 20 62 65 20 63 72 65 |!and wil|l be cre|
|00000ad0| 61 74 65 64 20 61 63 63 | 6f 72 64 69 6e 67 20 74 |ated acc|ording t|
|00000ae0| 6f 20 77 68 61 74 20 68 | 61 6e 64 6c 69 6e 67 20 |o what h|andling |
|00000af0| 28 65 76 65 6e 74 29 20 | 70 72 6f 63 65 64 75 72 |(event) |procedur|
|00000b00| 65 73 20 79 6f 75 0d 00 | 47 4d 2a 7c 21 68 61 76 |es you..|GM*|!hav|
|00000b10| 65 20 64 65 66 69 6e 65 | 64 2e 20 45 67 2e 20 63 |e define|d. Eg. c|
|00000b20| 6f 64 65 20 74 6f 20 63 | 61 6c 6c 20 50 52 4f 43 |ode to c|all PROC|
|00000b30| 65 76 65 6e 74 5f 69 64 | 6c 65 20 77 69 6c 6c 20 |event_id|le will |
|00000b40| 6f 6e 6c 79 20 62 65 20 | 6c 69 6e 6b 65 64 20 69 |only be |linked i|
|00000b50| 6e 74 6f 0d 00 48 43 2a | 7c 21 79 6f 75 72 20 70 |nto..HC*||!your p|
|00000b60| 72 6f 67 72 61 6d 20 69 | 66 20 79 6f 75 72 20 70 |rogram i|f your p|
|00000b70| 72 6f 67 72 61 6d 20 63 | 6f 6e 74 61 69 6e 73 20 |rogram c|ontains |
|00000b80| 61 20 50 52 4f 43 65 76 | 65 6e 74 5f 69 64 6c 65 |a PROCev|ent_idle|
|00000b90| 2c 20 65 74 63 2e 0d 00 | 49 4c 2a 7c 21 4f 6e 65 |, etc...|IL*|!One|
|00000ba0| 20 63 6f 6e 73 65 71 75 | 65 6e 63 65 20 6f 66 20 | consequ|ence of |
|00000bb0| 74 68 69 73 20 69 73 20 | 74 68 61 74 20 74 68 69 |this is |that thi|
|00000bc0| 73 20 70 72 6f 63 65 64 | 75 72 65 20 6d 61 79 20 |s proced|ure may |
|00000bd0| 6e 65 65 64 20 74 6f 20 | 62 65 20 75 70 64 61 74 |need to |be updat|
|00000be0| 65 64 0d 00 4a 49 2a 7c | 21 64 75 72 69 6e 67 20 |ed..JI*||!during |
|00000bf0| 74 68 65 20 64 65 76 65 | 6c 6f 70 65 6d 65 6e 74 |the deve|lopement|
|00000c00| 20 6f 66 20 74 68 65 20 | 70 72 6f 67 72 61 6d 20 | of the |program |
|00000c10| 73 6f 20 74 68 61 74 20 | 69 74 20 74 61 6b 65 73 |so that |it takes|
|00000c20| 20 61 63 63 6f 75 6e 74 | 20 6f 66 0d 00 4b 51 2a | account| of..KQ*|
|00000c30| 7c 21 61 64 64 69 74 69 | 6f 6e 73 20 6f 66 20 6e ||!additi|ons of n|
|00000c40| 65 77 20 65 76 65 6e 74 | 20 68 61 6e 64 6c 65 72 |ew event| handler|
|00000c50| 73 2e 20 46 6f 72 20 74 | 68 69 73 20 72 65 61 73 |s. For t|his reas|
|00000c60| 6f 6e 20 74 68 69 73 20 | 70 72 6f 63 65 64 75 72 |on this |procedur|
|00000c70| 65 20 69 73 20 63 72 65 | 61 74 65 64 0d 00 4c 4e |e is cre|ated..LN|
|00000c80| 2a 7c 21 75 73 69 6e 67 | 20 61 6e 20 27 75 70 64 |*|!using| an 'upd|
|00000c90| 61 74 65 27 20 62 6c 6f | 63 6b 2c 20 77 68 69 63 |ate' blo|ck, whic|
|00000ca0| 68 20 6d 65 61 6e 73 20 | 74 68 61 74 20 69 74 20 |h means |that it |
|00000cb0| 77 69 6c 6c 20 62 65 20 | 72 65 6c 69 6e 6b 65 64 |will be |relinked|
|00000cc0| 20 65 61 63 68 20 74 69 | 6d 65 0d 00 4d 23 2a 7c | each ti|me..M#*||
|00000cd0| 21 69 74 20 69 73 20 70 | 61 73 73 65 64 20 74 68 |!it is p|assed th|
|00000ce0| 72 6f 75 67 68 20 42 6c | 69 62 49 49 2e 0d 00 4e |rough Bl|ibII...N|
|00000cf0| 0a 2a 7c 63 6f 70 79 0d | 00 4f 0c 2a 7c 75 70 64 |.*|copy.|.O.*|upd|
|00000d00| 61 74 65 0d 00 50 16 dd | f2 77 69 6d 70 5f 70 6f |ate..P..|.wimp_po|
|00000d10| 6c 6c 28 4d 25 2c 54 25 | 29 0d 00 51 0e ea 20 52 |ll(M%,T%|)..Q.. R|
|00000d20| 25 2c 49 25 2c 51 25 0d | 00 52 0c e7 20 54 25 3d |%,I%,Q%.|.R.. T%=|
|00000d30| 30 20 8c 0d 00 53 25 20 | 20 c8 99 20 26 34 30 30 |0 ...S% | .. &400|
|00000d40| 43 37 2c 4d 25 2c 5f 77 | 69 6d 70 5f 62 75 66 66 |C7,M%,_w|imp_buff|
|00000d50| 65 72 25 20 b8 20 52 25 | 0d 00 54 05 cc 0d 00 55 |er% . R%|..T....U|
|00000d60| 1a 20 20 c8 99 20 26 34 | 32 20 b8 20 51 25 3a 51 |.  .. &4|2 . Q%:Q|
|00000d70| 25 3d 51 25 2b 54 25 0d | 00 56 28 20 20 c8 99 20 |%=Q%+T%.|.V(  .. |
|00000d80| 26 34 30 30 45 31 2c 4d | 25 2c 5f 77 69 6d 70 5f |&400E1,M|%,_wimp_|
|00000d90| 62 75 66 66 65 72 25 2c | 51 25 20 b8 20 52 25 0d |buffer%,|Q% . R%.|
|00000da0| 00 57 16 cd 3a 49 25 3d | 5f 77 69 6d 70 5f 62 75 |.W..:I%=|_wimp_bu|
|00000db0| 66 66 65 72 25 0d 00 58 | 0b c8 8e 20 52 25 20 ca |ffer%..X|... R% .|
|00000dc0| 0d 00 59 1a 2a 7c 69 66 | 64 65 66 20 50 52 4f 43 |..Y.*|if|def PROC|
|00000dd0| 65 76 65 6e 74 5f 69 64 | 6c 65 0d 00 5a 1b 20 20 |event_id|le..Z.  |
|00000de0| c9 20 30 20 3a 20 f2 65 | 76 65 6e 74 5f 69 64 6c |. 0 : .e|vent_idl|
|00000df0| 65 28 49 25 29 0d 00 5b | 0b 2a 7c 65 6e 64 69 66 |e(I%)..[|.*|endif|
|00000e00| 0d 00 5c 1c 2a 7c 69 66 | 64 65 66 20 50 52 4f 43 |..\.*|if|def PROC|
|00000e10| 65 76 65 6e 74 5f 72 65 | 64 72 61 77 0d 00 5d 1d |event_re|draw..].|
|00000e20| 20 20 c9 20 31 20 3a 20 | f2 65 76 65 6e 74 5f 72 |  . 1 : |.event_r|
|00000e30| 65 64 72 61 77 28 49 25 | 29 0d 00 5e 0b 2a 7c 65 |edraw(I%|)..^.*|e|
|00000e40| 6e 64 69 66 0d 00 5f 21 | 20 20 c9 20 32 20 3a 20 |ndif.._!|  . 2 : |
|00000e50| f2 65 76 65 6e 74 5f 6f | 70 65 6e 77 69 6e 64 6f |.event_o|penwindo|
|00000e60| 77 28 49 25 29 0d 00 60 | 22 20 20 c9 20 33 20 3a |w(I%)..`|"  . 3 :|
|00000e70| 20 f2 65 76 65 6e 74 5f | 63 6c 6f 73 65 77 69 6e | .event_|closewin|
|00000e80| 64 6f 77 28 49 25 29 0d | 00 61 1e 2a 7c 69 66 64 |dow(I%).|.a.*|ifd|
|00000e90| 65 66 20 50 52 4f 43 65 | 76 65 6e 74 5f 65 6e 74 |ef PROCe|vent_ent|
|00000ea0| 65 72 77 69 6e 0d 00 62 | 1f 20 20 c9 20 34 20 3a |erwin..b|.  . 4 :|
|00000eb0| 20 f2 65 76 65 6e 74 5f | 65 6e 74 65 72 77 69 6e | .event_|enterwin|
|00000ec0| 28 49 25 29 0d 00 63 0b | 2a 7c 65 6e 64 69 66 0d |(I%)..c.|*|endif.|
|00000ed0| 00 64 1d 2a 7c 69 66 64 | 65 66 20 50 52 4f 43 65 |.d.*|ifd|ef PROCe|
|00000ee0| 76 65 6e 74 5f 65 78 69 | 74 77 69 6e 0d 00 65 1e |vent_exi|twin..e.|
|00000ef0| 20 20 c9 20 35 20 3a 20 | f2 65 76 65 6e 74 5f 65 |  . 5 : |.event_e|
|00000f00| 78 69 74 77 69 6e 28 49 | 25 29 0d 00 66 0b 2a 7c |xitwin(I|%)..f.*||
|00000f10| 65 6e 64 69 66 0d 00 67 | 18 20 20 c9 20 36 20 3a |endif..g|.  . 6 :|
|00000f20| 20 e7 20 49 25 21 31 32 | 3d 2d 32 20 8c 0d 00 68 | . I%!12|=-2 ...h|
|00000f30| 37 20 20 20 20 20 20 20 | 20 20 20 20 20 20 e7 20 |7       |      . |
|00000f40| 28 49 25 21 38 20 80 20 | 32 29 20 8c 20 f2 65 76 |(I%!8 . |2) . .ev|
|00000f50| 65 6e 74 5f 69 63 6f 6e | 62 61 72 6d 65 6e 75 28 |ent_icon|barmenu(|
|00000f60| 21 49 25 29 0d 00 69 23 | 2a 7c 69 66 64 65 66 20 |!I%)..i#|*|ifdef |
|00000f70| 50 52 4f 43 65 76 65 6e | 74 5f 69 63 6f 6e 62 61 |PROCeven|t_iconba|
|00000f80| 72 61 64 6a 75 73 74 0d | 00 6a 3a 20 20 20 20 20 |radjust.|.j:     |
|00000f90| 20 20 20 20 20 20 20 20 | 20 20 e7 20 28 49 25 21 |        |  . (I%!|
|00000fa0| 38 20 80 20 31 29 20 8c | 20 f2 65 76 65 6e 74 5f |8 . 1) .| .event_|
|00000fb0| 69 63 6f 6e 62 61 72 61 | 64 6a 75 73 74 28 49 25 |iconbara|djust(I%|
|00000fc0| 29 0d 00 6b 0b 2a 7c 65 | 6e 64 69 66 0d 00 6c 23 |)..k.*|e|ndif..l#|
|00000fd0| 2a 7c 69 66 64 65 66 20 | 50 52 4f 43 65 76 65 6e |*|ifdef |PROCeven|
|00000fe0| 74 5f 69 63 6f 6e 62 61 | 72 73 65 6c 65 63 74 0d |t_iconba|rselect.|
|00000ff0| 00 6d 3a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.m:     |        |
|00001000| 20 20 e7 20 28 49 25 21 | 38 20 80 20 34 29 20 8c |  . (I%!|8 . 4) .|
|00001010| 20 f2 65 76 65 6e 74 5f | 69 63 6f 6e 62 61 72 73 | .event_|iconbars|
|00001020| 65 6c 65 63 74 28 49 25 | 29 0d 00 6e 0b 2a 7c 65 |elect(I%|)..n.*|e|
|00001030| 6e 64 69 66 0d 00 6f 20 | 2a 7c 69 66 64 65 66 20 |ndif..o |*|ifdef |
|00001040| 50 52 4f 43 65 76 65 6e | 74 5f 6d 6f 75 73 65 63 |PROCeven|t_mousec|
|00001050| 6c 69 63 6b 0d 00 70 10 | 20 20 20 20 20 20 20 20 |lick..p.|        |
|00001060| 20 20 20 cc 0d 00 71 26 | 20 20 20 20 20 20 20 20 |   ...q&|        |
|00001070| 20 20 20 20 20 f2 65 76 | 65 6e 74 5f 6d 6f 75 73 |     .ev|ent_mous|
|00001080| 65 63 6c 69 63 6b 28 49 | 25 29 0d 00 72 0b 2a 7c |eclick(I|%)..r.*||
|00001090| 65 6e 64 69 66 0d 00 73 | 10 20 20 20 20 20 20 20 |endif..s|.       |
|000010a0| 20 20 20 20 cd 0d 00 74 | 1e 2a 7c 69 66 64 65 66 |    ...t|.*|ifdef|
|000010b0| 20 50 52 4f 43 65 76 65 | 6e 74 5f 75 73 65 72 64 | PROCeve|nt_userd|
|000010c0| 72 61 67 0d 00 75 1f 20 | 20 c9 20 37 20 3a 20 f2 |rag..u. | . 7 : .|
|000010d0| 65 76 65 6e 74 5f 75 73 | 65 72 64 72 61 67 28 49 |event_us|erdrag(I|
|000010e0| 25 29 0d 00 76 0b 2a 7c | 65 6e 64 69 66 0d 00 77 |%)..v.*||endif..w|
|000010f0| 1e 2a 7c 69 66 64 65 66 | 20 50 52 4f 43 65 76 65 |.*|ifdef| PROCeve|
|00001100| 6e 74 5f 6b 65 79 70 72 | 65 73 73 0d 00 78 1f 20 |nt_keypr|ess..x. |
|00001110| 20 c9 20 38 20 3a 20 f2 | 65 76 65 6e 74 5f 6b 65 | . 8 : .|event_ke|
|00001120| 79 70 72 65 73 73 28 49 | 25 29 0d 00 79 0a 2a 7c |ypress(I|%)..y.*||
|00001130| 65 6c 73 65 0d 00 7a 26 | 20 20 c9 20 38 20 3a 20 |else..z&|  . 8 : |
|00001140| c8 99 20 22 57 69 6d 70 | 5f 50 72 6f 63 65 73 73 |.. "Wimp|_Process|
|00001150| 4b 65 79 22 2c 49 25 21 | 32 34 0d 00 7b 0b 2a 7c |Key",I%!|24..{.*||
|00001160| 65 6e 64 69 66 0d 00 7c | 33 20 20 c9 20 39 20 3a |endif..||3  . 9 :|
|00001170| 20 f2 65 76 65 6e 74 5f | 6d 65 6e 75 73 65 6c 65 | .event_|menusele|
|00001180| 63 74 69 6f 6e 28 49 25 | 29 3a f2 6d 65 6e 75 5f |ction(I%|):.menu_|
|00001190| 6b 65 65 70 6f 70 65 6e | 0d 00 7d 1c 2a 7c 69 66 |keepopen|..}.*|if|
|000011a0| 64 65 66 20 50 52 4f 43 | 65 76 65 6e 74 5f 73 63 |def PROC|event_sc|
|000011b0| 72 6f 6c 6c 0d 00 7e 1d | 20 20 c9 20 31 30 3a 20 |roll..~.|  . 10: |
|000011c0| f2 65 76 65 6e 74 5f 73 | 63 72 6f 6c 6c 28 49 25 |.event_s|croll(I%|
|000011d0| 29 0d 00 7f 0b 2a 7c 65 | 6e 64 69 66 0d 00 80 20 |)....*|e|ndif... |
|000011e0| 2a 7c 69 66 64 65 66 20 | 50 52 4f 43 65 76 65 6e |*|ifdef |PROCeven|
|000011f0| 74 5f 6c 6f 6f 73 65 63 | 61 72 65 74 0d 00 81 21 |t_loosec|aret...!|
|00001200| 20 20 c9 20 31 31 3a 20 | f2 65 76 65 6e 74 5f 6c |  . 11: |.event_l|
|00001210| 6f 6f 73 65 63 61 72 65 | 74 28 49 25 29 0d 00 82 |oosecare|t(I%)...|
|00001220| 0b 2a 7c 65 6e 64 69 66 | 0d 00 83 1f 2a 7c 69 66 |.*|endif|....*|if|
|00001230| 64 65 66 20 50 52 4f 43 | 65 76 65 6e 74 5f 67 61 |def PROC|event_ga|
|00001240| 69 6e 63 61 72 65 74 0d | 00 84 20 20 20 c9 20 31 |incaret.|..   . 1|
|00001250| 32 3a 20 f2 65 76 65 6e | 74 5f 67 61 69 6e 63 61 |2: .even|t_gainca|
|00001260| 72 65 74 28 49 25 29 0d | 00 85 0b 2a 7c 65 6e 64 |ret(I%).|...*|end|
|00001270| 69 66 0d 00 86 21 20 20 | c9 20 31 37 2c 31 38 3a |if...!  |. 17,18:|
|00001280| 20 f2 65 76 65 6e 74 5f | 6d 65 73 73 61 67 65 28 | .event_|message(|
|00001290| 49 25 29 0d 00 87 1d 2a | 7c 69 66 64 65 66 20 50 |I%)....*||ifdef P|
|000012a0| 52 4f 43 65 76 65 6e 74 | 5f 75 6e 6b 6e 6f 77 6e |ROCevent|_unknown|
|000012b0| 0d 00 88 1e 20 20 7f 3a | 20 f2 65 76 65 6e 74 5f |....  .:| .event_|
|000012c0| 75 6e 6b 6e 6f 77 6e 28 | 52 25 2c 49 25 29 0d 00 |unknown(|R%,I%)..|
|000012d0| 89 0b 2a 7c 65 6e 64 69 | 66 0d 00 8a 05 cb 0d 00 |..*|endi|f.......|
|000012e0| 8b 05 e1 0d 00 8c 04 0d | 00 8d 0a 2a 7c 63 6f 70 |........|...*|cop|
|000012f0| 79 0d 00 8e 0e 2a 7c 64 | 6f 77 6e 64 61 74 65 0d |y....*|d|owndate.|
|00001300| 00 8f 18 2a 7c 73 74 6f | 70 20 50 52 4f 43 77 69 |...*|sto|p PROCwi|
|00001310| 6d 70 5f 70 6f 6c 6c 0d | 00 90 19 2a 7c 73 74 61 |mp_poll.|...*|sta|
|00001320| 72 74 20 50 52 4f 43 77 | 69 6d 70 5f 71 75 69 74 |rt PROCw|imp_quit|
|00001330| 0d 00 91 14 2a 7c 21 50 | 52 4f 43 77 69 6d 70 5f |....*|!P|ROCwimp_|
|00001340| 71 75 69 74 0d 00 92 07 | 2a 7c 21 0d 00 93 16 2a |quit....|*|!....*|
|00001350| 7c 21 51 75 69 74 73 20 | 74 68 65 20 74 61 73 6b ||!Quits |the task|
|00001360| 2e 0d 00 94 0f dd f2 77 | 69 6d 70 5f 71 75 69 74 |.......w|imp_quit|
|00001370| 0d 00 95 25 c8 99 20 26 | 34 30 30 44 44 2c 5f 77 |...%.. &|400DD,_w|
|00001380| 69 6d 70 5f 68 61 6e 64 | 6c 65 25 2c 26 34 42 35 |imp_hand|le%,&4B5|
|00001390| 33 34 31 35 34 0d 00 96 | 05 e0 0d 00 97 05 e1 0d |34154...|........|
|000013a0| 00 98 04 0d 00 99 18 2a | 7c 73 74 6f 70 20 50 52 |.......*||stop PR|
|000013b0| 4f 43 77 69 6d 70 5f 71 | 75 69 74 0d ff          |OCwimp_q|uit..   |
+--------+-------------------------+-------------------------+--------+--------+