/ Celestin Apprentice 7 / Apprentice-Release7.iso / Demos / Bowers Development / AppMaker 2.1.sit / AppMaker 2.1 / Examples / TCL / Gadgets / GadgetsApp.cp

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 47 61 64 67 65 74 | 73 41 70 70 2e 63 70 00 |..Gadget|sApp.cp.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|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 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 07 30 00 | 00 01 1e af 39 4a 87 af |......0.|....9J..|
|00000060| 39 4a 87 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |9J......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 07 d1 00 00 |........|........|
|00000080| 2f 2a 20 47 61 64 67 65 | 74 73 41 70 70 2e 63 70 |/* Gadge|tsApp.cp|
|00000090| 20 2d 2d 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 | -- appl|ication |
|000000a0| 6d 65 74 68 6f 64 73 20 | 2a 2f 0d 2f 2a 20 43 72 |methods |*/./* Cr|
|000000b0| 65 61 74 65 64 20 32 2f | 32 35 2f 39 37 20 31 30 |eated 2/|25/97 10|
|000000c0| 3a 30 33 20 50 4d 20 62 | 79 20 41 70 70 4d 61 6b |:03 PM b|y AppMak|
|000000d0| 65 72 20 2a 2f 0d 0d 2f | 2a 09 54 68 69 73 20 6d |er */../|*.This m|
|000000e0| 6f 64 75 6c 65 20 6f 76 | 65 72 72 69 64 65 73 20 |odule ov|errides |
|000000f0| 74 68 65 20 41 70 70 4d | 61 6b 65 72 2d 67 65 6e |the AppM|aker-gen|
|00000100| 65 72 61 74 65 64 20 63 | 6f 64 65 20 69 6e 20 7a |erated c|ode in z|
|00000110| 47 61 64 67 65 74 73 41 | 70 70 2e 09 2a 2f 0d 2f |GadgetsA|pp..*/./|
|00000120| 2a 09 49 74 20 70 72 6f | 76 69 64 65 73 20 61 20 |*.It pro|vides a |
|00000130| 70 6c 61 63 65 20 66 6f | 72 20 79 6f 75 20 74 6f |place fo|r you to|
|00000140| 20 61 64 64 20 79 6f 75 | 72 20 6f 77 6e 20 63 6f | add you|r own co|
|00000150| 64 65 20 61 6e 64 20 73 | 74 69 6c 6c 20 62 65 20 |de and s|till be |
|00000160| 61 62 6c 65 20 74 6f 09 | 2a 2f 0d 2f 2a 09 67 65 |able to.|*/./*.ge|
|00000170| 6e 65 72 61 74 65 20 63 | 6f 64 65 20 66 6f 72 20 |nerate c|ode for |
|00000180| 6e 65 77 20 63 68 61 6e | 67 65 73 20 74 6f 20 74 |new chan|ges to t|
|00000190| 68 65 20 75 73 65 72 20 | 69 6e 74 65 72 66 61 63 |he user |interfac|
|000001a0| 65 2e 20 20 54 68 69 73 | 20 6d 6f 64 75 6c 65 20 |e.  This| module |
|000001b0| 77 69 6c 6c 09 2a 2f 0d | 2f 2a 09 6e 6f 74 20 62 |will.*/.|/*.not b|
|000001c0| 65 20 72 65 67 65 6e 65 | 72 61 74 65 64 20 62 79 |e regene|rated by|
|000001d0| 20 41 70 70 4d 61 6b 65 | 72 20 75 6e 6c 65 73 73 | AppMake|r unless|
|000001e0| 20 79 6f 75 20 64 65 6c | 65 74 65 20 69 74 2e 20 | you del|ete it. |
|000001f0| 20 49 74 73 20 73 75 70 | 65 72 63 6c 61 73 73 2c | Its sup|erclass,|
|00000200| 09 2a 2f 0d 2f 2a 09 7a | 47 61 64 67 65 74 73 41 |.*/./*.z|GadgetsA|
|00000210| 70 70 2c 20 6d 61 79 20 | 62 65 20 72 65 67 65 6e |pp, may |be regen|
|00000220| 65 72 61 74 65 64 20 74 | 6f 20 68 61 6e 64 6c 65 |erated t|o handle|
|00000230| 20 75 73 65 72 20 69 6e | 74 65 72 66 61 63 65 20 | user in|terface |
|00000240| 63 68 61 6e 67 65 73 09 | 09 2a 2f 0d 2f 2a 09 77 |changes.|.*/./*.w|
|00000250| 69 74 68 6f 75 74 20 6c | 6f 73 69 6e 67 20 79 6f |ithout l|osing yo|
|00000260| 75 72 20 68 61 6e 64 2d | 63 6f 64 65 64 20 63 68 |ur hand-|coded ch|
|00000270| 61 6e 67 65 73 20 74 6f | 20 74 68 69 73 20 6d 6f |anges to| this mo|
|00000280| 64 75 6c 65 2e 09 09 09 | 09 09 2a 2f 0d 0d 23 69 |dule....|..*/..#i|
|00000290| 6e 63 6c 75 64 65 20 3c | 43 6f 6d 6d 61 6e 64 73 |nclude <|Commands|
|000002a0| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 3c 43 42 |.h>.#inc|lude <CB|
|000002b0| 61 72 74 65 6e 64 65 72 | 2e 68 3e 0d 23 69 6e 63 |artender|.h>.#inc|
|000002c0| 6c 75 64 65 20 3c 43 57 | 69 6e 64 6f 77 2e 68 3e |lude <CW|indow.h>|
|000002d0| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 47 6c 6f 62 61 |.#includ|e <Globa|
|000002e0| 6c 2e 68 3e 0d 23 69 6e | 63 6c 75 64 65 20 22 43 |l.h>.#in|clude "C|
|000002f0| 6d 64 43 6f 64 65 73 2e | 68 22 0d 23 69 6e 63 6c |mdCodes.|h".#incl|
|00000300| 75 64 65 20 22 47 61 64 | 67 65 74 73 44 61 74 61 |ude "Gad|getsData|
|00000310| 2e 68 22 0d 23 69 6e 63 | 6c 75 64 65 20 22 47 61 |.h".#inc|lude "Ga|
|00000320| 64 67 65 74 73 41 70 70 | 2e 68 22 0d 0d 65 78 74 |dgetsApp|.h"..ext|
|00000330| 65 72 6e 09 4f 53 54 79 | 70 65 09 09 20 67 53 69 |ern.OSTy|pe.. gSi|
|00000340| 67 6e 61 74 75 72 65 3b | 0d 65 78 74 65 72 6e 09 |gnature;|.extern.|
|00000350| 43 42 61 72 74 65 6e 64 | 65 72 09 2a 67 42 61 72 |CBartend|er.*gBar|
|00000360| 74 65 6e 64 65 72 3b 0d | 0d 2f 2a 2d 2d 2d 2d 2d |tender;.|./*-----|
|00000370| 2d 2d 2d 2d 2d 2a 2f 0d | 76 6f 69 64 09 43 47 61 |-----*/.|void.CGa|
|00000380| 64 67 65 74 73 41 70 70 | 3a 3a 49 47 61 64 67 65 |dgetsApp|::IGadge|
|00000390| 74 73 41 70 70 09 28 76 | 6f 69 64 29 0d 7b 0d 09 |tsApp.(v|oid).{..|
|000003a0| 69 6e 68 65 72 69 74 65 | 64 3a 3a 49 47 61 64 67 |inherite|d::IGadg|
|000003b0| 65 74 73 41 70 70 20 28 | 29 3b 0d 0d 09 2f 2f 20 |etsApp (|);...// |
|000003c0| 79 6f 75 72 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |your app|lication|
|000003d0| 2d 73 70 65 63 69 66 69 | 63 20 69 6e 69 74 69 61 |-specifi|c initia|
|000003e0| 6c 69 7a 61 74 69 6f 6e | 3a 0d 0d 7d 20 2f 2a 20 |lization|:..} /* |
|000003f0| 49 47 61 64 67 65 74 73 | 41 70 70 20 2a 2f 0d 0d |IGadgets|App */..|
|00000400| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 2f 0d 76 |/*------|----*/.v|
|00000410| 6f 69 64 09 43 47 61 64 | 67 65 74 73 41 70 70 3a |oid.CGad|getsApp:|
|00000420| 3a 53 65 74 55 70 46 69 | 6c 65 50 61 72 61 6d 65 |:SetUpFi|leParame|
|00000430| 74 65 72 73 09 28 76 6f | 69 64 29 0d 7b 0d 09 69 |ters.(vo|id).{..i|
|00000440| 6e 68 65 72 69 74 65 64 | 3a 3a 53 65 74 55 70 46 |nherited|::SetUpF|
|00000450| 69 6c 65 50 61 72 61 6d | 65 74 65 72 73 20 28 29 |ileParam|eters ()|
|00000460| 3b 0d 09 73 66 4e 75 6d | 54 79 70 65 73 20 3d 20 |;..sfNum|Types = |
|00000470| 31 3b 0d 09 73 66 46 69 | 6c 65 54 79 70 65 73 20 |1;..sfFi|leTypes |
|00000480| 5b 30 5d 20 3d 20 6b 46 | 69 6c 65 54 79 70 65 3b |[0] = kF|ileType;|
|00000490| 0d 09 67 53 69 67 6e 61 | 74 75 72 65 20 3d 20 6b |..gSigna|ture = k|
|000004a0| 53 69 67 6e 61 74 75 72 | 65 3b 0d 0d 7d 20 2f 2a |Signatur|e;..} /*|
|000004b0| 20 53 65 74 55 70 46 69 | 6c 65 50 61 72 61 6d 65 | SetUpFi|leParame|
|000004c0| 74 65 72 73 20 2a 2f 0d | 0d 2f 2a 2d 2d 2d 2d 2d |ters */.|./*-----|
|000004d0| 2d 2d 2d 2d 2d 2a 2f 0d | 76 6f 69 64 09 43 47 61 |-----*/.|void.CGa|
|000004e0| 64 67 65 74 73 41 70 70 | 3a 3a 55 70 64 61 74 65 |dgetsApp|::Update|
|000004f0| 4d 65 6e 75 73 09 09 28 | 76 6f 69 64 29 0d 7b 0d |Menus..(|void).{.|
|00000500| 09 69 6e 68 65 72 69 74 | 65 64 3a 3a 55 70 64 61 |.inherit|ed::Upda|
|00000510| 74 65 4d 65 6e 75 73 20 | 28 29 3b 0d 0d 0d 7d 20 |teMenus |();...} |
|00000520| 2f 2a 20 55 70 64 61 74 | 65 4d 65 6e 75 73 20 2a |/* Updat|eMenus *|
|00000530| 2f 0d 0d 2f 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a |/../*---|-------*|
|00000540| 2f 0d 76 6f 69 64 09 43 | 47 61 64 67 65 74 73 41 |/.void.C|GadgetsA|
|00000550| 70 70 3a 3a 44 6f 43 6f | 6d 6d 61 6e 64 20 28 6c |pp::DoCo|mmand (l|
|00000560| 6f 6e 67 09 09 74 68 65 | 43 6f 6d 6d 61 6e 64 29 |ong..the|Command)|
|00000570| 0d 7b 0d 09 73 68 6f 72 | 74 09 09 74 68 65 4d 65 |.{..shor|t..theMe|
|00000580| 6e 75 3b 0d 09 73 68 6f | 72 74 09 09 74 68 65 49 |nu;..sho|rt..theI|
|00000590| 74 65 6d 3b 0d 09 53 74 | 72 32 35 35 09 09 74 68 |tem;..St|r255..th|
|000005a0| 65 49 74 65 6d 54 65 78 | 74 3b 0d 0d 09 69 66 20 |eItemTex|t;...if |
|000005b0| 28 74 68 65 43 6f 6d 6d | 61 6e 64 20 3c 20 30 29 |(theComm|and < 0)|
|000005c0| 20 7b 09 09 09 09 2f 2a | 20 6d 65 6e 75 20 67 65 | {..../*| menu ge|
|000005d0| 6e 65 72 61 74 65 64 20 | 64 79 6e 61 6d 69 63 61 |nerated |dynamica|
|000005e0| 6c 6c 79 20 2a 2f 0d 09 | 09 74 68 65 4d 65 6e 75 |lly */..|.theMenu|
|000005f0| 20 3d 20 48 69 53 68 6f | 72 74 20 28 2d 74 68 65 | = HiSho|rt (-the|
|00000600| 43 6f 6d 6d 61 6e 64 29 | 3b 0d 09 09 69 66 20 28 |Command)|;...if (|
|00000610| 74 68 65 4d 65 6e 75 20 | 3d 3d 20 4d 45 4e 55 61 |theMenu |== MENUa|
|00000620| 70 70 6c 65 29 20 7b 0d | 09 09 09 69 6e 68 65 72 |pple) {.|...inher|
|00000630| 69 74 65 64 3a 3a 44 6f | 43 6f 6d 6d 61 6e 64 20 |ited::Do|Command |
|00000640| 28 74 68 65 43 6f 6d 6d | 61 6e 64 29 3b 09 2f 2a |(theComm|and);./*|
|00000650| 20 68 61 6e 64 6c 65 20 | 41 70 70 6c 65 20 6d 65 | handle |Apple me|
|00000660| 6e 75 20 69 6e 20 73 75 | 70 65 72 63 6c 61 73 73 |nu in su|perclass|
|00000670| 20 2a 2f 0d 09 09 7d 20 | 65 6c 73 65 20 7b 0d 09 | */...} |else {..|
|00000680| 09 09 74 68 65 49 74 65 | 6d 20 3d 20 4c 6f 53 68 |..theIte|m = LoSh|
|00000690| 6f 72 74 20 28 2d 74 68 | 65 43 6f 6d 6d 61 6e 64 |ort (-th|eCommand|
|000006a0| 29 3b 0d 09 09 09 47 65 | 74 49 74 65 6d 20 28 47 |);....Ge|tItem (G|
|000006b0| 65 74 4d 48 61 6e 64 6c | 65 20 28 74 68 65 4d 65 |etMHandl|e (theMe|
|000006c0| 6e 75 29 2c 20 74 68 65 | 49 74 65 6d 2c 20 74 68 |nu), the|Item, th|
|000006d0| 65 49 74 65 6d 54 65 78 | 74 29 3b 0d 09 09 09 2f |eItemTex|t);..../|
|000006e0| 2a 20 64 6f 20 74 68 65 | 20 72 69 67 68 74 20 74 |* do the| right t|
|000006f0| 68 69 6e 67 20 77 69 74 | 68 20 74 68 65 20 74 65 |hing wit|h the te|
|00000700| 78 74 20 6f 66 20 74 68 | 65 20 69 74 65 6d 20 2a |xt of th|e item *|
|00000710| 2f 0d 09 09 7d 0d 09 7d | 20 65 6c 73 65 20 7b 0d |/...}..}| else {.|
|00000720| 09 09 73 77 69 74 63 68 | 20 28 74 68 65 43 6f 6d |..switch| (theCom|
|00000730| 6d 61 6e 64 29 20 7b 0d | 0d 09 09 64 65 66 61 75 |mand) {.|...defau|
|00000740| 6c 74 3a 0d 09 09 09 69 | 6e 68 65 72 69 74 65 64 |lt:....i|nherited|
|00000750| 3a 3a 44 6f 43 6f 6d 6d | 61 6e 64 20 28 74 68 65 |::DoComm|and (the|
|00000760| 43 6f 6d 6d 61 6e 64 29 | 3b 0d 09 09 09 62 72 65 |Command)|;....bre|
|00000770| 61 6b 3b 0d 09 09 7d 20 | 2f 2a 20 73 77 69 74 63 |ak;...} |/* switc|
|00000780| 68 20 2a 2f 0d 09 7d 0d | 0d 7d 20 2f 2a 20 44 6f |h */..}.|.} /* Do|
|00000790| 43 6f 6d 6d 61 6e 64 20 | 2a 2f 0d 0d 2f 2a 20 47 |Command |*/../* G|
|000007a0| 61 64 67 65 74 73 41 70 | 70 2e 63 70 20 2a 2f 0d |adgetsAp|p.cp */.|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000810| 41 70 70 4d 61 6b 65 72 | 20 32 2e 30 20 22 6d 61 |AppMaker| 2.0 "ma|
|00000820| 6b 65 66 69 6c 65 22 0d | 0d 4c 61 6e 67 75 61 67 |kefile".|.Languag|
|00000830| 0d 47 61 64 67 65 74 73 | 41 70 70 2e 63 70 02 00 |.Gadgets|App.cp..|
|00000840| 00 00 54 45 58 54 4b 41 | 48 4c 00 00 63 c0 65 00 |..TEXTKA|HL..c.e.|
|00000850| 00 00 54 45 58 54 4b 41 | 48 4c 00 00 63 c0 65 00 |..TEXTKA|HL..c.e.|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 af 39 12 47 00 00 | 07 30 00 00 01 1e 09 09 |...9.G..|.0......|
|00000880| 09 22 47 65 6e 57 68 61 | 74 22 0d 0d 2f 2f 20 52 |."GenWha|t"..// R|
|00000890| 65 73 6f 75 72 63 65 73 | 3a 0d 09 09 09 09 22 4d |esources|:....."M|
|000008a0| 65 6e 75 73 22 0d 09 09 | 09 09 22 57 69 6e 64 6f |enus"...|.."Windo|
|000008b0| 77 73 22 0d 09 09 09 09 | 22 53 74 79 6c 65 73 22 |ws".....|"Styles"|
|000008c0| 0d 09 09 09 09 22 47 72 | 61 70 68 69 63 73 22 0d |....."Gr|aphics".|
|000008d0| 0d 2f 2f 20 53 6f 75 72 | 63 65 73 3a 0d 09 09 09 |.// Sour|ces:....|
|000008e0| 09 22 4d 61 69 6e 22 0d | 09 09 09 09 22 43 6f 6d |."Main".|...."Com|
|000008f0| 6d 61 6e 64 73 22 0d 09 | 09 09 09 22 41 70 70 22 |mands"..|..."App"|
|00000900| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+