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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 41 4d 52 65 6d 69 | 6e 64 65 72 41 70 70 2e |..AMRemi|nderApp.|
|00000010| 63 70 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |cp......|........|
|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 fa 00 | 00 01 1e af 39 02 64 af |........|....9.d.|
|00000060| 39 02 64 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |9.d.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 54 84 00 00 |........|....T...|
|00000080| 2f 2a 20 41 4d 52 65 6d | 69 6e 64 65 72 41 70 70 |/* AMRem|inderApp|
|00000090| 2e 63 70 20 2d 2d 20 61 | 70 70 6c 69 63 61 74 69 |.cp -- a|pplicati|
|000000a0| 6f 6e 20 6d 65 74 68 6f | 64 73 20 2a 2f 0d 2f 2a |on metho|ds */./*|
|000000b0| 20 43 72 65 61 74 65 64 | 20 32 2f 32 35 2f 39 37 | Created| 2/25/97|
|000000c0| 20 34 3a 35 36 20 50 4d | 20 62 79 20 41 70 70 4d | 4:56 PM| by AppM|
|000000d0| 61 6b 65 72 20 2a 2f 0d | 0d 2f 2a 09 54 68 69 73 |aker */.|./*.This|
|000000e0| 20 6d 6f 64 75 6c 65 20 | 6f 76 65 72 72 69 64 65 | module |override|
|000000f0| 73 20 74 68 65 20 41 70 | 70 4d 61 6b 65 72 2d 67 |s the Ap|pMaker-g|
|00000100| 65 6e 65 72 61 74 65 64 | 20 63 6f 64 65 20 69 6e |enerated| code in|
|00000110| 20 7a 41 4d 52 65 6d 69 | 6e 64 65 72 41 70 70 2e | zAMRemi|nderApp.|
|00000120| 09 2a 2f 0d 2f 2a 09 49 | 74 20 70 72 6f 76 69 64 |.*/./*.I|t provid|
|00000130| 65 73 20 61 20 70 6c 61 | 63 65 20 66 6f 72 20 79 |es a pla|ce for y|
|00000140| 6f 75 20 74 6f 20 61 64 | 64 20 79 6f 75 72 20 6f |ou to ad|d your o|
|00000150| 77 6e 20 63 6f 64 65 20 | 61 6e 64 20 73 74 69 6c |wn code |and stil|
|00000160| 6c 20 62 65 20 61 62 6c | 65 20 74 6f 09 2a 2f 0d |l be abl|e to.*/.|
|00000170| 2f 2a 09 67 65 6e 65 72 | 61 74 65 20 63 6f 64 65 |/*.gener|ate code|
|00000180| 20 66 6f 72 20 6e 65 77 | 20 63 68 61 6e 67 65 73 | for new| changes|
|00000190| 20 74 6f 20 74 68 65 20 | 75 73 65 72 20 69 6e 74 | to the |user int|
|000001a0| 65 72 66 61 63 65 2e 20 | 20 54 68 69 73 20 6d 6f |erface. | This mo|
|000001b0| 64 75 6c 65 20 77 69 6c | 6c 09 2a 2f 0d 2f 2a 09 |dule wil|l.*/./*.|
|000001c0| 6e 6f 74 20 62 65 20 72 | 65 67 65 6e 65 72 61 74 |not be r|egenerat|
|000001d0| 65 64 20 62 79 20 41 70 | 70 4d 61 6b 65 72 20 75 |ed by Ap|pMaker u|
|000001e0| 6e 6c 65 73 73 20 79 6f | 75 20 64 65 6c 65 74 65 |nless yo|u delete|
|000001f0| 20 69 74 2e 20 20 49 74 | 73 20 73 75 70 65 72 63 | it.  It|s superc|
|00000200| 6c 61 73 73 2c 09 2a 2f | 0d 2f 2a 09 7a 41 4d 52 |lass,.*/|./*.zAMR|
|00000210| 65 6d 69 6e 64 65 72 41 | 70 70 2c 20 6d 61 79 20 |eminderA|pp, may |
|00000220| 62 65 20 72 65 67 65 6e | 65 72 61 74 65 64 20 74 |be regen|erated t|
|00000230| 6f 20 68 61 6e 64 6c 65 | 20 75 73 65 72 20 69 6e |o handle| user in|
|00000240| 74 65 72 66 61 63 65 20 | 63 68 61 6e 67 65 73 09 |terface |changes.|
|00000250| 09 2a 2f 0d 2f 2a 09 77 | 69 74 68 6f 75 74 20 6c |.*/./*.w|ithout l|
|00000260| 6f 73 69 6e 67 20 79 6f | 75 72 20 68 61 6e 64 2d |osing yo|ur hand-|
|00000270| 63 6f 64 65 64 20 63 68 | 61 6e 67 65 73 20 74 6f |coded ch|anges to|
|00000280| 20 74 68 69 73 20 6d 6f | 64 75 6c 65 2e 09 09 09 | this mo|dule....|
|00000290| 09 09 2a 2f 0d 0d 23 69 | 6e 63 6c 75 64 65 20 3c |..*/..#i|nclude <|
|000002a0| 43 6f 6d 6d 61 6e 64 73 | 2e 68 3e 0d 23 69 6e 63 |Commands|.h>.#inc|
|000002b0| 6c 75 64 65 20 3c 43 42 | 61 72 74 65 6e 64 65 72 |lude <CB|artender|
|000002c0| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 3c 43 57 |.h>.#inc|lude <CW|
|000002d0| 69 6e 64 6f 77 2e 68 3e | 0d 23 69 6e 63 6c 75 64 |indow.h>|.#includ|
|000002e0| 65 20 3c 47 6c 6f 62 61 | 6c 2e 68 3e 0d 23 69 6e |e <Globa|l.h>.#in|
|000002f0| 63 6c 75 64 65 20 22 43 | 6d 64 43 6f 64 65 73 2e |clude "C|mdCodes.|
|00000300| 68 22 0d 23 69 6e 63 6c | 75 64 65 20 22 41 4d 52 |h".#incl|ude "AMR|
|00000310| 65 6d 69 6e 64 65 72 44 | 61 74 61 2e 68 22 0d 23 |eminderD|ata.h".#|
|00000320| 69 6e 63 6c 75 64 65 20 | 22 41 4d 52 65 6d 69 6e |include |"AMRemin|
|00000330| 64 65 72 41 70 70 2e 68 | 22 0d 0d 65 78 74 65 72 |derApp.h|"..exter|
|00000340| 6e 09 4f 53 54 79 70 65 | 09 09 20 67 53 69 67 6e |n.OSType|.. gSign|
|00000350| 61 74 75 72 65 3b 0d 65 | 78 74 65 72 6e 09 43 42 |ature;.e|xtern.CB|
|00000360| 61 72 74 65 6e 64 65 72 | 09 2a 67 42 61 72 74 65 |artender|.*gBarte|
|00000370| 6e 64 65 72 3b 0d 0d 2f | 2a 2d 2d 2d 2d 2d 2d 2d |nder;../|*-------|
|00000380| 2d 2d 2d 2a 2f 0d 76 6f | 69 64 09 43 41 4d 52 65 |---*/.vo|id.CAMRe|
|00000390| 6d 69 6e 64 65 72 41 70 | 70 3a 3a 49 41 4d 52 65 |minderAp|p::IAMRe|
|000003a0| 6d 69 6e 64 65 72 41 70 | 70 09 28 76 6f 69 64 29 |minderAp|p.(void)|
|000003b0| 0d 7b 0d 09 69 6e 68 65 | 72 69 74 65 64 3a 3a 49 |.{..inhe|rited::I|
|000003c0| 41 4d 52 65 6d 69 6e 64 | 65 72 41 70 70 20 28 29 |AMRemind|erApp ()|
|000003d0| 3b 0d 0d 09 2f 2f 20 79 | 6f 75 72 20 61 70 70 6c |;...// y|our appl|
|000003e0| 69 63 61 74 69 6f 6e 2d | 73 70 65 63 69 66 69 63 |ication-|specific|
|000003f0| 20 69 6e 69 74 69 61 6c | 69 7a 61 74 69 6f 6e 3a | initial|ization:|
|00000400| 0d 0d 7d 20 2f 2a 20 49 | 41 4d 52 65 6d 69 6e 64 |..} /* I|AMRemind|
|00000410| 65 72 41 70 70 20 2a 2f | 0d 0d 2f 2a 2d 2d 2d 2d |erApp */|../*----|
|00000420| 2d 2d 2d 2d 2d 2d 2a 2f | 0d 76 6f 69 64 09 43 41 |------*/|.void.CA|
|00000430| 4d 52 65 6d 69 6e 64 65 | 72 41 70 70 3a 3a 53 65 |MReminde|rApp::Se|
|00000440| 74 55 70 46 69 6c 65 50 | 61 72 61 6d 65 74 65 72 |tUpFileP|arameter|
|00000450| 73 09 28 76 6f 69 64 29 | 0d 7b 0d 09 69 6e 68 65 |s.(void)|.{..inhe|
|00000460| 72 69 74 65 64 3a 3a 53 | 65 74 55 70 46 69 6c 65 |rited::S|etUpFile|
|00000470| 50 61 72 61 6d 65 74 65 | 72 73 20 28 29 3b 0d 09 |Paramete|rs ();..|
|00000480| 73 66 4e 75 6d 54 79 70 | 65 73 20 3d 20 31 3b 0d |sfNumTyp|es = 1;.|
|00000490| 09 73 66 46 69 6c 65 54 | 79 70 65 73 20 5b 30 5d |.sfFileT|ypes [0]|
|000004a0| 20 3d 20 6b 46 69 6c 65 | 54 79 70 65 3b 0d 09 67 | = kFile|Type;..g|
|000004b0| 53 69 67 6e 61 74 75 72 | 65 20 3d 20 6b 53 69 67 |Signatur|e = kSig|
|000004c0| 6e 61 74 75 72 65 3b 0d | 0d 7d 20 2f 2a 20 53 65 |nature;.|.} /* Se|
|000004d0| 74 55 70 46 69 6c 65 50 | 61 72 61 6d 65 74 65 72 |tUpFileP|arameter|
|000004e0| 73 20 2a 2f 0d 0d 2f 2a | 2d 2d 2d 2d 2d 2d 2d 2d |s */../*|--------|
|000004f0| 2d 2d 2a 2f 0d 76 6f 69 | 64 09 43 41 4d 52 65 6d |--*/.voi|d.CAMRem|
|00000500| 69 6e 64 65 72 41 70 70 | 3a 3a 55 70 64 61 74 65 |inderApp|::Update|
|00000510| 4d 65 6e 75 73 09 09 28 | 76 6f 69 64 29 0d 7b 0d |Menus..(|void).{.|
|00000520| 09 69 6e 68 65 72 69 74 | 65 64 3a 3a 55 70 64 61 |.inherit|ed::Upda|
|00000530| 74 65 4d 65 6e 75 73 20 | 28 29 3b 0d 0d 09 67 42 |teMenus |();...gB|
|00000540| 61 72 74 65 6e 64 65 72 | 2d 3e 45 6e 61 62 6c 65 |artender|->Enable|
|00000550| 43 6d 64 20 28 63 6d 64 | 44 65 6c 65 74 65 52 65 |Cmd (cmd|DeleteRe|
|00000560| 6d 69 6e 64 65 72 29 3b | 0d 0d 7d 20 2f 2a 20 55 |minder);|..} /* U|
|00000570| 70 64 61 74 65 4d 65 6e | 75 73 20 2a 2f 0d 0d 2f |pdateMen|us */../|
|00000580| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2a 2f 0d 76 6f |*-------|---*/.vo|
|00000590| 69 64 09 43 41 4d 52 65 | 6d 69 6e 64 65 72 41 70 |id.CAMRe|minderAp|
|000005a0| 70 3a 3a 44 6f 43 6f 6d | 6d 61 6e 64 20 28 6c 6f |p::DoCom|mand (lo|
|000005b0| 6e 67 09 09 74 68 65 43 | 6f 6d 6d 61 6e 64 29 0d |ng..theC|ommand).|
|000005c0| 7b 0d 09 73 68 6f 72 74 | 09 09 74 68 65 4d 65 6e |{..short|..theMen|
|000005d0| 75 3b 0d 09 73 68 6f 72 | 74 09 09 74 68 65 49 74 |u;..shor|t..theIt|
|000005e0| 65 6d 3b 0d 09 53 74 72 | 32 35 35 09 09 74 68 65 |em;..Str|255..the|
|000005f0| 49 74 65 6d 54 65 78 74 | 3b 0d 0d 09 69 66 20 28 |ItemText|;...if (|
|00000600| 74 68 65 43 6f 6d 6d 61 | 6e 64 20 3c 20 30 29 20 |theComma|nd < 0) |
|00000610| 7b 09 09 09 09 2f 2a 20 | 6d 65 6e 75 20 67 65 6e |{..../* |menu gen|
|00000620| 65 72 61 74 65 64 20 64 | 79 6e 61 6d 69 63 61 6c |erated d|ynamical|
|00000630| 6c 79 20 2a 2f 0d 09 09 | 74 68 65 4d 65 6e 75 20 |ly */...|theMenu |
|00000640| 3d 20 48 69 53 68 6f 72 | 74 20 28 2d 74 68 65 43 |= HiShor|t (-theC|
|00000650| 6f 6d 6d 61 6e 64 29 3b | 0d 09 09 69 66 20 28 74 |ommand);|...if (t|
|00000660| 68 65 4d 65 6e 75 20 3d | 3d 20 4d 45 4e 55 61 70 |heMenu =|= MENUap|
|00000670| 70 6c 65 29 20 7b 0d 09 | 09 09 69 6e 68 65 72 69 |ple) {..|..inheri|
|00000680| 74 65 64 3a 3a 44 6f 43 | 6f 6d 6d 61 6e 64 20 28 |ted::DoC|ommand (|
|00000690| 74 68 65 43 6f 6d 6d 61 | 6e 64 29 3b 09 2f 2a 20 |theComma|nd);./* |
|000006a0| 68 61 6e 64 6c 65 20 41 | 70 70 6c 65 20 6d 65 6e |handle A|pple men|
|000006b0| 75 20 69 6e 20 73 75 70 | 65 72 63 6c 61 73 73 20 |u in sup|erclass |
|000006c0| 2a 2f 0d 09 09 7d 20 65 | 6c 73 65 20 7b 0d 09 09 |*/...} e|lse {...|
|000006d0| 09 74 68 65 49 74 65 6d | 20 3d 20 4c 6f 53 68 6f |.theItem| = LoSho|
|000006e0| 72 74 20 28 2d 74 68 65 | 43 6f 6d 6d 61 6e 64 29 |rt (-the|Command)|
|000006f0| 3b 0d 09 09 09 47 65 74 | 49 74 65 6d 20 28 47 65 |;....Get|Item (Ge|
|00000700| 74 4d 48 61 6e 64 6c 65 | 20 28 74 68 65 4d 65 6e |tMHandle| (theMen|
|00000710| 75 29 2c 20 74 68 65 49 | 74 65 6d 2c 20 74 68 65 |u), theI|tem, the|
|00000720| 49 74 65 6d 54 65 78 74 | 29 3b 0d 09 09 09 2f 2a |ItemText|);..../*|
|00000730| 20 64 6f 20 74 68 65 20 | 72 69 67 68 74 20 74 68 | do the |right th|
|00000740| 69 6e 67 20 77 69 74 68 | 20 74 68 65 20 74 65 78 |ing with| the tex|
|00000750| 74 20 6f 66 20 74 68 65 | 20 69 74 65 6d 20 2a 2f |t of the| item */|
|00000760| 0d 09 09 7d 0d 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |...}..} |else {..|
|00000770| 09 73 77 69 74 63 68 20 | 28 74 68 65 43 6f 6d 6d |.switch |(theComm|
|00000780| 61 6e 64 29 20 7b 0d 0d | 09 09 63 61 73 65 20 63 |and) {..|..case c|
|00000790| 6d 64 44 65 6c 65 74 65 | 52 65 6d 69 6e 64 65 72 |mdDelete|Reminder|
|000007a0| 3a 0d 09 09 09 44 6f 44 | 65 6c 65 74 65 52 65 6d |:....DoD|eleteRem|
|000007b0| 69 6e 64 65 72 20 28 29 | 3b 0d 09 09 09 62 72 65 |inder ()|;....bre|
|000007c0| 61 6b 3b 0d 0d 09 09 64 | 65 66 61 75 6c 74 3a 0d |ak;....d|efault:.|
|000007d0| 09 09 09 69 6e 68 65 72 | 69 74 65 64 3a 3a 44 6f |...inher|ited::Do|
|000007e0| 43 6f 6d 6d 61 6e 64 20 | 28 74 68 65 43 6f 6d 6d |Command |(theComm|
|000007f0| 61 6e 64 29 3b 0d 09 09 | 09 62 72 65 61 6b 3b 0d |and);...|.break;.|
|00000800| 09 09 7d 20 2f 2a 20 73 | 77 69 74 63 68 20 2a 2f |..} /* s|witch */|
|00000810| 0d 09 7d 0d 0d 7d 20 2f | 2a 20 44 6f 43 6f 6d 6d |..}..} /|* DoComm|
|00000820| 61 6e 64 20 2a 2f 0d 0d | 2f 2f 2d 2d 2d 2d 2d 2d |and */..|//------|
|00000830| 2d 2d 2d 2d 0d 76 6f 69 | 64 09 43 41 4d 52 65 6d |----.voi|d.CAMRem|
|00000840| 69 6e 64 65 72 41 70 70 | 3a 3a 44 6f 44 65 6c 65 |inderApp|::DoDele|
|00000850| 74 65 52 65 6d 69 6e 64 | 65 72 20 28 29 0d 7b 0d |teRemind|er ().{.|
|00000860| 7d 0d 0d 2f 2a 20 41 4d | 52 65 6d 69 6e 64 65 72 |}../* AM|Reminder|
|00000870| 41 70 70 2e 63 70 20 2a | 2f 0d 00 00 00 00 00 00 |App.cp *|/.......|
|00000880| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000890| fc 00 19 18 02 ff 04 ff | ff 01 04 ff ff 04 ff ff |........|........|
|000008a0| 04 ff ff 04 ff ff 04 ff | ff 02 07 d2 33 01 04 ff |........|....3...|
|000008b0| 10 41 4d 52 65 6d 69 6e | 64 65 72 41 70 70 2e 63 |.AMRemin|derApp.c|
|000008c0| 70 41 02 00 00 00 54 45 | 58 54 4b 41 48 4c 00 00 |pA....TE|XTKAHL..|
|000008d0| 00 00 54 45 58 54 4b 41 | 48 4c 00 00 63 f4 64 40 |..TEXTKA|HL..c.d@|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 af 38 ca 24 00 00 | 07 fa 00 00 01 1e 01 01 |...8.$..|........|
|00000900| ff fc 00 19 07 02 ff 01 | ff ff 01 ff ff 01 ff ff |........|........|
|00000910| 01 ff ff 01 ff ff 01 ff | ff 01 ff ff 01 ff ff 01 |........|........|
|00000920| ff ff 01 ff ff 01 01 ff | ff 01 01 64 01 01 ff ff |........|...d....|
|00000930| 64 01 01 ff 64 01 01 ff | ff ff 01 ff ff 01 ff ff |d...d...|........|
|00000940| 01 ff ff 01 ff ff 01 ff | ff 01 ff ff ff ff 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 |........|........|
|00000980| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 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 |........|........|
+--------+-------------------------+-------------------------+--------+--------+