home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2001-01-29 | 21.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2f 2a 0a 20 2a 0a 20 2a | 20 00 24 56 45 52 3a 20 |/*. *. *| .$VER: |
|00000010| 44 6f 63 73 42 72 6f 77 | 73 65 72 2e 72 65 78 78 |DocsBrow|ser.rexx|
|00000020| 20 34 2e 33 20 28 32 32 | 2e 31 2e 32 30 30 31 29 | 4.3 (22|.1.2001)|
|00000030| 00 0a 20 2a 20 41 20 67 | 6f 6f 64 20 52 78 4d 55 |.. * A g|ood RxMU|
|00000040| 49 20 70 72 6f 67 72 61 | 6d 6d 69 6e 67 20 65 78 |I progra|mming ex|
|00000050| 61 6d 70 6c 65 2e 0a 20 | 2a 20 41 20 67 6f 6f 64 |ample.. |* A good|
|00000060| 20 52 78 4d 55 49 20 48 | 54 4d 4c 20 64 6f 63 75 | RxMUI H|TML docu|
|00000070| 6d 65 6e 74 61 74 69 6f | 6e 20 62 72 6f 77 73 65 |mentatio|n browse|
|00000080| 72 2e 0a 20 2a 0a 20 2a | 2f 0a 0a 73 69 67 6e 61 |r.. *. *|/..signa|
|00000090| 6c 20 6f 6e 20 68 61 6c | 74 0a 73 69 67 6e 61 6c |l on hal|t.signal|
|000000a0| 20 6f 6e 20 62 72 65 61 | 6b 5f 63 0a 0a 63 61 6c | on brea|k_c..cal|
|000000b0| 6c 20 53 74 61 72 74 49 | 6e 69 74 28 29 0a 63 61 |l StartI|nit().ca|
|000000c0| 6c 6c 20 53 74 61 72 74 | 43 72 65 61 74 65 41 70 |ll Start|CreateAp|
|000000d0| 70 28 29 0a 63 61 6c 6c | 20 46 69 6e 69 73 68 49 |p().call| FinishI|
|000000e0| 6e 69 74 28 29 0a 63 61 | 6c 6c 20 46 69 6e 69 73 |nit().ca|ll Finis|
|000000f0| 68 43 72 65 61 74 65 41 | 70 70 28 29 0a 63 61 6c |hCreateA|pp().cal|
|00000100| 6c 20 41 64 76 61 6e 63 | 65 49 6e 74 72 6f 28 22 |l Advanc|eIntro("|
|00000110| 4c 6f 61 64 69 6e 67 20 | 64 6f 63 73 2e 2e 2e 22 |Loading |docs..."|
|00000120| 29 0a 63 61 6c 6c 20 73 | 65 74 28 22 6d 77 69 6e |).call s|et("mwin|
|00000130| 22 2c 22 4f 70 65 6e 22 | 2c 31 29 0a 63 61 6c 6c |","Open"|,1).call|
|00000140| 20 47 65 74 41 74 74 72 | 28 22 6d 77 69 6e 22 2c | GetAttr|("mwin",|
|00000150| 22 4f 70 65 6e 22 2c 22 | 4f 22 29 0a 69 66 20 7e |"Open","|O").if ~|
|00000160| 6f 20 74 68 65 6e 20 64 | 6f 0a 20 20 20 20 63 61 |o then d|o. ca|
|00000170| 6c 6c 20 45 61 73 79 52 | 65 71 75 65 73 74 28 22 |ll EasyR|equest("|
|00000180| 43 61 6e 27 74 20 6f 70 | 65 6e 20 77 69 6e 64 6f |Can't op|en windo|
|00000190| 77 22 29 0a 20 20 20 20 | 65 78 69 74 0a 65 6e 64 |w"). |exit.end|
|000001a0| 0a 63 61 6c 6c 20 41 64 | 76 61 6e 63 65 49 6e 74 |.call Ad|vanceInt|
|000001b0| 72 6f 28 22 44 6f 6e 65 | 2e 22 29 0a 63 61 6c 6c |ro("Done|.").call|
|000001c0| 20 44 69 73 70 6f 73 65 | 28 22 69 77 69 6e 22 29 | Dispose|("iwin")|
|000001d0| 0a 63 61 6c 6c 20 48 61 | 6e 64 6c 65 41 70 70 0a |.call Ha|ndleApp.|
|000001e0| 0a 2f 2a 20 6e 65 76 65 | 72 20 72 65 61 63 68 65 |./* neve|r reache|
|000001f0| 64 20 2a 2f 0a 0a 2f 2a | 2a 2a 2a 2a 2a 2a 2a 2a |d */../*|********|
|00000200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2f 0a |********|******/.|
|00000240| 53 74 61 72 74 49 6e 69 | 74 3a 20 70 72 6f 63 65 |StartIni|t: proce|
|00000250| 64 75 72 65 20 65 78 70 | 6f 73 65 20 67 6c 6f 62 |dure exp|ose glob|
|00000260| 61 6c 2e 0a 20 20 20 20 | 6c 3d 22 72 6d 68 2e 6c |al.. |l="rmh.l|
|00000270| 69 62 72 61 72 79 22 3b | 69 66 20 7e 73 68 6f 77 |ibrary";|if ~show|
|00000280| 28 22 4c 22 2c 6c 29 20 | 74 68 65 6e 3b 69 66 20 |("L",l) |then;if |
|00000290| 7e 41 64 64 4c 69 62 28 | 6c 2c 30 2c 2d 33 30 29 |~AddLib(|l,0,-30)|
|000002a0| 20 74 68 65 6e 20 65 78 | 69 74 0a 20 20 20 20 69 | then ex|it. i|
|000002b0| 66 20 41 64 64 4c 69 62 | 72 61 72 79 28 22 72 78 |f AddLib|rary("rx|
|000002c0| 6d 75 69 2e 6c 69 62 72 | 61 72 79 22 29 7e 3d 30 |mui.libr|ary")~=0|
|000002d0| 20 74 68 65 6e 20 65 78 | 69 74 0a 20 20 20 20 63 | then ex|it. c|
|000002e0| 61 6c 6c 20 53 65 74 52 | 78 4d 55 49 53 74 61 63 |all SetR|xMUIStac|
|000002f0| 6b 28 36 34 30 30 30 29 | 0a 20 20 20 20 63 61 6c |k(64000)|. cal|
|00000300| 6c 20 52 78 4d 55 49 4f | 70 74 28 22 44 65 62 75 |l RxMUIO|pt("Debu|
|00000310| 67 4d 6f 64 65 20 53 68 | 6f 77 45 72 72 22 29 0a |gMode Sh|owErr").|
|00000320| 20 20 20 20 63 61 6c 6c | 20 70 72 61 67 6d 61 28 | call| pragma(|
|00000330| 77 2c 6e 29 0a 09 72 65 | 74 75 72 6e 0a 2f 2a 2a |w,n)..re|turn./**|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000380| 2a 2a 2a 2a 2a 2f 0a 46 | 69 6e 69 73 68 49 6e 69 |*****/.F|inishIni|
|00000390| 74 3a 20 70 72 6f 63 65 | 64 75 72 65 20 65 78 70 |t: proce|dure exp|
|000003a0| 6f 73 65 20 67 6c 6f 62 | 61 6c 2e 0a 09 63 61 6c |ose glob|al...cal|
|000003b0| 6c 20 41 64 76 61 6e 63 | 65 49 6e 74 72 6f 28 22 |l Advanc|eIntro("|
|000003c0| 49 6e 69 74 69 61 6c 69 | 7a 69 6e 67 2e 2e 2e 22 |Initiali|zing..."|
|000003d0| 29 0a 0a 20 20 20 20 67 | 6c 6f 62 61 6c 2e 66 69 |).. g|lobal.fi|
|000003e0| 6c 65 3d 22 66 69 6c 65 | 3a 2f 2f 22 41 64 64 50 |le="file|://"AddP|
|000003f0| 61 72 74 28 50 72 6f 67 | 72 61 6d 4e 61 6d 65 28 |art(Prog|ramName(|
|00000400| 22 50 41 54 48 22 29 2c | 22 6d 61 69 6e 2e 68 74 |"PATH"),|"main.ht|
|00000410| 6d 6c 22 29 0a 20 20 20 | 20 67 6c 6f 62 61 6c 2e |ml"). | global.|
|00000420| 68 69 73 74 6f 72 79 2e | 30 2e 75 72 6c 3d 41 64 |history.|0.url=Ad|
|00000430| 64 50 61 72 74 28 50 61 | 74 68 50 61 72 74 28 67 |dPart(Pa|thPart(g|
|00000440| 6c 6f 62 61 6c 2e 66 69 | 6c 65 29 2c 22 69 6e 74 |lobal.fi|le),"int|
|00000450| 72 6f 64 75 63 74 69 6f | 6e 2e 68 74 6d 6c 22 29 |roductio|n.html")|
|00000460| 0a 20 20 20 20 67 6c 6f | 62 61 6c 2e 68 69 73 74 |. glo|bal.hist|
|00000470| 6f 72 79 2e 30 2e 74 61 | 72 67 65 74 3d 22 72 69 |ory.0.ta|rget="ri|
|00000480| 67 68 74 22 0a 20 20 20 | 20 67 6c 6f 62 61 6c 2e |ght". | global.|
|00000490| 68 69 73 74 6f 72 79 2e | 30 2e 70 72 65 64 3d 2d |history.|0.pred=-|
|000004a0| 31 0a 20 20 20 20 67 6c | 6f 62 61 6c 2e 68 69 73 |1. gl|obal.his|
|000004b0| 74 6f 72 79 2e 30 2e 73 | 75 63 63 3d 2d 31 0a 20 |tory.0.s|ucc=-1. |
|000004c0| 20 20 20 67 6c 6f 62 61 | 6c 2e 68 69 73 74 6f 72 | globa|l.histor|
|000004d0| 79 2e 63 75 72 72 65 6e | 74 3d 30 0a 20 20 20 20 |y.curren|t=0. |
|000004e0| 67 6c 6f 62 61 6c 2e 68 | 69 73 74 6f 72 79 2e 6d |global.h|istory.m|
|000004f0| 61 78 3d 31 0a 0a 20 20 | 20 20 67 6c 6f 62 61 6c |ax=1.. | global|
|00000500| 2e 47 61 64 67 65 74 73 | 2e 30 3d 22 69 6d 64 69 |.Gadgets|.0="imdi|
|00000510| 72 22 3b 20 20 20 67 6c | 6f 62 61 6c 2e 47 61 64 |r"; gl|obal.Gad|
|00000520| 67 65 74 73 2e 30 2e 41 | 74 74 72 3d 22 43 6f 6e |gets.0.A|ttr="Con|
|00000530| 74 65 6e 74 73 22 0a 20 | 20 20 20 67 6c 6f 62 61 |tents". | globa|
|00000540| 6c 2e 47 61 64 67 65 74 | 73 2e 31 3d 22 76 6d 22 |l.Gadget|s.1="vm"|
|00000550| 3b 20 20 20 20 20 20 67 | 6c 6f 62 61 6c 2e 47 61 |; g|lobal.Ga|
|00000560| 64 67 65 74 73 2e 31 2e | 41 74 74 72 3d 22 41 63 |dgets.1.|Attr="Ac|
|00000570| 74 69 76 65 22 0a 20 20 | 20 20 67 6c 6f 62 61 6c |tive". | global|
|00000580| 2e 47 61 64 67 65 74 73 | 2e 32 3d 22 73 70 63 22 |.Gadgets|.2="spc"|
|00000590| 3b 20 20 20 20 20 67 6c | 6f 62 61 6c 2e 47 61 64 |; gl|obal.Gad|
|000005a0| 67 65 74 73 2e 32 2e 41 | 74 74 72 3d 22 76 61 6c |gets.2.A|ttr="val|
|000005b0| 75 65 22 0a 20 20 20 20 | 67 6c 6f 62 61 6c 2e 47 |ue". |global.G|
|000005c0| 61 64 67 65 74 73 2e 33 | 3d 22 62 6c 22 3b 20 20 |adgets.3|="bl"; |
|000005d0| 20 20 20 20 67 6c 6f 62 | 61 6c 2e 47 61 64 67 65 | glob|al.Gadge|
|000005e0| 74 73 2e 33 2e 41 74 74 | 72 3d 22 53 65 6c 65 63 |ts.3.Att|r="Selec|
|000005f0| 74 65 64 22 0a 20 20 20 | 20 67 6c 6f 62 61 6c 2e |ted". | global.|
|00000600| 47 61 64 67 65 74 73 2e | 34 3d 22 72 66 22 3b 20 |Gadgets.|4="rf"; |
|00000610| 20 20 20 20 20 67 6c 6f | 62 61 6c 2e 47 61 64 67 | glo|bal.Gadg|
|00000620| 65 74 73 2e 34 2e 41 74 | 74 72 3d 22 53 65 6c 65 |ets.4.At|tr="Sele|
|00000630| 63 74 65 64 22 0a 20 20 | 20 20 67 6c 6f 62 61 6c |cted". | global|
|00000640| 2e 47 61 64 67 65 74 73 | 2e 35 3d 22 73 69 22 3b |.Gadgets|.5="si";|
|00000650| 20 20 20 20 20 20 67 6c | 6f 62 61 6c 2e 47 61 64 | gl|obal.Gad|
|00000660| 67 65 74 73 2e 35 2e 41 | 74 74 72 3d 22 53 65 6c |gets.5.A|ttr="Sel|
|00000670| 65 63 74 65 64 22 0a 20 | 20 20 20 67 6c 6f 62 61 |ected". | globa|
|00000680| 6c 2e 47 61 64 67 65 74 | 73 2e 36 3d 22 73 6e 22 |l.Gadget|s.6="sn"|
|00000690| 3b 20 20 20 20 20 20 67 | 6c 6f 62 61 6c 2e 47 61 |; g|lobal.Ga|
|000006a0| 64 67 65 74 73 2e 36 2e | 41 74 74 72 3d 22 53 65 |dgets.6.|Attr="Se|
|000006b0| 6c 65 63 74 65 64 22 0a | 0a 20 20 20 20 67 6c 6f |lected".|. glo|
|000006c0| 62 61 6c 2e 43 6f 6e 66 | 69 67 77 69 6e 3d 30 0a |bal.Conf|igwin=0.|
|000006d0| 20 20 20 20 63 61 6c 6c | 20 52 65 61 64 43 6f 6e | call| ReadCon|
|000006e0| 66 69 67 28 29 0a 0a 20 | 20 20 20 67 6c 6f 62 61 |fig().. | globa|
|000006f0| 6c 2e 44 75 6d 6d 79 53 | 70 61 63 65 3d 48 53 70 |l.DummyS|pace=HSp|
|00000700| 61 63 65 28 29 0a 0a 20 | 20 20 20 72 65 74 75 72 |ace().. | retur|
|00000710| 6e 0a 2f 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |n./*****|********|
|00000720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000730| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0a 52 |********|*****/.R|
|00000760| 65 61 64 43 6f 6e 66 69 | 67 3a 20 70 72 6f 63 65 |eadConfi|g: proce|
|00000770| 64 75 72 65 20 65 78 70 | 6f 73 65 20 67 6c 6f 62 |dure exp|ose glob|
|00000780| 61 6c 2e 0a 0a 09 63 61 | 6c 6c 20 41 64 76 61 6e |al....ca|ll Advan|
|00000790| 63 65 49 6e 74 72 6f 28 | 22 52 65 61 64 69 6e 67 |ceIntro(|"Reading|
|000007a0| 20 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 2e 2e | configu|ration..|
|000007b0| 2e 22 29 0a 20 20 20 20 | 67 6c 6f 62 61 6c 2e 42 |."). |global.B|
|000007c0| 6f 72 64 65 72 4c 65 73 | 73 3d 31 0a 20 20 20 20 |orderLes|s=1. |
|000007d0| 69 66 20 47 65 74 54 6f | 6f 6c 54 79 70 65 28 22 |if GetTo|olType("|
|000007e0| 44 6f 63 73 42 72 6f 77 | 73 65 72 22 2c 22 42 4f |DocsBrow|ser","BO|
|000007f0| 52 44 45 52 4c 45 53 53 | 22 2c 22 42 52 22 2c 67 |RDERLESS|","BR",g|
|00000800| 6c 6f 62 61 6c 2e 42 6f | 72 64 65 72 4c 65 73 73 |lobal.Bo|rderLess|
|00000810| 29 20 74 68 65 6e 0a 20 | 20 20 20 20 20 20 20 69 |) then. | i|
|00000820| 66 20 44 61 74 61 54 79 | 70 65 28 62 72 2c 22 4e |f DataTy|pe(br,"N|
|00000830| 22 29 20 74 68 65 6e 0a | 20 20 20 20 20 20 20 20 |") then.| |
|00000840| 20 20 20 20 69 66 20 62 | 72 3d 30 20 7c 20 62 72 | if b|r=0 | br|
|00000850| 3d 31 20 74 68 65 6e 20 | 67 6c 6f 62 61 6c 2e 42 |=1 then |global.B|
|00000860| 6f 72 64 65 72 4c 65 73 | 73 3d 62 72 0a 0a 20 20 |orderLes|s=br.. |
|00000870| 20 20 67 6c 6f 62 61 6c | 2e 52 61 69 73 69 6e 67 | global|.Raising|
|00000880| 46 72 61 6d 65 3d 31 0a | 20 20 20 20 69 66 20 47 |Frame=1.| if G|
|00000890| 65 74 54 6f 6f 6c 54 79 | 70 65 28 22 44 6f 63 73 |etToolTy|pe("Docs|
|000008a0| 42 72 6f 77 73 65 72 22 | 2c 22 52 41 49 53 49 4e |Browser"|,"RAISIN|
|000008b0| 47 46 52 41 4d 45 22 2c | 22 72 66 22 2c 67 6c 6f |GFRAME",|"rf",glo|
|000008c0| 62 61 6c 2e 52 61 69 73 | 69 6e 67 46 72 61 6d 65 |bal.Rais|ingFrame|
|000008d0| 29 20 74 68 65 6e 0a 20 | 20 20 20 20 20 20 20 69 |) then. | i|
|000008e0| 66 20 44 61 74 61 54 79 | 70 65 28 72 66 2c 22 4e |f DataTy|pe(rf,"N|
|000008f0| 22 29 20 74 68 65 6e 0a | 20 20 20 20 20 20 20 20 |") then.| |
|00000900| 20 20 20 20 69 66 20 72 | 66 3d 30 20 7c 20 72 66 | if r|f=0 | rf|
|00000910| 3d 31 20 74 68 65 6e 20 | 67 6c 6f 62 61 6c 2e 52 |=1 then |global.R|
|00000920| 61 69 73 69 6e 67 46 72 | 61 6d 65 3d 72 66 0a 0a |aisingFr|ame=rf..|
|00000930| 20 20 20 20 67 6c 6f 62 | 61 6c 2e 53 6d 61 6c 6c | glob|al.Small|
|00000940| 49 6d 61 67 65 73 3d 30 | 0a 20 20 20 20 69 66 20 |Images=0|. if |
|00000950| 47 65 74 54 6f 6f 6c 54 | 79 70 65 28 22 44 6f 63 |GetToolT|ype("Doc|
|00000960| 73 42 72 6f 77 73 65 72 | 22 2c 22 53 4d 41 4c 4c |sBrowser|","SMALL|
|00000970| 49 4d 41 47 45 53 22 2c | 22 73 69 22 2c 67 6c 6f |IMAGES",|"si",glo|
|00000980| 62 61 6c 2e 53 6d 61 6c | 6c 49 6d 61 67 65 73 29 |bal.Smal|lImages)|
|00000990| 20 74 68 65 6e 0a 20 20 | 20 20 20 20 20 20 69 66 | then. | if|
|000009a0| 20 44 61 74 61 54 79 70 | 65 28 73 69 2c 22 4e 22 | DataTyp|e(si,"N"|
|000009b0| 29 20 74 68 65 6e 0a 20 | 20 20 20 20 20 20 20 20 |) then. | |
|000009c0| 20 20 20 69 66 20 73 69 | 3d 30 20 7c 20 73 69 3d | if si|=0 | si=|
|000009d0| 31 20 74 68 65 6e 20 67 | 6c 6f 62 61 6c 2e 53 6d |1 then g|lobal.Sm|
|000009e0| 61 6c 6c 49 6d 61 67 65 | 73 3d 73 69 0a 0a 0a 20 |allImage|s=si... |
|000009f0| 20 20 20 67 6c 6f 62 61 | 6c 2e 53 75 6e 6e 79 3d | globa|l.Sunny=|
|00000a00| 30 0a 20 20 20 20 69 66 | 20 47 65 74 54 6f 6f 6c |0. if| GetTool|
|00000a10| 54 79 70 65 28 22 44 6f | 63 73 42 72 6f 77 73 65 |Type("Do|csBrowse|
|00000a20| 72 22 2c 22 53 55 4e 4e | 59 22 2c 22 73 6e 22 2c |r","SUNN|Y","sn",|
|00000a30| 67 6c 6f 62 61 6c 2e 53 | 75 6e 6e 79 29 20 74 68 |global.S|unny) th|
|00000a40| 65 6e 0a 20 20 20 20 20 | 20 20 20 69 66 20 44 61 |en. | if Da|
|00000a50| 74 61 54 79 70 65 28 73 | 6e 2c 22 4e 22 29 20 74 |taType(s|n,"N") t|
|00000a60| 68 65 6e 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |hen. | |
|00000a70| 69 66 20 73 75 3d 30 20 | 7c 20 73 75 3d 31 20 74 |if su=0 || su=1 t|
|00000a80| 68 65 6e 20 67 6c 6f 62 | 61 6c 2e 53 75 6e 6e 79 |hen glob|al.Sunny|
|00000a90| 3d 73 6e 0a 0a 20 20 20 | 20 67 6c 6f 62 61 6c 2e |=sn.. | global.|
|00000aa0| 56 69 65 77 4d 6f 64 65 | 3d 22 47 46 58 22 0a 20 |ViewMode|="GFX". |
|00000ab0| 20 20 20 69 66 20 47 65 | 74 54 6f 6f 6c 54 79 70 | if Ge|tToolTyp|
|00000ac0| 65 28 22 44 6f 63 73 42 | 72 6f 77 73 65 72 22 2c |e("DocsB|rowser",|
|00000ad0| 22 56 49 45 57 4d 4f 44 | 45 22 2c 22 56 4d 22 2c |"VIEWMOD|E","VM",|
|00000ae0| 67 6c 6f 62 61 6c 2e 56 | 69 65 77 4d 6f 64 65 29 |global.V|iewMode)|
|00000af0| 20 74 68 65 6e 0a 20 20 | 20 20 20 20 20 20 69 66 | then. | if|
|00000b00| 20 66 69 6e 64 28 22 54 | 45 58 54 47 46 58 20 47 | find("T|EXTGFX G|
|00000b10| 46 58 20 54 45 58 54 22 | 2c 76 6d 29 3e 30 20 74 |FX TEXT"|,vm)>0 t|
|00000b20| 68 65 6e 20 67 6c 6f 62 | 61 6c 2e 56 69 65 77 4d |hen glob|al.ViewM|
|00000b30| 6f 64 65 3d 76 6d 0a 0a | 20 20 20 20 67 6c 6f 62 |ode=vm..| glob|
|00000b40| 61 6c 2e 49 6d 61 67 65 | 73 44 69 72 3d 22 49 6d |al.Image|sDir="Im|
|00000b50| 61 67 65 73 22 0a 20 20 | 20 20 69 66 20 47 65 74 |ages". | if Get|
|00000b60| 54 6f 6f 6c 54 79 70 65 | 28 22 44 6f 63 73 42 72 |ToolType|("DocsBr|
|00000b70| 6f 77 73 65 72 22 2c 22 | 49 4d 41 47 45 53 44 49 |owser","|IMAGESDI|
|00000b80| 52 22 2c 22 49 4d 44 49 | 52 22 2c 67 6c 6f 62 61 |R","IMDI|R",globa|
|00000b90| 6c 2e 49 6d 61 67 65 73 | 44 69 72 29 20 74 68 65 |l.Images|Dir) the|
|00000ba0| 6e 0a 20 20 20 20 20 20 | 20 20 67 6c 6f 62 61 6c |n. | global|
|00000bb0| 2e 6d 61 67 65 44 69 72 | 3d 69 6d 64 69 72 0a 0a |.mageDir|=imdir..|
|00000bc0| 20 20 20 20 67 6c 6f 62 | 61 6c 2e 53 70 61 63 69 | glob|al.Spaci|
|00000bd0| 6e 67 3d 30 0a 20 20 20 | 20 69 66 20 47 65 74 54 |ng=0. | if GetT|
|00000be0| 6f 6f 6c 54 79 70 65 28 | 22 44 6f 63 73 42 72 6f |oolType(|"DocsBro|
|00000bf0| 77 73 65 72 22 2c 22 53 | 50 41 43 49 4e 47 22 2c |wser","S|PACING",|
|00000c00| 22 53 50 22 2c 67 6c 6f | 62 61 6c 2e 53 70 61 63 |"SP",glo|bal.Spac|
|00000c10| 69 6e 67 29 20 74 68 65 | 6e 0a 20 20 20 20 20 20 |ing) the|n. |
|00000c20| 20 20 69 66 20 44 61 74 | 61 54 79 70 65 28 73 75 | if Dat|aType(su|
|00000c30| 2c 22 4e 22 29 20 74 68 | 65 6e 0a 20 20 20 20 20 |,"N") th|en. |
|00000c40| 20 20 20 20 20 20 20 69 | 66 20 73 75 3e 2d 31 20 | i|f su>-1 |
|00000c50| 26 20 73 75 3c 31 36 20 | 74 68 65 6e 20 67 6c 6f |& su<16 |then glo|
|00000c60| 62 61 6c 2e 53 70 61 63 | 69 6e 67 3d 73 70 0a 0a |bal.Spac|ing=sp..|
|00000c70| 20 20 20 20 72 65 74 75 | 72 6e 0a 2f 2a 2a 2a 2a | retu|rn./****|
|00000c80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ca0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000cb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000cc0| 2a 2a 2a 2a 2a 2a 2f 0a | 55 73 65 43 6f 6e 66 69 |******/.|UseConfi|
|00000cd0| 67 3a 20 70 72 6f 63 65 | 64 75 72 65 20 65 78 70 |g: proce|dure exp|
|00000ce0| 6f 73 65 20 67 6c 6f 62 | 61 6c 2e 0a 0a 20 20 20 |ose glob|al... |
|00000cf0| 20 63 61 6c 6c 20 73 65 | 74 28 22 6d 77 69 6e 22 | call se|t("mwin"|
|00000d00| 2c 22 53 6c 65 65 70 22 | 2c 31 29 0a 0a 20 20 20 |,"Sleep"|,1).. |
|00000d10| 20 63 61 6c 6c 20 44 6f | 4d 65 74 68 6f 64 28 22 | call Do|Method("|
|00000d20| 44 75 6d 6d 79 42 61 72 | 47 22 2c 22 49 6e 69 74 |DummyBar|G","Init|
|00000d30| 43 68 61 6e 67 65 73 22 | 29 0a 20 20 20 20 63 61 |Changes"|). ca|
|00000d40| 6c 6c 20 44 69 73 70 6f | 73 65 28 22 73 62 22 29 |ll Dispo|se("sb")|
|00000d50| 0a 20 20 20 20 63 61 6c | 6c 20 41 64 64 28 22 44 |. cal|l Add("D|
|00000d60| 75 6d 6d 79 42 61 72 47 | 22 2c 67 6c 6f 62 61 6c |ummyBarG|",global|
|00000d70| 2e 44 75 6d 6d 79 53 70 | 61 63 65 29 0a 20 20 20 |.DummySp|ace). |
|00000d80| 20 63 61 6c 6c 20 44 6f | 4d 65 74 68 6f 64 28 22 | call Do|Method("|
|00000d90| 44 75 6d 6d 79 42 61 72 | 47 22 2c 22 45 78 69 74 |DummyBar|G","Exit|
|00000da0| 43 68 61 6e 67 65 73 22 | 29 0a 0a 20 20 20 20 63 |Changes"|).. c|
|00000db0| 61 6c 6c 20 4d 75 6c 74 | 69 47 65 74 41 74 74 72 |all Mult|iGetAttr|
|00000dc0| 28 22 67 6c 6f 62 61 6c | 2e 47 61 64 67 65 74 73 |("global|.Gadgets|
|00000dd0| 22 29 0a 0a 20 20 20 20 | 67 6c 6f 62 61 6c 2e 49 |").. |global.I|
|00000de0| 6d 61 67 65 73 44 69 72 | 3d 67 6c 6f 62 61 6c 2e |magesDir|=global.|
|00000df0| 47 61 64 67 65 74 73 2e | 30 2e 56 61 6c 75 65 0a |Gadgets.|0.Value.|
|00000e00| 20 20 20 20 67 6c 6f 62 | 61 6c 2e 56 69 65 77 4d | glob|al.ViewM|
|00000e10| 6f 64 65 3d 77 6f 72 64 | 28 22 54 45 58 54 47 46 |ode=word|("TEXTGF|
|00000e20| 58 20 47 46 58 20 54 45 | 58 54 22 2c 67 6c 6f 62 |X GFX TE|XT",glob|
|00000e30| 61 6c 2e 47 61 64 67 65 | 74 73 2e 31 2e 56 61 6c |al.Gadge|ts.1.Val|
|00000e40| 75 65 2b 31 29 0a 20 20 | 20 20 67 6c 6f 62 61 6c |ue+1). | global|
|00000e50| 2e 53 70 61 63 69 6e 67 | 3d 67 6c 6f 62 61 6c 2e |.Spacing|=global.|
|00000e60| 47 61 64 67 65 74 73 2e | 32 2e 56 61 6c 75 65 0a |Gadgets.|2.Value.|
|00000e70| 20 20 20 20 67 6c 6f 62 | 61 6c 2e 42 6f 72 64 65 | glob|al.Borde|
|00000e80| 72 4c 65 73 73 3d 67 6c | 6f 62 61 6c 2e 47 61 64 |rLess=gl|obal.Gad|
|00000e90| 67 65 74 73 2e 33 2e 56 | 61 6c 75 65 0a 20 20 20 |gets.3.V|alue. |
|00000ea0| 20 67 6c 6f 62 61 6c 2e | 52 61 69 73 69 6e 67 46 | global.|RaisingF|
|00000eb0| 72 61 6d 65 3d 67 6c 6f | 62 61 6c 2e 47 61 64 67 |rame=glo|bal.Gadg|
|00000ec0| 65 74 73 2e 34 2e 56 61 | 6c 75 65 0a 20 20 20 20 |ets.4.Va|lue. |
|00000ed0| 67 6c 6f 62 61 6c 2e 53 | 6d 61 6c 6c 49 6d 61 67 |global.S|mallImag|
|00000ee0| 65 73 3d 67 6c 6f 62 61 | 6c 2e 47 61 64 67 65 74 |es=globa|l.Gadget|
|00000ef0| 73 2e 35 2e 56 61 6c 75 | 65 0a 20 20 20 20 67 6c |s.5.Valu|e. gl|
|00000f00| 6f 62 61 6c 2e 53 75 6e | 6e 79 3d 67 6c 6f 62 61 |obal.Sun|ny=globa|
|00000f10| 6c 2e 47 61 64 67 65 74 | 73 2e 36 2e 56 61 6c 75 |l.Gadget|s.6.Valu|
|00000f20| 65 0a 0a 20 20 20 20 62 | 61 72 3d 43 72 65 61 74 |e.. b|ar=Creat|
|00000f30| 65 42 61 72 28 67 6c 6f | 62 61 6c 2e 47 61 64 67 |eBar(glo|bal.Gadg|
|00000f40| 65 74 73 2e 30 2e 56 61 | 6c 75 65 2c 22 73 62 22 |ets.0.Va|lue,"sb"|
|00000f50| 2c 67 6c 6f 62 61 6c 2e | 47 61 64 67 65 74 73 2e |,global.|Gadgets.|
|00000f60| 31 2e 56 61 6c 75 65 7e | 3d 32 2c 67 6c 6f 62 61 |1.Value~|=2,globa|
|00000f70| 6c 2e 47 61 64 67 65 74 | 73 2e 32 2e 56 61 6c 75 |l.Gadget|s.2.Valu|
|00000f80| 65 2c 30 29 0a 20 20 20 | 20 69 66 20 62 61 72 3d |e,0). | if bar=|
|00000f90| 22 22 20 74 68 65 6e 20 | 64 6f 0a 20 20 20 20 20 |"" then |do. |
|00000fa0| 20 20 20 63 61 6c 6c 20 | 45 61 73 79 52 65 71 75 | call |EasyRequ|
|00000fb0| 65 73 74 28 22 43 61 6e | 27 74 20 63 72 65 61 74 |est("Can|'t creat|
|00000fc0| 65 20 53 70 65 65 64 62 | 61 72 22 29 0a 20 20 20 |e Speedb|ar"). |
|00000fd0| 20 20 20 20 20 65 78 69 | 74 0a 20 20 20 20 65 6e | exi|t. en|
|00000fe0| 64 0a 0a 20 20 20 20 63 | 61 6c 6c 20 73 65 74 28 |d.. c|all set(|
|00000ff0| 22 73 62 22 2c 22 42 6f | 72 64 65 72 4c 65 73 73 |"sb","Bo|rderLess|
|00001000| 22 2c 67 6c 6f 62 61 6c | 2e 47 61 64 67 65 74 73 |",global|.Gadgets|
|00001010| 2e 33 2e 76 61 6c 75 65 | 29 0a 20 20 20 20 63 61 |.3.value|). ca|
|00001020| 6c 6c 20 73 65 74 28 22 | 73 62 22 2c 22 52 61 69 |ll set("|sb","Rai|
|00001030| 73 69 6e 67 46 72 61 6d | 65 22 2c 67 6c 6f 62 61 |singFram|e",globa|
|00001040| 6c 2e 47 61 64 67 65 74 | 73 2e 34 2e 76 61 6c 75 |l.Gadget|s.4.valu|
|00001050| 65 29 0a 20 20 20 20 63 | 61 6c 6c 20 73 65 74 28 |e). c|all set(|
|00001060| 22 73 62 22 2c 22 53 6d | 61 6c 6c 49 6d 61 67 65 |"sb","Sm|allImage|
|00001070| 73 22 2c 67 6c 6f 62 61 | 6c 2e 47 61 64 67 65 74 |s",globa|l.Gadget|
|00001080| 73 2e 35 2e 76 61 6c 75 | 65 29 0a 20 20 20 20 63 |s.5.valu|e). c|
|00001090| 61 6c 6c 20 73 65 74 28 | 22 73 62 22 2c 22 53 75 |all set(|"sb","Su|
|000010a0| 6e 6e 79 22 2c 67 6c 6f | 62 61 6c 2e 47 61 64 67 |nny",glo|bal.Gadg|
|000010b0| 65 74 73 2e 36 2e 76 61 | 6c 75 65 29 0a 0a 20 20 |ets.6.va|lue).. |
|000010c0| 20 20 63 61 6c 6c 20 53 | 65 74 42 61 72 4e 6f 74 | call S|etBarNot|
|000010d0| 69 66 69 65 73 28 29 0a | 20 20 20 20 63 61 6c 6c |ifies().| call|
|000010e0| 20 53 65 74 42 61 72 47 | 61 64 67 65 74 73 28 29 | SetBarG|adgets()|
|000010f0| 0a 0a 20 20 20 20 63 61 | 6c 6c 20 44 6f 4d 65 74 |.. ca|ll DoMet|
|00001100| 68 6f 64 28 22 44 75 6d | 6d 79 42 61 72 47 22 2c |hod("Dum|myBarG",|
|00001110| 22 49 6e 69 74 43 68 61 | 6e 67 65 73 22 29 0a 20 |"InitCha|nges"). |
|00001120| 20 20 20 63 61 6c 6c 20 | 52 65 6d 6f 76 65 28 67 | call |Remove(g|
|00001130| 6c 6f 62 61 6c 2e 44 75 | 6d 6d 79 53 70 61 63 65 |lobal.Du|mmySpace|
|00001140| 29 0a 20 20 20 20 63 61 | 6c 6c 20 41 64 64 28 22 |). ca|ll Add("|
|00001150| 44 75 6d 6d 79 42 61 72 | 47 22 2c 62 61 72 29 0a |DummyBar|G",bar).|
|00001160| 20 20 20 20 63 61 6c 6c | 20 44 6f 4d 65 74 68 6f | call| DoMetho|
|00001170| 64 28 22 44 75 6d 6d 79 | 42 61 72 47 22 2c 22 45 |d("Dummy|BarG","E|
|00001180| 78 69 74 43 68 61 6e 67 | 65 73 22 29 0a 0a 20 20 |xitChang|es").. |
|00001190| 20 20 63 61 6c 6c 20 73 | 65 74 28 22 6d 77 69 6e | call s|et("mwin|
|000011a0| 22 2c 22 53 6c 65 65 70 | 22 2c 30 29 0a 0a 20 20 |","Sleep|",0).. |
|000011b0| 20 20 72 65 74 75 72 6e | 0a 2f 2a 2a 2a 2a 2a 2a | return|./******|
|000011c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001200| 2a 2a 2a 2a 2f 0a 53 61 | 76 65 43 6f 6e 66 69 67 |****/.Sa|veConfig|
|00001210| 3a 20 70 72 6f 63 65 64 | 75 72 65 20 65 78 70 6f |: proced|ure expo|
|00001220| 73 65 20 67 6c 6f 62 61 | 6c 2e 0a 20 20 20 20 63 |se globa|l.. c|
|00001230| 61 6c 6c 20 73 65 74 28 | 22 6d 77 69 6e 22 2c 22 |all set(|"mwin","|
|00001240| 53 6c 65 65 70 22 2c 31 | 29 0a 20 20 20 20 63 61 |Sleep",1|). ca|
|00001250| 6c 6c 20 69 6e 66 6f 28 | 22 53 61 76 69 6e 67 20 |ll info(|"Saving |
|00001260| 70 72 65 66 65 72 65 6e | 63 65 73 2e 2e 2e 22 29 |preferen|ces...")|
|00001270| 0a 20 20 20 20 63 61 6c | 6c 20 55 73 65 43 6f 6e |. cal|l UseCon|
|00001280| 66 69 67 28 29 0a 20 20 | 20 20 63 61 6c 6c 20 50 |fig(). | call P|
|00001290| 75 74 54 6f 6f 6c 54 79 | 70 65 28 22 44 6f 63 73 |utToolTy|pe("Docs|
|000012a0| 42 72 6f 77 73 65 72 22 | 2c 22 49 4d 41 47 45 53 |Browser"|,"IMAGES|
|000012b0| 44 49 52 22 2c 67 6c 6f | 62 61 6c 2e 49 6d 61 67 |DIR",glo|bal.Imag|
|000012c0| 65 73 44 69 72 29 0a 20 | 20 20 20 63 61 6c 6c 20 |esDir). | call |
|000012d0| 50 75 74 54 6f 6f 6c 54 | 79 70 65 28 22 44 6f 63 |PutToolT|ype("Doc|
|000012e0| 73 42 72 6f 77 73 65 72 | 22 2c 22 56 49 45 57 4d |sBrowser|","VIEWM|
|000012f0| 4f 44 45 22 2c 67 6c 6f | 62 61 6c 2e 56 69 65 77 |ODE",glo|bal.View|
|00001300| 4d 6f 64 65 29 0a 20 20 | 20 20 63 61 6c 6c 20 50 |Mode). | call P|
|00001310| 75 74 54 6f 6f 6c 54 79 | 70 65 28 22 44 6f 63 73 |utToolTy|pe("Docs|
|00001320| 42 72 6f 77 73 65 72 22 | 2c 22 53 50 41 43 49 4e |Browser"|,"SPACIN|
|00001330| 47 22 2c 67 6c 6f 62 61 | 6c 2e 53 70 61 63 69 6e |G",globa|l.Spacin|
|00001340| 67 29 0a 20 20 20 20 63 | 61 6c 6c 20 50 75 74 54 |g). c|all PutT|
|00001350| 6f 6f 6c 54 79 70 65 28 | 22 44 6f 63 73 42 72 6f |oolType(|"DocsBro|
|00001360| 77 73 65 72 22 2c 22 42 | 4f 52 44 45 52 4c 45 53 |wser","B|ORDERLES|
|00001370| 53 22 2c 67 6c 6f 62 61 | 6c 2e 42 6f 72 64 65 72 |S",globa|l.Border|
|00001380| 4c 65 73 73 29 0a 20 20 | 20 20 63 61 6c 6c 20 50 |Less). | call P|
|00001390| 75 74 54 6f 6f 6c 54 79 | 70 65 28 22 44 6f 63 73 |utToolTy|pe("Docs|
|000013a0| 42 72 6f 77 73 65 72 22 | 2c 22 52 41 49 53 49 4e |Browser"|,"RAISIN|
|000013b0| 47 46 52 41 4d 45 22 2c | 67 6c 6f 62 61 6c 2e 52 |GFRAME",|global.R|
|000013c0| 61 73 69 6e 67 46 72 61 | 6d 65 29 0a 20 20 20 20 |asingFra|me). |
|000013d0| 63 61 6c 6c 20 50 75 74 | 54 6f 6f 6c 54 79 70 65 |call Put|ToolType|
|000013e0| 28 22 44 6f 63 73 42 72 | 6f 77 73 65 72 22 2c 22 |("DocsBr|owser","|
|000013f0| 53 4d 41 4c 4c 49 4d 41 | 47 45 53 22 2c 53 6d 61 |SMALLIMA|GES",Sma|
|00001400| 6c 6c 49 6d 61 67 65 73 | 29 0a 20 20 20 20 63 61 |llImages|). ca|
|00001410| 6c 6c 20 50 75 74 54 6f | 6f 6c 54 79 70 65 28 22 |ll PutTo|olType("|
|00001420| 44 6f 63 73 42 72 6f 77 | 73 65 72 22 2c 22 53 55 |DocsBrow|ser","SU|
|00001430| 4e 4e 59 22 2c 67 6c 6f | 62 61 6c 2e 53 75 6e 6e |NNY",glo|bal.Sunn|
|00001440| 79 29 0a 20 20 20 20 63 | 61 6c 6c 20 69 6e 66 6f |y). c|all info|
|00001450| 28 22 22 29 0a 20 20 20 | 20 63 61 6c 6c 20 73 65 |(""). | call se|
|00001460| 74 28 22 6d 77 69 6e 22 | 2c 22 53 6c 65 65 70 22 |t("mwin"|,"Sleep"|
|00001470| 2c 30 29 0a 20 20 20 20 | 72 65 74 75 72 6e 0a 2f |,0). |return./|
|00001480| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001490| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2f 0a 53 74 61 72 |********|**/.Star|
|000014d0| 74 43 72 65 61 74 65 41 | 70 70 3a 20 70 72 6f 63 |tCreateA|pp: proc|
|000014e0| 65 64 75 72 65 20 65 78 | 70 6f 73 65 20 67 6c 6f |edure ex|pose glo|
|000014f0| 62 61 6c 2e 0a 0a 20 20 | 20 20 73 74 72 69 70 2e |bal... | strip.|
|00001500| 30 3d 22 6d 70 72 6f 6a | 65 63 74 22 0a 20 20 20 |0="mproj|ect". |
|00001510| 20 20 6d 70 72 6f 6a 65 | 63 74 2e 54 69 74 6c 65 | mproje|ct.Title|
|00001520| 3d 22 50 72 6f 6a 65 63 | 74 22 0a 20 20 20 20 20 |="Projec|t". |
|00001530| 6d 70 72 6f 6a 65 63 74 | 2e 63 6c 61 73 73 3d 22 |mproject|.class="|
|00001540| 6d 65 6e 75 22 0a 20 20 | 20 20 20 20 6d 70 72 6f |menu". | mpro|
|00001550| 6a 65 63 74 2e 30 3d 4d | 65 6e 75 49 74 65 6d 28 |ject.0=M|enuItem(|
|00001560| 22 6d 61 62 6f 75 74 22 | 2c 22 41 62 6f 75 74 2e |"mabout"|,"About.|
|00001570| 2e 2e 22 2c 22 3f 22 29 | 0a 20 20 20 20 20 20 6d |..","?")|. m|
|00001580| 70 72 6f 6a 65 63 74 2e | 31 3d 4d 65 6e 75 49 74 |project.|1=MenuIt|
|00001590| 65 6d 28 22 6d 61 62 6f | 75 74 72 78 6d 75 69 22 |em("mabo|utrxmui"|
|000015a0| 2c 22 41 62 6f 75 74 20 | 52 78 4d 55 49 2e 2e 2e |,"About |RxMUI...|
|000015b0| 22 29 0a 20 20 20 20 20 | 20 6d 70 72 6f 6a 65 63 |"). | mprojec|
|000015c0| 74 2e 32 3d 4d 65 6e 75 | 49 74 65 6d 28 22 6d 61 |t.2=Menu|Item("ma|
|000015d0| 62 6f 75 74 6d 75 69 22 | 2c 22 41 62 6f 75 74 20 |boutmui"|,"About |
|000015e0| 4d 55 49 2e 2e 2e 22 29 | 0a 20 20 20 20 20 20 6d |MUI...")|. m|
|000015f0| 70 72 6f 6a 65 63 74 2e | 33 3d 4d 65 6e 75 49 74 |project.|3=MenuIt|
|00001600| 65 6d 28 22 22 2c 22 42 | 41 52 22 29 0a 20 20 20 |em("","B|AR"). |
|00001610| 20 20 20 6d 70 72 6f 6a | 65 63 74 2e 34 3d 4d 65 | mproj|ect.4=Me|
|00001620| 6e 75 49 74 65 6d 28 22 | 6d 68 69 64 65 22 2c 22 |nuItem("|mhide","|
|00001630| 48 69 64 65 22 2c 22 48 | 22 29 0a 20 20 20 20 20 |Hide","H|"). |
|00001640| 20 6d 70 72 6f 6a 65 63 | 74 2e 35 3d 4d 65 6e 75 | mprojec|t.5=Menu|
|00001650| 49 74 65 6d 28 22 22 2c | 22 42 41 52 22 29 0a 20 |Item("",|"BAR"). |
|00001660| 20 20 20 20 20 6d 70 72 | 6f 6a 65 63 74 2e 36 3d | mpr|oject.6=|
|00001670| 4d 65 6e 75 49 74 65 6d | 28 22 6d 71 75 69 74 22 |MenuItem|("mquit"|
|00001680| 2c 22 51 75 69 74 22 2c | 22 51 22 29 0a 20 20 20 |,"Quit",|"Q"). |
|00001690| 20 73 74 72 69 70 2e 31 | 3d 22 6d 65 64 69 74 6f | strip.1|="medito|
|000016a0| 72 22 0a 20 20 20 20 20 | 6d 65 64 69 74 6f 72 2e |r". |meditor.|
|000016b0| 54 69 74 6c 65 3d 22 50 | 72 65 66 65 72 65 6e 63 |Title="P|referenc|
|000016c0| 65 73 22 0a 20 20 20 20 | 20 6d 65 64 69 74 6f 72 |es". | meditor|
|000016d0| 2e 63 6c 61 73 73 3d 22 | 6d 65 6e 75 22 0a 20 20 |.class="|menu". |
|000016e0| 20 20 20 20 6d 65 64 69 | 74 6f 72 2e 30 3d 4d 65 | medi|tor.0=Me|
|000016f0| 6e 75 49 74 65 6d 28 22 | 6d 66 75 6c 6c 22 2c 22 |nuItem("|mfull","|
|00001700| 46 75 6c 6c 20 73 63 72 | 65 65 6e 22 2c 22 46 22 |Full scr|een","F"|
|00001710| 2c 22 43 48 45 4b 49 54 | 20 54 4f 47 47 4c 45 22 |,"CHEKIT| TOGGLE"|
|00001720| 29 0a 20 20 20 20 20 20 | 6d 65 64 69 74 6f 72 2e |). |meditor.|
|00001730| 31 3d 4d 65 6e 75 49 74 | 65 6d 28 22 6d 64 6f 63 |1=MenuIt|em("mdoc|
|00001740| 73 22 2c 22 44 6f 63 73 | 42 72 6f 77 73 65 72 2e |s","Docs|Browser.|
|00001750| 2e 2e 22 2c 22 44 22 29 | 0a 20 20 20 20 20 20 6d |..","D")|. m|
|00001760| 65 64 69 74 6f 72 2e 32 | 3d 4d 65 6e 75 49 74 65 |editor.2|=MenuIte|
|00001770| 6d 28 22 6d 6d 75 69 22 | 2c 22 4d 55 49 2e 2e 2e |m("mmui"|,"MUI...|
|00001780| 22 2c 22 4d 22 29 0a 20 | 20 20 20 72 65 73 3d 4e |","M"). | res=N|
|00001790| 65 77 4f 62 6a 28 22 6d | 65 6e 75 73 74 72 69 70 |ewObj("m|enustrip|
|000017a0| 22 2c 22 73 74 72 69 70 | 22 29 0a 20 20 20 20 69 |","strip|"). i|
|000017b0| 66 20 72 65 73 7e 3d 30 | 20 74 68 65 6e 20 63 61 |f res~=0| then ca|
|000017c0| 6c 6c 20 65 72 72 28 72 | 65 73 29 0a 0a 20 20 20 |ll err(r|es).. |
|000017d0| 20 61 70 70 2e 54 69 74 | 6c 65 3d 22 52 78 4d 55 | app.Tit|le="RxMU|
|000017e0| 49 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |I docume|ntation |
|000017f0| 62 72 6f 77 73 65 72 22 | 0a 20 20 20 20 61 70 70 |browser"|. app|
|00001800| 2e 56 65 72 73 69 6f 6e | 3d 22 24 56 45 52 3a 20 |.Version|="$VER: |
|00001810| 44 6f 63 73 42 72 6f 77 | 73 65 72 20 34 2e 33 20 |DocsBrow|ser 4.3 |
|00001820| 28 32 31 2e 31 2e 32 30 | 30 31 29 22 0a 20 20 20 |(21.1.20|01)". |
|00001830| 20 61 70 70 2e 43 6f 70 | 79 72 69 67 68 74 3d 22 | app.Cop|yright="|
|00001840| a9 32 30 30 30 2c 20 32 | 30 30 31 20 41 6c 66 6f |.2000, 2|001 Alfo|
|00001850| 6e 73 6f 20 52 61 6e 69 | 65 72 69 22 0a 20 20 20 |nso Rani|eri". |
|00001860| 20 61 70 70 2e 41 75 74 | 68 6f 72 3d 22 41 6c 66 | app.Aut|hor="Alf|
|00001870| 6f 6e 73 6f 20 52 61 6e | 69 65 72 69 22 0a 20 20 |onso Ran|ieri". |
|00001880| 20 20 61 70 70 2e 44 65 | 73 63 72 69 70 74 69 6f | app.De|scriptio|
|00001890| 6e 3d 22 52 78 4d 55 49 | 20 64 6f 63 75 6d 65 6e |n="RxMUI| documen|
|000018a0| 74 61 74 69 6f 6e 20 62 | 72 6f 77 73 65 72 2e 22 |tation b|rowser."|
|000018b0| 0a 20 20 20 20 61 70 70 | 2e 42 61 73 65 3d 22 44 |. app|.Base="D|
|000018c0| 4f 43 53 42 52 4f 57 53 | 45 52 22 0a 20 20 20 20 |OCSBROWS|ER". |
|000018d0| 61 70 70 2e 44 69 73 6b | 4f 62 6a 65 63 74 3d 22 |app.Disk|Object="|
|000018e0| 64 6f 63 73 22 0a 20 20 | 20 20 61 70 70 2e 4d 65 |docs". | app.Me|
|000018f0| 6e 75 53 74 72 69 70 3d | 22 73 74 72 69 70 22 0a |nuStrip=|"strip".|
|00001900| 20 20 20 20 61 70 70 2e | 53 75 62 57 69 6e 64 6f | app.|SubWindo|
|00001910| 77 3d 22 69 77 69 6e 22 | 0a 0a 20 20 20 20 20 69 |w="iwin"|.. i|
|00001920| 77 69 6e 2e 42 6f 72 64 | 65 72 4c 65 73 73 3d 31 |win.Bord|erLess=1|
|00001930| 0a 20 20 20 20 20 69 77 | 69 6e 2e 43 6c 6f 73 65 |. iw|in.Close|
|00001940| 47 61 64 67 65 74 3d 30 | 0a 20 20 20 20 20 69 77 |Gadget=0|. iw|
|00001950| 69 6e 2e 44 65 70 74 68 | 47 61 64 67 65 74 3d 30 |in.Depth|Gadget=0|
|00001960| 0a 20 20 20 20 20 69 77 | 69 6e 2e 44 72 61 67 42 |. iw|in.DragB|
|00001970| 61 72 3d 30 0a 20 20 20 | 20 20 69 77 69 6e 2e 4e |ar=0. | iwin.N|
|00001980| 6f 4d 65 6e 75 73 3d 31 | 0a 20 20 20 20 20 69 77 |oMenus=1|. iw|
|00001990| 69 6e 2e 53 69 7a 65 47 | 61 64 67 65 74 3d 30 0a |in.SizeG|adget=0.|
|000019a0| 20 20 20 20 20 69 77 69 | 6e 2e 57 69 64 74 68 3d | iwi|n.Width=|
|000019b0| 2d 32 30 30 2d 32 35 0a | 20 20 20 20 20 69 77 69 |-200-25.| iwi|
|000019c0| 6e 2e 41 63 74 69 76 61 | 74 65 3d 30 0a 20 20 20 |n.Activa|te=0. |
|000019d0| 20 20 69 77 69 6e 2e 43 | 6f 6e 74 65 6e 74 73 3d | iwin.C|ontents=|
|000019e0| 22 69 67 72 6f 75 70 22 | 0a 0a 20 20 20 20 20 20 |"igroup"|.. |
|000019f0| 69 67 72 6f 75 70 2e 46 | 72 61 6d 65 3d 22 69 6e |igroup.F|rame="in|
|00001a00| 70 75 74 6c 69 73 74 22 | 0a 20 20 20 20 20 20 69 |putlist"|. i|
|00001a10| 67 72 6f 75 70 2e 42 61 | 63 6b 67 72 6f 75 6e 64 |group.Ba|ckground|
|00001a20| 3d 22 74 65 78 74 62 61 | 63 6b 22 0a 20 20 20 20 |="textba|ck". |
|00001a30| 20 20 20 69 67 72 6f 75 | 70 2e 30 3d 22 69 74 69 | igrou|p.0="iti|
|00001a40| 74 6c 65 22 0a 20 20 20 | 20 20 20 20 20 69 74 69 |tle". | iti|
|00001a50| 74 6c 65 2e 43 6c 61 73 | 73 3d 22 74 65 78 74 22 |tle.Clas|s="text"|
|00001a60| 0a 20 20 20 20 20 20 20 | 20 69 74 69 74 6c 65 2e |. | ititle.|
|00001a70| 46 72 61 6d 65 3d 22 67 | 72 6f 75 70 22 0a 20 20 |Frame="g|roup". |
|00001a80| 20 20 20 20 20 20 69 74 | 69 74 6c 65 2e 46 6f 6e | it|itle.Fon|
|00001a90| 74 3d 22 42 69 67 22 0a | 20 20 20 20 20 20 20 20 |t="Big".| |
|00001aa0| 69 74 69 74 6c 65 2e 43 | 6f 6e 74 65 6e 74 73 3d |ititle.C|ontents=|
|00001ab0| 50 61 72 73 65 54 65 78 | 74 28 22 25 63 25 62 52 |ParseTex|t("%c%bR|
|00001ac0| 78 4d 55 49 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 |xMUI doc|umentati|
|00001ad0| 6f 6e 22 29 0a 20 20 20 | 20 20 20 20 69 67 72 6f |on"). | igro|
|00001ae0| 75 70 2e 31 3d 22 69 6e | 74 72 6f 22 0a 20 20 20 |up.1="in|tro". |
|00001af0| 20 20 20 20 20 69 6e 74 | 72 6f 2e 43 6c 61 73 73 | int|ro.Class|
|00001b00| 3d 22 67 61 75 67 65 22 | 0a 20 20 20 20 20 20 20 |="gauge"|. |
|00001b10| 20 69 6e 74 72 6f 2e 48 | 6f 72 69 7a 3d 31 0a 20 | intro.H|oriz=1. |
|00001b20| 20 20 20 20 20 20 20 69 | 6e 74 72 6f 2e 48 6f 72 | i|ntro.Hor|
|00001b30| 69 7a 3d 31 0a 20 20 20 | 20 20 20 20 20 69 6e 74 |iz=1. | int|
|00001b40| 72 6f 2e 4d 61 78 3d 37 | 0a 20 20 20 20 20 20 20 |ro.Max=7|. |
|00001b50| 20 69 6e 74 72 6f 2e 43 | 75 72 72 65 6e 74 3d 30 | intro.C|urrent=0|
|00001b60| 0a 0a 20 20 20 20 72 65 | 73 3d 4e 65 77 4f 62 6a |.. re|s=NewObj|
|00001b70| 28 22 61 70 70 6c 69 63 | 61 74 69 6f 6e 22 2c 22 |("applic|ation","|
|00001b80| 61 70 70 22 29 0a 20 20 | 20 20 69 66 20 72 65 73 |app"). | if res|
|00001b90| 7e 3d 30 20 74 68 65 6e | 20 64 6f 0a 20 20 20 20 |~=0 then| do. |
|00001ba0| 20 20 20 20 63 61 6c 6c | 20 45 61 73 79 52 65 71 | call| EasyReq|
|00001bb0| 75 65 73 74 28 22 43 61 | 6e 27 74 20 63 72 65 61 |uest("Ca|n't crea|
|00001bc0| 74 65 20 41 70 70 6c 69 | 63 61 74 69 6f 6e 22 29 |te Appli|cation")|
|00001bd0| 0a 20 20 20 20 20 20 20 | 20 65 78 69 74 0a 20 20 |. | exit. |
|00001be0| 20 20 65 6e 64 0a 09 72 | 65 74 75 72 6e 0a 2f 2a | end..r|eturn./*|
|00001bf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2f 0a 46 69 6e 69 73 |********|*/.Finis|
|00001c40| 68 43 72 65 61 74 65 41 | 70 70 3a 20 70 72 6f 63 |hCreateA|pp: proc|
|00001c50| 65 64 75 72 65 20 65 78 | 70 6f 73 65 20 67 6c 6f |edure ex|pose glo|
|00001c60| 62 61 6c 2e 0a 0a 09 63 | 61 6c 6c 20 41 64 76 61 |bal....c|all Adva|
|00001c70| 6e 63 65 49 6e 74 72 6f | 28 22 43 72 65 61 74 69 |nceIntro|("Creati|
|00001c80| 6e 67 20 6d 61 69 6e 20 | 77 69 6e 64 6f 77 2e 2e |ng main |window..|
|00001c90| 2e 22 29 0a 09 63 61 6c | 6c 20 73 65 74 28 22 69 |.")..cal|l set("i|
|00001ca0| 77 69 6e 22 2c 22 4f 70 | 65 6e 22 2c 31 29 0a 0a |win","Op|en",1)..|
|00001cb0| 20 20 20 20 20 6d 77 69 | 6e 2e 49 44 3d 22 4d 57 | mwi|n.ID="MW|
|00001cc0| 49 4e 22 0a 20 20 20 20 | 20 6d 77 69 6e 2e 54 69 |IN". | mwin.Ti|
|00001cd0| 74 6c 65 3d 22 52 78 4d | 55 49 20 44 6f 63 73 42 |tle="RxM|UI DocsB|
|00001ce0| 72 6f 77 73 65 72 22 0a | 20 20 20 20 20 6d 77 69 |rowser".| mwi|
|00001cf0| 6e 2e 55 73 65 42 6f 74 | 74 6f 6d 42 6f 72 64 65 |n.UseBot|tomBorde|
|00001d00| 72 53 63 72 6f 6c 6c 65 | 72 3d 31 0a 20 20 20 20 |rScrolle|r=1. |
|00001d10| 20 6d 77 69 6e 2e 55 73 | 65 52 69 67 68 74 42 6f | mwin.Us|eRightBo|
|00001d20| 72 64 65 72 53 63 72 6f | 6c 6c 65 72 3d 31 0a 20 |rderScro|ller=1. |
|00001d30| 20 20 20 20 6d 77 69 6e | 2e 43 6f 6e 74 65 6e 74 | mwin|.Content|
|00001d40| 73 3d 22 6d 67 72 6f 75 | 70 22 0a 0a 20 20 20 20 |s="mgrou|p".. |
|00001d50| 20 20 6d 67 72 6f 75 70 | 2e 30 3d 22 42 61 72 47 | mgroup|.0="BarG|
|00001d60| 72 6f 75 70 22 0a 20 20 | 20 20 20 20 20 42 61 72 |roup". | Bar|
|00001d70| 47 72 6f 75 70 2e 43 6c | 61 73 73 3d 22 67 72 6f |Group.Cl|ass="gro|
|00001d80| 75 70 22 0a 20 20 20 20 | 20 20 20 42 61 72 47 72 |up". | BarGr|
|00001d90| 6f 75 70 2e 68 6f 72 69 | 7a 3d 31 0a 20 20 20 20 |oup.hori|z=1. |
|00001da0| 20 20 20 42 61 72 47 72 | 6f 75 70 2e 30 3d 22 62 | BarGr|oup.0="b|
|00001db0| 67 22 0a 20 20 20 20 20 | 20 20 20 62 67 2e 43 6c |g". | bg.Cl|
|00001dc0| 61 73 73 3d 22 67 72 6f | 75 70 22 0a 20 20 20 20 |ass="gro|up". |
|00001dd0| 20 20 20 20 62 67 2e 48 | 6f 72 69 7a 3d 31 0a 20 | bg.H|oriz=1. |
|00001de0| 20 20 20 20 20 20 20 20 | 62 67 2e 30 3d 22 44 75 | |bg.0="Du|
|00001df0| 6d 6d 79 42 61 72 47 22 | 0a 20 20 20 20 20 20 20 |mmyBarG"|. |
|00001e00| 20 20 20 44 75 6d 6d 79 | 42 61 72 47 2e 43 6c 61 | Dummy|BarG.Cla|
|00001e10| 73 73 3d 22 67 72 6f 75 | 70 22 0a 20 20 20 20 20 |ss="grou|p". |
|00001e20| 20 20 20 20 20 44 75 6d | 6d 79 42 61 72 47 2e 53 | Dum|myBarG.S|
|00001e30| 70 61 63 69 6e 67 3d 30 | 0a 20 20 20 20 20 20 20 |pacing=0|. |
|00001e40| 20 20 20 44 75 6d 6d 79 | 42 61 72 47 2e 30 3d 43 | Dummy|BarG.0=C|
|00001e50| 72 65 61 74 65 42 61 72 | 28 67 6c 6f 62 61 6c 2e |reateBar|(global.|
|00001e60| 49 6d 61 67 65 73 44 69 | 72 2c 22 73 62 22 2c 31 |ImagesDi|r,"sb",1|
|00001e70| 2c 67 6c 6f 62 61 6c 2e | 53 70 61 63 69 6e 67 2c |,global.|Spacing,|
|00001e80| 30 29 0a 20 20 20 20 20 | 20 20 20 20 62 67 2e 31 |0). | bg.1|
|00001e90| 3d 48 53 70 61 63 65 28 | 29 0a 0a 20 20 20 20 20 |=HSpace(|).. |
|00001ea0| 20 6d 67 72 6f 75 70 2e | 31 3d 68 62 61 72 28 29 | mgroup.|1=hbar()|
|00001eb0| 0a 0a 20 20 20 20 20 20 | 6d 67 72 6f 75 70 2e 32 |.. |mgroup.2|
|00001ec0| 3d 22 68 67 22 0a 20 20 | 20 20 20 20 20 68 67 2e |="hg". | hg.|
|00001ed0| 43 6c 61 73 73 3d 22 67 | 72 6f 75 70 22 0a 20 20 |Class="g|roup". |
|00001ee0| 20 20 20 20 20 68 67 2e | 46 72 61 6d 65 3d 22 72 | hg.|Frame="r|
|00001ef0| 65 61 64 6c 69 73 74 22 | 0a 20 20 20 20 20 20 20 |eadlist"|. |
|00001f00| 68 67 2e 53 70 61 63 69 | 6e 67 3d 30 0a 20 20 20 |hg.Spaci|ng=0. |
|00001f10| 20 20 20 20 20 68 67 2e | 30 3d 22 68 68 67 22 0a | hg.|0="hhg".|
|00001f20| 20 20 20 20 20 20 20 20 | 20 68 68 67 2e 43 6c 61 | | hhg.Cla|
|00001f30| 73 73 3d 22 67 72 6f 75 | 70 22 0a 20 20 20 20 20 |ss="grou|p". |
|00001f40| 20 20 20 20 68 68 67 2e | 48 6f 72 69 7a 3d 31 0a | hhg.|Horiz=1.|
|00001f50| 20 20 20 20 20 20 20 20 | 20 68 68 67 2e 53 70 61 | | hhg.Spa|
|00001f60| 63 69 6e 67 3d 30 0a 20 | 20 20 20 20 20 20 20 20 |cing=0. | |
|00001f70| 68 68 67 2e 30 3d 22 68 | 74 6d 6c 22 0a 20 20 20 |hhg.0="h|tml". |
|00001f80| 20 20 20 20 20 20 20 68 | 74 6d 6c 2e 43 6c 61 73 | h|tml.Clas|
|00001f90| 73 3d 22 68 74 6d 6c 76 | 69 65 77 22 0a 09 09 20 |s="htmlv|iew"... |
|00001fa0| 20 68 74 6d 6c 2e 4e 6f | 43 6f 6e 74 65 78 74 4d | html.No|ContextM|
|00001fb0| 65 6e 75 3d 31 0a 20 20 | 20 20 20 20 20 20 20 20 |enu=1. | |
|00001fc0| 68 74 6d 6c 2e 4e 54 41 | 75 74 6f 4c 6f 61 64 3d |html.NTA|utoLoad=|
|00001fd0| 31 0a 20 20 20 20 20 20 | 20 20 20 68 68 67 2e 31 |1. | hhg.1|
|00001fe0| 3d 22 73 62 72 22 0a 20 | 20 20 20 20 20 20 20 20 |="sbr". | |
|00001ff0| 20 73 62 72 2e 43 6c 61 | 73 73 3d 22 53 63 72 6f | sbr.Cla|ss="Scro|
|00002000| 6c 6c 42 61 72 22 0a 20 | 20 20 20 20 20 20 20 20 |llBar". | |
|00002010| 20 73 62 72 2e 55 73 65 | 57 69 6e 42 6f 72 64 65 | sbr.Use|WinBorde|
|00002020| 72 3d 22 72 69 67 68 74 | 22 0a 20 20 20 20 20 20 |r="right|". |
|00002030| 20 20 20 20 73 62 72 2e | 48 6f 72 69 7a 3d 30 0a | sbr.|Horiz=0.|
|00002040| 20 20 20 20 20 20 20 20 | 68 67 2e 31 3d 22 73 62 | |hg.1="sb|
|00002050| 62 22 0a 20 20 20 20 20 | 20 20 20 20 73 62 62 2e |b". | sbb.|
|00002060| 43 6c 61 73 73 3d 22 73 | 63 72 6f 6c 6c 62 61 72 |Class="s|crollbar|
|00002070| 22 0a 20 20 20 20 20 20 | 20 20 20 73 62 62 2e 55 |". | sbb.U|
|00002080| 73 65 57 69 6e 42 6f 72 | 64 65 72 3d 22 62 6f 74 |seWinBor|der="bot|
|00002090| 74 6f 6d 22 0a 20 20 20 | 20 20 20 20 20 20 73 62 |tom". | sb|
|000020a0| 62 2e 48 6f 72 69 7a 3d | 31 0a 0a 20 20 20 20 20 |b.Horiz=|1.. |
|000020b0| 20 6d 67 72 6f 75 70 2e | 33 3d 74 65 78 74 28 22 | mgroup.|3=text("|
|000020c0| 69 6e 66 6f 22 29 0a 0a | 20 20 20 20 72 65 73 3d |info")..| res=|
|000020d0| 4e 65 77 4f 62 6a 28 22 | 77 69 6e 64 6f 77 22 2c |NewObj("|window",|
|000020e0| 22 6d 77 69 6e 22 29 0a | 20 20 20 20 69 66 20 72 |"mwin").| if r|
|000020f0| 65 73 7e 3d 30 20 74 68 | 65 6e 20 64 6f 0a 20 20 |es~=0 th|en do. |
|00002100| 20 20 20 20 20 20 63 61 | 6c 6c 20 45 61 73 79 52 | ca|ll EasyR|
|00002110| 65 71 75 65 73 74 28 22 | 43 61 6e 27 74 20 63 72 |equest("|Can't cr|
|00002120| 65 61 74 65 20 6d 61 69 | 6e 20 77 69 6e 64 6f 77 |eate mai|n window|
|00002130| 22 29 0a 20 20 20 20 20 | 20 20 20 65 78 69 74 0a |"). | exit.|
|00002140| 20 20 20 20 65 6e 64 0a | 09 63 61 6c 6c 20 41 64 | end.|.call Ad|
|00002150| 64 28 22 61 70 70 22 2c | 22 6d 77 69 6e 22 29 0a |d("app",|"mwin").|
|00002160| 0a 09 63 61 6c 6c 20 41 | 64 76 61 6e 63 65 49 6e |..call A|dvanceIn|
|00002170| 74 72 6f 28 22 43 72 65 | 61 74 69 6e 67 20 73 65 |tro("Cre|ating se|
|00002180| 61 72 63 68 20 77 69 6e | 64 6f 77 2e 2e 2e 22 29 |arch win|dow...")|
|00002190| 0a 0a 20 20 20 20 20 73 | 77 69 6e 2e 49 44 3d 22 |.. s|win.ID="|
|000021a0| 53 57 49 4e 22 0a 20 20 | 20 20 20 73 77 69 6e 2e |SWIN". | swin.|
|000021b0| 54 69 74 6c 65 3d 22 53 | 65 61 72 63 68 22 0a 20 |Title="S|earch". |
|000021c0| 20 20 20 20 73 77 69 6e | 2e 43 6f 6e 74 65 6e 74 | swin|.Content|
|000021d0| 73 3d 22 73 6d 67 72 6f | 75 70 22 0a 20 20 20 20 |s="smgro|up". |
|000021e0| 20 20 73 6d 67 72 6f 75 | 70 2e 30 3d 22 73 67 31 | smgrou|p.0="sg1|
|000021f0| 22 0a 20 20 20 20 20 20 | 20 73 67 31 2e 43 6c 61 |". | sg1.Cla|
|00002200| 73 73 3d 22 67 72 6f 75 | 70 22 0a 20 20 20 20 20 |ss="grou|p". |
|00002210| 20 20 73 67 31 2e 48 6f | 72 69 7a 3d 31 0a 20 20 | sg1.Ho|riz=1. |
|00002220| 20 20 20 20 20 20 73 67 | 31 2e 30 3d 4c 61 62 65 | sg|1.0=Labe|
|00002230| 6c 28 22 53 65 61 72 63 | 5f 68 22 29 0a 20 20 20 |l("Searc|_h"). |
|00002240| 20 20 20 20 20 73 67 31 | 2e 31 3d 53 74 72 69 6e | sg1|.1=Strin|
|00002250| 67 28 22 73 65 61 72 63 | 68 22 2c 22 68 22 29 0a |g("searc|h","h").|
|00002260| 20 20 20 20 20 20 73 6d | 67 72 6f 75 70 2e 31 3d | sm|group.1=|
|00002270| 22 73 67 32 22 0a 20 20 | 20 20 20 20 20 73 67 32 |"sg2". | sg2|
|00002280| 2e 43 6c 61 73 73 3d 22 | 67 72 6f 75 70 22 0a 20 |.Class="|group". |
|00002290| 20 20 20 20 20 20 73 67 | 32 2e 48 6f 72 69 7a 3d | sg|2.Horiz=|
|000022a0| 31 0a 20 20 20 20 20 20 | 20 20 73 67 32 2e 30 3d |1. | sg2.0=|
|000022b0| 42 75 74 74 6f 6e 28 22 | 70 72 65 64 22 2c 22 5f |Button("|pred","_|
|000022c0| 50 72 65 64 22 29 0a 20 | 20 20 20 20 20 20 20 73 |Pred"). | s|
|000022d0| 67 32 2e 31 3d 42 75 74 | 74 6f 6e 28 22 73 75 63 |g2.1=But|ton("suc|
|000022e0| 63 22 2c 22 5f 53 75 63 | 63 22 29 0a 20 20 20 20 |c","_Suc|c"). |
|000022f0| 72 65 73 3d 4e 65 77 4f | 62 6a 28 22 77 69 6e 64 |res=NewO|bj("wind|
|00002300| 6f 77 22 2c 22 73 77 69 | 6e 22 29 0a 20 20 20 20 |ow","swi|n"). |
|00002310| 69 66 20 72 65 73 7e 3d | 30 20 74 68 65 6e 20 64 |if res~=|0 then d|
|00002320| 6f 0a 20 20 20 20 20 20 | 20 20 63 61 6c 6c 20 45 |o. | call E|
|00002330| 61 73 79 52 65 71 75 65 | 73 74 28 22 43 61 6e 27 |asyReque|st("Can'|
|00002340| 74 20 63 72 65 61 74 65 | 20 73 65 61 72 63 68 20 |t create| search |
|00002350| 77 69 6e 64 6f 77 22 29 | 0a 20 20 20 20 20 20 20 |window")|. |
|00002360| 20 65 78 69 74 0a 20 20 | 20 20 65 6e 64 0a 09 63 | exit. | end..c|
|00002370| 61 6c 6c 20 41 64 64 28 | 22 61 70 70 22 2c 22 73 |all Add(|"app","s|
|00002380| 77 69 6e 22 29 0a 0a 09 | 63 61 6c 6c 20 41 64 76 |win")...|call Adv|
|00002390| 61 6e 63 65 49 6e 74 72 | 6f 28 22 53 65 74 74 69 |anceIntr|o("Setti|
|000023a0| 6e 67 20 75 70 20 2e 2e | 2e 22 29 0a 0a 20 20 20 |ng up ..|.").. |
|000023b0| 20 63 61 6c 6c 20 4e 6f | 74 69 66 79 28 22 6d 77 | call No|tify("mw|
|000023c0| 69 6e 22 2c 22 63 6c 6f | 73 65 72 65 71 75 65 73 |in","clo|sereques|
|000023d0| 74 22 2c 31 2c 22 61 70 | 70 22 2c 22 52 65 74 75 |t",1,"ap|p","Retu|
|000023e0| 72 6e 49 44 22 2c 22 71 | 75 69 74 22 29 0a 0a 20 |rnID","q|uit").. |
|000023f0| 20 20 20 63 61 6c 6c 20 | 4e 6f 74 69 66 79 28 22 | call |Notify("|
|00002400| 6d 77 69 6e 22 2c 22 49 | 6e 70 75 74 45 76 65 6e |mwin","I|nputEven|
|00002410| 74 22 2c 22 72 61 6d 69 | 67 61 20 62 22 2c 22 61 |t","rami|ga b","a|
|00002420| 70 70 22 2c 22 52 65 74 | 75 72 6e 22 2c 22 63 61 |pp","Ret|urn","ca|
|00002430| 6c 6c 20 47 6f 55 52 4c | 28 27 42 41 43 4b 27 29 |ll GoURL|('BACK')|
|00002440| 22 29 0a 20 20 20 20 63 | 61 6c 6c 20 4e 6f 74 69 |"). c|all Noti|
|00002450| 66 79 28 22 6d 77 69 6e | 22 2c 22 49 6e 70 75 74 |fy("mwin|","Input|
|00002460| 45 76 65 6e 74 22 2c 22 | 72 61 6d 69 67 61 20 6e |Event","|ramiga n|
|00002470| 22 2c 22 61 70 70 22 2c | 22 52 65 74 75 72 6e 22 |","app",|"Return"|
|00002480| 2c 22 63 61 6c 6c 20 47 | 6f 55 52 4c 28 27 46 4f |,"call G|oURL('FO|
|00002490| 52 57 41 52 44 27 29 22 | 29 0a 20 20 20 20 63 61 |RWARD')"|). ca|
|000024a0| 6c 6c 20 4e 6f 74 69 66 | 79 28 22 6d 77 69 6e 22 |ll Notif|y("mwin"|
|000024b0| 2c 22 49 6e 70 75 74 45 | 76 65 6e 74 22 2c 22 72 |,"InputE|vent","r|
|000024c0| 61 6d 69 67 61 20 72 22 | 2c 22 68 74 6d 6c 22 2c |amiga r"|,"html",|
|000024d0| 22 52 65 6c 6f 61 64 22 | 29 0a 20 20 20 20 63 61 |"Reload"|). ca|
|000024e0| 6c 6c 20 4e 6f 74 69 66 | 79 28 22 6d 77 69 6e 22 |ll Notif|y("mwin"|
|000024f0| 2c 22 49 6e 70 75 74 45 | 76 65 6e 74 22 2c 22 72 |,"InputE|vent","r|
|00002500| 61 6d 69 67 61 20 67 22 | 2c 22 73 77 69 6e 22 2c |amiga g"|,"swin",|
|00002510| 22 53 65 74 22 2c 22 4f | 70 65 6e 22 2c 31 29 0a |"Set","O|pen",1).|
|00002520| 0a 20 20 20 20 63 61 6c | 6c 20 4e 6f 74 69 66 79 |. cal|l Notify|
|00002530| 28 22 6d 61 62 6f 75 74 | 22 2c 22 4d 65 6e 75 54 |("mabout|","MenuT|
|00002540| 72 69 67 67 65 72 22 2c | 22 45 76 65 72 79 54 69 |rigger",|"EveryTi|
|00002550| 6d 65 22 2c 22 61 70 70 | 22 2c 22 41 62 6f 75 74 |me","app|","About|
|00002560| 22 2c 22 6d 77 69 6e 22 | 29 0a 20 20 20 20 63 61 |","mwin"|). ca|
|00002570| 6c 6c 20 4e 6f 74 69 66 | 79 28 22 6d 61 62 6f 75 |ll Notif|y("mabou|
|00002580| 74 72 78 6d 75 69 22 2c | 22 4d 65 6e 75 54 72 69 |trxmui",|"MenuTri|
|00002590| 67 67 65 72 22 2c 22 45 | 76 65 72 79 54 69 6d 65 |gger","E|veryTime|
|000025a0| 22 2c 22 61 70 70 22 2c | 22 41 62 6f 75 74 52 58 |","app",|"AboutRX|
|000025b0| 4d 55 49 22 2c 22 6d 77 | 69 6e 22 29 0a 20 20 20 |MUI","mw|in"). |
|000025c0| 20 63 61 6c 6c 20 4e 6f | 74 69 66 79 28 22 6d 61 | call No|tify("ma|
|000025d0| 62 6f 75 74 6d 75 69 22 | 2c 22 4d 65 6e 75 54 72 |boutmui"|,"MenuTr|
|000025e0| 69 67 67 65 72 22 2c 22 | 45 76 65 72 79 54 69 6d |igger","|EveryTim|
|000025f0| 65 22 2c 22 61 70 70 22 | 2c 22 41 62 6f 75 74 4d |e","app"|,"AboutM|
|00002600| 55 49 22 2c 22 6d 77 69 | 6e 22 29 0a 20 20 20 20 |UI","mwi|n"). |
|00002610| 63 61 6c 6c 20 4e 6f 74 | 69 66 79 28 22 6d 68 69 |call Not|ify("mhi|
|00002620| 64 65 22 2c 22 4d 65 6e | 75 54 72 69 67 67 65 72 |de","Men|uTrigger|
|00002630| 22 2c 22 45 76 65 72 79 | 54 69 6d 65 22 2c 22 61 |","Every|Time","a|
|00002640| 70 70 22 2c 22 53 65 74 | 22 2c 22 49 63 6f 6e 69 |pp","Set|","Iconi|
|00002650| 66 69 65 64 22 2c 31 29 | 0a 20 20 20 20 63 61 6c |fied",1)|. cal|
|00002660| 6c 20 4e 6f 74 69 66 79 | 28 22 6d 71 75 69 74 22 |l Notify|("mquit"|
|00002670| 2c 22 4d 65 6e 75 54 72 | 69 67 67 65 72 22 2c 22 |,"MenuTr|igger","|
|00002680| 45 76 65 72 79 54 69 6d | 65 22 2c 22 61 70 70 22 |EveryTim|e","app"|
|00002690| 2c 22 52 65 74 75 72 6e | 49 44 22 2c 22 51 55 49 |,"Return|ID","QUI|
|000026a0| 54 22 29 0a 20 20 20 20 | 63 61 6c 6c 20 6e 6f 74 |T"). |call not|
|000026b0| 69 66 79 28 22 6d 66 75 | 6c 6c 22 2c 22 43 68 65 |ify("mfu|ll","Che|
|000026c0| 63 6b 65 64 22 2c 22 65 | 76 65 72 79 74 69 6d 65 |cked","e|verytime|
|000026d0| 22 2c 6d 67 72 6f 75 70 | 2e 30 2c 22 73 65 74 22 |",mgroup|.0,"set"|
|000026e0| 2c 22 53 68 6f 77 4d 65 | 22 2c 22 6e 6f 74 74 72 |,"ShowMe|","nottr|
|000026f0| 69 67 67 65 72 76 61 6c | 75 65 22 29 0a 20 20 20 |iggerval|ue"). |
|00002700| 20 63 61 6c 6c 20 6e 6f | 74 69 66 79 28 22 6d 66 | call no|tify("mf|
|00002710| 75 6c 6c 22 2c 22 43 68 | 65 63 6b 65 64 22 2c 22 |ull","Ch|ecked","|
|00002720| 65 76 65 72 79 74 69 6d | 65 22 2c 6d 67 72 6f 75 |everytim|e",mgrou|
|00002730| 70 2e 31 2c 22 73 65 74 | 22 2c 22 53 68 6f 77 4d |p.1,"set|","ShowM|
|00002740| 65 22 2c 22 6e 6f 74 74 | 72 69 67 67 65 72 76 61 |e","nott|riggerva|
|00002750| 6c 75 65 22 29 0a 20 20 | 20 20 63 61 6c 6c 20 6e |lue"). | call n|
|00002760| 6f 74 69 66 79 28 22 6d | 66 75 6c 6c 22 2c 22 43 |otify("m|full","C|
|00002770| 68 65 63 6b 65 64 22 2c | 22 65 76 65 72 79 74 69 |hecked",|"everyti|
|00002780| 6d 65 22 2c 6d 67 72 6f | 75 70 2e 33 2c 22 73 65 |me",mgro|up.3,"se|
|00002790| 74 22 2c 22 53 68 6f 77 | 4d 65 22 2c 22 6e 6f 74 |t","Show|Me","not|
|000027a0| 74 72 69 67 67 65 72 76 | 61 6c 75 65 22 29 0a 20 |triggerv|alue"). |
|000027b0| 20 20 20 63 61 6c 6c 20 | 4e 6f 74 69 66 79 28 22 | call |Notify("|
|000027c0| 6d 64 6f 63 73 22 2c 22 | 4d 65 6e 75 54 72 69 67 |mdocs","|MenuTrig|
|000027d0| 67 65 72 22 2c 22 45 76 | 65 72 79 54 69 6d 65 22 |ger","Ev|eryTime"|
|000027e0| 2c 22 61 70 70 22 2c 22 | 52 65 74 75 72 6e 22 2c |,"app","|Return",|
|000027f0| 22 63 61 6c 6c 20 4f 70 | 65 6e 43 6f 6e 66 69 67 |"call Op|enConfig|
|00002800| 57 69 6e 64 6f 77 28 29 | 22 29 0a 20 20 20 20 63 |Window()|"). c|
|00002810| 61 6c 6c 20 4e 6f 74 69 | 66 79 28 22 6d 6d 75 69 |all Noti|fy("mmui|
|00002820| 22 2c 22 4d 65 6e 75 54 | 72 69 67 67 65 72 22 2c |","MenuT|rigger",|
|00002830| 22 45 76 65 72 79 54 69 | 6d 65 22 2c 22 61 70 70 |"EveryTi|me","app|
|00002840| 22 2c 22 4f 70 65 6e 43 | 6f 6e 66 69 67 57 69 6e |","OpenC|onfigWin|
|00002850| 64 6f 77 22 29 0a 0a 20 | 20 20 20 63 61 6c 6c 20 |dow").. | call |
|00002860| 53 65 74 42 61 72 4e 6f | 74 69 66 69 65 73 28 29 |SetBarNo|tifies()|
|00002870| 0a 0a 20 20 20 20 63 61 | 6c 6c 20 4e 6f 74 69 66 |.. ca|ll Notif|
|00002880| 79 28 22 68 74 6d 6c 22 | 2c 22 54 69 74 6c 65 22 |y("html"|,"Title"|
|00002890| 2c 22 45 76 65 72 79 54 | 69 6d 65 22 2c 22 6d 77 |,"EveryT|ime","mw|
|000028a0| 69 6e 22 2c 22 53 65 74 | 22 2c 22 74 69 74 6c 65 |in","Set|","title|
|000028b0| 22 2c 22 54 72 69 67 67 | 65 72 56 61 6c 75 65 22 |","Trigg|erValue"|
|000028c0| 29 0a 20 20 20 20 63 61 | 6c 6c 20 4e 6f 74 69 66 |). ca|ll Notif|
|000028d0| 79 28 22 68 74 6d 6c 22 | 2c 22 43 6c 69 63 6b 65 |y("html"|,"Clicke|
|000028e0| 64 55 52 4c 22 2c 22 45 | 76 65 72 79 54 69 6d 65 |dURL","E|veryTime|
|000028f0| 22 2c 22 61 70 70 22 2c | 22 52 65 74 75 72 6e 22 |","app",|"Return"|
|00002900| 2c 22 63 61 6c 6c 20 4e | 65 77 55 52 4c 46 75 6e |,"call N|ewURLFun|
|00002910| 28 68 2e 63 6c 69 63 6b | 65 64 75 72 6c 29 22 2c |(h.click|edurl)",|
|00002920| 22 74 72 69 67 67 65 72 | 61 74 74 72 22 29 0a 20 |"trigger|attr"). |
|00002930| 20 20 20 63 61 6c 6c 20 | 4e 6f 74 69 66 79 28 22 | call |Notify("|
|00002940| 68 74 6d 6c 22 2c 22 43 | 75 72 72 65 6e 74 55 52 |html","C|urrentUR|
|00002950| 4c 22 2c 22 45 76 65 72 | 79 54 69 6d 65 22 2c 22 |L","Ever|yTime","|
|00002960| 69 6e 66 6f 22 2c 22 53 | 65 74 22 2c 22 43 6f 6e |info","S|et","Con|
|00002970| 74 65 6e 74 73 22 2c 22 | 54 72 69 67 67 65 72 56 |tents","|TriggerV|
|00002980| 61 6c 75 65 22 29 0a 20 | 20 20 20 63 61 6c 6c 20 |alue"). | call |
|00002990| 4e 6f 74 69 66 79 28 22 | 68 74 6d 6c 22 2c 22 56 |Notify("|html","V|
|000029a0| 69 72 74 47 72 6f 75 70 | 57 69 64 74 68 22 2c 22 |irtGroup|Width","|
|000029b0| 45 76 65 72 79 54 69 6d | 65 22 2c 22 73 62 62 22 |EveryTim|e","sbb"|
|000029c0| 2c 22 53 65 74 22 2c 22 | 45 6e 74 72 69 65 73 22 |,"Set","|Entries"|
|000029d0| 2c 22 54 72 69 67 67 65 | 72 56 61 6c 75 65 22 29 |,"Trigge|rValue")|
|000029e0| 0a 20 20 20 20 63 61 6c | 6c 20 4e 6f 74 69 66 79 |. cal|l Notify|
|000029f0| 28 22 68 74 6d 6c 22 2c | 22 56 69 72 74 47 72 6f |("html",|"VirtGro|
|00002a00| 75 70 4c 65 66 74 22 2c | 22 45 76 65 72 79 54 69 |upLeft",|"EveryTi|
|00002a10| 6d 65 22 2c 22 73 62 62 | 22 2c 22 53 65 74 22 2c |me","sbb|","Set",|
|00002a20| 22 46 69 72 73 74 22 2c | 22 54 72 69 67 67 65 72 |"First",|"Trigger|
|00002a30| 56 61 6c 75 65 22 29 0a | 20 20 20 20 63 61 6c 6c |Value").| call|
|00002a40| 20 4e 6f 74 69 66 79 28 | 22 68 74 6d 6c 22 2c 22 | Notify(|"html","|
|00002a50| 56 69 72 74 47 72 6f 75 | 70 48 65 69 67 68 74 22 |VirtGrou|pHeight"|
|00002a60| 2c 22 45 76 65 72 79 54 | 69 6d 65 22 2c 22 73 62 |,"EveryT|ime","sb|
|00002a70| 72 22 2c 22 53 65 74 22 | 2c 22 45 6e 74 72 69 65 |r","Set"|,"Entrie|
|00002a80| 73 22 2c 22 54 72 69 67 | 67 65 72 56 61 6c 75 65 |s","Trig|gerValue|
|00002a90| 22 29 0a 20 20 20 20 63 | 61 6c 6c 20 4e 6f 74 69 |"). c|all Noti|
|00002aa0| 66 79 28 22 68 74 6d 6c | 22 2c 22 56 69 72 74 47 |fy("html|","VirtG|
|00002ab0| 72 6f 75 70 54 6f 70 22 | 2c 22 45 76 65 72 79 54 |roupTop"|,"EveryT|
|00002ac0| 69 6d 65 22 2c 22 73 62 | 72 22 2c 22 53 65 74 22 |ime","sb|r","Set"|
|00002ad0| 2c 22 46 69 72 73 74 22 | 2c 22 54 72 69 67 67 65 |,"First"|,"Trigge|
|00002ae0| 72 56 61 6c 75 65 22 29 | 0a 20 20 20 20 63 61 6c |rValue")|. cal|
|00002af0| 6c 20 4e 6f 74 69 66 79 | 28 22 68 74 6d 6c 22 2c |l Notify|("html",|
|00002b00| 22 57 69 64 74 68 22 2c | 22 45 76 65 72 79 54 69 |"Width",|"EveryTi|
|00002b10| 6d 65 22 2c 22 73 62 62 | 22 2c 22 53 65 74 22 2c |me","sbb|","Set",|
|00002b20| 22 56 69 73 69 62 6c 65 | 22 2c 22 54 72 69 67 67 |"Visible|","Trigg|
|00002b30| 65 72 56 61 6c 75 65 22 | 29 0a 20 20 20 20 63 61 |erValue"|). ca|
|00002b40| 6c 6c 20 4e 6f 74 69 66 | 79 28 22 68 74 6d 6c 22 |ll Notif|y("html"|
|00002b50| 2c 22 48 65 69 67 68 74 | 22 2c 22 45 76 65 72 79 |,"Height|","Every|
|00002b60| 54 69 6d 65 22 2c 22 73 | 62 72 22 2c 22 4e 6f 4e |Time","s|br","NoN|
|00002b70| 6f 74 69 66 79 53 65 74 | 22 2c 22 56 69 73 69 62 |otifySet|","Visib|
|00002b80| 6c 65 22 2c 22 54 72 69 | 67 67 65 72 56 61 6c 75 |le","Tri|ggerValu|
|00002b90| 65 22 29 0a 0a 20 20 20 | 20 63 61 6c 6c 20 4e 6f |e").. | call No|
|00002ba0| 74 69 66 79 28 22 73 62 | 62 22 2c 22 66 69 72 73 |tify("sb|b","firs|
|00002bb0| 74 22 2c 22 45 76 65 72 | 79 54 69 6d 65 22 2c 22 |t","Ever|yTime","|
|00002bc0| 68 74 6d 6c 22 2c 22 53 | 65 74 22 2c 22 56 69 72 |html","S|et","Vir|
|00002bd0| 74 47 72 6f 75 70 4c 65 | 66 74 22 2c 22 54 72 69 |tGroupLe|ft","Tri|
|00002be0| 67 67 65 72 56 61 6c 75 | 65 22 29 0a 20 20 20 20 |ggerValu|e"). |
|00002bf0| 63 61 6c 6c 20 4e 6f 74 | 69 66 79 28 22 73 62 72 |call Not|ify("sbr|
|00002c00| 22 2c 22 66 69 72 73 74 | 22 2c 22 45 76 65 72 79 |","first|","Every|
|00002c10| 54 69 6d 65 22 2c 22 68 | 74 6d 6c 22 2c 22 53 65 |Time","h|tml","Se|
|00002c20| 74 22 2c 22 56 69 72 74 | 47 72 6f 75 70 54 6f 70 |t","Virt|GroupTop|
|00002c30| 22 2c 22 54 72 69 67 67 | 65 72 56 61 6c 75 65 22 |","Trigg|erValue"|
|00002c40| 29 0a 0a 20 20 20 20 63 | 61 6c 6c 20 73 65 74 28 |).. c|all set(|
|00002c50| 22 6d 77 69 6e 22 2c 22 | 44 65 66 61 75 6c 74 4f |"mwin","|DefaultO|
|00002c60| 62 6a 65 63 74 22 2c 22 | 68 74 6d 6c 22 29 0a 0a |bject","|html")..|
|00002c70| 20 20 20 20 63 61 6c 6c | 20 44 6f 4d 65 74 68 6f | call| DoMetho|
|00002c80| 64 28 22 68 74 6d 6c 22 | 2c 22 47 6f 55 52 4c 22 |d("html"|,"GoURL"|
|00002c90| 2c 67 6c 6f 62 61 6c 2e | 66 69 6c 65 29 0a 0a 20 |,global.|file).. |
|00002ca0| 20 20 20 63 61 6c 6c 20 | 53 65 74 42 61 72 47 61 | call |SetBarGa|
|00002cb0| 64 67 65 74 73 28 29 0a | 0a 20 20 20 20 63 61 6c |dgets().|. cal|
|00002cc0| 6c 20 4e 6f 74 69 66 79 | 28 22 73 77 69 6e 22 2c |l Notify|("swin",|
|00002cd0| 22 43 6c 6f 73 65 52 65 | 71 75 65 73 74 22 2c 31 |"CloseRe|quest",1|
|00002ce0| 2c 22 73 77 69 6e 22 2c | 22 53 65 74 22 2c 22 4f |,"swin",|"Set","O|
|00002cf0| 70 65 6e 22 2c 30 29 0a | 20 20 20 20 63 61 6c 6c |pen",0).| call|
|00002d00| 20 4e 6f 74 69 66 79 28 | 22 73 65 61 72 63 68 22 | Notify(|"search"|
|00002d10| 2c 22 4e 65 77 43 6f 6e | 74 65 6e 74 73 22 2c 22 |,"NewCon|tents","|
|00002d20| 45 76 65 72 79 54 69 6d | 65 22 2c 22 61 70 70 22 |EveryTim|e","app"|
|00002d30| 2c 22 52 65 74 75 72 6e | 22 2c 22 63 61 6c 6c 20 |,"Return|","call |
|00002d40| 53 65 61 72 63 68 46 75 | 6e 28 27 53 45 41 52 43 |SearchFu|n('SEARC|
|00002d50| 48 54 4f 50 20 27 29 22 | 29 0a 20 20 20 20 63 61 |HTOP ')"|). ca|
|00002d60| 6c 6c 20 4e 6f 74 69 66 | 79 28 22 70 72 65 64 22 |ll Notif|y("pred"|
|00002d70| 2c 22 50 72 65 73 73 65 | 64 22 2c 30 2c 22 61 70 |,"Presse|d",0,"ap|
|00002d80| 70 22 2c 22 52 65 74 75 | 72 6e 22 2c 22 63 61 6c |p","Retu|rn","cal|
|00002d90| 6c 20 53 65 61 72 63 68 | 46 75 6e 28 27 53 45 41 |l Search|Fun('SEA|
|00002da0| 52 43 48 42 41 43 4b 27 | 29 22 29 0a 20 20 20 20 |RCHBACK'|)"). |
|00002db0| 63 61 6c 6c 20 4e 6f 74 | 69 66 79 28 22 73 75 63 |call Not|ify("suc|
|00002dc0| 63 22 2c 22 50 72 65 73 | 73 65 64 22 2c 30 2c 22 |c","Pres|sed",0,"|
|00002dd0| 61 70 70 22 2c 22 52 65 | 74 75 72 6e 22 2c 22 63 |app","Re|turn","c|
|00002de0| 61 6c 6c 20 53 65 61 72 | 63 68 46 75 6e 28 27 53 |all Sear|chFun('S|
|00002df0| 45 41 52 43 48 4e 45 58 | 54 27 29 22 29 0a 0a 20 |EARCHNEX|T')").. |
|00002e00| 20 20 20 63 61 6c 6c 20 | 44 6f 4d 65 74 68 6f 64 | call |DoMethod|
|00002e10| 28 22 73 77 69 6e 22 2c | 22 53 65 74 43 79 63 6c |("swin",|"SetCycl|
|00002e20| 65 43 68 61 69 6e 22 2c | 22 73 65 61 72 63 68 22 |eChain",|"search"|
|00002e30| 2c 22 70 72 65 64 22 2c | 22 73 75 63 63 22 29 0a |,"pred",|"succ").|
|00002e40| 0a 20 20 20 20 72 65 74 | 75 72 6e 0a 2f 2a 2a 2a |. ret|urn./***|
|00002e50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e90| 2a 2a 2a 2a 2f 0a 43 72 | 65 61 74 65 42 61 72 3a |****/.Cr|eateBar:|
|00002ea0| 20 70 72 6f 63 65 64 75 | 72 65 20 65 78 70 6f 73 | procedu|re expos|
|00002eb0| 65 20 67 6c 6f 62 61 6c | 2e 0a 70 61 72 73 65 20 |e global|..parse |
|00002ec0| 61 72 67 20 64 69 72 2c | 6e 61 6d 65 2c 69 6d 2c |arg dir,|name,im,|
|00002ed0| 73 70 2c 72 65 63 0a 0a | 20 20 20 20 62 61 72 2e |sp,rec..| bar.|
|00002ee0| 53 70 61 63 69 6e 67 3d | 73 70 0a 20 20 20 20 62 |Spacing=|sp. b|
|00002ef0| 61 72 2e 53 70 72 65 61 | 64 3d 31 0a 20 20 20 20 |ar.Sprea|d=1. |
|00002f00| 62 61 72 2e 48 6f 72 69 | 7a 3d 31 0a 20 20 20 20 |bar.Hori|z=1. |
|00002f10| 62 61 72 2e 53 61 6d 65 | 48 65 69 67 68 74 3d 31 |bar.Same|Height=1|
|00002f20| 0a 20 20 20 20 62 61 72 | 2e 53 61 6d 65 57 69 64 |. bar|.SameWid|
|00002f30| 74 68 3d 31 0a 20 20 20 | 20 62 61 72 2e 52 61 69 |th=1. | bar.Rai|
|00002f40| 73 69 6e 67 46 72 61 6d | 65 3d 67 6c 6f 62 61 6c |singFram|e=global|
|00002f50| 2e 52 61 69 73 69 6e 67 | 46 72 61 6d 65 0a 20 20 |.Raising|Frame. |
|00002f60| 20 20 62 61 72 2e 42 6f | 72 64 65 72 6c 65 73 73 | bar.Bo|rderless|
|00002f70| 3d 67 6c 6f 62 61 6c 2e | 42 6f 72 64 65 72 4c 65 |=global.|BorderLe|
|00002f80| 73 73 0a 20 20 20 20 69 | 66 20 69 6d 20 74 68 65 |ss. i|f im the|
|00002f90| 6e 20 62 61 72 2e 56 69 | 65 77 4d 6f 64 65 3d 67 |n bar.Vi|ewMode=g|
|00002fa0| 6c 6f 62 61 6c 2e 56 69 | 65 77 4d 6f 64 65 0a 20 |lobal.Vi|ewMode. |
|00002fb0| 20 20 20 65 6c 73 65 20 | 62 61 72 2e 56 69 65 77 | else |bar.View|
|00002fc0| 4d 6f 64 65 3d 22 54 45 | 58 54 22 0a 20 20 20 20 |Mode="TE|XT". |
|00002fd0| 62 61 72 2e 53 75 6e 6e | 79 3d 67 6c 6f 62 61 6c |bar.Sunn|y=global|
|00002fe0| 2e 53 75 6e 6e 79 0a 20 | 20 20 20 62 61 72 2e 53 |.Sunny. | bar.S|
|00002ff0| 6d 61 6c 6c 49 6d 61 67 | 65 73 3d 67 6c 6f 62 61 |mallImag|es=globa|
|00003000| 6c 2e 53 6d 61 6c 6c 49 | 6d 61 67 65 73 0a 20 20 |l.SmallI|mages. |
|00003010| 20 20 69 66 20 69 6d 20 | 74 68 65 6e 20 62 61 72 | if im |then bar|
|00003020| 2e 30 2e 49 6d 67 3d 41 | 64 64 50 61 72 74 28 64 |.0.Img=A|ddPart(d|
|00003030| 69 72 2c 22 42 61 63 6b | 22 29 0a 20 20 20 20 62 |ir,"Back|"). b|
|00003040| 61 72 2e 30 2e 54 65 78 | 74 3d 22 42 61 63 6b 22 |ar.0.Tex|t="Back"|
|00003050| 0a 20 20 20 20 69 66 20 | 69 6d 20 74 68 65 6e 20 |. if |im then |
|00003060| 62 61 72 2e 31 2e 49 6d | 67 3d 41 64 64 50 61 72 |bar.1.Im|g=AddPar|
|00003070| 74 28 64 69 72 2c 22 46 | 6f 72 77 61 72 64 22 29 |t(dir,"F|orward")|
|00003080| 0a 20 20 20 20 62 61 72 | 2e 31 2e 54 65 78 74 3d |. bar|.1.Text=|
|00003090| 22 46 6f 72 77 61 72 64 | 22 0a 20 20 20 20 69 66 |"Forward|". if|
|000030a0| 20 69 6d 20 74 68 65 6e | 20 62 61 72 2e 32 2e 49 | im then| bar.2.I|
|000030b0| 6d 67 3d 41 64 64 50 61 | 72 74 28 64 69 72 2c 22 |mg=AddPa|rt(dir,"|
|000030c0| 52 65 6c 6f 61 64 22 29 | 0a 20 20 20 20 62 61 72 |Reload")|. bar|
|000030d0| 2e 32 2e 54 65 78 74 3d | 22 52 65 6c 6f 61 64 22 |.2.Text=|"Reload"|
|000030e0| 0a 20 20 20 20 69 66 20 | 69 6d 20 74 68 65 6e 20 |. if |im then |
|000030f0| 62 61 72 2e 33 2e 49 6d | 67 3d 41 64 64 50 61 72 |bar.3.Im|g=AddPar|
|00003100| 74 28 64 69 72 2c 22 53 | 74 6f 70 22 29 0a 20 20 |t(dir,"S|top"). |
|00003110| 20 20 62 61 72 2e 33 2e | 54 65 78 74 3d 22 53 74 | bar.3.|Text="St|
|00003120| 6f 70 22 0a 20 20 20 20 | 69 66 20 69 6d 20 74 68 |op". |if im th|
|00003130| 65 6e 20 62 61 72 2e 34 | 2e 49 6d 67 3d 41 64 64 |en bar.4|.Img=Add|
|00003140| 50 61 72 74 28 64 69 72 | 2c 22 53 65 61 72 63 68 |Part(dir|,"Search|
|00003150| 22 29 0a 20 20 20 20 62 | 61 72 2e 34 2e 54 65 78 |"). b|ar.4.Tex|
|00003160| 74 3d 22 46 69 6e 64 22 | 0a 20 20 20 20 63 61 6c |t="Find"|. cal|
|00003170| 6c 20 52 78 4d 55 49 4f | 70 74 28 22 22 29 0a 20 |l RxMUIO|pt(""). |
|00003180| 20 20 20 72 65 73 3d 4e | 65 77 4f 62 6a 28 22 73 | res=N|ewObj("s|
|00003190| 70 65 65 64 62 61 72 22 | 2c 6e 61 6d 65 2c 22 62 |peedbar"|,name,"b|
|000031a0| 61 72 22 29 0a 20 20 20 | 20 63 61 6c 6c 20 52 78 |ar"). | call Rx|
|000031b0| 4d 55 49 4f 70 74 28 22 | 44 65 62 75 67 4d 6f 64 |MUIOpt("|DebugMod|
|000031c0| 65 20 53 68 6f 77 45 72 | 72 22 29 0a 20 20 20 20 |e ShowEr|r"). |
|000031d0| 69 66 20 72 65 73 7e 3d | 30 20 74 68 65 6e 0a 20 |if res~=|0 then. |
|000031e0| 20 20 20 20 20 20 20 69 | 66 20 69 6d 20 26 20 7e | i|f im & ~|
|000031f0| 72 65 63 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |rec then| return |
|00003200| 43 72 65 61 74 65 42 61 | 72 28 64 69 72 2c 6e 61 |CreateBa|r(dir,na|
|00003210| 6d 65 2c 30 2c 73 70 2c | 31 29 0a 20 20 20 20 20 |me,0,sp,|1). |
|00003220| 20 20 20 65 6c 73 65 20 | 64 6f 0a 20 20 20 20 20 | else |do. |
|00003230| 20 20 20 20 20 20 20 63 | 61 6c 6c 20 45 61 73 79 | c|all Easy|
|00003240| 52 65 71 75 65 73 74 28 | 22 43 61 6e 27 74 20 63 |Request(|"Can't c|
|00003250| 72 65 61 74 65 20 53 70 | 65 65 64 62 61 72 22 29 |reate Sp|eedbar")|
|00003260| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 65 78 69 |. | exi|
|00003270| 74 0a 20 20 20 20 20 20 | 20 20 65 6e 64 0a 20 20 |t. | end. |
|00003280| 20 20 72 65 74 75 72 6e | 20 6e 61 6d 65 0a 2f 2a | return| name./*|
|00003290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000032a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000032b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000032c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000032d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2f 0a 53 65 74 42 61 |********|*/.SetBa|
|000032e0| 72 4e 6f 74 69 66 69 65 | 73 3a 20 70 72 6f 63 65 |rNotifie|s: proce|
|000032f0| 64 75 72 65 20 65 78 70 | 6f 73 65 20 67 6c 6f 62 |dure exp|ose glob|
|00003300| 61 6c 2e 0a 20 20 20 20 | 63 61 6c 6c 20 4e 6f 74 |al.. |call Not|
|00003310| 69 66 79 28 22 73 62 2e | 30 22 2c 22 50 72 65 73 |ify("sb.|0","Pres|
|00003320| 73 65 64 22 2c 30 2c 22 | 61 70 70 22 2c 22 52 65 |sed",0,"|app","Re|
|00003330| 74 75 72 6e 22 2c 22 63 | 61 6c 6c 20 47 6f 55 52 |turn","c|all GoUR|
|00003340| 4c 28 27 42 41 43 4b 27 | 29 22 29 0a 20 20 20 20 |L('BACK'|)"). |
|00003350| 63 61 6c 6c 20 4e 6f 74 | 69 66 79 28 22 73 62 2e |call Not|ify("sb.|
|00003360| 31 22 2c 22 50 72 65 73 | 73 65 64 22 2c 30 2c 22 |1","Pres|sed",0,"|
|00003370| 61 70 70 22 2c 22 52 65 | 74 75 72 6e 22 2c 22 63 |app","Re|turn","c|
|00003380| 61 6c 6c 20 47 6f 55 52 | 4c 28 27 46 4f 52 57 41 |all GoUR|L('FORWA|
|00003390| 52 44 27 29 22 29 0a 20 | 20 20 20 63 61 6c 6c 20 |RD')"). | call |
|000033a0| 4e 6f 74 69 66 79 28 22 | 73 62 2e 32 22 2c 22 50 |Notify("|sb.2","P|
|000033b0| 72 65 73 73 65 64 22 2c | 30 2c 22 68 74 6d 6c 22 |ressed",|0,"html"|
|000033c0| 2c 22 52 65 6c 6f 61 64 | 22 29 0a 20 20 20 20 63 |,"Reload|"). c|
|000033d0| 61 6c 6c 20 4e 6f 74 69 | 66 79 28 22 73 62 2e 33 |all Noti|fy("sb.3|
|000033e0| 22 2c 22 50 72 65 73 73 | 65 64 22 2c 30 2c 22 68 |","Press|ed",0,"h|
|000033f0| 74 6d 6c 22 2c 22 41 62 | 6f 72 74 22 29 0a 20 20 |tml","Ab|ort"). |
|00003400| 20 20 63 61 6c 6c 20 4e | 6f 74 69 66 79 28 22 73 | call N|otify("s|
|00003410| 62 2e 34 22 2c 22 50 72 | 65 73 73 65 64 22 2c 30 |b.4","Pr|essed",0|
|00003420| 2c 22 73 77 69 6e 22 2c | 22 53 65 74 22 2c 22 4f |,"swin",|"Set","O|
|00003430| 70 65 6e 22 2c 31 29 0a | 20 20 20 20 72 65 74 75 |pen",1).| retu|
|00003440| 72 6e 0a 2f 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |rn./****|********|
|00003450| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003460| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003470| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003480| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2f 0a |********|******/.|
|00003490| 69 6e 66 6f 3a 20 70 72 | 6f 63 65 64 75 72 65 20 |info: pr|ocedure |
|000034a0| 65 78 70 6f 73 65 20 67 | 6c 6f 62 61 6c 2e 0a 70 |expose g|lobal..p|
|000034b0| 61 72 73 65 20 61 72 67 | 20 6d 73 67 0a 20 20 20 |arse arg| msg. |
|000034c0| 20 63 61 6c 6c 20 73 65 | 74 28 22 69 6e 66 6f 22 | call se|t("info"|
|000034d0| 2c 22 43 6f 6e 74 65 6e | 74 73 22 2c 6d 73 67 29 |,"Conten|ts",msg)|
|000034e0| 0a 20 20 20 20 72 65 74 | 75 72 6e 0a 2f 2a 2a 2a |. ret|urn./***|
|000034f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003530| 2a 2a 2a 2a 2a 2a 2a 2f | 0a 53 65 74 42 61 72 47 |*******/|.SetBarG|
|00003540| 61 64 67 65 74 73 3a 20 | 70 72 6f 63 65 64 75 72 |adgets: |procedur|
|00003550| 65 20 65 78 70 6f 73 65 | 20 67 6c 6f 62 61 6c 2e |e expose| global.|
|00003560| 0a 20 20 20 20 63 3d 67 | 6c 6f 62 61 6c 2e 68 69 |. c=g|lobal.hi|
|00003570| 73 74 6f 72 79 2e 63 75 | 72 72 65 6e 74 0a 20 20 |story.cu|rrent. |
|00003580| 20 20 63 61 6c 6c 20 44 | 6f 4d 65 74 68 6f 64 28 | call D|oMethod(|
|00003590| 22 73 62 22 2c 22 44 69 | 73 61 62 6c 65 22 2c 30 |"sb","Di|sable",0|
|000035a0| 2c 67 6c 6f 62 61 6c 2e | 68 69 73 74 6f 72 79 2e |,global.|history.|
|000035b0| 63 2e 70 72 65 64 3d 3d | 2d 31 29 0a 20 20 20 20 |c.pred==|-1). |
|000035c0| 63 61 6c 6c 20 44 6f 4d | 65 74 68 6f 64 28 22 73 |call DoM|ethod("s|
|000035d0| 62 22 2c 22 44 69 73 61 | 62 6c 65 22 2c 31 2c 67 |b","Disa|ble",1,g|
|000035e0| 6c 6f 62 61 6c 2e 68 69 | 73 74 6f 72 79 2e 63 2e |lobal.hi|story.c.|
|000035f0| 73 75 63 63 3d 3d 2d 31 | 29 0a 20 20 20 20 72 65 |succ==-1|). re|
|00003600| 74 75 72 6e 0a 2f 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |turn./**|********|
|00003610| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003620| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003630| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003640| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003650| 2f 0a 68 61 6c 74 3a 0a | 62 72 65 61 6b 5f 63 3a |/.halt:.|break_c:|
|00003660| 0a 20 20 20 20 65 78 69 | 74 0a 2f 2a 2a 2a 2a 2a |. exi|t./*****|
|00003670| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000036a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000036b0| 2a 2a 2a 2a 2a 2f 0a 48 | 61 6e 64 6c 65 41 70 70 |*****/.H|andleApp|
|000036c0| 3a 20 70 72 6f 63 65 64 | 75 72 65 20 65 78 70 6f |: proced|ure expo|
|000036d0| 73 65 20 67 6c 6f 62 61 | 6c 2e 0a 20 20 20 20 63 |se globa|l.. c|
|000036e0| 74 72 6c 5f 63 3d 32 2a | 2a 31 32 0a 20 20 20 20 |trl_c=2*|*12. |
|000036f0| 64 6f 20 66 6f 72 65 76 | 65 72 0a 20 20 20 20 20 |do forev|er. |
|00003700| 20 20 20 63 61 6c 6c 20 | 4e 65 77 48 61 6e 64 6c | call |NewHandl|
|00003710| 65 28 22 61 70 70 22 2c | 22 68 22 2c 63 74 72 6c |e("app",|"h",ctrl|
|00003720| 5f 63 29 0a 20 20 20 20 | 20 20 20 20 69 66 20 61 |_c). | if a|
|00003730| 6e 64 28 68 2e 73 69 67 | 6e 61 6c 73 2c 63 74 72 |nd(h.sig|nals,ctr|
|00003740| 6c 5f 63 29 3e 30 20 74 | 68 65 6e 20 65 78 69 74 |l_c)>0 t|hen exit|
|00003750| 0a 20 20 20 20 20 20 20 | 20 73 65 6c 65 63 74 0a |. | select.|
|00003760| 20 20 20 20 20 20 20 20 | 20 20 20 20 77 68 65 6e | | when|
|00003770| 20 68 2e 65 76 65 6e 74 | 3d 22 51 55 49 54 22 20 | h.event|="QUIT" |
|00003780| 74 68 65 6e 20 65 78 69 | 74 0a 20 20 20 20 20 20 |then exi|t. |
|00003790| 20 20 20 20 20 20 6f 74 | 68 65 72 77 69 73 65 20 | ot|herwise |
|000037a0| 69 6e 74 65 72 70 72 65 | 74 20 68 2e 65 76 65 6e |interpre|t h.even|
|000037b0| 74 0a 20 20 20 20 20 20 | 20 20 65 6e 64 0a 20 20 |t. | end. |
|000037c0| 20 20 65 6e 64 0a 20 20 | 20 20 2f 2a 20 6e 65 76 | end. | /* nev|
|000037d0| 65 72 20 72 65 61 63 68 | 65 64 20 2a 2f 0a 2f 2a |er reach|ed */./*|
|000037e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000037f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003820| 2a 2a 2a 2a 2a 2a 2f 0a | 47 6f 55 52 4c 3a 20 70 |******/.|GoURL: p|
|00003830| 72 6f 63 65 64 75 72 65 | 20 65 78 70 6f 73 65 20 |rocedure| expose |
|00003840| 67 6c 6f 62 61 6c 2e 0a | 70 61 72 73 65 20 61 72 |global..|parse ar|
|00003850| 67 20 6d 65 74 68 6f 64 | 2c 6e 75 72 6c 2c 6e 74 |g method|,nurl,nt|
|00003860| 61 72 67 65 74 0a 0a 20 | 20 20 20 73 65 6c 65 63 |arget.. | selec|
|00003870| 74 0a 20 20 20 20 20 20 | 20 20 77 68 65 6e 20 75 |t. | when u|
|00003880| 70 70 65 72 28 6c 65 66 | 74 28 6e 75 72 6c 2c 31 |pper(lef|t(nurl,1|
|00003890| 32 29 29 3d 22 41 52 45 | 58 58 53 43 52 49 50 54 |2))="ARE|XXSCRIPT|
|000038a0| 3a 22 20 74 68 65 6e 20 | 64 6f 0a 20 20 20 20 20 |:" then |do. |
|000038b0| 20 20 20 20 20 20 20 70 | 61 72 73 65 20 76 61 72 | p|arse var|
|000038c0| 20 6e 75 72 6c 20 2b 31 | 32 20 63 6d 64 0a 20 20 | nurl +1|2 cmd. |
|000038d0| 20 20 20 20 20 20 20 20 | 20 20 49 4e 54 45 52 50 | | INTERP|
|000038e0| 52 45 54 20 63 6d 64 0a | 20 20 20 20 20 20 20 20 |RET cmd.| |
|000038f0| 20 20 20 20 72 65 74 75 | 72 6e 0a 20 20 20 20 20 | retu|rn. |
|00003900| 20 20 20 65 6e 64 0a 0a | 20 20 20 20 20 20 20 20 | end..| |
|00003910| 77 68 65 6e 20 28 75 70 | 70 65 72 28 6c 65 66 74 |when (up|per(left|
|00003920| 28 6e 75 72 6c 2c 37 29 | 29 3d 22 48 54 54 50 3a |(nurl,7)|)="HTTP:|
|00003930| 2f 2f 22 29 20 7c 2c 0a | 20 20 20 20 20 20 20 20 |//") |,.| |
|00003940| 20 20 20 20 20 28 75 70 | 70 65 72 28 6c 65 66 74 | (up|per(left|
|00003950| 28 6e 75 72 6c 2c 36 29 | 29 3d 22 46 54 50 3a 2f |(nurl,6)|)="FTP:/|
|00003960| 2f 22 29 20 7c 2c 0a 20 | 20 20 20 20 20 20 20 20 |/") |,. | |
|00003970| 20 20 20 20 28 75 70 70 | 65 72 28 6c 65 66 74 28 | (upp|er(left(|
|00003980| 6e 75 72 6c 2c 37 29 29 | 3d 22 4d 41 49 4c 54 4f |nurl,7))|="MAILTO|
|00003990| 3a 22 29 20 74 68 65 6e | 20 64 6f 0a 20 20 20 20 |:") then| do. |
|000039a0| 20 20 20 20 20 20 20 20 | 63 61 6c 6c 20 4f 70 65 | |call Ope|
|000039b0| 6e 55 52 4c 28 6e 75 72 | 6c 29 0a 20 20 20 20 20 |nURL(nur|l). |
|000039c0| 20 20 20 20 20 20 20 72 | 65 74 75 72 6e 0a 20 20 | r|eturn. |
|000039d0| 20 20 20 20 20 20 65 6e | 64 0a 0a 20 20 20 20 20 | en|d.. |
|000039e0| 20 20 20 6f 74 68 65 72 | 77 69 73 65 0a 20 20 20 | other|wise. |
|000039f0| 20 20 20 20 20 20 20 20 | 20 73 65 6c 65 63 74 0a | | select.|
|00003a00| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003a10| 20 77 68 65 6e 20 6d 65 | 74 68 6f 64 3d 22 4e 45 | when me|thod="NE|
|00003a20| 57 55 52 4c 22 20 74 68 | 65 6e 20 64 6f 0a 20 20 |WURL" th|en do. |
|00003a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a40| 20 20 69 3d 67 6c 6f 62 | 61 6c 2e 68 69 73 74 6f | i=glob|al.histo|
|00003a50| 72 79 2e 63 75 72 72 65 | 6e 74 0a 20 20 20 20 20 |ry.curre|nt. |
|00003a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d | | m|
|00003a70| 3d 67 6c 6f 62 61 6c 2e | 68 69 73 74 6f 72 79 2e |=global.|history.|
|00003a80| 6d 61 78 0a 0a 20 20 20 | 20 20 20 20 20 20 20 20 |max.. | |
|00003a90| 20 20 20 20 20 20 20 20 | 20 67 6c 6f 62 61 6c 2e | | global.|
|00003aa0| 68 69 73 74 6f 72 79 2e | 6d 2e 75 72 6c 3d 6e 75 |history.|m.url=nu|
|00003ab0| 72 6c 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |rl. | |
|00003ac0| 20 20 20 20 20 20 20 67 | 6c 6f 62 61 6c 2e 68 69 | g|lobal.hi|
|00003ad0| 73 74 6f 72 79 2e 6d 2e | 74 61 72 67 65 74 3d 6e |story.m.|target=n|
|00003ae0| 74 61 72 67 65 74 0a 20 | 20 20 20 20 20 20 20 20 |target. | |
|00003af0| 20 20 20 20 20 20 20 20 | 20 20 20 67 6c 6f 62 61 | | globa|
|00003b00| 6c 2e 68 69 73 74 6f 72 | 79 2e 6d 2e 70 72 65 64 |l.histor|y.m.pred|
|00003b10| 3d 69 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=i. | |
|00003b20| 20 20 20 20 20 20 20 67 | 6c 6f 62 61 6c 2e 68 69 | g|lobal.hi|
|00003b30| 73 74 6f 72 79 2e 6d 2e | 73 75 63 63 3d 2d 31 0a |story.m.|succ=-1.|
|00003b40| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003b50| 20 20 20 20 20 67 6c 6f | 62 61 6c 2e 68 69 73 74 | glo|bal.hist|
|00003b60| 6f 72 79 2e 69 2e 73 75 | 63 63 3d 6d 0a 20 20 20 |ory.i.su|cc=m. |
|00003b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003b80| 20 67 6c 6f 62 61 6c 2e | 68 69 73 74 6f 72 79 2e | global.|history.|
|00003b90| 63 75 72 72 65 6e 74 3d | 6d 0a 20 20 20 20 20 20 |current=|m. |
|00003ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 67 6c | | gl|
|00003bb0| 6f 62 61 6c 2e 68 69 73 | 74 6f 72 79 2e 6d 61 78 |obal.his|tory.max|
|00003bc0| 3d 6d 2b 31 0a 0a 20 20 | 20 20 20 20 20 20 20 20 |=m+1.. | |
|00003bd0| 20 20 20 20 20 20 20 20 | 20 20 63 61 6c 6c 20 44 | | call D|
|00003be0| 6f 4d 65 74 68 6f 64 28 | 22 68 74 6d 6c 22 2c 22 |oMethod(|"html","|
|00003bf0| 47 6f 55 52 4c 22 2c 6e | 75 72 6c 2c 6e 74 61 72 |GoURL",n|url,ntar|
|00003c00| 67 65 74 29 0a 20 20 20 | 20 20 20 20 20 20 20 20 |get). | |
|00003c10| 20 20 20 20 20 65 6e 64 | 0a 0a 20 20 20 20 20 20 | end|.. |
|00003c20| 20 20 20 20 20 20 20 20 | 20 20 77 68 65 6e 20 6d | | when m|
|00003c30| 65 74 68 6f 64 3d 22 42 | 41 43 4b 22 20 74 68 65 |ethod="B|ACK" the|
|00003c40| 6e 20 64 6f 0a 20 20 20 | 20 20 20 20 20 20 20 20 |n do. | |
|00003c50| 20 20 20 20 20 20 20 20 | 20 69 3d 67 6c 6f 62 61 | | i=globa|
|00003c60| 6c 2e 68 69 73 74 6f 72 | 79 2e 63 75 72 72 65 6e |l.histor|y.curren|
|00003c70| 74 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t. | |
|00003c80| 20 20 20 20 20 20 69 66 | 20 67 6c 6f 62 61 6c 2e | if| global.|
|00003c90| 68 69 73 74 6f 72 79 2e | 69 2e 70 72 65 64 3e 2d |history.|i.pred>-|
|00003ca0| 31 20 74 68 65 6e 20 64 | 6f 0a 20 20 20 20 20 20 |1 then d|o. |
|00003cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003cc0| 20 20 69 3d 67 6c 6f 62 | 61 6c 2e 68 69 73 74 6f | i=glob|al.histo|
|00003cd0| 72 79 2e 69 2e 70 72 65 | 64 0a 20 20 20 20 20 20 |ry.i.pre|d. |
|00003ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003cf0| 20 20 63 61 6c 6c 20 44 | 6f 4d 65 74 68 6f 64 28 | call D|oMethod(|
|00003d00| 22 68 74 6d 6c 22 2c 22 | 47 6f 55 52 4c 22 2c 67 |"html","|GoURL",g|
|00003d10| 6c 6f 62 61 6c 2e 68 69 | 73 74 6f 72 79 2e 69 2e |lobal.hi|story.i.|
|00003d20| 75 72 6c 2c 67 6c 6f 62 | 61 6c 2e 68 69 73 74 6f |url,glob|al.histo|
|00003d30| 72 79 2e 69 2e 74 61 72 | 67 65 74 29 0a 20 20 20 |ry.i.tar|get). |
|00003d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003d50| 20 20 20 20 20 67 6c 6f | 62 61 6c 2e 68 69 73 74 | glo|bal.hist|
|00003d60| 6f 72 79 2e 63 75 72 72 | 65 6e 74 3d 69 0a 20 20 |ory.curr|ent=i. |
|00003d70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003d80| 20 20 65 6e 64 0a 20 20 | 20 20 20 20 20 20 20 20 | end. | |
|00003d90| 20 20 20 20 20 20 65 6e | 64 0a 0a 20 20 20 20 20 | en|d.. |
|00003da0| 20 20 20 20 20 20 20 20 | 20 20 20 77 68 65 6e 20 | | when |
|00003db0| 6d 65 74 68 6f 64 3d 22 | 46 4f 52 57 41 52 44 22 |method="|FORWARD"|
|00003dc0| 20 74 68 65 6e 20 64 6f | 0a 20 20 20 20 20 20 20 | then do|. |
|00003dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 69 3d 67 | | i=g|
|00003de0| 6c 6f 62 61 6c 2e 68 69 | 73 74 6f 72 79 2e 63 75 |lobal.hi|story.cu|
|00003df0| 72 72 65 6e 74 0a 20 20 | 20 20 20 20 20 20 20 20 |rrent. | |
|00003e00| 20 20 20 20 20 20 20 20 | 20 20 69 66 20 67 6c 6f | | if glo|
|00003e10| 62 61 6c 2e 68 69 73 74 | 6f 72 79 2e 69 2e 73 75 |bal.hist|ory.i.su|
|00003e20| 63 63 3e 2d 31 20 74 68 | 65 6e 20 64 6f 0a 20 20 |cc>-1 th|en do. |
|00003e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e40| 20 20 20 20 20 20 69 3d | 67 6c 6f 62 61 6c 2e 68 | i=|global.h|
|00003e50| 69 73 74 6f 72 79 2e 69 | 2e 73 75 63 63 0a 20 20 |istory.i|.succ. |
|00003e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e70| 20 20 20 20 20 20 63 61 | 6c 6c 20 44 6f 4d 65 74 | ca|ll DoMet|
|00003e80| 68 6f 64 28 22 68 74 6d | 6c 22 2c 22 47 6f 55 52 |hod("htm|l","GoUR|
|00003e90| 4c 22 2c 67 6c 6f 62 61 | 6c 2e 68 69 73 74 6f 72 |L",globa|l.histor|
|00003ea0| 79 2e 69 2e 75 72 6c 2c | 67 6c 6f 62 61 6c 2e 68 |y.i.url,|global.h|
|00003eb0| 69 73 74 6f 72 79 2e 69 | 2e 74 61 72 67 65 74 29 |istory.i|.target)|
|00003ec0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003ed0| 20 20 20 20 20 20 20 20 | 20 67 6c 6f 62 61 6c 2e | | global.|
|00003ee0| 68 69 73 74 6f 72 79 2e | 63 75 72 72 65 6e 74 3d |history.|current=|
|00003ef0| 69 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |i. | |
|00003f00| 20 20 20 20 20 20 65 6e | 64 0a 20 20 20 20 20 20 | en|d. |
|00003f10| 20 20 20 20 20 20 20 20 | 20 20 65 6e 64 0a 20 20 | | end. |
|00003f20| 20 20 20 20 20 20 20 20 | 20 20 65 6e 64 0a 20 20 | | end. |
|00003f30| 20 20 65 6e 64 0a 0a 20 | 20 20 20 63 61 6c 6c 20 | end.. | call |
|00003f40| 53 65 74 42 61 72 47 61 | 64 67 65 74 73 28 29 0a |SetBarGa|dgets().|
|00003f50| 0a 20 20 20 20 72 65 74 | 75 72 6e 0a 2f 2a 2a 2a |. ret|urn./***|
|00003f60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003f70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003f80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003f90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003fa0| 2a 2a 2a 2a 2f 0a 53 65 | 61 72 63 68 46 75 6e 3a |****/.Se|archFun:|
|00003fb0| 20 70 72 6f 63 65 64 75 | 72 65 20 65 78 70 6f 73 | procedu|re expos|
|00003fc0| 65 20 67 6c 6f 62 61 6c | 2e 0a 70 61 72 73 65 20 |e global|..parse |
|00003fd0| 61 72 67 20 6d 6f 64 65 | 0a 20 20 20 20 63 61 6c |arg mode|. cal|
|00003fe0| 6c 20 47 65 74 41 74 74 | 72 28 22 73 65 61 72 63 |l GetAtt|r("searc|
|00003ff0| 68 22 2c 22 43 6f 6e 74 | 65 6e 74 73 22 2c 22 73 |h","Cont|ents","s|
|00004000| 74 72 69 6e 67 22 29 0a | 20 20 20 20 69 66 20 73 |tring").| if s|
|00004010| 74 72 69 6e 67 7e 3d 22 | 22 20 74 68 65 6e 20 63 |tring~="|" then c|
|00004020| 61 6c 6c 20 44 6f 4d 65 | 74 68 6f 64 28 22 68 74 |all DoMe|thod("ht|
|00004030| 6d 6c 22 2c 22 73 65 61 | 72 63 68 22 2c 73 74 72 |ml","sea|rch",str|
|00004040| 69 6e 67 2c 72 69 67 68 | 74 28 6d 6f 64 65 2c 34 |ing,righ|t(mode,4|
|00004050| 29 29 0a 20 20 20 20 72 | 65 74 75 72 6e 0a 2f 2a |)). r|eturn./*|
|00004060| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000040a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2f 0a 4e 65 77 55 52 |********|*/.NewUR|
|000040b0| 4c 46 75 6e 3a 20 70 72 | 6f 63 65 64 75 72 65 20 |LFun: pr|ocedure |
|000040c0| 65 78 70 6f 73 65 20 67 | 6c 6f 62 61 6c 2e 0a 70 |expose g|lobal..p|
|000040d0| 61 72 73 65 20 61 72 67 | 20 63 6c 69 63 6b 65 64 |arse arg| clicked|
|000040e0| 0a 20 20 20 20 63 61 6c | 6c 20 47 65 74 41 74 74 |. cal|l GetAtt|
|000040f0| 72 28 22 68 74 6d 6c 22 | 2c 22 74 61 72 67 65 74 |r("html"|,"target|
|00004100| 22 2c 22 6e 74 61 72 67 | 65 74 22 29 0a 20 20 20 |","ntarg|et"). |
|00004110| 20 63 61 6c 6c 20 47 6f | 55 52 4c 28 22 4e 45 57 | call Go|URL("NEW|
|00004120| 55 52 4c 22 2c 63 6c 69 | 63 6b 65 64 2c 6e 74 61 |URL",cli|cked,nta|
|00004130| 72 67 65 74 29 0a 20 20 | 20 20 72 65 74 75 72 6e |rget). | return|
|00004140| 0a 2f 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |./******|********|
|00004150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2f 0a 4f 70 |********|****/.Op|
|00004190| 65 6e 43 6f 6e 66 69 67 | 57 69 6e 64 6f 77 3a 20 |enConfig|Window: |
|000041a0| 70 72 6f 63 65 64 75 72 | 65 20 65 78 70 6f 73 65 |procedur|e expose|
|000041b0| 20 67 6c 6f 62 61 6c 2e | 0a 0a 20 20 20 20 69 66 | global.|.. if|
|000041c0| 20 7e 67 6c 6f 62 61 6c | 2e 43 6f 6e 66 69 67 57 | ~global|.ConfigW|
|000041d0| 69 6e 20 74 68 65 6e 20 | 64 6f 0a 0a 20 20 20 20 |in then |do.. |
|000041e0| 20 20 20 20 63 61 6c 6c | 20 73 65 74 28 22 61 70 | call| set("ap|
|000041f0| 70 22 2c 22 53 6c 65 65 | 70 22 2c 31 29 0a 20 20 |p","Slee|p",1). |
|00004200| 20 20 20 20 20 20 63 61 | 6c 6c 20 69 6e 66 6f 28 | ca|ll info(|
|00004210| 22 43 72 65 61 74 69 6e | 67 20 70 72 65 66 65 72 |"Creatin|g prefer|
|00004220| 65 6e 63 65 73 20 77 69 | 6e 64 6f 77 2e 2e 2e 22 |ences wi|ndow..."|
|00004230| 29 0a 0a 20 20 20 20 20 | 20 20 20 63 77 69 6e 2e |).. | cwin.|
|00004240| 49 44 3d 22 43 57 49 4e | 22 0a 20 20 20 20 20 20 |ID="CWIN|". |
|00004250| 20 20 63 77 69 6e 2e 54 | 69 74 6c 65 3d 22 44 6f | cwin.T|itle="Do|
|00004260| 63 73 42 72 6f 77 73 65 | 72 20 50 72 65 66 65 72 |csBrowse|r Prefer|
|00004270| 65 6e 63 65 73 22 0a 20 | 20 20 20 20 20 20 20 63 |ences". | c|
|00004280| 77 69 6e 2e 43 6f 6e 74 | 65 6e 74 73 3d 22 63 6d |win.Cont|ents="cm|
|00004290| 67 72 6f 75 70 22 0a 0a | 20 20 20 20 20 20 20 20 |group"..| |
|000042a0| 20 63 6d 67 72 6f 75 70 | 2e 30 3d 22 63 68 67 22 | cmgroup|.0="chg"|
|000042b0| 0a 20 20 20 20 20 20 20 | 20 20 20 63 68 67 2e 43 |. | chg.C|
|000042c0| 6c 61 73 73 3d 22 67 72 | 6f 75 70 22 0a 20 20 20 |lass="gr|oup". |
|000042d0| 20 20 20 20 20 20 20 63 | 68 67 2e 48 6f 72 69 7a | c|hg.Horiz|
|000042e0| 3d 31 0a 0a 20 20 20 20 | 20 20 20 20 20 20 20 63 |=1.. | c|
|000042f0| 68 67 2e 30 3d 22 6c 69 | 73 74 65 72 22 0a 20 20 |hg.0="li|ster". |
|00004300| 20 20 20 20 20 20 20 20 | 20 20 6c 69 73 74 65 72 | | lister|
|00004310| 2e 43 6c 61 73 73 3d 22 | 6c 69 73 74 76 69 65 77 |.Class="|listview|
|00004320| 22 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 6c 69 |". | li|
|00004330| 73 74 65 72 2e 57 65 69 | 67 68 74 3d 30 0a 20 20 |ster.Wei|ght=0. |
|00004340| 20 20 20 20 20 20 20 20 | 20 20 6c 69 73 74 65 72 | | lister|
|00004350| 2e 4c 69 73 74 3d 22 6c | 69 73 74 22 0a 20 20 20 |.List="l|ist". |
|00004360| 20 20 20 20 20 20 20 20 | 20 20 6c 69 73 74 2e 43 | | list.C|
|00004370| 6c 61 73 73 3d 22 6c 69 | 73 74 74 72 65 65 22 0a |lass="li|sttree".|
|00004380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6c 69 73 | | lis|
|00004390| 74 2e 46 72 61 6d 65 3d | 22 69 6e 70 75 74 6c 69 |t.Frame=|"inputli|
|000043a0| 73 74 22 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |st". | |
|000043b0| 20 20 6c 69 73 74 2e 30 | 3d 22 42 61 72 22 0a 0a | list.0|="Bar"..|
|000043c0| 20 20 20 20 20 20 20 20 | 20 20 20 63 68 67 2e 31 | | chg.1|
|000043d0| 3d 22 70 61 67 65 72 22 | 0a 20 20 20 20 20 20 20 |="pager"|. |
|000043e0| 20 20 20 20 20 70 61 67 | 65 72 2e 43 6c 61 73 73 | pag|er.Class|
|000043f0| 3d 22 67 72 6f 75 70 22 | 0a 20 20 20 20 20 20 20 |="group"|. |
|00004400| 20 20 20 20 20 70 61 67 | 65 72 2e 50 61 67 65 4d | pag|er.PageM|
|00004410| 6f 64 65 3d 31 0a 20 20 | 20 20 20 20 20 20 20 20 |ode=1. | |
|00004420| 20 20 70 61 67 65 72 2e | 46 72 61 6d 65 3d 22 72 | pager.|Frame="r|
|00004430| 65 61 64 6c 69 73 74 22 | 0a 0a 20 20 20 20 20 20 |eadlist"|.. |
|00004440| 20 20 20 20 20 20 20 70 | 61 67 65 72 2e 30 3d 22 | p|ager.0="|
|00004450| 42 61 72 50 61 67 65 22 | 0a 20 20 20 20 20 20 20 |BarPage"|. |
|00004460| 20 20 20 20 20 20 20 42 | 61 72 50 61 67 65 2e 43 | B|arPage.C|
|00004470| 6c 61 73 73 3d 22 67 72 | 6f 75 70 22 0a 0a 20 20 |lass="gr|oup".. |
|00004480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 42 61 72 | | Bar|
|00004490| 50 61 67 65 2e 30 3d 22 | 63 62 67 22 0a 20 20 20 |Page.0="|cbg". |
|000044a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 63 62 67 | | cbg|
|000044b0| 2e 43 6c 61 73 73 3d 22 | 67 72 6f 75 70 22 0a 20 |.Class="|group". |
|000044c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 | | c|
|000044d0| 62 67 2e 48 6f 72 69 7a | 3d 31 0a 20 20 20 20 20 |bg.Horiz|=1. |
|000044e0| 20 20 20 20 20 20 20 20 | 20 20 20 63 62 67 2e 30 | | cbg.0|
|000044f0| 3d 22 43 44 75 6d 6d 79 | 42 61 72 47 22 0a 20 20 |="CDummy|BarG". |
|00004500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 43 | | C|
|00004510| 44 75 6d 6d 79 42 61 72 | 47 2e 43 6c 61 73 73 3d |DummyBar|G.Class=|
|00004520| 22 67 72 6f 75 70 22 0a | 20 20 20 20 20 20 20 20 |"group".| |
|00004530| 20 20 20 20 20 20 20 20 | 20 43 44 75 6d 6d 79 42 | | CDummyB|
|00004540| 61 72 47 2e 53 70 61 63 | 69 6e 67 3d 30 0a 20 20 |arG.Spac|ing=0. |
|00004550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004560| 43 44 75 6d 6d 79 42 61 | 72 47 2e 30 3d 43 72 65 |CDummyBa|rG.0=Cre|
|00004570| 61 74 65 42 61 72 28 67 | 6c 6f 62 61 6c 2e 49 6d |ateBar(g|lobal.Im|
|00004580| 61 67 65 73 44 69 72 2c | 22 63 73 62 22 2c 31 2c |agesDir,|"csb",1,|
|00004590| 67 6c 6f 62 61 6c 2e 53 | 70 61 63 69 6e 67 2c 30 |global.S|pacing,0|
|000045a0| 29 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |). | |
|000045b0| 20 20 63 62 67 2e 31 3d | 48 53 70 61 63 65 28 29 | cbg.1=|HSpace()|
|000045c0| 0a 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000045d0| 20 42 61 72 50 61 67 65 | 2e 31 3d 48 42 61 72 28 | BarPage|.1=HBar(|
|000045e0| 29 0a 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).. | |
|000045f0| 20 20 42 61 72 50 61 67 | 65 2e 32 3d 22 63 69 64 | BarPag|e.2="cid|
|00004600| 67 22 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |g". | |
|00004610| 20 20 20 63 69 64 67 2e | 43 6c 61 73 73 3d 22 67 | cidg.|Class="g|
|00004620| 72 6f 75 70 22 0a 20 20 | 20 20 20 20 20 20 20 20 |roup". | |
|00004630| 20 20 20 20 20 20 63 69 | 64 67 2e 48 6f 72 69 7a | ci|dg.Horiz|
|00004640| 3d 31 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=1. | |
|00004650| 20 20 20 63 69 64 67 2e | 30 3d 4c 61 62 65 6c 28 | cidg.|0=Label(|
|00004660| 22 5f 49 6d 61 67 65 73 | 22 29 0a 20 20 20 20 20 |"_Images|"). |
|00004670| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 69 64 67 | | cidg|
|00004680| 2e 31 3d 22 70 6f 70 64 | 22 0a 20 20 20 20 20 20 |.1="popd|". |
|00004690| 20 20 20 20 20 20 20 20 | 20 20 20 20 70 6f 70 64 | | popd|
|000046a0| 2e 43 6c 61 73 73 3d 22 | 70 6f 70 61 73 6c 22 0a |.Class="|popasl".|
|000046b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000046c0| 20 20 70 6f 70 64 2e 53 | 74 72 69 6e 67 3d 73 74 | popd.S|tring=st|
|000046d0| 72 69 6e 67 28 22 69 6d | 64 69 72 22 2c 27 69 27 |ring("im|dir",'i'|
|000046e0| 29 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |). | |
|000046f0| 20 20 20 20 70 6f 70 64 | 2e 44 72 61 77 65 72 73 | popd|.Drawers|
|00004700| 4f 6e 6c 79 3d 31 0a 0a | 20 20 20 20 20 20 20 20 |Only=1..| |
|00004710| 20 20 20 20 20 20 20 42 | 61 72 50 61 67 65 2e 33 | B|arPage.3|
|00004720| 3d 22 63 73 63 67 22 0a | 20 20 20 20 20 20 20 20 |="cscg".| |
|00004730| 20 20 20 20 20 20 20 20 | 63 73 63 67 2e 43 6c 61 | |cscg.Cla|
|00004740| 73 73 3d 22 67 72 6f 75 | 70 22 0a 20 20 20 20 20 |ss="grou|p". |
|00004750| 20 20 20 20 20 20 20 20 | 20 20 20 63 73 63 67 2e | | cscg.|
|00004760| 43 6f 6c 75 6d 6e 73 3d | 34 0a 20 20 20 20 20 20 |Columns=|4. |
|00004770| 20 20 20 20 20 20 20 20 | 20 20 20 63 73 63 67 2e | | cscg.|
|00004780| 30 3d 4c 61 62 65 6c 28 | 22 5f 42 6f 72 64 65 72 |0=Label(|"_Border|
|00004790| 4c 65 73 73 22 29 0a 20 | 20 20 20 20 20 20 20 20 |Less"). | |
|000047a0| 20 20 20 20 20 20 20 20 | 63 73 63 67 2e 31 3d 43 | |cscg.1=C|
|000047b0| 68 65 63 6b 4d 61 72 6b | 28 22 62 6c 22 2c 2c 27 |heckMark|("bl",,'|
|000047c0| 62 27 29 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |b'). | |
|000047d0| 20 20 20 20 20 63 73 63 | 67 2e 32 3d 4c 61 62 65 | csc|g.2=Labe|
|000047e0| 6c 28 22 5f 52 61 69 73 | 69 6e 67 46 72 61 6d 65 |l("_Rais|ingFrame|
|000047f0| 22 29 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |"). | |
|00004800| 20 20 20 20 63 73 63 67 | 2e 33 3d 43 68 65 63 6b | cscg|.3=Check|
|00004810| 4d 61 72 6b 28 22 72 66 | 22 2c 2c 27 72 27 29 0a |Mark("rf|",,'r').|
|00004820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004830| 20 63 73 63 67 2e 34 3d | 4c 61 62 65 6c 28 22 53 | cscg.4=|Label("S|
|00004840| 5f 6d 61 6c 6c 49 6d 61 | 67 65 73 22 29 0a 20 20 |_mallIma|ges"). |
|00004850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 | | c|
|00004860| 73 63 67 2e 35 3d 43 68 | 65 63 6b 4d 61 72 6b 28 |scg.5=Ch|eckMark(|
|00004870| 22 73 69 22 2c 2c 27 6d | 27 29 0a 20 20 20 20 20 |"si",,'m|'). |
|00004880| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 73 63 67 | | cscg|
|00004890| 2e 36 3d 4c 61 62 65 6c | 28 22 53 75 6e 6e 5f 79 |.6=Label|("Sunn_y|
|000048a0| 22 29 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |"). | |
|000048b0| 20 20 20 20 63 73 63 67 | 2e 37 3d 43 68 65 63 6b | cscg|.7=Check|
|000048c0| 4d 61 72 6b 28 22 73 6e | 22 2c 2c 27 79 27 29 0a |Mark("sn|",,'y').|
|000048d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000048e0| 20 63 73 63 67 2e 38 3d | 4c 61 62 65 6c 28 22 53 | cscg.8=|Label("S|
|000048f0| 70 61 63 69 6e 67 22 29 | 0a 20 20 20 20 20 20 20 |pacing")|. |
|00004900| 20 20 20 20 20 20 20 20 | 20 20 63 73 63 67 2e 39 | | cscg.9|
|00004910| 3d 22 73 70 63 22 0a 20 | 20 20 20 20 20 20 20 20 |="spc". | |
|00004920| 20 20 20 20 20 20 20 20 | 20 73 70 63 2e 43 6c 61 | | spc.Cla|
|00004930| 73 73 3d 22 6e 75 6d 65 | 72 69 63 62 75 74 74 6f |ss="nume|ricbutto|
|00004940| 6e 22 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n". | |
|00004950| 20 20 20 20 20 73 70 63 | 2e 4d 69 6e 3d 30 0a 20 | spc|.Min=0. |
|00004960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004970| 20 73 70 63 2e 4d 61 78 | 3d 31 35 0a 20 20 20 20 | spc.Max|=15. |
|00004980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 63 73 63 | | csc|
|00004990| 67 2e 31 30 3d 48 53 70 | 61 63 65 28 29 0a 20 20 |g.10=HSp|ace(). |
|000049a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 | | c|
|000049b0| 73 63 67 2e 31 31 3d 48 | 53 70 61 63 65 28 29 0a |scg.11=H|Space().|
|000049c0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000049d0| 42 61 72 50 61 67 65 2e | 34 3d 22 76 6d 22 0a 20 |BarPage.|4="vm". |
|000049e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 76 | | v|
|000049f0| 6d 2e 43 6c 61 73 73 3d | 22 63 79 63 6c 65 22 0a |m.Class=|"cycle".|
|00004a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004a10| 76 6d 2e 45 6e 74 72 69 | 65 73 3d 22 54 65 78 74 |vm.Entri|es="Text|
|00004a20| 47 66 78 7c 47 66 78 7c | 54 65 78 74 22 0a 0a 20 |Gfx|Gfx||Text".. |
|00004a30| 20 20 20 20 20 20 20 20 | 63 6d 67 72 6f 75 70 2e | |cmgroup.|
|00004a40| 31 3d 22 63 62 75 67 22 | 0a 20 20 20 20 20 20 20 |1="cbug"|. |
|00004a50| 20 20 20 63 62 75 67 2e | 43 6c 61 73 73 3d 22 67 | cbug.|Class="g|
|00004a60| 72 6f 75 70 22 0a 20 20 | 20 20 20 20 20 20 20 20 |roup". | |
|00004a70| 63 62 75 67 2e 48 6f 72 | 69 7a 3d 31 0a 20 20 20 |cbug.Hor|iz=1. |
|00004a80| 20 20 20 20 20 20 20 20 | 63 62 75 67 2e 30 3d 42 | |cbug.0=B|
|00004a90| 75 74 74 6f 6e 28 22 63 | 73 61 76 65 22 2c 22 5f |utton("c|save","_|
|00004aa0| 53 61 76 65 22 29 0a 20 | 20 20 20 20 20 20 20 20 |Save"). | |
|00004ab0| 20 20 63 62 75 67 2e 31 | 3d 42 75 74 74 6f 6e 28 | cbug.1|=Button(|
|00004ac0| 22 63 75 73 65 22 2c 22 | 5f 55 73 65 22 29 0a 20 |"cuse","|_Use"). |
|00004ad0| 20 20 20 20 20 20 20 20 | 20 20 63 62 75 67 2e 32 | | cbug.2|
|00004ae0| 3d 42 75 74 74 6f 6e 28 | 22 63 63 61 6e 63 65 6c |=Button(|"ccancel|
|00004af0| 22 2c 22 5f 43 61 6e 63 | 65 6c 22 29 0a 0a 20 20 |","_Canc|el").. |
|00004b00| 20 20 20 20 20 20 72 65 | 73 3d 4e 65 77 4f 62 6a | re|s=NewObj|
|00004b10| 28 22 77 69 6e 64 6f 77 | 22 2c 22 63 77 69 6e 22 |("window|","cwin"|
|00004b20| 29 0a 20 20 20 20 20 20 | 20 20 69 66 20 72 65 73 |). | if res|
|00004b30| 7e 3d 30 20 74 68 65 6e | 20 65 78 69 74 0a 0a 20 |~=0 then| exit.. |
|00004b40| 20 20 20 20 20 20 20 63 | 61 6c 6c 20 41 64 64 28 | c|all Add(|
|00004b50| 22 61 70 70 22 2c 22 63 | 77 69 6e 22 29 0a 0a 20 |"app","c|win").. |
|00004b60| 20 20 20 20 20 20 20 63 | 61 6c 6c 20 4e 6f 74 69 | c|all Noti|
|00004b70| 66 79 28 22 63 77 69 6e | 22 2c 22 43 6c 6f 73 65 |fy("cwin|","Close|
|00004b80| 52 65 71 75 65 73 74 22 | 2c 31 2c 22 63 77 69 6e |Request"|,1,"cwin|
|00004b90| 22 2c 22 53 65 74 22 2c | 22 4f 70 65 6e 22 2c 30 |","Set",|"Open",0|
|00004ba0| 29 0a 0a 20 20 20 20 20 | 20 20 20 63 61 6c 6c 20 |).. | call |
|00004bb0| 4e 6f 74 69 66 79 28 22 | 69 6d 64 69 72 22 2c 22 |Notify("|imdir","|
|00004bc0| 4e 65 77 43 6f 6e 74 65 | 6e 74 73 22 2c 22 45 76 |NewConte|nts","Ev|
|00004bd0| 65 72 79 54 69 6d 65 22 | 2c 22 61 70 70 22 2c 22 |eryTime"|,"app","|
|00004be0| 52 65 74 75 72 6e 22 2c | 22 63 61 6c 6c 20 43 42 |Return",|"call CB|
|00004bf0| 61 72 43 68 61 6e 67 65 | 64 28 29 22 29 0a 20 20 |arChange|d()"). |
|00004c00| 20 20 20 20 20 20 63 61 | 6c 6c 20 4e 6f 74 69 66 | ca|ll Notif|
|00004c10| 79 28 22 73 70 63 22 2c | 22 56 61 6c 75 65 22 2c |y("spc",|"Value",|
|00004c20| 22 45 76 65 72 79 54 69 | 6d 65 22 2c 22 61 70 70 |"EveryTi|me","app|
|00004c30| 22 2c 22 52 65 74 75 72 | 6e 22 2c 22 63 61 6c 6c |","Retur|n","call|
|00004c40| 20 43 42 61 72 43 68 61 | 6e 67 65 64 28 29 22 29 | CBarCha|nged()")|
|00004c50| 0a 0a 20 20 20 20 20 20 | 20 20 63 61 6c 6c 20 53 |.. | call S|
|00004c60| 65 74 43 42 61 72 4e 6f | 74 69 66 69 65 73 28 29 |etCBarNo|tifies()|
|00004c70| 0a 0a 20 20 20 20 20 20 | 20 20 63 61 6c 6c 20 4e |.. | call N|
|00004c80| 6f 74 69 66 79 28 22 63 | 75 73 65 22 2c 22 50 72 |otify("c|use","Pr|
|00004c90| 65 73 73 65 64 22 2c 30 | 2c 22 61 70 70 22 2c 22 |essed",0|,"app","|
|00004ca0| 52 65 74 75 72 6e 22 2c | 22 63 61 6c 6c 20 55 73 |Return",|"call Us|
|00004cb0| 65 43 6f 6e 66 69 67 28 | 29 22 29 0a 20 20 20 20 |eConfig(|)"). |
|00004cc0| 20 20 20 20 63 61 6c 6c | 20 4e 6f 74 69 66 79 28 | call| Notify(|
|00004cd0| 22 63 75 73 65 22 2c 22 | 50 72 65 73 73 65 64 22 |"cuse","|Pressed"|
|00004ce0| 2c 30 2c 22 63 77 69 6e | 22 2c 22 53 65 74 22 2c |,0,"cwin|","Set",|
|00004cf0| 22 4f 70 65 6e 22 2c 30 | 29 0a 20 20 20 20 20 20 |"Open",0|). |
|00004d00| 20 20 63 61 6c 6c 20 4e | 6f 74 69 66 79 28 22 63 | call N|otify("c|
|00004d10| 73 61 76 65 22 2c 22 50 | 72 65 73 73 65 64 22 2c |save","P|ressed",|
|00004d20| 30 2c 22 61 70 70 22 2c | 22 52 65 74 75 72 6e 22 |0,"app",|"Return"|
|00004d30| 2c 22 63 61 6c 6c 20 53 | 61 76 65 43 6f 6e 66 69 |,"call S|aveConfi|
|00004d40| 67 28 29 22 29 0a 20 20 | 20 20 20 20 20 20 63 61 |g()"). | ca|
|00004d50| 6c 6c 20 4e 6f 74 69 66 | 79 28 22 63 73 61 76 65 |ll Notif|y("csave|
|00004d60| 22 2c 22 50 72 65 73 73 | 65 64 22 2c 30 2c 22 63 |","Press|ed",0,"c|
|00004d70| 77 69 6e 22 2c 22 53 65 | 74 22 2c 22 4f 70 65 6e |win","Se|t","Open|
|00004d80| 22 2c 30 29 0a 20 20 20 | 20 20 20 20 20 63 61 6c |",0). | cal|
|00004d90| 6c 20 4e 6f 74 69 66 79 | 28 22 63 63 61 6e 63 65 |l Notify|("ccance|
|00004da0| 6c 22 2c 22 50 72 65 73 | 73 65 64 22 2c 30 2c 22 |l","Pres|sed",0,"|
|00004db0| 63 77 69 6e 22 2c 22 53 | 65 74 22 2c 22 4f 70 65 |cwin","S|et","Ope|
|00004dc0| 6e 22 2c 30 29 0a 0a 20 | 20 20 20 20 20 20 20 63 |n",0).. | c|
|00004dd0| 61 6c 6c 20 69 6e 66 6f | 28 22 22 29 0a 20 20 20 |all info|(""). |
|00004de0| 20 20 20 20 20 63 61 6c | 6c 20 73 65 74 28 22 61 | cal|l set("a|
|00004df0| 70 70 22 2c 22 53 6c 65 | 65 70 22 2c 30 29 0a 0a |pp","Sle|ep",0)..|
|00004e00| 20 20 20 20 20 20 20 20 | 63 61 6c 6c 20 73 65 74 | |call set|
|00004e10| 28 22 6c 69 73 74 22 2c | 22 41 63 74 69 76 65 49 |("list",|"ActiveI|
|00004e20| 44 22 2c 31 29 0a 0a 20 | 20 20 20 20 20 20 20 67 |D",1).. | g|
|00004e30| 6c 6f 62 61 6c 2e 43 6f | 6e 66 69 67 77 69 6e 3d |lobal.Co|nfigwin=|
|00004e40| 31 0a 20 20 20 20 65 6e | 64 0a 0a 20 20 20 20 67 |1. en|d.. g|
|00004e50| 6c 6f 62 61 6c 2e 47 61 | 64 67 65 74 73 2e 30 2e |lobal.Ga|dgets.0.|
|00004e60| 76 61 6c 75 65 3d 67 6c | 6f 62 61 6c 2e 49 6d 61 |value=gl|obal.Ima|
|00004e70| 67 65 73 44 69 72 0a 20 | 20 20 20 67 6c 6f 62 61 |gesDir. | globa|
|00004e80| 6c 2e 47 61 64 67 65 74 | 73 2e 31 2e 76 61 6c 75 |l.Gadget|s.1.valu|
|00004e90| 65 3d 66 69 6e 64 28 22 | 54 45 58 54 47 46 58 20 |e=find("|TEXTGFX |
|00004ea0| 47 46 58 20 54 45 58 54 | 22 2c 67 6c 6f 62 61 6c |GFX TEXT|",global|
|00004eb0| 2e 76 69 65 77 6d 6f 64 | 65 29 2d 31 0a 20 20 20 |.viewmod|e)-1. |
|00004ec0| 20 67 6c 6f 62 61 6c 2e | 47 61 64 67 65 74 73 2e | global.|Gadgets.|
|00004ed0| 32 2e 76 61 6c 75 65 3d | 67 6c 6f 62 61 6c 2e 53 |2.value=|global.S|
|00004ee0| 70 61 63 69 6e 67 0a 20 | 20 20 20 67 6c 6f 62 61 |pacing. | globa|
|00004ef0| 6c 2e 47 61 64 67 65 74 | 73 2e 33 2e 76 61 6c 75 |l.Gadget|s.3.valu|
|00004f00| 65 3d 67 6c 6f 62 61 6c | 2e 42 6f 72 64 65 72 4c |e=global|.BorderL|
|00004f10| 65 73 73 0a 20 20 20 20 | 67 6c 6f 62 61 6c 2e 47 |ess. |global.G|
|00004f20| 61 64 67 65 74 73 2e 34 | 2e 76 61 6c 75 65 3d 67 |adgets.4|.value=g|
|00004f30| 6c 6f 62 61 6c 2e 52 61 | 69 73 69 6e 67 46 72 61 |lobal.Ra|isingFra|
|00004f40| 6d 65 0a 20 20 20 20 67 | 6c 6f 62 61 6c 2e 47 61 |me. g|lobal.Ga|
|00004f50| 64 67 65 74 73 2e 35 2e | 76 61 6c 75 65 3d 67 6c |dgets.5.|value=gl|
|00004f60| 6f 62 61 6c 2e 53 6d 61 | 6c 6c 49 6d 61 67 65 73 |obal.Sma|llImages|
|00004f70| 0a 20 20 20 20 67 6c 6f | 62 61 6c 2e 47 61 64 67 |. glo|bal.Gadg|
|00004f80| 65 74 73 2e 36 2e 76 61 | 6c 75 65 3d 67 6c 6f 62 |ets.6.va|lue=glob|
|00004f90| 61 6c 2e 53 75 6e 6e 79 | 0a 20 20 20 20 63 61 6c |al.Sunny|. cal|
|00004fa0| 6c 20 4d 75 6c 74 69 53 | 65 74 41 74 74 72 28 22 |l MultiS|etAttr("|
|00004fb0| 67 6c 6f 62 61 6c 2e 47 | 61 64 67 65 74 73 22 2c |global.G|adgets",|
|00004fc0| 31 29 0a 0a 20 20 20 20 | 63 61 6c 6c 20 73 65 74 |1).. |call set|
|00004fd0| 28 22 63 77 69 6e 22 2c | 22 4f 70 65 6e 22 2c 31 |("cwin",|"Open",1|
|00004fe0| 29 0a 20 20 20 20 63 61 | 6c 6c 20 47 65 74 41 74 |). ca|ll GetAt|
|00004ff0| 74 72 28 22 63 77 69 6e | 22 2c 22 4f 70 65 6e 22 |tr("cwin|","Open"|
|00005000| 2c 22 4f 22 29 0a 20 20 | 20 20 69 66 20 7e 6f 20 |,"O"). | if ~o |
|00005010| 74 68 65 6e 20 65 78 69 | 74 0a 0a 20 20 20 20 72 |then exi|t.. r|
|00005020| 65 74 75 72 6e 0a 2f 2a | 2a 2a 2a 2a 2a 2a 2a 2a |eturn./*|********|
|00005030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005050| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005060| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005070| 2a 2f 0a 53 65 74 43 42 | 61 72 4e 6f 74 69 66 69 |*/.SetCB|arNotifi|
|00005080| 65 73 3a 20 70 72 6f 63 | 65 64 75 72 65 20 65 78 |es: proc|edure ex|
|00005090| 70 6f 73 65 20 67 6c 6f | 62 61 6c 2e 0a 20 20 20 |pose glo|bal.. |
|000050a0| 20 63 61 6c 6c 20 4e 6f | 74 69 66 79 28 22 62 6c | call No|tify("bl|
|000050b0| 22 2c 22 53 65 6c 65 63 | 74 65 64 22 2c 22 45 76 |","Selec|ted","Ev|
|000050c0| 65 72 79 54 69 6d 65 22 | 2c 22 63 73 62 22 2c 22 |eryTime"|,"csb","|
|000050d0| 53 65 74 22 2c 22 42 6f | 72 64 65 72 4c 65 73 73 |Set","Bo|rderLess|
|000050e0| 22 2c 22 54 72 69 67 67 | 65 72 56 61 6c 75 65 22 |","Trigg|erValue"|
|000050f0| 29 0a 20 20 20 20 63 61 | 6c 6c 20 4e 6f 74 69 66 |). ca|ll Notif|
|00005100| 79 28 22 72 66 22 2c 22 | 53 65 6c 65 63 74 65 64 |y("rf","|Selected|
|00005110| 22 2c 22 45 76 65 72 79 | 54 69 6d 65 22 2c 22 63 |","Every|Time","c|
|00005120| 73 62 22 2c 22 53 65 74 | 22 2c 22 52 61 69 73 69 |sb","Set|","Raisi|
|00005130| 6e 67 46 72 61 6d 65 22 | 2c 22 54 72 69 67 67 65 |ngFrame"|,"Trigge|
|00005140| 72 56 61 6c 75 65 22 29 | 0a 20 20 20 20 63 61 6c |rValue")|. cal|
|00005150| 6c 20 4e 6f 74 69 66 79 | 28 22 73 69 22 2c 22 53 |l Notify|("si","S|
|00005160| 65 6c 65 63 74 65 64 22 | 2c 22 45 76 65 72 79 54 |elected"|,"EveryT|
|00005170| 69 6d 65 22 2c 22 63 73 | 62 22 2c 22 53 65 74 22 |ime","cs|b","Set"|
|00005180| 2c 22 53 6d 61 6c 6c 49 | 6d 61 67 65 73 22 2c 22 |,"SmallI|mages","|
|00005190| 54 72 69 67 67 65 72 56 | 61 6c 75 65 22 29 0a 20 |TriggerV|alue"). |
|000051a0| 20 20 20 63 61 6c 6c 20 | 4e 6f 74 69 66 79 28 22 | call |Notify("|
|000051b0| 73 6e 22 2c 22 53 65 6c | 65 63 74 65 64 22 2c 22 |sn","Sel|ected","|
|000051c0| 45 76 65 72 79 54 69 6d | 65 22 2c 22 63 73 62 22 |EveryTim|e","csb"|
|000051d0| 2c 22 53 65 74 22 2c 22 | 53 75 6e 6e 79 22 2c 22 |,"Set","|Sunny","|
|000051e0| 54 72 69 67 67 65 72 56 | 61 6c 75 65 22 29 0a 20 |TriggerV|alue"). |
|000051f0| 20 20 20 63 61 6c 6c 20 | 4e 6f 74 69 66 79 28 22 | call |Notify("|
|00005200| 76 6d 22 2c 22 41 63 74 | 69 76 65 22 2c 30 2c 22 |vm","Act|ive",0,"|
|00005210| 63 73 62 22 2c 22 53 65 | 74 22 2c 22 56 69 65 77 |csb","Se|t","View|
|00005220| 4d 6f 64 65 22 2c 22 74 | 65 78 74 67 66 78 22 29 |Mode","t|extgfx")|
|00005230| 0a 20 20 20 20 63 61 6c | 6c 20 4e 6f 74 69 66 79 |. cal|l Notify|
|00005240| 28 22 76 6d 22 2c 22 41 | 63 74 69 76 65 22 2c 31 |("vm","A|ctive",1|
|00005250| 2c 22 63 73 62 22 2c 22 | 53 65 74 22 2c 22 56 69 |,"csb","|Set","Vi|
|00005260| 65 77 4d 6f 64 65 22 2c | 22 67 66 78 22 29 0a 20 |ewMode",|"gfx"). |
|00005270| 20 20 20 63 61 6c 6c 20 | 4e 6f 74 69 66 79 28 22 | call |Notify("|
|00005280| 76 6d 22 2c 22 41 63 74 | 69 76 65 22 2c 32 2c 22 |vm","Act|ive",2,"|
|00005290| 63 73 62 22 2c 22 53 65 | 74 22 2c 22 56 69 65 77 |csb","Se|t","View|
|000052a0| 4d 6f 64 65 22 2c 22 74 | 65 78 74 22 29 0a 20 20 |Mode","t|ext"). |
|000052b0| 20 20 72 65 74 75 72 6e | 0a 2f 2a 2a 2a 2a 2a 2a | return|./******|
|000052c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000052d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000052e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000052f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005300| 2a 2a 2a 2a 2f 0a 43 42 | 61 72 43 68 61 6e 67 65 |****/.CB|arChange|
|00005310| 64 3a 20 70 72 6f 63 65 | 64 75 72 65 20 65 78 70 |d: proce|dure exp|
|00005320| 6f 73 65 20 67 6c 6f 62 | 61 6c 2e 0a 0a 20 20 20 |ose glob|al... |
|00005330| 20 63 61 6c 6c 20 73 65 | 74 28 22 63 77 69 6e 22 | call se|t("cwin"|
|00005340| 2c 22 53 6c 65 65 70 22 | 2c 31 29 0a 0a 20 20 20 |,"Sleep"|,1).. |
|00005350| 20 63 61 6c 6c 20 44 6f | 4d 65 74 68 6f 64 28 22 | call Do|Method("|
|00005360| 43 44 75 6d 6d 79 42 61 | 72 47 22 2c 22 49 6e 69 |CDummyBa|rG","Ini|
|00005370| 74 43 68 61 6e 67 65 73 | 22 29 0a 20 20 20 20 63 |tChanges|"). c|
|00005380| 61 6c 6c 20 44 69 73 70 | 6f 73 65 28 22 63 73 62 |all Disp|ose("csb|
|00005390| 22 29 0a 20 20 20 20 63 | 61 6c 6c 20 41 64 64 28 |"). c|all Add(|
|000053a0| 22 43 44 75 6d 6d 79 42 | 61 72 47 22 2c 67 6c 6f |"CDummyB|arG",glo|
|000053b0| 62 61 6c 2e 44 75 6d 6d | 79 53 70 61 63 65 29 0a |bal.Dumm|ySpace).|
|000053c0| 20 20 20 20 63 61 6c 6c | 20 44 6f 4d 65 74 68 6f | call| DoMetho|
|000053d0| 64 28 22 43 44 75 6d 6d | 79 42 61 72 47 22 2c 22 |d("CDumm|yBarG","|
|000053e0| 45 78 69 74 43 68 61 6e | 67 65 73 22 29 0a 0a 20 |ExitChan|ges").. |
|000053f0| 20 20 20 63 61 6c 6c 20 | 4d 75 6c 74 69 47 65 74 | call |MultiGet|
|00005400| 41 74 74 72 28 22 67 6c | 6f 62 61 6c 2e 47 61 64 |Attr("gl|obal.Gad|
|00005410| 67 65 74 73 22 29 0a 0a | 20 20 20 20 62 61 72 3d |gets")..| bar=|
|00005420| 43 72 65 61 74 65 42 61 | 72 28 67 6c 6f 62 61 6c |CreateBa|r(global|
|00005430| 2e 47 61 64 67 65 74 73 | 2e 30 2e 56 61 6c 75 65 |.Gadgets|.0.Value|
|00005440| 2c 22 63 73 62 22 2c 67 | 6c 6f 62 61 6c 2e 47 61 |,"csb",g|lobal.Ga|
|00005450| 64 67 65 74 73 2e 31 2e | 56 61 6c 75 65 7e 3d 32 |dgets.1.|Value~=2|
|00005460| 2c 67 6c 6f 62 61 6c 2e | 47 61 64 67 65 74 73 2e |,global.|Gadgets.|
|00005470| 32 2e 56 61 6c 75 65 2c | 30 29 0a 20 20 20 20 69 |2.Value,|0). i|
|00005480| 66 20 62 61 72 3d 22 22 | 20 74 68 65 6e 20 65 78 |f bar=""| then ex|
|00005490| 69 74 0a 0a 20 20 20 20 | 63 61 6c 6c 20 73 65 74 |it.. |call set|
|000054a0| 28 22 63 73 62 22 2c 22 | 42 6f 72 64 65 72 4c 65 |("csb","|BorderLe|
|000054b0| 73 73 22 2c 67 6c 6f 62 | 61 6c 2e 47 61 64 67 65 |ss",glob|al.Gadge|
|000054c0| 74 73 2e 33 2e 76 61 6c | 75 65 29 0a 20 20 20 20 |ts.3.val|ue). |
|000054d0| 63 61 6c 6c 20 73 65 74 | 28 22 63 73 62 22 2c 22 |call set|("csb","|
|000054e0| 52 61 69 73 69 6e 67 46 | 72 61 6d 65 22 2c 67 6c |RaisingF|rame",gl|
|000054f0| 6f 62 61 6c 2e 47 61 64 | 67 65 74 73 2e 34 2e 76 |obal.Gad|gets.4.v|
|00005500| 61 6c 75 65 29 0a 20 20 | 20 20 63 61 6c 6c 20 73 |alue). | call s|
|00005510| 65 74 28 22 63 73 62 22 | 2c 22 53 6d 61 6c 6c 49 |et("csb"|,"SmallI|
|00005520| 6d 61 67 65 73 22 2c 67 | 6c 6f 62 61 6c 2e 47 61 |mages",g|lobal.Ga|
|00005530| 64 67 65 74 73 2e 35 2e | 76 61 6c 75 65 29 0a 20 |dgets.5.|value). |
|00005540| 20 20 20 63 61 6c 6c 20 | 73 65 74 28 22 63 73 62 | call |set("csb|
|00005550| 22 2c 22 53 75 6e 6e 79 | 22 2c 67 6c 6f 62 61 6c |","Sunny|",global|
|00005560| 2e 47 61 64 67 65 74 73 | 2e 36 2e 76 61 6c 75 65 |.Gadgets|.6.value|
|00005570| 29 0a 0a 20 20 20 20 63 | 61 6c 6c 20 53 65 74 43 |).. c|all SetC|
|00005580| 42 61 72 4e 6f 74 69 66 | 69 65 73 28 29 0a 0a 20 |BarNotif|ies().. |
|00005590| 20 20 20 63 61 6c 6c 20 | 44 6f 4d 65 74 68 6f 64 | call |DoMethod|
|000055a0| 28 22 43 44 75 6d 6d 79 | 42 61 72 47 22 2c 22 49 |("CDummy|BarG","I|
|000055b0| 6e 69 74 43 68 61 6e 67 | 65 73 22 29 0a 20 20 20 |nitChang|es"). |
|000055c0| 20 63 61 6c 6c 20 52 65 | 6d 6f 76 65 28 67 6c 6f | call Re|move(glo|
|000055d0| 62 61 6c 2e 44 75 6d 6d | 79 53 70 61 63 65 29 0a |bal.Dumm|ySpace).|
|000055e0| 20 20 20 20 63 61 6c 6c | 20 41 64 64 28 22 43 44 | call| Add("CD|
|000055f0| 75 6d 6d 79 42 61 72 47 | 22 2c 62 61 72 29 0a 20 |ummyBarG|",bar). |
|00005600| 20 20 20 63 61 6c 6c 20 | 44 6f 4d 65 74 68 6f 64 | call |DoMethod|
|00005610| 28 22 43 44 75 6d 6d 79 | 42 61 72 47 22 2c 22 45 |("CDummy|BarG","E|
|00005620| 78 69 74 43 68 61 6e 67 | 65 73 22 29 0a 0a 20 20 |xitChang|es").. |
|00005630| 20 20 63 61 6c 6c 20 73 | 65 74 28 22 63 77 69 6e | call s|et("cwin|
|00005640| 22 2c 22 53 6c 65 65 70 | 22 2c 30 29 0a 0a 20 20 |","Sleep|",0).. |
|00005650| 20 20 72 65 74 75 72 6e | 0a 2f 2a 2a 2a 2a 2a 2a | return|./******|
|00005660| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005670| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000056a0| 2a 2a 2a 2a 2f 0a 41 64 | 76 61 6e 63 65 49 6e 74 |****/.Ad|vanceInt|
|000056b0| 72 6f 3a 20 70 72 6f 63 | 65 64 75 72 65 0a 70 61 |ro: proc|edure.pa|
|000056c0| 72 73 65 20 61 72 67 20 | 6d 73 67 0a 09 63 61 6c |rse arg |msg..cal|
|000056d0| 6c 20 67 65 74 61 74 74 | 72 28 22 69 6e 74 72 6f |l getatt|r("intro|
|000056e0| 22 2c 22 63 75 72 72 65 | 6e 74 22 2c 22 63 22 29 |","curre|nt","c")|
|000056f0| 0a 09 73 65 74 2e 43 75 | 72 72 65 6e 74 3d 63 2b |..set.Cu|rrent=c+|
|00005700| 31 0a 09 73 65 74 2e 49 | 6e 66 6f 54 65 78 74 3d |1..set.I|nfoText=|
|00005710| 6d 73 67 0a 09 63 61 6c | 6c 20 53 65 74 41 74 74 |msg..cal|l SetAtt|
|00005720| 72 73 28 22 69 6e 74 72 | 6f 22 2c 22 73 65 74 22 |rs("intr|o","set"|
|00005730| 29 0a 09 72 65 74 75 72 | 6e 0a 2f 2a 2a 2a 2a 2a |)..retur|n./*****|
|00005740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005760| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005770| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005780| 2a 2a 2a 2a 2a 2f 0a | |*****/. | |
+--------+-------------------------+-------------------------+--------+--------+
