/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / d / drwimp / DrWimp / Examples / !MenuTrick / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 3e 21 52 | 75 6e 49 6d 61 67 65 0d |.....>!R|unImage.|
|00000010| 00 14 1f c8 9b 20 22 3c | 44 72 57 69 6d 70 4c 69 |..... "<|DrWimpLi|
|00000020| 62 24 44 69 72 3e 2e 44 | 72 57 69 6d 70 22 0d 00 |b$Dir>.D|rWimp"..|
|00000030| 1e 05 3a 0d 00 28 69 20 | 20 f4 20 2a 2a 54 68 69 |..:..(i | . **Thi|
|00000040| 73 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 64 65 |s applic|ation de|
|00000050| 6d 6f 6e 73 74 72 61 74 | 65 73 3a 20 64 79 6e 61 |monstrat|es: dyna|
|00000060| 6d 69 63 20 6d 65 6e 75 | 73 2c 20 77 72 69 74 61 |mic menu|s, writa|
|00000070| 62 6c 65 20 6d 65 6e 75 | 20 69 74 65 6d 73 20 61 |ble menu| items a|
|00000080| 6e 64 20 63 6f 6e 74 65 | 78 74 20 73 65 6e 73 69 |nd conte|xt sensi|
|00000090| 74 69 76 65 20 6d 65 6e | 75 73 2a 2a 0d 00 32 63 |tive men|us**..2c|
|000000a0| 20 20 f4 20 2a 2a 50 6c | 65 61 73 65 20 72 75 6e |  . **Pl|ease run|
|000000b0| 20 74 68 69 73 20 61 70 | 70 6c 69 63 61 74 69 6f | this ap|plicatio|
|000000c0| 6e 20 66 69 72 73 74 20 | 74 6f 20 73 65 65 20 77 |n first |to see w|
|000000d0| 68 61 74 20 69 74 20 64 | 6f 65 73 20 62 65 66 6f |hat it d|oes befo|
|000000e0| 72 65 20 72 65 61 64 69 | 6e 67 20 74 68 65 20 63 |re readi|ng the c|
|000000f0| 6f 6d 6d 65 6e 74 73 20 | 62 65 6c 6f 77 2a 2a 0d |omments |below**.|
|00000100| 00 3c 04 0d 00 46 18 61 | 70 70 6e 61 6d 65 24 3d |.<...F.a|ppname$=|
|00000110| 22 4d 65 6e 75 54 72 69 | 63 6b 22 0d 00 50 1b 76 |"MenuTri|ck"..P.v|
|00000120| 65 72 24 3d 22 31 2e 30 | 30 20 28 30 37 2d 4a 75 |er$="1.0|0 (07-Ju|
|00000130| 6e 2d 39 36 29 22 0d 00 | 5a 35 ee 20 85 20 f2 77 |n-96)"..|Z5. . .w|
|00000140| 69 6d 70 5f 65 72 72 6f | 72 28 61 70 70 6e 61 6d |imp_erro|r(appnam|
|00000150| 65 24 2c f6 24 2b 22 20 | 61 74 20 6c 69 6e 65 20 |e$,.$+" |at line |
|00000160| 22 2b c3 9e 2c 31 2c 31 | 29 3a e0 0d 00 64 04 0d |"+..,1,1|):...d..|
|00000170| 00 6e 37 20 20 f4 20 2a | 2a 49 6e 69 74 69 61 6c |.n7  . *|*Initial|
|00000180| 69 73 65 20 74 61 73 6b | 20 61 6e 64 20 6c 6f 61 |ise task| and loa|
|00000190| 64 20 69 6e 20 74 68 65 | 20 74 77 6f 20 77 69 6e |d in the| two win|
|000001a0| 64 6f 77 73 2a 2a 0d 00 | 78 32 74 61 73 6b 25 3d |dows**..|x2task%=|
|000001b0| a4 77 69 6d 70 5f 69 6e | 69 74 69 61 6c 69 73 65 |.wimp_in|itialise|
|000001c0| 28 61 70 70 6e 61 6d 65 | 24 2c 37 30 30 30 2c 37 |(appname|$,7000,7|
|000001d0| 30 30 30 2c 33 30 30 29 | 0d 00 82 40 69 6e 66 6f |000,300)|...@info|
|000001e0| 25 3d a4 77 69 6d 70 5f | 6c 6f 61 64 77 69 6e 64 |%=.wimp_|loadwind|
|000001f0| 6f 77 28 22 3c 4d 65 6e | 75 54 72 69 63 6b 24 44 |ow("<Men|uTrick$D|
|00000200| 69 72 3e 2e 54 65 6d 70 | 6c 61 74 65 73 22 2c 22 |ir>.Temp|lates","|
|00000210| 69 6e 66 6f 22 2c 30 29 | 0d 00 8c 40 6d 61 69 6e |info",0)|...@main|
|00000220| 25 3d a4 77 69 6d 70 5f | 6c 6f 61 64 77 69 6e 64 |%=.wimp_|loadwind|
|00000230| 6f 77 28 22 3c 4d 65 6e | 75 54 72 69 63 6b 24 44 |ow("<Men|uTrick$D|
|00000240| 69 72 3e 2e 54 65 6d 70 | 6c 61 74 65 73 22 2c 22 |ir>.Temp|lates","|
|00000250| 6d 61 69 6e 22 2c 30 29 | 0d 00 96 04 0d 00 a0 32 |main",0)|.......2|
|00000260| 20 20 f4 20 2a 2a 50 75 | 74 20 76 65 72 73 69 6f |  . **Pu|t versio|
|00000270| 6e 20 69 6e 74 6f 20 69 | 63 6f 6e 20 34 20 69 6e |n into i|con 4 in|
|00000280| 20 69 6e 66 6f 20 77 69 | 6e 64 6f 77 2a 2a 0d 00 | info wi|ndow**..|
|00000290| aa 23 f2 77 69 6d 70 5f | 70 75 74 69 63 6f 6e 74 |.#.wimp_|puticont|
|000002a0| 65 78 74 28 69 6e 66 6f | 25 2c 34 2c 76 65 72 24 |ext(info|%,4,ver$|
|000002b0| 29 0d 00 b4 04 0d 00 be | 41 20 20 f4 20 2a 2a 50 |).......|A  . **P|
|000002c0| 75 74 20 69 63 6f 6e 20 | 6f 6e 20 69 63 6f 6e 62 |ut icon |on iconb|
|000002d0| 61 72 2c 20 6f 6e 20 72 | 69 67 68 74 20 77 69 74 |ar, on r|ight wit|
|000002e0| 68 20 6e 6f 20 74 65 78 | 74 20 75 6e 64 65 72 6e |h no tex|t undern|
|000002f0| 65 61 74 68 2a 2a 0d 00 | c8 29 62 61 72 25 3d a4 |eath**..|.)bar%=.|
|00000300| 77 69 6d 70 5f 69 63 6f | 6e 62 61 72 28 22 21 22 |wimp_ico|nbar("!"|
|00000310| 2b 61 70 70 6e 61 6d 65 | 24 2c 22 22 2c 31 29 0d |+appname|$,"",1).|
|00000320| 00 d2 04 0d 00 dc 2d 20 | 20 f4 20 2a 2a 43 72 65 |......- | . **Cre|
|00000330| 61 74 65 20 69 63 6f 6e | 62 61 72 20 6d 65 6e 75 |ate icon|bar menu|
|00000340| 20 61 6e 64 20 6d 61 69 | 6e 20 6d 65 6e 75 2a 2a | and mai|n menu**|
|00000350| 0d 00 e6 60 20 20 f4 20 | 2a 2a 46 69 6c 65 20 73 |...`  . |**File s|
|00000360| 75 62 6d 65 6e 75 20 28 | 66 69 6c 65 6d 65 6e 75 |ubmenu (|filemenu|
|00000370| 25 29 20 69 73 20 73 65 | 74 20 74 6f 20 61 6c 6c |%) is se|t to all|
|00000380| 6f 77 20 75 70 20 74 6f | 20 61 6e 64 20 69 6e 63 |ow up to| and inc|
|00000390| 6c 75 64 69 6e 67 20 32 | 30 20 65 6e 74 72 69 65 |luding 2|0 entrie|
|000003a0| 73 20 62 75 74 20 6f 6e | 6c 79 20 6f 6e 65 2a 2a |s but on|ly one**|
|000003b0| 0d 00 f0 1b 20 20 f4 20 | 2a 2a 69 73 20 64 65 66 |....  . |**is def|
|000003c0| 69 6e 65 64 20 68 65 72 | 65 2a 2a 0d 00 fa 36 62 |ined her|e**...6b|
|000003d0| 61 72 6d 65 6e 75 25 3d | a4 77 69 6d 70 5f 63 72 |armenu%=|.wimp_cr|
|000003e0| 65 61 74 65 6d 65 6e 75 | 28 61 70 70 6e 61 6d 65 |eatemenu|(appname|
|000003f0| 24 2b 22 2f 49 6e 66 6f | 2f 51 75 69 74 22 2c 30 |$+"/Info|/Quit",0|
|00000400| 29 0d 01 04 29 f2 77 69 | 6d 70 5f 61 74 74 61 63 |)...).wi|mp_attac|
|00000410| 68 73 75 62 6d 65 6e 75 | 28 62 61 72 6d 65 6e 75 |hsubmenu|(barmenu|
|00000420| 25 2c 31 2c 69 6e 66 6f | 25 29 0d 01 0e 2e 72 65 |%,1,info|%)....re|
|00000430| 6e 61 6d 65 6d 65 6e 75 | 25 3d a4 77 69 6d 70 5f |namemenu|%=.wimp_|
|00000440| 63 72 65 61 74 65 6d 65 | 6e 75 28 22 52 65 6e 61 |createme|nu("Rena|
|00000450| 6d 65 2f 20 22 2c 30 29 | 0d 01 18 30 66 69 6c 65 |me/ ",0)|...0file|
|00000460| 6d 65 6e 75 25 3d a4 77 | 69 6d 70 5f 63 72 65 61 |menu%=.w|imp_crea|
|00000470| 74 65 6d 65 6e 75 28 22 | 46 69 6c 65 2f 52 65 6e |temenu("|File/Ren|
|00000480| 61 6d 65 22 2c 32 30 29 | 0d 01 22 30 f2 77 69 6d |ame",20)|.."0.wim|
|00000490| 70 5f 61 74 74 61 63 68 | 73 75 62 6d 65 6e 75 28 |p_attach|submenu(|
|000004a0| 66 69 6c 65 6d 65 6e 75 | 25 2c 31 2c 72 65 6e 61 |filemenu|%,1,rena|
|000004b0| 6d 65 6d 65 6e 75 25 29 | 0d 01 2c 3a 6d 61 69 6e |memenu%)|..,:main|
|000004c0| 6d 65 6e 75 25 3d a4 77 | 69 6d 70 5f 63 72 65 61 |menu%=.w|imp_crea|
|000004d0| 74 65 6d 65 6e 75 28 61 | 70 70 6e 61 6d 65 24 2b |temenu(a|ppname$+|
|000004e0| 22 2f 49 6e 66 6f 2f 46 | 69 6c 65 20 27 27 22 2c |"/Info/F|ile ''",|
|000004f0| 30 29 0d 01 36 2a f2 77 | 69 6d 70 5f 61 74 74 61 |0)..6*.w|imp_atta|
|00000500| 63 68 73 75 62 6d 65 6e | 75 28 6d 61 69 6e 6d 65 |chsubmen|u(mainme|
|00000510| 6e 75 25 2c 31 2c 69 6e | 66 6f 25 29 0d 01 40 2e |nu%,1,in|fo%)..@.|
|00000520| f2 77 69 6d 70 5f 61 74 | 74 61 63 68 73 75 62 6d |.wimp_at|tachsubm|
|00000530| 65 6e 75 28 6d 61 69 6e | 6d 65 6e 75 25 2c 32 2c |enu(main|menu%,2,|
|00000540| 66 69 6c 65 6d 65 6e 75 | 25 29 0d 01 4a 04 0d 01 |filemenu|%)..J...|
|00000550| 54 66 20 20 f4 20 2a 2a | 4d 61 6b 65 20 66 69 72 |Tf  . **|Make fir|
|00000560| 73 74 20 28 69 6e 20 74 | 68 69 73 20 63 61 73 65 |st (in t|his case|
|00000570| 20 6f 6e 6c 79 29 20 69 | 74 65 6d 20 6f 6e 20 72 | only) i|tem on r|
|00000580| 65 6e 61 6d 65 20 6d 65 | 6e 75 20 77 72 69 74 65 |ename me|nu write|
|00000590| 61 62 6c 65 2e 20 4d 61 | 78 20 6c 65 6e 67 74 68 |able. Ma|x length|
|000005a0| 20 6f 66 20 74 65 78 74 | 20 74 6f 20 65 6e 74 65 | of text| to ente|
|000005b0| 72 20 69 73 0d 01 5e 17 | 20 20 f4 20 31 30 20 63 |r is..^.|  . 10 c|
|000005c0| 68 61 72 61 63 74 65 72 | 73 2a 2a 0d 01 68 25 f2 |haracter|s**..h%.|
|000005d0| 77 69 6d 70 5f 6d 65 6e | 75 77 72 69 74 65 28 72 |wimp_men|uwrite(r|
|000005e0| 65 6e 61 6d 65 6d 65 6e | 75 25 2c 31 2c 31 30 29 |enamemen|u%,1,10)|
|000005f0| 0d 01 72 04 0d 01 7c 39 | 20 20 f4 20 2a 2a 41 64 |..r...|9|  . **Ad|
|00000600| 64 20 64 6f 74 74 65 64 | 20 6c 69 6e 65 20 61 66 |d dotted| line af|
|00000610| 74 65 72 20 66 69 72 73 | 74 20 69 74 65 6d 20 6f |ter firs|t item o|
|00000620| 6e 20 66 69 6c 65 20 6d | 65 6e 75 2a 2a 0d 01 86 |n file m|enu**...|
|00000630| 25 f2 77 69 6d 70 5f 6d | 65 6e 75 64 6f 74 74 65 |%.wimp_m|enudotte|
|00000640| 64 6c 69 6e 65 28 66 69 | 6c 65 6d 65 6e 75 25 2c |dline(fi|lemenu%,|
|00000650| 31 29 0d 01 90 04 0d 01 | 9a 28 20 20 f4 20 2a 2a |1)......|.(  . **|
|00000660| 50 6f 6c 6c 20 74 68 65 | 20 77 69 6d 70 20 75 6e |Poll the| wimp un|
|00000670| 74 69 6c 20 66 69 6e 69 | 73 68 65 64 2a 2a 0d 01 |til fini|shed**..|
|00000680| a4 0e f2 77 69 6d 70 5f | 70 6f 6c 6c 0d 01 ae 05 |...wimp_|poll....|
|00000690| e0 0d 01 b8 05 3a 0d 01 | c2 43 dd 20 f2 75 73 65 |.....:..|.C. .use|
|000006a0| 72 5f 72 65 64 72 61 77 | 28 77 69 6e 64 6f 77 25 |r_redraw|(window%|
|000006b0| 2c 6d 69 6e 78 25 2c 6d | 69 6e 79 25 2c 6d 61 78 |,minx%,m|iny%,max|
|000006c0| 78 25 2c 6d 61 78 79 25 | 2c 70 72 69 6e 74 69 6e |x%,maxy%|,printin|
|000006d0| 67 25 2c 70 61 67 65 25 | 29 0d 01 cc 05 e1 0d 01 |g%,page%|).......|
|000006e0| d6 05 3a 0d 01 e0 3b dd | 20 f2 75 73 65 72 5f 6d |..:...;.| .user_m|
|000006f0| 6f 75 73 65 63 6c 69 63 | 6b 28 77 69 6e 64 6f 77 |ouseclic|k(window|
|00000700| 25 2c 69 63 6f 6e 25 2c | 62 75 74 74 6f 6e 25 2c |%,icon%,|button%,|
|00000710| 77 6f 72 6b 78 25 2c 77 | 6f 72 6b 79 25 29 0d 01 |workx%,w|orky%)..|
|00000720| ea 04 0d 01 f4 62 20 20 | f4 20 2a 2a 49 66 20 69 |.....b  |. **If i|
|00000730| 63 6f 6e 62 61 72 20 69 | 63 6f 6e 20 63 6c 69 63 |conbar i|con clic|
|00000740| 6b 65 64 20 6f 6e 20 74 | 68 65 20 6f 70 65 6e 20 |ked on t|he open |
|00000750| 6d 61 69 6e 20 77 69 6e | 64 6f 77 20 69 6e 20 74 |main win|dow in t|
|00000760| 68 65 20 63 65 6e 74 72 | 65 20 6f 66 20 74 68 65 |he centr|e of the|
|00000770| 20 73 63 72 65 65 6e 20 | 6f 6e 20 74 68 65 20 74 | screen |on the t|
|00000780| 6f 70 2a 2a 0d 01 fe 2f | e7 20 77 69 6e 64 6f 77 |op**.../|. window|
|00000790| 25 3d 62 61 72 25 20 f2 | 77 69 6d 70 5f 6f 70 65 |%=bar% .|wimp_ope|
|000007a0| 6e 77 69 6e 64 6f 77 28 | 6d 61 69 6e 25 2c 31 2c |nwindow(|main%,1,|
|000007b0| 2d 31 29 0d 02 08 05 e1 | 0d 02 12 05 3a 0d 02 1c |-1).....|....:...|
|000007c0| 1f dd 20 a4 75 73 65 72 | 5f 6d 65 6e 75 28 77 69 |.. .user|_menu(wi|
|000007d0| 6e 64 6f 77 25 2c 69 63 | 6f 6e 25 29 0d 02 26 04 |ndow%,ic|on%)..&.|
|000007e0| 0d 02 30 4c 20 20 f4 20 | 2a 2a 41 74 74 61 63 68 |..0L  . |**Attach|
|000007f0| 20 69 63 6f 6e 62 61 72 | 20 6d 65 6e 75 20 74 6f | iconbar| menu to|
|00000800| 20 69 63 6f 6e 62 61 72 | 20 69 63 6f 6e 20 61 6e | iconbar| icon an|
|00000810| 64 20 6d 61 69 6e 20 6d | 65 6e 75 20 74 6f 20 6d |d main m|enu to m|
|00000820| 61 69 6e 20 77 69 6e 64 | 6f 77 2a 2a 0d 02 3a 1c |ain wind|ow**..:.|
|00000830| e7 20 77 69 6e 64 6f 77 | 25 3d 62 61 72 25 20 3d |. window|%=bar% =|
|00000840| 62 61 72 6d 65 6e 75 25 | 0d 02 44 1e e7 20 77 69 |barmenu%|..D.. wi|
|00000850| 6e 64 6f 77 25 3d 6d 61 | 69 6e 25 20 3d 6d 61 69 |ndow%=ma|in% =mai|
|00000860| 6e 6d 65 6e 75 25 0d 02 | 4e 06 3d 30 0d 02 58 05 |nmenu%..|N.=0..X.|
|00000870| 3a 0d 02 62 2c dd 20 f2 | 75 73 65 72 5f 6f 70 65 |:..b,. .|user_ope|
|00000880| 6e 77 69 6e 64 6f 77 28 | 77 69 6e 64 6f 77 25 2c |nwindow(|window%,|
|00000890| 78 25 2c 79 25 2c 73 74 | 61 63 6b 25 29 0d 02 6c |x%,y%,st|ack%)..l|
|000008a0| 05 e1 0d 02 76 05 3a 0d | 02 80 20 dd 20 f2 75 73 |....v.:.|.. . .us|
|000008b0| 65 72 5f 63 6c 6f 73 65 | 77 69 6e 64 6f 77 28 77 |er_close|window(w|
|000008c0| 69 6e 64 6f 77 25 29 0d | 02 8a 05 e1 0d 02 94 05 |indow%).|........|
|000008d0| 3a 0d 02 9e 27 dd 20 a4 | 75 73 65 72 5f 6b 65 79 |:...'. .|user_key|
|000008e0| 70 72 65 73 73 28 77 69 | 6e 64 6f 77 25 2c 69 63 |press(wi|ndow%,ic|
|000008f0| 6f 6e 25 2c 6b 65 79 29 | 0d 02 a8 06 3d 30 0d 02 |on%,key)|....=0..|
|00000900| b2 05 3a 0d 02 bc 26 dd | 20 f2 75 73 65 72 5f 6d |..:...&.| .user_m|
|00000910| 65 6e 75 73 65 6c 65 63 | 74 69 6f 6e 28 6d 65 6e |enuselec|tion(men|
|00000920| 75 25 2c 69 74 65 6d 25 | 29 0d 02 c6 04 0d 02 d0 |u%,item%|).......|
|00000930| 6f 20 20 f4 20 2a 2a 49 | 66 20 69 74 65 6d 20 32 |o  . **I|f item 2|
|00000940| 20 28 51 75 69 74 29 20 | 6f 6e 20 69 63 6f 6e 62 | (Quit) |on iconb|
|00000950| 61 72 20 6d 65 6e 75 20 | 63 68 6f 73 65 6e 20 74 |ar menu |chosen t|
|00000960| 68 65 6e 20 73 65 74 20 | 66 69 6e 69 73 68 65 64 |hen set |finished|
|00000970| 25 20 74 6f 20 54 52 55 | 45 20 73 6f 20 61 70 70 |% to TRU|E so app|
|00000980| 20 71 75 69 74 73 20 61 | 74 20 66 69 72 73 74 20 | quits a|t first |
|00000990| 6f 70 70 6f 74 75 6e 69 | 74 79 2a 2a 0d 02 da 2a |oppotuni|ty**...*|
|000009a0| e7 20 6d 65 6e 75 25 3d | 62 61 72 6d 65 6e 75 25 |. menu%=|barmenu%|
|000009b0| 20 80 20 69 74 65 6d 25 | 3d 32 20 66 69 6e 69 73 | . item%|=2 finis|
|000009c0| 68 65 64 25 3d b9 0d 02 | e4 04 0d 02 ee 56 20 20 |hed%=...|.....V  |
|000009d0| f4 20 2a 2a 49 66 20 69 | 74 65 6d 20 69 6e 20 72 |. **If i|tem in r|
|000009e0| 65 6e 61 6d 65 20 6d 65 | 6e 75 20 73 65 6c 65 63 |ename me|nu selec|
|000009f0| 74 65 64 20 6f 72 20 72 | 65 74 75 72 6e 20 70 72 |ted or r|eturn pr|
|00000a00| 65 73 73 65 64 20 77 68 | 65 6e 20 63 61 72 65 74 |essed wh|en caret|
|00000a10| 20 69 6e 20 69 74 20 74 | 68 65 6e 2e 2e 2e 2a 2a | in it t|hen...**|
|00000a20| 0d 02 f8 23 e7 20 6d 65 | 6e 75 25 3d 72 65 6e 61 |...#. me|nu%=rena|
|00000a30| 6d 65 6d 65 6e 75 25 20 | 80 20 69 74 65 6d 25 3d |memenu% |. item%=|
|00000a40| 31 20 8c 0d 03 02 04 0d | 03 0c 5e 20 20 20 20 f4 |1 ......|..^    .|
|00000a50| 20 2a 2a 47 65 74 20 74 | 65 78 74 20 66 72 6f 6d | **Get t|ext from|
|00000a60| 20 66 69 72 73 74 20 69 | 74 65 6d 20 6f 66 20 72 | first i|tem of r|
|00000a70| 65 6e 61 6d 65 20 6d 65 | 6e 75 20 61 6e 64 20 70 |ename me|nu and p|
|00000a80| 75 74 20 69 6e 74 6f 20 | 63 75 72 72 65 6e 74 69 |ut into |currenti|
|00000a90| 63 6f 6e 25 20 69 6e 20 | 6d 61 69 6e 20 77 69 6e |con% in |main win|
|00000aa0| 64 6f 77 2a 2a 0d 03 16 | 52 20 20 20 20 f4 20 2a |dow**...|R    . *|
|00000ab0| 2a 63 75 72 72 65 6e 74 | 69 63 6f 6e 25 20 73 65 |*current|icon% se|
|00000ac0| 74 20 75 70 20 77 68 65 | 6e 20 6d 61 69 6e 20 6d |t up whe|n main m|
|00000ad0| 65 6e 75 20 69 73 20 6f | 70 65 6e 65 64 20 6f 76 |enu is o|pened ov|
|00000ae0| 65 72 20 61 6e 20 69 63 | 6f 6e 2e 20 53 65 65 20 |er an ic|on. See |
|00000af0| 62 65 6c 6f 77 2a 2a 0d | 03 20 29 20 20 66 24 3d |below**.|. )  f$=|
|00000b00| a4 77 69 6d 70 5f 67 65 | 74 6d 65 6e 75 74 65 78 |.wimp_ge|tmenutex|
|00000b10| 74 28 72 65 6e 61 6d 65 | 6d 65 6e 75 25 2c 31 29 |t(rename|menu%,1)|
|00000b20| 0d 03 2a 2e 20 20 f2 77 | 69 6d 70 5f 70 75 74 69 |..*.  .w|imp_puti|
|00000b30| 63 6f 6e 74 65 78 74 28 | 6d 61 69 6e 25 2c 63 75 |context(|main%,cu|
|00000b40| 72 72 65 6e 74 69 63 6f | 6e 25 2c 66 24 29 0d 03 |rrentico|n%,f$)..|
|00000b50| 34 05 cd 0d 03 3e 05 e1 | 0d 03 48 05 3a 0d 03 52 |4....>..|..H.:..R|
|00000b60| 21 dd 20 a4 75 73 65 72 | 5f 73 61 76 65 66 69 6c |!. .user|_savefil|
|00000b70| 65 74 79 70 65 28 77 69 | 6e 64 6f 77 25 29 0d 03 |etype(wi|ndow%)..|
|00000b80| 5c 07 3d 22 22 0d 03 66 | 05 3a 0d 03 70 34 dd 20 |\.=""..f|.:..p4. |
|00000b90| f2 75 73 65 72 5f 73 61 | 76 65 69 63 6f 6e 28 77 |.user_sa|veicon(w|
|00000ba0| 69 6e 64 6f 77 25 2c f8 | 20 64 72 61 67 25 2c f8 |indow%,.| drag%,.|
|00000bb0| 20 77 72 69 74 65 25 2c | f8 20 6f 6b 25 29 0d 03 | write%,|. ok%)..|
|00000bc0| 7a 05 e1 0d 03 84 05 3a | 0d 03 8e 23 dd 20 a4 75 |z......:|...#. .u|
|00000bd0| 73 65 72 5f 73 61 76 65 | 64 61 74 61 28 70 61 74 |ser_save|data(pat|
|00000be0| 68 24 2c 77 69 6e 64 6f | 77 25 29 0d 03 98 06 3d |h$,windo|w%)....=|
|00000bf0| 31 0d 03 a2 05 3a 0d 03 | ac 1f dd 20 a4 75 73 65 |1....:..|... .use|
|00000c00| 72 5f 68 65 6c 70 28 77 | 69 6e 64 6f 77 25 2c 69 |r_help(w|indow%,i|
|00000c10| 63 6f 6e 25 29 0d 03 b6 | 07 3d 22 22 0d 03 c0 05 |con%)...|.=""....|
|00000c20| 3a 0d 03 ca 3e dd 20 a4 | 75 73 65 72 5f 6c 6f 61 |:...>. .|user_loa|
|00000c30| 64 64 61 74 61 28 70 61 | 74 68 24 2c 77 69 6e 64 |ddata(pa|th$,wind|
|00000c40| 6f 77 25 2c 69 63 6f 6e | 25 2c 66 74 79 70 65 24 |ow%,icon|%,ftype$|
|00000c50| 2c 77 6f 72 6b 78 25 2c | 77 6f 72 6b 79 25 29 0d |,workx%,|worky%).|
|00000c60| 03 d4 06 3d 30 0d 03 de | 05 3a 0d 03 e8 23 dd 20 |...=0...|.:...#. |
|00000c70| f2 75 73 65 72 5f 65 6e | 74 65 72 69 6e 67 77 69 |.user_en|teringwi|
|00000c80| 6e 64 6f 77 28 77 69 6e | 64 6f 77 25 29 0d 03 f2 |ndow(win|dow%)...|
|00000c90| 05 e1 0d 03 fc 05 3a 0d | 04 06 22 dd 20 f2 75 73 |......:.|..". .us|
|00000ca0| 65 72 5f 6c 65 61 76 69 | 6e 67 77 69 6e 64 6f 77 |er_leavi|ngwindow|
|00000cb0| 28 77 69 6e 64 6f 77 25 | 29 0d 04 10 05 e1 0d 04 |(window%|).......|
|00000cc0| 1a 05 3a 0d 04 24 19 dd | 20 a4 75 73 65 72 5f 70 |..:..$..| .user_p|
|00000cd0| 61 6e 65 28 77 69 6e 64 | 6f 77 25 29 0d 04 2e 07 |ane(wind|ow%)....|
|00000ce0| 3d 2d 31 0d 04 38 05 3a | 0d 04 42 10 dd 20 f2 75 |=-1..8.:|..B.. .u|
|00000cf0| 73 65 72 5f 6e 75 6c 6c | 0d 04 4c 05 e1 0d 04 56 |ser_null|..L....V|
|00000d00| 05 3a 0d 04 60 21 dd 20 | f2 75 73 65 72 5f 6d 65 |.:..`!. |.user_me|
|00000d10| 6e 75 6f 70 65 6e 28 6d | 65 6e 75 25 2c 69 63 6f |nuopen(m|enu%,ico|
|00000d20| 6e 25 29 0d 04 6a 04 0d | 04 74 27 20 20 f4 20 2a |n%)..j..|.t'  . *|
|00000d30| 2a 49 66 20 6d 65 6e 75 | 20 6d 65 6e 75 20 6f 70 |*If menu| menu op|
|00000d40| 65 6e 65 64 20 74 68 65 | 6e 2e 2e 2e 2a 2a 0d 04 |ened the|n...**..|
|00000d50| 7e 17 e7 20 6d 65 6e 75 | 25 3d 6d 61 69 6e 6d 65 |~.. menu|%=mainme|
|00000d60| 6e 75 25 20 8c 0d 04 88 | 12 20 20 e7 20 69 63 6f |nu% ....|.  . ico|
|00000d70| 6e 25 3d 2d 31 20 8c 0d | 04 92 04 0d 04 9c 61 20 |n%=-1 ..|......a |
|00000d80| 20 20 20 20 20 f4 20 2a | 2a 49 66 20 70 6f 69 6e |     . *|*If poin|
|00000d90| 74 65 72 20 77 61 73 20 | 6e 6f 74 20 6f 76 65 72 |ter was |not over|
|00000da0| 20 61 6e 20 69 63 6f 6e | 20 74 68 65 6e 20 73 65 | an icon| then se|
|00000db0| 74 20 73 65 63 6f 6e 64 | 20 69 74 65 6d 20 6f 66 |t second| item of|
|00000dc0| 20 6d 61 69 6e 20 6d 65 | 6e 75 20 61 6e 64 20 67 | main me|nu and g|
|00000dd0| 72 65 79 20 69 74 20 6f | 75 74 2a 2a 0d 04 a6 30 |rey it o|ut**...0|
|00000de0| 20 20 20 20 f2 77 69 6d | 70 5f 70 75 74 6d 65 6e |    .wim|p_putmen|
|00000df0| 75 74 65 78 74 28 6d 61 | 69 6e 6d 65 6e 75 25 2c |utext(ma|inmenu%,|
|00000e00| 32 2c 22 46 69 6c 65 20 | 27 27 22 29 0d 04 b0 26 |2,"File |''")...&|
|00000e10| 20 20 20 20 f2 77 69 6d | 70 5f 6d 65 6e 75 64 69 |    .wim|p_menudi|
|00000e20| 73 61 62 6c 65 28 6d 61 | 69 6e 6d 65 6e 75 25 2c |sable(ma|inmenu%,|
|00000e30| 32 29 0d 04 ba 07 20 20 | cc 0d 04 c4 04 0d 04 ce |2)....  |........|
|00000e40| 5e 20 20 20 20 20 20 f4 | 20 2a 2a 49 66 20 70 6f |^      .| **If po|
|00000e50| 69 6e 74 65 72 20 6f 76 | 65 72 20 61 6e 20 69 63 |inter ov|er an ic|
|00000e60| 6f 6e 20 74 68 65 6e 20 | 67 65 74 20 69 63 6f 6e |on then |get icon|
|00000e70| 20 74 65 78 74 2c 20 69 | 6e 73 65 72 74 20 69 6e | text, i|nsert in|
|00000e80| 74 6f 20 73 65 6e 64 20 | 69 74 65 6d 20 6f 6e 20 |to send |item on |
|00000e90| 6d 61 69 6e 20 6d 65 6e | 75 2a 2a 0d 04 d8 40 20 |main men|u**...@ |
|00000ea0| 20 20 20 20 20 f4 20 2a | 2a 75 6e 2d 67 72 65 79 |     . *|*un-grey|
|00000eb0| 20 6f 75 74 20 73 65 63 | 6f 6e 64 20 69 74 65 6d | out sec|ond item|
|00000ec0| 20 73 6f 20 73 75 62 6d | 65 6e 75 20 63 61 6e 20 | so subm|enu can |
|00000ed0| 62 65 20 6f 70 65 6e 65 | 64 2a 2a 0d 04 e2 29 20 |be opene|d**...) |
|00000ee0| 20 20 20 66 24 3d a4 77 | 69 6d 70 5f 67 65 74 69 |   f$=.w|imp_geti|
|00000ef0| 63 6f 6e 74 65 78 74 28 | 6d 61 69 6e 25 2c 69 63 |context(|main%,ic|
|00000f00| 6f 6e 25 29 0d 04 ec 36 | 20 20 20 20 f2 77 69 6d |on%)...6|    .wim|
|00000f10| 70 5f 70 75 74 6d 65 6e | 75 74 65 78 74 28 6d 61 |p_putmen|utext(ma|
|00000f20| 69 6e 6d 65 6e 75 25 2c | 32 2c 22 46 69 6c 65 20 |inmenu%,|2,"File |
|00000f30| 27 22 2b 66 24 2b 22 27 | 22 29 0d 04 f6 25 20 20 |'"+f$+"'|")...%  |
|00000f40| 20 20 f2 77 69 6d 70 5f | 6d 65 6e 75 65 6e 61 62 |  .wimp_|menuenab|
|00000f50| 6c 65 28 6d 61 69 6e 6d | 65 6e 75 25 2c 32 29 0d |le(mainm|enu%,2).|
|00000f60| 05 00 04 0d 05 0a 49 20 | 20 20 20 20 20 f4 20 2a |......I |     . *|
|00000f70| 2a 47 65 74 20 6e 75 6d | 62 65 72 20 6f 66 20 69 |*Get num|ber of i|
|00000f80| 74 65 6d 73 20 69 6e 20 | 66 69 6c 65 20 6d 65 6e |tems in |file men|
|00000f90| 75 2c 20 61 6e 64 20 69 | 6e 63 72 65 6d 65 6e 74 |u, and i|ncrement|
|00000fa0| 20 74 68 65 20 76 61 6c | 75 65 2a 2a 0d 05 14 5d | the val|ue**...]|
|00000fb0| 20 20 20 20 20 20 f4 20 | 2a 2a 49 66 20 6c 65 73 |      . |**If les|
|00000fc0| 73 20 74 68 61 6e 20 6f | 72 20 65 71 75 61 6c 20 |s than o|r equal |
|00000fd0| 74 6f 20 74 68 65 20 6d | 61 78 20 76 61 6c 75 65 |to the m|ax value|
|00000fe0| 20 28 73 65 65 20 77 68 | 65 72 65 20 74 68 65 20 | (see wh|ere the |
|00000ff0| 6d 65 6e 75 20 69 73 20 | 63 72 65 61 74 65 64 20 |menu is |created |
|00001000| 61 74 20 74 6f 70 29 2a | 2a 0d 05 1e 3a 20 20 20 |at top)*|*...:   |
|00001010| 20 20 20 f4 20 2a 2a 54 | 68 65 6e 20 61 64 64 20 |   . **T|hen add |
|00001020| 66 69 6c 65 6e 61 6d 65 | 20 6f 6e 74 6f 20 62 6f |filename| onto bo|
|00001030| 74 74 6f 6d 20 6f 66 20 | 66 69 6c 65 20 6d 65 6e |ttom of |file men|
|00001040| 75 2a 2a 0d 05 28 2e 20 | 20 20 20 66 69 6c 65 6d |u**..(. |   filem|
|00001050| 65 6e 75 6c 65 6e 25 3d | a4 77 69 6d 70 5f 6d 65 |enulen%=|.wimp_me|
|00001060| 6e 75 73 69 7a 65 28 66 | 69 6c 65 6d 65 6e 75 25 |nusize(f|ilemenu%|
|00001070| 29 0d 05 32 17 20 20 20 | 20 66 69 6c 65 6d 65 6e |)..2.   | filemen|
|00001080| 75 6c 65 6e 25 2b 3d 31 | 0d 05 3c 47 20 20 20 20 |ulen%+=1|..<G    |
|00001090| e7 20 66 69 6c 65 6d 65 | 6e 75 6c 65 6e 25 3c 3d |. fileme|nulen%<=|
|000010a0| 32 30 20 f2 77 69 6d 70 | 5f 70 75 74 6d 65 6e 75 |20 .wimp|_putmenu|
|000010b0| 69 74 65 6d 28 66 69 6c | 65 6d 65 6e 75 25 2c 66 |item(fil|emenu%,f|
|000010c0| 69 6c 65 6d 65 6e 75 6c | 65 6e 25 2c 66 24 29 0d |ilemenul|en%,f$).|
|000010d0| 05 46 04 0d 05 50 5a 20 | 20 20 20 20 20 f4 20 2a |.F...PZ |     . *|
|000010e0| 2a 53 74 6f 72 65 20 74 | 68 65 20 69 63 6f 6e 20 |*Store t|he icon |
|000010f0| 6e 75 6d 62 65 72 20 6f | 66 20 74 68 65 20 69 63 |number o|f the ic|
|00001100| 6f 6e 20 74 68 65 20 70 | 6f 69 6e 74 65 72 20 77 |on the p|ointer w|
|00001110| 61 73 20 6f 70 65 6e 65 | 64 20 66 6f 72 20 75 73 |as opene|d for us|
|00001120| 65 20 6f 66 20 72 65 6e | 61 6d 65 2a 2a 0d 05 5a |e of ren|ame**..Z|
|00001130| 1a 20 20 20 20 63 75 72 | 72 65 6e 74 69 63 6f 6e |.    cur|renticon|
|00001140| 25 3d 69 63 6f 6e 25 0d | 05 64 07 20 20 cd 0d 05 |%=icon%.|.d.  ...|
|00001150| 6e 05 cd 0d 05 78 05 e1 | 0d 05 82 05 3a 0d 05 8c |n....x..|....:...|
|00001160| 25 dd 20 a4 75 73 65 72 | 5f 73 6c 69 64 65 72 62 |%. .user|_sliderb|
|00001170| 61 63 6b 28 77 69 6e 64 | 6f 77 25 2c 69 63 6f 6e |ack(wind|ow%,icon|
|00001180| 25 29 0d 05 96 07 3d 2d | 31 0d 05 a0 05 3a 0d 05 |%)....=-|1....:..|
|00001190| aa 21 dd 20 a4 75 73 65 | 72 5f 73 6c 69 64 65 72 |.!. .use|r_slider|
|000011a0| 28 77 69 6e 64 6f 77 25 | 2c 69 63 6f 6e 25 29 0d |(window%|,icon%).|
|000011b0| 05 b4 07 3d 2d 31 0d 05 | be 05 3a 0d 05 c8 2d dd |...=-1..|..:...-.|
|000011c0| 20 f2 75 73 65 72 5f 73 | 6c 69 64 65 72 76 61 6c | .user_s|liderval|
|000011d0| 75 65 28 77 69 6e 64 6f | 77 25 2c 69 63 6f 6e 25 |ue(windo|w%,icon%|
|000011e0| 2c 70 63 65 6e 74 25 29 | 0d 05 d2 05 e1 0d 05 dc |,pcent%)|........|
|000011f0| 05 3a 0d 05 e6 16 dd 20 | f2 75 73 65 72 5f 6d 6f |.:..... |.user_mo|
|00001200| 64 65 63 68 61 6e 67 65 | 0d 05 f0 05 e1 0d 05 fa |dechange|........|
|00001210| 05 3a 0d 06 04 21 dd 20 | a4 75 73 65 72 5f 6d 65 |.:...!. |.user_me|
|00001220| 6e 75 68 65 6c 70 28 6d | 65 6e 75 25 2c 69 74 65 |nuhelp(m|enu%,ite|
|00001230| 6d 25 29 0d 06 0e 07 3d | 22 22 0d 06 18 05 3a 0d |m%)....=|""....:.|
|00001240| 06 22 18 dd 20 f2 75 73 | 65 72 5f 64 65 63 6c 61 |.".. .us|er_decla|
|00001250| 72 65 66 6f 6e 74 73 0d | 06 2c 05 e1 0d 06 36 05 |refonts.|.,....6.|
|00001260| 3a 0d 06 40 30 dd 20 f2 | 75 73 65 72 5f 70 72 69 |:..@0. .|user_pri|
|00001270| 6e 74 28 6d 69 6e 78 25 | 2c 6d 69 6e 79 25 2c 6d |nt(minx%|,miny%,m|
|00001280| 61 78 78 25 2c 6d 61 78 | 79 25 2c 70 61 67 65 25 |axx%,max|y%,page%|
|00001290| 29 0d 06 4a 05 e1 0d 06 | 54 05 3a 0d 06 5e 34 dd |)..J....|T.:..^4.|
|000012a0| 20 a4 75 73 65 72 5f 70 | 72 69 6e 74 69 6e 67 28 | .user_p|rinting(|
|000012b0| 63 6f 70 79 25 2c 70 61 | 67 65 25 2c 74 6f 74 70 |copy%,pa|ge%,totp|
|000012c0| 61 67 65 73 25 2c 70 61 | 67 65 70 6f 73 25 29 0d |ages%,pa|gepos%).|
|000012d0| 06 68 06 3d 30 0d 06 72 | 05 3a 0d 06 7c 19 dd 20 |.h.=0..r|.:..|.. |
|000012e0| f2 75 73 65 72 5f 70 72 | 69 6e 74 65 72 63 68 61 |.user_pr|intercha|
|000012f0| 6e 67 65 0d 06 86 05 e1 | 0d ff                   |nge.....|..      |
+--------+-------------------------+-------------------------+--------+--------+