/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Info / For Developers / FrontierMenu / Frontier verbs / shutdown.closeAlphaWindows

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 1a 73 68 75 74 64 6f | 77 6e 2e 63 6c 6f 73 65 |..shutdo|wn.close|
|00000010| 41 6c 70 68 61 57 69 6e | 64 6f 77 73 00 00 00 00 |AlphaWin|dows....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 32 43 4c 4b 4c 41 4e | 44 01 00 00 00 00 00 00 |.2CLKLAN|D.......|
|00000050| 00 00 00 00 00 00 00 00 | 00 09 06 b0 83 f8 62 b0 |........|......b.|
|00000060| 83 f8 62 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..b.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 f3 75 00 00 |........|.....u..|
|00000080| 00 00 01 00 00 00 08 66 | 00 00 07 66 00 00 00 a0 |.......f|...f....|
|00000090| 2f 0c 2f 2c 00 28 20 6c | 00 24 4e 90 20 06 c1 8d |/./,.( l|.$N. ...|
|000000a0| 60 92 4a 05 67 24 4a 6b | 00 38 66 1e 37 7c 00 07 |`.J.g$Jk|.8f.7|..|
|000000b0| 1a 73 68 75 74 64 6f 77 | 6e 2e 63 6c 6f 73 65 41 |.shutdow|n.closeA|
|000000c0| 6c 70 68 61 57 69 6e 64 | 6f 77 73 69 02 00 00 00 |lphaWind|owsi....|
|000000d0| 00 00 32 43 4c 4b 4c 41 | 4e 44 01 00 00 00 00 01 |..2CLKLA|ND......|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 b0 83 f8 62 00 00 | 00 00 00 00 09 06 ff f0 |.....b..|........|
|00000100| 48 e7 03 18 2c 2e 00 0c | 28 6e 00 10 2e 2e 00 08 |H...,...|(n......|
|00000110| 20 54 20 68 00 08 26 50 | 4a 86 5d c0 44 00 44 00 | T h..&P|J.].D.D.|
|00000120| 49 c0 2d 40 ff f0 2d 46 | ff f4 2d 6b 00 10 ff f8 |I.-@..-F|..-k....|
|00000130| 70 00 2d 40 ff fc 48 6e | ff f0 20 54 20 68 00 04 |p.-@..Hn|.. T h..|
|00000140| 20 50 2f 28 00 42 30 3c | 80 b7 20 78 18 a8 4e 90 | P/(.B0<|.. x..N.|
|00000150| 4a 87 67 20 0c 87 00 01 | 00 00 67 18 48 6e ff f0 |J.g ....|..g.Hn..|
|00000160| 2f 07 2f 3c 00 01 00 00 | 70 00 2f 00 70 0c 4e b0 |/./<....|p./.p.N.|
|00000170| 81 e1 1d 08 2d 6e ff f4 | 00 14 4c ee 18 c0 ff e0 |....-n..|..L.....|
|00000180| 00 00 00 06 05 34 2e 32 | 2e 33 00 00 00 09 08 46 |.....4.2|.3.....F|
|00000190| 72 6f 6e 74 69 65 72 00 | 00 00 f0 00 01 04 b0 00 |rontier.|........|
|000001a0| 02 00 00 00 0c 00 00 00 | 68 00 00 02 00 00 0f 06 |........|h.......|
|000001b0| 47 65 6e 65 76 61 00 00 | 00 00 00 00 00 00 00 00 |Geneva..|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 0c 00 00 00 00 00 | 00 00 00 00 00 06 54 00 |........|......T.|
|000001e0| 00 a4 d0 77 90 ae 6d 99 | 0a 00 00 00 11 00 00 00 |...w..m.|........|
|000001f0| a0 00 32 01 04 02 12 4c | 41 4e 44 00 00 00 00 00 |..2....L|AND.....|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 6f | 6e 20 63 61 6c 6c 69 6d |.......o|n callim|
|00000220| 70 6f 72 74 65 72 20 28 | 70 61 74 68 29 20 c7 74 |porter (|path) .t|
|00000230| 68 69 73 20 73 63 72 69 | 70 74 20 69 73 20 73 61 |his scri|pt is sa|
|00000240| 76 65 64 20 77 69 74 68 | 20 61 6c 6c 20 65 78 70 |ved with| all exp|
|00000250| 6f 72 74 65 64 20 6f 62 | 6a 65 63 74 73 0d 09 72 |orted ob|jects..r|
|00000260| 65 74 75 72 6e 20 28 65 | 78 70 6f 72 74 2e 69 6d |eturn (e|xport.im|
|00000270| 70 6f 72 74 65 72 20 28 | 70 61 74 68 29 29 0d 80 |porter (|path))..|
|00000280| 00 00 00 00 00 80 00 00 | 00 00 00 00 00 00 0d 0c |........|........|
|00000290| 63 61 6c 6c 69 6d 70 6f | 72 74 65 72 00 00 00 02 |callimpo|rter....|
|000002a0| 01 31 00 00 06 40 73 63 | 70 74 00 01 04 c0 00 02 |.1...@sc|pt......|
|000002b0| 00 00 00 b4 00 00 05 0c | 00 01 02 00 00 0f 06 47 |........|.......G|
|000002c0| 65 6e 65 76 61 00 00 00 | 00 00 00 00 00 00 00 00 |eneva...|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 09 00 00 00 00 00 00 | 00 00 00 00 06 54 00 00 |........|.....T..|
|000002f0| b0 78 08 7e b0 81 0e 4c | 00 00 00 84 00 00 00 96 |.x.~...L|........|
|00000300| 01 3b 02 94 03 4c 4c 41 | 4e 44 00 00 00 00 00 00 |.;...LLA|ND......|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 69 66 | 20 64 65 66 69 6e 65 64 |......if| defined|
|00000330| 28 41 6c 70 68 61 2e 69 | 64 29 20 26 26 20 73 79 |(Alpha.i|d) && sy|
|00000340| 73 2e 61 70 70 69 73 72 | 75 6e 6e 69 6e 67 28 41 |s.appisr|unning(A|
|00000350| 6c 70 68 61 2e 69 64 29 | 0d 09 74 72 79 0d 09 09 |lpha.id)|..try...|
|00000360| 69 66 20 41 6c 70 68 61 | 2e 64 6f 53 63 72 69 70 |if Alpha|.doScrip|
|00000370| 74 28 22 6c 6c 65 6e 67 | 74 68 20 24 66 72 6f 6e |t("lleng|th $fron|
|00000380| 74 69 65 72 57 69 6e 4c | 69 73 74 22 29 20 3e 20 |tierWinL|ist") > |
|00000390| 30 20 c7 20 41 72 65 20 | 74 68 65 72 65 20 61 6e |0 . Are |there an|
|000003a0| 79 20 46 72 6f 6e 74 69 | 65 72 20 77 69 6e 64 6f |y Fronti|er windo|
|000003b0| 77 73 20 6f 70 65 6e 20 | 69 6e 20 41 6c 70 68 61 |ws open |in Alpha|
|000003c0| 3f 0d 09 09 09 6c 6f 63 | 61 6c 20 28 61 64 72 66 |?....loc|al (adrf|
|000003d0| 69 6c 65 74 61 62 6c 65 | 20 3d 20 40 75 73 65 72 |iletable| = @user|
|000003e0| 2e 6f 64 62 45 64 69 74 | 6f 72 73 2e 64 61 74 61 |.odbEdit|ors.data|
|000003f0| 2e 6f 70 65 6e 66 69 6c | 65 73 29 0d 09 09 09 6c |.openfil|es)....l|
|00000400| 6f 63 61 6c 20 28 77 69 | 6e 20 20 3d 20 41 6c 70 |ocal (wi|n  = Alp|
|00000410| 68 61 2e 64 6f 53 63 72 | 69 70 74 28 22 66 72 6f |ha.doScr|ipt("fro|
|00000420| 6e 74 69 65 72 47 65 74 | 57 69 6e 22 29 2c 20 69 |ntierGet|Win"), i|
|00000430| 29 0d 09 09 09 77 68 69 | 6c 65 20 77 69 6e 20 21 |)....whi|le win !|
|00000440| 3d 20 22 22 20 c7 20 4c | 6f 6f 70 20 6f 76 65 72 |= "" . L|oop over|
|00000450| 20 61 6c 6c 20 6f 70 65 | 6e 20 77 69 6e 64 6f 77 | all ope|n window|
|00000460| 73 2e 0d 09 09 09 09 77 | 69 6e 20 3d 20 73 74 72 |s......w|in = str|
|00000470| 69 6e 67 2e 72 65 70 6c | 61 63 65 41 6c 6c 28 77 |ing.repl|aceAll(w|
|00000480| 69 6e 2c 20 22 5c 5c 5b | 22 2c 20 22 5b 22 29 0d |in, "\\[|", "[").|
|00000490| 09 09 09 09 77 69 6e 20 | 3d 20 73 74 72 69 6e 67 |....win |= string|
|000004a0| 2e 72 65 70 6c 61 63 65 | 41 6c 6c 28 77 69 6e 2c |.replace|All(win,|
|000004b0| 20 22 5c 5c 5d 22 2c 20 | 22 5d 22 29 0d 09 09 09 | "\\]", |"]")....|
|000004c0| 09 69 66 20 41 6c 70 68 | 61 2e 64 6f 53 63 72 69 |.if Alph|a.doScri|
|000004d0| 70 74 28 22 67 65 74 57 | 69 6e 49 6e 66 6f 20 2d |pt("getW|inInfo -|
|000004e0| 77 20 7b 22 20 2b 20 77 | 69 6e 20 2b 20 22 7d 20 |w {" + w|in + "} |
|000004f0| 5f 5f 61 72 72 3b 20 73 | 65 74 20 5f 5f 61 72 72 |__arr; s|et __arr|
|00000500| 28 64 69 72 74 79 29 22 | 29 20 3d 3d 20 31 20 c7 |(dirty)"|) == 1 .|
|00000510| 20 49 73 20 74 68 65 20 | 77 69 6e 64 6f 77 20 64 | Is the |window d|
|00000520| 69 72 74 79 3f 0d 09 09 | 09 09 09 66 6f 72 20 69 |irty?...|...for i|
|00000530| 20 3d 20 31 20 74 6f 20 | 73 69 7a 65 6f 66 20 28 | = 1 to |sizeof (|
|00000540| 61 64 72 66 69 6c 65 74 | 61 62 6c 65 5e 29 0d 09 |adrfilet|able^)..|
|00000550| 09 09 09 09 09 41 6c 70 | 68 61 2e 64 6f 53 63 72 |.....Alp|ha.doScr|
|00000560| 69 70 74 28 22 62 72 69 | 6e 67 54 6f 46 72 6f 6e |ipt("bri|ngToFron|
|00000570| 74 20 7b 22 20 2b 20 77 | 69 6e 20 2b 20 22 7d 22 |t {" + w|in + "}"|
|00000580| 29 0d 09 09 09 09 09 09 | 69 66 20 61 64 72 66 69 |).......|if adrfi|
|00000590| 6c 65 74 61 62 6c 65 5e | 20 5b 69 5d 20 5b 31 5d |letable^| [i] [1]|
|000005a0| 20 3d 3d 20 20 77 69 6e | 0d 09 09 09 09 09 09 09 | ==  win|........|
|000005b0| 6c 6f 63 61 6c 20 28 61 | 64 72 6f 62 6a 65 63 74 |local (a|drobject|
|000005c0| 20 3d 20 61 64 72 66 69 | 6c 65 74 61 62 6c 65 5e | = adrfi|letable^|
|000005d0| 20 5b 69 5d 20 5b 32 5d | 29 0d 09 09 09 09 09 09 | [i] [2]|).......|
|000005e0| 09 66 72 6f 6e 74 69 65 | 72 2e 62 72 69 6e 67 54 |.frontie|r.bringT|
|000005f0| 6f 46 72 6f 6e 74 28 29 | 0d 09 09 09 09 09 09 09 |oFront()|........|
|00000600| 69 66 20 21 64 69 61 6c | 6f 67 2e 59 65 73 4e 6f |if !dial|og.YesNo|
|00000610| 28 22 53 61 76 65 20 22 | 20 2b 20 61 64 72 6f 62 |("Save "| + adrob|
|00000620| 6a 65 63 74 20 2b 20 22 | 3f 22 29 0d 09 09 09 09 |ject + "|?").....|
|00000630| 09 09 09 09 62 72 65 61 | 6b 0d 09 09 09 09 09 09 |....brea|k.......|
|00000640| 09 6c 6f 63 61 6c 20 28 | 66 69 6c 65 74 65 78 74 |.local (|filetext|
|00000650| 20 3d 20 75 73 65 72 2e | 68 74 6d 6c 2e 65 64 69 | = user.|html.edi|
|00000660| 74 6f 72 73 2e 41 6c 70 | 68 61 2e 67 65 74 54 65 |tors.Alp|ha.getTe|
|00000670| 78 74 28 29 29 20 c7 20 | 47 72 61 62 20 74 68 65 |xt()) . |Grab the|
|00000680| 20 74 65 78 74 20 66 72 | 6f 6d 20 74 68 65 20 77 | text fr|om the w|
|00000690| 69 6e 64 6f 77 2e 0d 09 | 09 09 09 09 09 09 53 61 |indow...|......Sa|
|000006a0| 76 65 20 74 68 65 20 77 | 69 6e 64 6f 77 2e 0d 09 |ve the w|indow...|
|000006b0| 09 09 09 09 09 09 63 61 | 73 65 20 74 79 70 65 6f |......ca|se typeo|
|000006c0| 66 20 28 61 64 72 6f 62 | 6a 65 63 74 5e 29 0d 09 |f (adrob|ject^)..|
|000006d0| 09 09 09 09 09 09 09 73 | 74 72 69 6e 67 74 79 70 |.......s|tringtyp|
|000006e0| 65 0d 09 09 09 09 09 09 | 09 09 09 61 64 72 6f 62 |e.......|...adrob|
|000006f0| 6a 65 63 74 5e 20 3d 20 | 66 69 6c 65 74 65 78 74 |ject^ = |filetext|
|00000700| 0d 09 09 09 09 09 09 09 | 09 09 66 69 6c 65 4d 65 |........|..fileMe|
|00000710| 6e 75 2e 73 61 76 65 28 | 29 0d 09 09 09 09 09 09 |nu.save(|).......|
|00000720| 09 09 77 70 74 65 78 74 | 74 79 70 65 0d 09 09 09 |..wptext|type....|
|00000730| 09 09 09 09 09 09 74 61 | 72 67 65 74 2e 73 65 74 |......ta|rget.set|
|00000740| 20 28 61 64 72 6f 62 6a | 65 63 74 29 0d 09 09 09 | (adrobj|ect)....|
|00000750| 09 09 09 09 09 09 77 70 | 2e 73 65 74 74 65 78 74 |......wp|.settext|
|00000760| 20 28 66 69 6c 65 74 65 | 78 74 29 0d 09 09 09 09 | (filete|xt).....|
|00000770| 09 09 09 09 09 74 61 72 | 67 65 74 2e 63 6c 65 61 |.....tar|get.clea|
|00000780| 72 20 28 29 0d 09 09 09 | 09 09 09 09 09 09 66 69 |r ()....|......fi|
|00000790| 6c 65 4d 65 6e 75 2e 73 | 61 76 65 28 29 0d 09 09 |leMenu.s|ave()...|
|000007a0| 09 09 09 09 09 62 72 65 | 61 6b 0d 09 09 09 09 77 |.....bre|ak.....w|
|000007b0| 69 6e 20 20 3d 20 41 6c | 70 68 61 2e 64 6f 53 63 |in  = Al|pha.doSc|
|000007c0| 72 69 70 74 28 22 66 72 | 6f 6e 74 69 65 72 47 65 |ript("fr|ontierGe|
|000007d0| 74 57 69 6e 22 29 0d 09 | 09 41 6c 70 68 61 2e 64 |tWin")..|.Alpha.d|
|000007e0| 6f 53 63 72 69 70 74 28 | 22 66 72 6f 6e 74 69 65 |oScript(|"frontie|
|000007f0| 72 43 6c 6f 73 65 41 6c | 6c 57 69 6e 64 6f 77 73 |rCloseAl|lWindows|
|00000800| 22 29 20 c7 20 46 69 6e | 61 6c 6c 79 20 63 6c 6f |") . Fin|ally clo|
|00000810| 73 65 20 61 6c 6c 20 46 | 72 6f 6e 74 69 65 72 20 |se all F|rontier |
|00000820| 77 69 6e 64 6f 77 73 20 | 69 6e 20 41 6c 70 68 61 |windows |in Alpha|
|00000830| 2e 0d 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000840| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000850| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000860| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000870| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000880| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000890| 00 00 80 00 00 00 00 00 | 84 00 00 00 00 00 80 00 |........|........|
|000008a0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|000008b0| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|000008c0| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|000008d0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|000008e0| 80 00 00 00 00 00 00 00 | 01 00 00 00 08 66 00 00 |........|.....f..|
|000008f0| 07 66 00 00 00 a0 02 68 | 55 40 29 80 00 00 00 1c |.f.....h|U@).....|
|00000900| 00 7e 00 02 53 54 52 20 | 00 03 00 1a 73 63 70 74 |.~..STR |....scpt|
|00000910| 00 00 00 4a 64 61 74 61 | 00 00 00 56 00 80 ff ff |...Jdata|...V....|
|00000920| 00 00 00 00 00 00 00 00 | bf f4 ff ff 00 00 00 0a |........|........|
|00000930| 00 00 00 00 00 82 ff ff | 00 00 01 0b 00 00 00 00 |........|........|
|00000940| 00 7f ff ff 00 00 01 1c | 00 00 00 00 00 81 ff ff |........|........|
|00000950| 00 00 00 17 00 00 00 00 | 0c f7 00 00 00 00 01 22 |........|......."|
|00000960| 02 67 ad 3c 21 73 79 73 | 74 65 6d 2e 73 68 75 74 |.g.<!sys|tem.shut|
|00000970| 64 6f 77 6e 2e 63 6c 6f | 73 65 41 6c 70 68 61 57 |down.clo|seAlphaW|
|00000980| 69 6e 64 6f 77 73 00 00 | 00 00 00 00 00 00 00 00 |indows..|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+