/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / blib / Blib / Event

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 11 2a 7c 73 74 | 61 72 74 20 45 76 65 6e |....*|st|art Even|
|00000010| 74 0d 00 02 14 2a 7c 21 | 45 56 45 4e 54 20 4c 69 |t....*|!|EVENT Li|
|00000020| 62 72 61 72 79 0d 00 03 | 07 2a 7c 21 0d 00 04 34 |brary...|.*|!...4|
|00000030| 2a 7c 21 56 65 72 73 69 | 6f 6e 20 31 2e 32 30 20 |*|!Versi|on 1.20 |
|00000040| 2d 20 28 43 29 20 49 61 | 6e 20 50 61 6c 6d 65 72 |- (C) Ia|n Palmer|
|00000050| 2c 20 31 73 74 20 4d 61 | 72 63 68 20 31 39 39 33 |, 1st Ma|rch 1993|
|00000060| 0d 00 05 07 2a 7c 21 0d | 00 06 4b 2a 7c 21 54 68 |....*|!.|..K*|!Th|
|00000070| 69 73 20 6c 69 62 72 61 | 72 79 20 63 6f 6e 74 61 |is libra|ry conta|
|00000080| 69 6e 73 20 73 69 6d 70 | 6c 65 20 72 6f 75 74 69 |ins simp|le routi|
|00000090| 6e 65 73 20 66 6f 72 20 | 73 6f 6d 65 20 6f 66 20 |nes for |some of |
|000000a0| 74 68 65 20 69 6d 70 6f | 72 74 61 6e 74 20 77 69 |the impo|rtant wi|
|000000b0| 6d 70 0d 00 07 4f 2a 7c | 21 70 6f 6c 6c 20 65 76 |mp...O*||!poll ev|
|000000c0| 65 6e 74 73 20 28 65 67 | 2e 20 4f 70 65 6e 57 69 |ents (eg|. OpenWi|
|000000d0| 6e 64 6f 77 2c 20 4d 65 | 73 73 61 67 65 2c 20 65 |ndow, Me|ssage, e|
|000000e0| 74 63 2e 29 2e 20 41 6e | 79 20 6f 66 20 74 68 65 |tc.). An|y of the|
|000000f0| 20 72 6f 75 74 69 6e 65 | 73 20 69 6e 20 74 68 69 | routine|s in thi|
|00000100| 73 0d 00 08 4e 2a 7c 21 | 6c 69 62 72 61 72 79 20 |s...N*|!|library |
|00000110| 63 61 6e 20 62 65 20 65 | 61 73 69 6c 79 20 72 65 |can be e|asily re|
|00000120| 70 6c 61 63 65 64 20 62 | 79 20 73 69 6d 70 6c 79 |placed b|y simply|
|00000130| 20 64 65 66 69 6e 69 6e | 67 20 61 20 72 65 70 6c | definin|g a repl|
|00000140| 61 63 65 6d 65 6e 74 20 | 72 6f 75 74 69 6e 65 0d |acement |routine.|
|00000150| 00 09 52 2a 7c 21 69 6e | 20 79 6f 75 72 20 70 72 |..R*|!in| your pr|
|00000160| 6f 67 72 61 6d 20 42 45 | 46 4f 52 45 20 6c 69 6e |ogram BE|FORE lin|
|00000170| 6b 69 6e 67 2c 20 68 6f | 77 65 76 65 72 20 69 74 |king, ho|wever it|
|00000180| 20 6d 75 73 74 20 68 61 | 76 65 20 74 68 65 20 73 | must ha|ve the s|
|00000190| 61 6d 65 20 6e 61 6d 65 | 20 61 73 20 67 69 76 65 |ame name| as give|
|000001a0| 6e 0d 00 0a 0d 2a 7c 21 | 62 65 6c 6f 77 2e 0d 00 |n....*|!|below...|
|000001b0| 0b 07 2a 7c 21 0d 00 0c | 4f 2a 7c 21 42 65 6c 6f |..*|!...|O*|!Belo|
|000001c0| 77 20 69 73 20 61 20 6c | 69 73 74 20 6f 66 20 61 |w is a l|ist of a|
|000001d0| 6c 6c 20 74 68 65 20 70 | 72 6f 63 65 64 75 72 65 |ll the p|rocedure|
|000001e0| 73 20 74 68 61 74 20 50 | 52 4f 43 77 69 6d 70 5f |s that P|ROCwimp_|
|000001f0| 70 6f 6c 6c 20 63 61 6e | 20 63 61 6c 6c 20 28 61 |poll can| call (a|
|00000200| 73 20 69 74 0d 00 0d 10 | 2a 7c 21 73 74 61 6e 64 |s it....|*|!stand|
|00000210| 73 29 20 3a 0d 00 0e 07 | 2a 7c 21 0d 00 0f 1b 2a |s) :....|*|!....*|
|00000220| 7c 21 52 65 61 73 6f 6e | 20 20 2d 20 20 50 72 6f ||!Reason|  -  Pro|
|00000230| 63 65 64 75 72 65 0d 00 | 10 07 2a 7c 21 0d 00 11 |cedure..|..*|!...|
|00000240| 20 2a 7c 21 20 20 20 30 | 20 20 20 20 20 20 20 50 | *|!   0|       P|
|00000250| 52 4f 43 65 76 65 6e 74 | 5f 69 64 6c 65 0d 00 12 |ROCevent|_idle...|
|00000260| 22 2a 7c 21 20 20 20 31 | 20 20 20 20 20 20 20 50 |"*|!   1|       P|
|00000270| 52 4f 43 65 76 65 6e 74 | 5f 72 65 64 72 61 77 0d |ROCevent|_redraw.|
|00000280| 00 13 31 2a 7c 21 20 20 | 20 32 20 20 20 20 20 20 |..1*|!  | 2      |
|00000290| 20 50 52 4f 43 65 76 65 | 6e 74 5f 6f 70 65 6e 77 | PROCeve|nt_openw|
|000002a0| 69 6e 64 6f 77 20 20 20 | 20 20 20 20 20 20 20 2a |indow   |       *|
|000002b0| 0d 00 14 31 2a 7c 21 20 | 20 20 33 20 20 20 20 20 |...1*|! |  3     |
|000002c0| 20 20 50 52 4f 43 65 76 | 65 6e 74 5f 63 6c 6f 73 |  PROCev|ent_clos|
|000002d0| 65 77 69 6e 64 6f 77 20 | 20 20 20 20 20 20 20 20 |ewindow |        |
|000002e0| 2a 0d 00 15 23 2a 7c 21 | 20 20 20 34 20 20 20 20 |*...#*|!|   4    |
|000002f0| 20 20 20 50 52 4f 43 65 | 76 65 6e 74 5f 65 78 69 |   PROCe|vent_exi|
|00000300| 74 77 69 6e 0d 00 16 24 | 2a 7c 21 20 20 20 35 20 |twin...$|*|!   5 |
|00000310| 20 20 20 20 20 20 50 52 | 4f 43 65 76 65 6e 74 5f |      PR|OCevent_|
|00000320| 65 6e 74 65 72 77 69 6e | 0d 00 17 31 2a 7c 21 20 |enterwin|...1*|! |
|00000330| 20 20 36 20 20 20 20 20 | 20 20 50 52 4f 43 65 76 |  6     |  PROCev|
|00000340| 65 6e 74 5f 69 63 6f 6e | 62 61 72 6d 65 6e 75 20 |ent_icon|barmenu |
|00000350| 20 20 20 20 20 20 20 20 | 2a 0d 00 18 29 2a 7c 21 |        |*...)*|!|
|00000360| 20 20 20 20 20 20 20 20 | 20 20 20 50 52 4f 43 65 |        |   PROCe|
|00000370| 76 65 6e 74 5f 69 63 6f | 6e 62 61 72 61 64 6a 75 |vent_ico|nbaradju|
|00000380| 73 74 0d 00 19 29 2a 7c | 21 20 20 20 20 20 20 20 |st...)*||!       |
|00000390| 20 20 20 20 50 52 4f 43 | 65 76 65 6e 74 5f 69 63 |    PROC|event_ic|
|000003a0| 6f 6e 62 61 72 73 65 6c | 65 63 74 0d 00 1a 26 2a |onbarsel|ect...&*|
|000003b0| 7c 21 20 20 20 20 20 20 | 20 20 20 20 20 50 52 4f ||!      |     PRO|
|000003c0| 43 65 76 65 6e 74 5f 6d | 6f 75 73 65 63 6c 69 63 |Cevent_m|ouseclic|
|000003d0| 6b 0d 00 1b 35 2a 7c 21 | 20 20 20 37 20 20 20 20 |k...5*|!|   7    |
|000003e0| 20 20 20 50 52 4f 43 65 | 76 65 6e 74 5f 73 61 76 |   PROCe|vent_sav|
|000003f0| 65 64 72 61 67 20 20 20 | 20 20 20 20 20 20 20 20 |edrag   |        |
|00000400| 20 43 4f 55 4e 54 0d 00 | 1c 24 2a 7c 21 20 20 20 | COUNT..|.$*|!   |
|00000410| 20 20 20 20 20 20 20 20 | 50 52 4f 43 65 76 65 6e |        |PROCeven|
|00000420| 74 5f 75 73 65 72 64 72 | 61 67 0d 00 1d 24 2a 7c |t_userdr|ag...$*||
|00000430| 21 20 20 20 38 20 20 20 | 20 20 20 20 50 52 4f 43 |!   8   |    PROC|
|00000440| 65 76 65 6e 74 5f 6b 65 | 79 70 72 65 73 73 0d 00 |event_ke|ypress..|
|00000450| 1e 29 2a 7c 21 20 20 20 | 39 20 20 20 20 20 20 20 |.)*|!   |9       |
|00000460| 50 52 4f 43 65 76 65 6e | 74 5f 6d 65 6e 75 73 65 |PROCeven|t_menuse|
|00000470| 6c 65 63 74 69 6f 6e 0d | 00 1f 22 2a 7c 21 20 20 |lection.|.."*|!  |
|00000480| 20 31 30 20 20 20 20 20 | 20 50 52 4f 43 65 76 65 | 10     | PROCeve|
|00000490| 6e 74 5f 73 63 72 6f 6c | 6c 0d 00 20 26 2a 7c 21 |nt_scrol|l.. &*|!|
|000004a0| 20 20 20 31 31 20 20 20 | 20 20 20 50 52 4f 43 65 |   11   |   PROCe|
|000004b0| 76 65 6e 74 5f 6c 6f 6f | 73 65 63 61 72 65 74 0d |vent_loo|secaret.|
|000004c0| 00 21 25 2a 7c 21 20 20 | 20 31 32 20 20 20 20 20 |.!%*|!  | 12     |
|000004d0| 20 50 52 4f 43 65 76 65 | 6e 74 5f 67 61 69 6e 63 | PROCeve|nt_gainc|
|000004e0| 61 72 65 74 0d 00 22 2b | 2a 7c 21 20 20 20 31 33 |aret.."+|*|!   13|
|000004f0| 20 20 20 20 20 20 50 52 | 4f 43 65 76 65 6e 74 5f |      PR|OCevent_|
|00000500| 70 6f 6c 6c 77 6f 72 64 | 6e 6f 6e 7a 65 72 6f 0d |pollword|nonzero.|
|00000510| 00 23 35 2a 7c 21 20 20 | 20 31 37 2c 31 38 20 20 |.#5*|!  | 17,18  |
|00000520| 20 50 52 4f 43 65 76 65 | 6e 74 5f 74 72 61 6e 73 | PROCeve|nt_trans|
|00000530| 66 65 72 6d 65 73 73 61 | 67 65 20 20 20 20 20 43 |fermessa|ge     C|
|00000540| 4f 55 4e 54 0d 00 24 31 | 2a 7c 21 20 20 20 20 20 |OUNT..$1|*|!     |
|00000550| 20 20 20 20 20 20 50 52 | 4f 43 65 76 65 6e 74 5f |      PR|OCevent_|
|00000560| 6d 65 73 73 61 67 65 20 | 20 20 20 20 20 20 20 20 |message |        |
|00000570| 20 20 20 20 2a 0d 00 25 | 35 2a 7c 21 20 20 20 31 |    *..%|5*|!   1|
|00000580| 39 20 20 20 20 20 20 50 | 52 4f 43 65 76 65 6e 74 |9      P|ROCevent|
|00000590| 5f 74 72 61 6e 73 66 65 | 72 61 63 6b 6e 6f 77 6c |_transfe|racknowl|
|000005a0| 65 64 67 65 20 43 4f 55 | 4e 54 0d 00 26 27 2a 7c |edge COU|NT..&'*||
|000005b0| 21 20 20 20 20 20 20 20 | 20 20 20 20 50 52 4f 43 |!       |    PROC|
|000005c0| 65 76 65 6e 74 5f 61 63 | 6b 6e 6f 77 6c 65 64 67 |event_ac|knowledg|
|000005d0| 65 0d 00 27 23 2a 7c 21 | 20 20 20 4f 74 68 65 72 |e..'#*|!|   Other|
|000005e0| 20 20 20 50 52 4f 43 65 | 76 65 6e 74 5f 75 6e 6b |   PROCe|vent_unk|
|000005f0| 6e 6f 77 6e 0d 00 28 07 | 2a 7c 21 0d 00 29 4f 2a |nown..(.|*|!..)O*|
|00000600| 7c 21 41 6c 6c 20 70 72 | 6f 63 65 64 75 72 65 73 ||!All pr|ocedures|
|00000610| 20 61 72 65 20 70 61 73 | 73 65 64 20 61 20 73 69 | are pas|sed a si|
|00000620| 6e 67 6c 65 20 70 61 72 | 61 6d 65 74 65 72 20 28 |ngle par|ameter (|
|00000630| 61 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 74 68 65 |a pointe|r to the|
|00000640| 20 77 69 6d 70 20 70 6f | 6c 6c 0d 00 2a 52 2a 7c | wimp po|ll..*R*||
|00000650| 21 62 6c 6f 63 6b 29 2c | 20 65 78 63 65 70 74 20 |!block),| except |
|00000660| 50 52 4f 43 65 76 65 6e | 74 5f 75 6e 6b 6e 6f 77 |PROCeven|t_unknow|
|00000670| 6e 20 77 68 69 63 68 20 | 72 65 63 65 69 76 65 73 |n which |receives|
|00000680| 20 74 68 65 20 72 65 61 | 73 6f 6e 20 61 6e 64 20 | the rea|son and |
|00000690| 74 68 65 20 70 6f 69 6e | 74 65 72 2c 0d 00 2b 46 |the poin|ter,..+F|
|000006a0| 2a 7c 21 61 6e 64 20 50 | 52 4f 43 65 76 65 6e 74 |*|!and P|ROCevent|
|000006b0| 5f 69 63 6f 6e 62 61 72 | 6d 65 6e 75 20 77 68 69 |_iconbar|menu whi|
|000006c0| 63 68 20 6f 6e 6c 79 20 | 72 65 63 65 69 76 65 73 |ch only |receives|
|000006d0| 20 74 68 65 20 58 20 63 | 6f 6f 72 64 69 6e 61 74 | the X c|oordinat|
|000006e0| 65 2e 0d 00 2c 07 2a 7c | 21 0d 00 2d 4a 2a 7c 21 |e...,.*||!..-J*|!|
|000006f0| 41 6c 6c 20 74 68 6f 73 | 65 20 6d 61 72 6b 65 64 |All thos|e marked|
|00000700| 20 77 69 74 68 20 61 20 | 27 2a 27 20 69 6e 20 74 | with a |'*' in t|
|00000710| 68 65 20 61 62 6f 76 65 | 20 6c 69 73 74 20 68 61 |he above| list ha|
|00000720| 76 65 20 61 20 73 69 6d | 70 6c 65 20 76 65 72 73 |ve a sim|ple vers|
|00000730| 69 6f 6e 0d 00 2e 52 2a | 7c 21 73 75 70 70 6c 69 |ion...R*||!suppli|
|00000740| 65 64 20 69 6e 20 74 68 | 69 73 20 6c 69 62 72 61 |ed in th|is libra|
|00000750| 72 79 20 61 6e 64 20 77 | 69 6c 6c 20 61 6c 73 6f |ry and w|ill also|
|00000760| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 20 62 | automat|ically b|
|00000770| 65 20 6c 69 6e 6b 65 64 | 20 28 69 66 20 6e 6f 20 |e linked| (if no |
|00000780| 6f 74 68 65 72 0d 00 2f | 48 2a 7c 21 76 65 72 73 |other../|H*|!vers|
|00000790| 69 6f 6e 20 73 75 70 70 | 6c 69 65 64 20 62 79 20 |ion supp|lied by |
|000007a0| 79 6f 75 29 20 77 68 65 | 6e 20 50 52 4f 43 77 69 |you) whe|n PROCwi|
|000007b0| 6d 70 5f 70 6f 6c 6c 20 | 69 73 20 6c 69 6e 6b 65 |mp_poll |is linke|
|000007c0| 64 20 62 79 20 42 6c 69 | 62 20 49 49 2e 0d 00 30 |d by Bli|b II...0|
|000007d0| 07 2a 7c 21 0d 00 31 53 | 2a 7c 21 49 6e 20 61 64 |.*|!..1S|*|!In ad|
|000007e0| 64 69 74 69 6f 6e 2c 20 | 74 68 6f 73 65 20 6d 61 |dition, |those ma|
|000007f0| 72 6b 65 64 20 77 69 74 | 68 20 61 20 27 43 4f 55 |rked wit|h a 'COU|
|00000800| 4e 54 27 20 61 72 65 20 | 73 75 70 70 6c 69 65 64 |NT' are |supplied|
|00000810| 20 77 69 74 68 20 74 68 | 65 20 44 61 74 61 20 54 | with th|e Data T|
|00000820| 72 61 6e 73 66 65 72 0d | 00 32 50 2a 7c 21 6c 69 |ransfer.|.2P*|!li|
|00000830| 62 72 61 72 79 2c 20 61 | 6e 64 20 77 69 6c 6c 20 |brary, a|nd will |
|00000840| 62 65 20 63 61 6c 6c 65 | 64 20 61 75 74 6f 6d 61 |be calle|d automa|
|00000850| 74 69 63 61 6c 6c 79 20 | 69 66 20 74 68 69 73 20 |tically |if this |
|00000860| 6c 69 62 72 61 72 79 20 | 69 73 20 69 6e 69 74 69 |library |is initi|
|00000870| 61 6c 69 73 65 64 2e 0d | 00 33 04 0d 00 34 10 2a |alised..|.3...4.*|
|00000880| 7c 73 74 6f 70 20 45 76 | 65 6e 74 0d 00 35 21 2a ||stop Ev|ent..5!*|
|00000890| 7c 73 74 61 72 74 20 50 | 52 4f 43 65 76 65 6e 74 ||start P|ROCevent|
|000008a0| 5f 63 6c 6f 73 65 77 69 | 6e 64 6f 77 0d 00 36 2f |_closewi|ndow..6/|
|000008b0| 2a 7c 21 50 52 4f 43 65 | 76 65 6e 74 5f 63 6c 6f |*|!PROCe|vent_clo|
|000008c0| 73 65 77 69 6e 64 6f 77 | 28 20 77 69 6d 70 5f 70 |sewindow|( wimp_p|
|000008d0| 6f 6c 6c 20 62 6c 6f 63 | 6b 20 29 0d 00 37 07 2a |oll bloc|k )..7.*|
|000008e0| 7c 21 0d 00 38 23 2a 7c | 21 53 69 6d 70 6c 65 20 ||!..8#*||!Simple |
|000008f0| 63 6c 6f 73 65 20 77 69 | 6e 64 6f 77 20 72 6f 75 |close wi|ndow rou|
|00000900| 74 69 6e 65 2e 0d 00 39 | 1b dd f2 65 76 65 6e 74 |tine...9|...event|
|00000910| 5f 63 6c 6f 73 65 77 69 | 6e 64 6f 77 28 49 25 29 |_closewi|ndow(I%)|
|00000920| 0d 00 3a 11 c8 99 20 26 | 34 30 30 43 36 2c 2c 49 |..:... &|400C6,,I|
|00000930| 25 0d 00 3b 05 e1 0d 00 | 3c 04 0d 00 3d 20 2a 7c |%..;....|<...= *||
|00000940| 73 74 6f 70 20 50 52 4f | 43 65 76 65 6e 74 5f 63 |stop PRO|Cevent_c|
|00000950| 6c 6f 73 65 77 69 6e 64 | 6f 77 0d 00 3e 20 2a 7c |losewind|ow..> *||
|00000960| 73 74 61 72 74 20 50 52 | 4f 43 65 76 65 6e 74 5f |start PR|OCevent_|
|00000970| 6f 70 65 6e 77 69 6e 64 | 6f 77 0d 00 3f 2e 2a 7c |openwind|ow..?.*||
|00000980| 21 50 52 4f 43 65 76 65 | 6e 74 5f 6f 70 65 6e 77 |!PROCeve|nt_openw|
|00000990| 69 6e 64 6f 77 28 20 77 | 69 6d 70 5f 70 6f 6c 6c |indow( w|imp_poll|
|000009a0| 20 62 6c 6f 63 6b 20 29 | 0d 00 40 07 2a 7c 21 0d | block )|..@.*|!.|
|000009b0| 00 41 22 2a 7c 21 53 69 | 6d 70 6c 65 20 6f 70 65 |.A"*|!Si|mple ope|
|000009c0| 6e 20 77 69 6e 64 6f 77 | 20 72 6f 74 75 69 6e 65 |n window| rotuine|
|000009d0| 2e 0d 00 42 1a dd f2 65 | 76 65 6e 74 5f 6f 70 65 |...B...e|vent_ope|
|000009e0| 6e 77 69 6e 64 6f 77 28 | 49 25 29 0d 00 43 11 c8 |nwindow(|I%)..C..|
|000009f0| 99 20 26 34 30 30 43 35 | 2c 2c 49 25 0d 00 44 05 |. &400C5|,,I%..D.|
|00000a00| e1 0d 00 45 04 0d 00 46 | 1f 2a 7c 73 74 6f 70 20 |...E...F|.*|stop |
|00000a10| 50 52 4f 43 65 76 65 6e | 74 5f 6f 70 65 6e 77 69 |PROCeven|t_openwi|
|00000a20| 6e 64 6f 77 0d 00 47 21 | 2a 7c 73 74 61 72 74 20 |ndow..G!|*|start |
|00000a30| 50 52 4f 43 65 76 65 6e | 74 5f 69 63 6f 6e 62 61 |PROCeven|t_iconba|
|00000a40| 72 6d 65 6e 75 0d 00 48 | 2a 2a 7c 21 50 52 4f 43 |rmenu..H|**|!PROC|
|00000a50| 65 76 65 6e 74 5f 69 63 | 6f 6e 62 61 72 6d 65 6e |event_ic|onbarmen|
|00000a60| 75 28 20 78 20 70 6f 73 | 69 74 69 6f 6e 20 29 0d |u( x pos|ition ).|
|00000a70| 00 49 07 2a 7c 21 0d 00 | 4a 41 2a 7c 21 43 61 6c |.I.*|!..|JA*|!Cal|
|00000a80| 6c 65 64 20 77 68 65 6e | 20 74 68 65 20 75 73 65 |led when| the use|
|00000a90| 72 20 63 6c 69 63 6b 73 | 20 74 68 65 20 6d 65 6e |r clicks| the men|
|00000aa0| 75 20 6d 6f 75 73 65 20 | 62 75 74 74 6f 6e 20 6f |u mouse |button o|
|00000ab0| 76 65 72 20 74 68 65 0d | 00 4b 3c 2a 7c 21 69 63 |ver the.|.K<*|!ic|
|00000ac0| 6f 6e 62 61 72 20 69 63 | 6f 6e 2e 20 49 74 20 74 |onbar ic|on. It t|
|00000ad0| 68 65 6e 20 63 61 6c 6c | 73 20 74 68 65 20 75 73 |hen call|s the us|
|00000ae0| 65 72 20 73 75 70 70 6c | 69 65 64 20 72 6f 75 74 |er suppl|ied rout|
|00000af0| 69 6e 65 0d 00 4c 3f 2a | 7c 21 27 46 4e 77 69 6d |ine..L?*||!'FNwim|
|00000b00| 70 5f 6d 61 69 6e 6d 65 | 6e 75 27 20 77 68 69 63 |p_mainme|nu' whic|
|00000b10| 68 20 73 68 6f 75 6c 64 | 20 72 65 74 75 72 6e 20 |h should| return |
|00000b20| 74 68 65 20 6d 65 6e 75 | 20 6e 75 6d 62 65 72 20 |the menu| number |
|00000b30| 6f 66 0d 00 4d 39 2a 7c | 21 74 68 65 20 6d 61 69 |of..M9*||!the mai|
|00000b40| 6e 20 6d 65 6e 75 20 28 | 61 6e 64 20 63 72 65 61 |n menu (|and crea|
|00000b50| 74 65 20 74 68 61 74 20 | 6d 65 6e 75 20 69 66 20 |te that |menu if |
|00000b60| 6e 65 63 65 73 73 61 72 | 79 29 2e 0d 00 4e 39 2a |necessar|y)...N9*|
|00000b70| 7c 21 54 68 69 73 20 72 | 6f 75 74 69 6e 65 20 77 ||!This r|outine w|
|00000b80| 69 6c 6c 20 74 68 65 6e | 20 64 69 73 70 6c 61 79 |ill then| display|
|00000b90| 20 74 68 61 74 20 6d 65 | 6e 75 20 63 6f 72 72 65 | that me|nu corre|
|00000ba0| 63 74 6c 79 0d 00 4f 4a | 2a 7c 21 70 6f 73 69 74 |ctly..OJ|*|!posit|
|00000bb0| 69 6f 6e 65 64 2e 20 54 | 68 69 73 20 72 6f 75 74 |ioned. T|his rout|
|00000bc0| 69 6e 65 20 77 69 6c 6c | 20 61 75 74 6f 6d 61 74 |ine will| automat|
|00000bd0| 69 63 61 6c 6c 79 20 62 | 65 20 65 78 74 72 61 63 |ically b|e extrac|
|00000be0| 74 65 64 20 61 6e 64 20 | 6c 69 6e 6b 65 64 0d 00 |ted and |linked..|
|00000bf0| 50 37 2a 7c 21 69 6e 20 | 77 68 65 6e 20 79 6f 75 |P7*|!in |when you|
|00000c00| 20 64 65 66 69 6e 65 20 | 61 20 66 75 6e 63 74 69 | define |a functi|
|00000c10| 6f 6e 20 27 46 4e 77 69 | 6d 70 5f 6d 61 69 6e 6d |on 'FNwi|mp_mainm|
|00000c20| 65 6e 75 27 2e 0d 00 51 | 1b dd f2 65 76 65 6e 74 |enu'...Q|...event|
|00000c30| 5f 69 63 6f 6e 62 61 72 | 6d 65 6e 75 28 58 25 29 |_iconbar|menu(X%)|
|00000c40| 0d 00 52 0f ea 20 59 25 | 2c 4d 25 3a ea 20 85 0d |..R.. Y%|,M%:. ..|
|00000c50| 00 53 2e ee 20 85 20 ea | 20 f2 77 69 6d 70 5f 65 |.S.. . .| .wimp_e|
|00000c60| 72 72 6f 72 28 31 2c 9f | 2c f6 24 2b 22 20 61 74 |rror(1,.|,.$+" at|
|00000c70| 20 6c 69 6e 65 20 22 2b | c3 28 9e 29 29 0d 00 54 | line "+|.(.))..T|
|00000c80| 4d 4d 25 3d a4 77 69 6d | 70 5f 6d 61 69 6e 6d 65 |MM%=.wim|p_mainme|
|00000c90| 6e 75 3a 59 25 3d 39 36 | 2b a4 6d 65 6e 75 5f 6d |nu:Y%=96|+.menu_m|
|00000ca0| 65 6e 75 68 65 69 67 68 | 74 28 4d 25 29 3a 58 25 |enuheigh|t(M%):X%|
|00000cb0| 2d 3d 31 36 2b 28 a4 6d | 65 6e 75 5f 77 69 64 74 |-=16+(.m|enu_widt|
|00000cc0| 68 28 4d 25 29 20 81 20 | 32 29 0d 00 55 19 f2 6d |h(M%) . |2)..U..m|
|00000cd0| 65 6e 75 5f 70 6f 70 75 | 70 28 4d 25 2c 58 25 2c |enu_popu|p(M%,X%,|
|00000ce0| 59 25 29 0d 00 56 05 e1 | 0d 00 57 04 0d 00 58 20 |Y%)..V..|..W...X |
|00000cf0| 2a 7c 73 74 6f 70 20 50 | 52 4f 43 65 76 65 6e 74 |*|stop P|ROCevent|
|00000d00| 5f 69 63 6f 6e 62 61 72 | 6d 65 6e 75 0d 00 59 1d |_iconbar|menu..Y.|
|00000d10| 2a 7c 73 74 61 72 74 20 | 50 52 4f 43 65 76 65 6e |*|start |PROCeven|
|00000d20| 74 5f 6d 65 73 73 61 67 | 65 0d 00 5a 2b 2a 7c 21 |t_messag|e..Z+*|!|
|00000d30| 50 52 4f 43 65 76 65 6e | 74 5f 6d 65 73 73 61 67 |PROCeven|t_messag|
|00000d40| 65 28 20 77 69 6d 70 5f | 70 6f 6c 6c 5f 62 6c 6f |e( wimp_|poll_blo|
|00000d50| 63 6b 20 29 0d 00 5b 07 | 2a 7c 21 0d 00 5c 3c 2a |ck )..[.|*|!..\<*|
|00000d60| 7c 21 53 6b 65 6c 65 74 | 6f 6e 20 72 6f 75 74 69 ||!Skelet|on routi|
|00000d70| 6e 65 20 66 6f 72 20 68 | 61 6e 64 6c 69 6e 67 20 |ne for h|andling |
|00000d80| 77 69 6d 70 20 6d 65 73 | 73 61 67 65 73 2e 20 43 |wimp mes|sages. C|
|00000d90| 6f 6e 74 61 69 6e 73 0d | 00 5d 2c 2a 7c 21 6f 6e |ontains.|.],*|!on|
|00000da0| 6c 79 20 74 68 65 20 63 | 6f 64 65 20 66 6f 72 20 |ly the c|ode for |
|00000db0| 74 68 65 20 27 51 75 69 | 74 27 20 6d 65 73 73 61 |the 'Qui|t' messa|
|00000dc0| 67 65 2e 0d 00 5e 17 dd | f2 65 76 65 6e 74 5f 6d |ge...^..|.event_m|
|00000dd0| 65 73 73 61 67 65 28 42 | 25 29 0d 00 5f 07 ea 20 |essage(B|%).._.. |
|00000de0| 85 0d 00 60 0b ee 20 85 | 20 ea 20 e1 0d 00 61 0e |...`.. .| . ...a.|
|00000df0| c8 8e 20 42 25 21 31 36 | 20 ca 0d 00 62 16 20 20 |.. B%!16| ...b.  |
|00000e00| c9 20 30 20 3a 20 f2 77 | 69 6d 70 5f 71 75 69 74 |. 0 : .w|imp_quit|
|00000e10| 0d 00 63 05 cb 0d 00 64 | 05 e1 0d 00 65 04 0d 00 |..c....d|....e...|
|00000e20| 66 1c 2a 7c 73 74 6f 70 | 20 50 52 4f 43 65 76 65 |f.*|stop| PROCeve|
|00000e30| 6e 74 5f 6d 65 73 73 61 | 67 65 0d ff             |nt_messa|ge..    |
+--------+-------------------------+-------------------------+--------+--------+