/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Mops 2.5 / Mops source.sit / Mops source / Module source / DialogMod.txt

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 44 69 61 6c 6f 67 | 4d 6f 64 2e 74 78 74 00 |..Dialog|Mod.txt.|
|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 4d 53 45 | 54 01 00 00 00 00 00 00 |.TEXTMSE|T.......|
|00000050| 00 00 00 00 00 10 9b 00 | 00 01 1e a9 f3 00 e3 a9 |........|........|
|00000060| f3 00 e3 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 66 48 00 00 |........|....fH..|
|00000080| 5c 20 44 69 61 6c 6f 67 | 20 63 6c 61 73 73 2e 0d |\ Dialog| class..|
|00000090| 0d 5c 20 4a 75 6c 79 20 | 39 31 20 20 6d 72 68 09 |.\ July |91  mrh.|
|000000a0| 4d 6f 76 65 64 20 74 6f | 20 61 20 6d 6f 64 75 6c |Moved to| a modul|
|000000b0| 65 2c 20 61 6e 64 20 6d | 69 67 72 61 74 65 64 20 |e, and m|igrated |
|000000c0| 73 6f 6d 65 20 6d 65 74 | 68 6f 64 73 20 66 72 6f |some met|hods fro|
|000000d0| 6d 20 44 69 61 6c 6f 67 | 2b 2e 0d 0d 0d 5c 20 43 |m Dialog|+....\ C|
|000000e0| 6c 61 73 73 20 44 69 61 | 6c 6f 67 20 68 61 6e 64 |lass Dia|log hand|
|000000f0| 6c 65 73 20 6d 6f 64 61 | 6c 20 64 69 61 6c 6f 67 |les moda|l dialog|
|00000100| 73 2e 20 20 46 6f 72 20 | 6d 6f 64 65 6c 65 73 73 |s.  For |modeless|
|00000110| 20 64 69 61 6c 6f 67 73 | 2c 20 75 73 65 20 74 68 | dialogs|, use th|
|00000120| 65 0d 5c 20 73 75 62 63 | 6c 61 73 73 20 44 69 61 |e.\ subc|lass Dia|
|00000130| 6c 6f 67 2b 2e 0d 0d 3a | 63 6c 61 73 73 09 44 49 |log+...:|class.DI|
|00000140| 41 4c 4f 47 09 73 75 70 | 65 72 7b 20 78 2d 61 72 |ALOG.sup|er{ x-ar|
|00000150| 72 61 79 20 7d 0d 72 65 | 63 6f 72 64 0d 7b 09 69 |ray }.re|cord.{.i|
|00000160| 6e 74 09 09 52 45 53 49 | 44 0d 09 70 74 72 09 09 |nt..RESI|D..ptr..|
|00000170| 44 4c 47 50 54 52 0d 09 | 76 61 72 09 09 50 52 4f |DLGPTR..|var..PRO|
|00000180| 43 50 54 52 0d 09 69 6e | 74 09 09 42 4f 4c 44 49 |CPTR..in|t..BOLDI|
|00000190| 54 45 4d 0d 7d 0d 0d 3a | 6d 20 44 4c 47 50 54 52 |TEM.}..:|m DLGPTR|
|000001a0| 3a 0d 09 69 6e 6c 69 6e | 65 7b 20 67 65 74 3a 20 |:..inlin|e{ get: |
|000001b0| 64 6c 67 50 74 72 7d 0d | 09 67 65 74 3a 20 64 6c |dlgPtr}.|.get: dl|
|000001c0| 67 50 74 72 20 20 3b 6d | 0d 0d 3a 6d 20 43 4c 4f |gPtr  ;m|..:m CLO|
|000001d0| 53 45 3a 0d 09 6e 69 6c | 3f 3a 20 64 6c 67 50 74 |SE:..nil|?: dlgPt|
|000001e0| 72 20 20 3f 45 58 49 54 | 0d 09 67 65 74 3a 20 64 |r  ?EXIT|..get: d|
|000001f0| 6c 67 50 74 72 20 20 63 | 61 6c 6c 20 44 69 73 70 |lgPtr  c|all Disp|
|00000200| 6f 73 44 69 61 6c 6f 67 | 0d 09 63 6c 65 61 72 3a |osDialog|..clear:|
|00000210| 20 64 6c 67 50 74 72 20 | 20 3b 6d 0d 0d 3a 6d 20 | dlgPtr | ;m..:m |
|00000220| 4f 50 45 4e 3f 3a 0d 09 | 6e 69 6c 3f 3a 20 64 6c |OPEN?:..|nil?: dl|
|00000230| 67 50 74 72 20 20 3b 6d | 0d 0d 3a 6d 20 49 54 45 |gPtr  ;m|..:m ITE|
|00000240| 4d 48 41 4e 44 4c 45 3a | 20 20 7b 20 69 74 65 6d |MHANDLE:|  { item|
|00000250| 23 20 2d 2d 20 68 6e 64 | 6c 20 7d 0d 09 67 65 74 |# -- hnd|l }..get|
|00000260| 3a 20 64 6c 67 50 74 72 | 20 20 69 74 65 6d 23 20 |: dlgPtr|  item# |
|00000270| 6d 61 6b 65 49 6e 74 0d | 09 61 64 64 72 3a 20 69 |makeInt.|.addr: i|
|00000280| 74 65 6d 54 79 70 65 20 | 20 61 64 64 72 3a 20 69 |temType | addr: i|
|00000290| 74 65 6d 48 61 6e 64 6c | 65 20 20 61 64 64 72 3a |temHandl|e  addr:|
|000002a0| 20 74 65 6d 70 52 65 63 | 74 0d 09 63 61 6c 6c 20 | tempRec|t..call |
|000002b0| 47 65 74 44 49 74 65 6d | 20 20 67 65 74 3a 20 69 |GetDItem|  get: i|
|000002c0| 74 65 6d 48 61 6e 64 6c | 65 20 20 3b 6d 0d 0d 3a |temHandl|e  ;m..:|
|000002d0| 6d 20 44 52 41 57 42 4f | 4c 44 3a 0d 09 6e 69 6c |m DRAWBO|LD:..nil|
|000002e0| 3f 3a 20 64 6c 67 50 74 | 72 20 20 3f 45 58 49 54 |?: dlgPt|r  ?EXIT|
|000002f0| 0d 09 67 65 74 3a 20 62 | 6f 6c 64 49 74 65 6d 20 |..get: b|oldItem |
|00000300| 20 3f 64 75 70 20 20 30 | 45 58 49 54 0d 09 73 61 | ?dup  0|EXIT..sa|
|00000310| 76 65 50 6f 72 74 0d 09 | 67 65 74 3a 20 64 6c 67 |vePort..|get: dlg|
|00000320| 50 74 72 20 20 63 61 6c | 6c 20 73 65 74 50 6f 72 |Ptr  cal|l setPor|
|00000330| 74 20 20 33 20 33 20 70 | 61 63 6b 20 20 63 61 6c |t  3 3 p|ack  cal|
|00000340| 6c 20 50 65 6e 73 69 7a | 65 0d 09 69 74 65 6d 48 |l Pensiz|e..itemH|
|00000350| 61 6e 64 6c 65 3a 20 73 | 65 6c 66 20 20 64 72 6f |andle: s|elf  dro|
|00000360| 70 09 09 09 5c 20 53 65 | 74 73 20 75 70 20 74 65 |p...\ Se|ts up te|
|00000370| 6d 70 52 65 63 74 0d 09 | 2d 34 20 2d 34 20 69 6e |mpRect..|-4 -4 in|
|00000380| 73 65 74 3a 20 74 65 6d | 70 52 65 63 74 0d 09 61 |set: tem|pRect..a|
|00000390| 64 64 72 3a 20 74 65 6d | 70 52 65 63 74 20 20 31 |ddr: tem|pRect  1|
|000003a0| 36 20 31 36 20 70 61 63 | 6b 20 20 63 61 6c 6c 20 |6 16 pac|k  call |
|000003b0| 46 72 61 6d 65 52 6f 75 | 6e 64 52 65 63 74 20 20 |FrameRou|ndRect  |
|000003c0| 63 61 6c 6c 20 50 65 6e | 4e 6f 72 6d 61 6c 0d 09 |call Pen|Normal..|
|000003d0| 72 65 73 74 50 6f 72 74 | 20 20 3b 6d 0d 0d 3a 6d |restPort|  ;m..:m|
|000003e0| 20 47 45 54 4e 45 57 3a | 0d 09 30 20 20 69 6e 74 | GETNEW:|..0  int|
|000003f0| 3a 20 72 65 73 69 64 20 | 20 30 20 20 2d 31 20 20 |: resid | 0  -1  |
|00000400| 63 61 6c 6c 20 47 65 74 | 4e 65 77 44 69 61 6c 6f |call Get|NewDialo|
|00000410| 67 20 20 70 75 74 3a 20 | 64 6c 67 50 74 72 0d 09 |g  put: |dlgPtr..|
|00000420| 64 72 61 77 42 6f 6c 64 | 3a 20 73 65 6c 66 20 20 |drawBold|: self  |
|00000430| 3b 6d 0d 0d 0d 3a 6d 20 | 53 45 54 50 52 4f 43 3a |;m...:m |SETPROC:|
|00000440| 09 09 5c 20 28 20 78 74 | 20 2d 2d 20 29 20 20 73 |..\ ( xt| -- )  s|
|00000450| 65 74 20 64 69 61 6c 6f | 67 20 70 72 6f 63 0d 09 |et dialo|g proc..|
|00000460| 70 75 74 3a 20 70 72 6f | 63 50 74 72 20 20 3b 6d |put: pro|cPtr  ;m|
|00000470| 0d 0d 3a 6d 20 4d 4f 44 | 41 4c 3a 0d 09 42 45 47 |..:m MOD|AL:..BEG|
|00000480| 49 4e 0d 09 09 67 65 74 | 3a 20 70 72 6f 63 50 74 |IN...get|: procPt|
|00000490| 72 20 20 61 64 64 72 3a | 20 74 68 65 49 74 65 6d |r  addr:| theItem|
|000004a0| 20 20 63 61 6c 6c 20 4d | 6f 64 61 6c 44 69 61 6c |  call M|odalDial|
|000004b0| 6f 67 0d 09 09 67 65 74 | 3a 20 74 68 65 49 74 65 |og...get|: theIte|
|000004c0| 6d 20 31 2d 20 65 78 65 | 63 3a 20 73 75 70 65 72 |m 1- exe|c: super|
|000004d0| 0d 09 09 72 74 6d 20 20 | 66 61 6c 73 65 20 2d 3e |...rtm  |false ->|
|000004e0| 20 72 74 6d 0d 09 4e 55 | 4e 54 49 4c 20 20 3b 6d | rtm..NU|NTIL  ;m|
|000004f0| 0d 0d 0d 3a 6d 20 50 55 | 54 49 54 45 4d 3a 09 09 |...:m PU|TITEM:..|
|00000500| 5c 20 28 20 76 61 6c 20 | 69 74 65 6d 23 20 2d 2d |\ ( val |item# --|
|00000510| 20 29 0d 09 69 74 65 6d | 48 61 6e 64 6c 65 3a 20 | )..item|Handle: |
|00000520| 73 65 6c 66 20 20 73 77 | 61 70 20 6d 61 6b 65 69 |self  sw|ap makei|
|00000530| 6e 74 20 20 63 61 6c 6c | 20 53 65 74 43 74 6c 56 |nt  call| SetCtlV|
|00000540| 61 6c 75 65 20 20 3b 6d | 0d 0d 3a 6d 20 47 45 54 |alue  ;m|..:m GET|
|00000550| 49 54 45 4d 3a 09 09 5c | 20 28 20 69 74 65 6d 23 |ITEM:..\| ( item#|
|00000560| 20 2d 2d 20 76 61 6c 20 | 29 20 20 47 65 74 73 20 | -- val |)  Gets |
|00000570| 76 61 6c 75 65 20 66 6f | 72 20 61 6e 20 69 74 65 |value fo|r an ite|
|00000580| 6d 23 0d 09 69 74 65 6d | 48 61 6e 64 6c 65 3a 20 |m#..item|Handle: |
|00000590| 73 65 6c 66 20 20 3e 72 | 20 20 77 6f 72 64 30 20 |self  >r|  word0 |
|000005a0| 20 72 3e 0d 09 63 61 6c | 6c 20 47 65 74 43 74 6c | r>..cal|l GetCtl|
|000005b0| 56 61 6c 75 65 20 20 77 | 6f 72 64 30 20 20 3b 6d |Value  w|ord0  ;m|
|000005c0| 0d 0d 3a 6d 20 50 55 54 | 52 45 53 49 44 3a 09 5c |..:m PUT|RESID:.\|
|000005d0| 20 28 20 72 65 73 49 44 | 20 2d 2d 20 29 0d 09 70 | ( resID| -- )..p|
|000005e0| 75 74 3a 20 72 65 73 49 | 44 20 20 3b 6d 0d 0d 3a |ut: resI|D  ;m..:|
|000005f0| 6d 20 49 4e 49 54 3a 09 | 5c 20 28 20 78 74 31 20 |m INIT:.|\ ( xt1 |
|00000600| 2e 2e 2e 20 78 74 4e 20 | 4e 20 72 65 73 49 44 20 |... xtN |N resID |
|00000610| 2d 2d 20 29 0d 09 70 75 | 74 3a 20 72 65 73 49 44 |-- )..pu|t: resID|
|00000620| 20 20 70 75 74 3a 20 73 | 75 70 65 72 20 20 3b 6d |  put: s|uper  ;m|
|00000630| 0d 0d 3a 6d 20 53 45 54 | 42 4f 4c 44 3a 09 5c 20 |..:m SET|BOLD:.\ |
|00000640| 28 20 69 74 65 6d 23 20 | 2d 2d 20 29 20 20 43 61 |( item# |-- )  Ca|
|00000650| 75 73 65 73 20 62 6f 6c | 64 20 6f 75 74 6c 69 6e |uses bol|d outlin|
|00000660| 65 20 6f 66 20 74 68 65 | 20 73 70 65 63 69 66 69 |e of the| specifi|
|00000670| 65 64 20 69 74 65 6d 0d | 09 70 75 74 3a 20 62 6f |ed item.|.put: bo|
|00000680| 6c 64 49 74 65 6d 20 20 | 3b 6d 0d 0d 3a 6d 20 47 |ldItem  |;m..:m G|
|00000690| 45 54 54 45 58 54 3a 09 | 5c 20 28 20 69 74 65 6d |ETTEXT:.|\ ( item|
|000006a0| 23 20 2d 2d 20 61 64 64 | 72 20 6c 65 6e 20 29 20 |# -- add|r len ) |
|000006b0| 20 52 65 74 75 72 6e 73 | 20 61 20 74 65 78 74 20 | Returns| a text |
|000006c0| 69 74 65 6d 27 73 20 74 | 65 78 74 0d 09 69 74 65 |item's t|ext..ite|
|000006d0| 6d 48 61 6e 64 6c 65 3a | 20 73 65 6c 66 20 20 62 |mHandle:| self  b|
|000006e0| 75 66 32 35 35 20 20 67 | 65 74 3a 20 49 74 65 6d |uf255  g|et: Item|
|000006f0| 54 79 70 65 20 32 34 20 | 61 6e 64 0d 09 49 46 20 |Type 24 |and..IF |
|00000700| 20 63 61 6c 6c 20 47 65 | 74 49 54 65 78 74 20 20 | call Ge|tIText  |
|00000710| 45 4c 53 45 20 20 63 61 | 6c 6c 20 47 65 74 43 54 |ELSE  ca|ll GetCT|
|00000720| 69 74 6c 65 20 20 54 48 | 45 4e 0d 09 62 75 66 32 |itle  TH|EN..buf2|
|00000730| 35 35 20 63 6f 75 6e 74 | 20 20 3b 6d 0d 0d 3a 6d |55 count|  ;m..:m|
|00000740| 20 50 55 54 54 45 58 54 | 3a 20 7b 20 61 64 64 72 | PUTTEXT|: { addr|
|00000750| 20 6c 65 6e 20 69 74 65 | 6d 23 20 2d 2d 20 7d 20 | len ite|m# -- } |
|00000760| 20 5c 20 53 74 6f 72 65 | 73 20 61 6e 20 69 74 65 | \ Store|s an ite|
|00000770| 6d 27 73 20 74 65 78 74 | 0d 09 69 74 65 6d 23 20 |m's text|..item# |
|00000780| 20 69 74 65 6d 48 61 6e | 64 6c 65 3a 20 73 65 6c | itemHan|dle: sel|
|00000790| 66 0d 09 61 64 64 72 20 | 6c 65 6e 20 73 74 72 32 |f..addr |len str2|
|000007a0| 35 35 20 20 20 67 65 74 | 3a 20 49 74 65 6d 54 79 |55   get|: ItemTy|
|000007b0| 70 65 20 32 34 20 61 6e | 64 0d 09 49 46 20 20 63 |pe 24 an|d..IF  c|
|000007c0| 61 6c 6c 20 53 65 74 49 | 54 65 78 74 20 20 45 4c |all SetI|Text  EL|
|000007d0| 53 45 20 20 63 61 6c 6c | 20 53 65 74 43 54 69 74 |SE  call| SetCTit|
|000007e0| 6c 65 20 20 54 48 45 4e | 20 20 3b 6d 0d 0d 3a 6d |le  THEN|  ;m..:m|
|000007f0| 20 53 45 54 53 45 4c 45 | 43 54 3a 20 20 7b 20 73 | SETSELE|CT:  { s|
|00000800| 74 61 72 74 20 65 6e 64 | 20 69 74 65 6d 23 20 2d |tart end| item# -|
|00000810| 2d 20 7d 0d 09 09 5c 20 | 53 65 74 73 20 74 68 65 |- }...\ |Sets the|
|00000820| 20 73 65 6c 65 63 74 69 | 6f 6e 20 72 61 6e 67 65 | selecti|on range|
|00000830| 20 66 6f 72 20 74 65 78 | 74 20 69 74 65 6d 0d 09 | for tex|t item..|
|00000840| 67 65 74 3a 20 64 6c 67 | 50 74 72 0d 09 69 74 65 |get: dlg|Ptr..ite|
|00000850| 6d 23 20 6d 61 6b 65 49 | 6e 74 20 73 74 61 72 74 |m# makeI|nt start|
|00000860| 20 65 6e 64 20 70 61 63 | 6b 20 20 63 61 6c 6c 20 | end pac|k  call |
|00000870| 53 65 6c 69 54 65 78 74 | 20 20 3b 6d 0d 0d 3a 6d |SeliText|  ;m..:m|
|00000880| 20 44 52 41 57 3a 09 5c | 20 46 6f 72 63 65 73 20 | DRAW:.\| Forces |
|00000890| 64 72 61 77 69 6e 67 20 | 6f 66 20 64 69 61 6c 6f |drawing |of dialo|
|000008a0| 67 20 62 65 66 6f 72 65 | 20 67 6f 69 6e 67 20 74 |g before| going t|
|000008b0| 6f 20 6d 6f 64 61 6c 3a | 0d 09 67 65 74 3a 20 64 |o modal:|..get: d|
|000008c0| 6c 67 50 74 72 20 20 63 | 61 6c 6c 20 44 72 61 77 |lgPtr  c|all Draw|
|000008d0| 44 69 61 6c 6f 67 20 20 | 3b 6d 0d 0d 0d 5c 09 3d |Dialog  |;m...\.=|
|000008e0| 3d 3d 3d 3d 3d 20 45 78 | 74 72 61 20 6d 65 74 68 |===== Ex|tra meth|
|000008f0| 6f 64 73 20 66 6f 72 20 | 6d 61 6e 69 70 75 6c 61 |ods for |manipula|
|00000900| 74 69 6e 67 20 64 69 61 | 6c 6f 67 20 69 74 65 6d |ting dia|log item|
|00000910| 73 20 3d 3d 3d 3d 3d 3d | 0d 0d 0d 3a 6d 20 48 49 |s ======|...:m HI|
|00000920| 44 45 49 54 45 4d 3a 09 | 5c 20 28 20 69 74 65 6d |DEITEM:.|\ ( item|
|00000930| 23 20 2d 2d 20 29 0d 09 | 67 65 74 3a 20 64 6c 67 |# -- )..|get: dlg|
|00000940| 50 74 72 20 20 73 77 61 | 70 20 6d 61 6b 65 49 6e |Ptr  swa|p makeIn|
|00000950| 74 20 20 63 61 6c 6c 20 | 48 69 64 65 44 49 74 65 |t  call |HideDIte|
|00000960| 6d 20 20 3b 6d 0d 0d 3a | 6d 20 53 48 4f 57 49 54 |m  ;m..:|m SHOWIT|
|00000970| 45 4d 3a 09 5c 20 28 20 | 69 74 65 6d 23 20 2d 2d |EM:.\ ( |item# --|
|00000980| 20 29 0d 09 67 65 74 3a | 20 64 6c 67 50 74 72 20 | )..get:| dlgPtr |
|00000990| 20 73 77 61 70 20 6d 61 | 6b 65 49 6e 74 20 20 63 | swap ma|keInt  c|
|000009a0| 61 6c 6c 20 53 68 6f 77 | 44 49 74 65 6d 20 20 3b |all Show|DItem  ;|
|000009b0| 6d 0d 0d 3a 6d 20 44 49 | 53 41 42 4c 45 49 54 45 |m..:m DI|SABLEITE|
|000009c0| 4d 3a 09 5c 20 28 20 69 | 74 65 6d 23 20 2d 2d 20 |M:.\ ( i|tem# -- |
|000009d0| 29 0d 09 69 74 65 6d 48 | 61 6e 64 6c 65 3a 20 73 |)..itemH|andle: s|
|000009e0| 65 6c 66 20 20 77 20 32 | 35 34 20 20 63 61 6c 6c |elf  w 2|54  call|
|000009f0| 20 48 69 6c 69 74 65 43 | 6f 6e 74 72 6f 6c 20 20 | HiliteC|ontrol  |
|00000a00| 3b 6d 0d 0d 3a 6d 20 45 | 4e 41 42 4c 45 49 54 45 |;m..:m E|NABLEITE|
|00000a10| 4d 3a 09 5c 20 28 20 69 | 74 65 6d 23 20 2d 2d 20 |M:.\ ( i|tem# -- |
|00000a20| 29 0d 09 69 74 65 6d 48 | 61 6e 64 6c 65 3a 20 73 |)..itemH|andle: s|
|00000a30| 65 6c 66 20 20 77 6f 72 | 64 30 20 20 63 61 6c 6c |elf  wor|d0  call|
|00000a40| 20 48 69 6c 69 74 65 43 | 6f 6e 74 72 6f 6c 20 20 | HiliteC|ontrol  |
|00000a50| 3b 6d 0d 0d 3a 6d 20 53 | 45 54 55 53 45 52 50 52 |;m..:m S|ETUSERPR|
|00000a60| 4f 43 3a 20 20 7b 20 5e | 70 72 6f 63 20 69 74 65 |OC:  { ^|proc ite|
|00000a70| 6d 23 20 2d 2d 20 7d 0d | 09 67 65 74 3a 20 64 6c |m# -- }.|.get: dl|
|00000a80| 67 50 74 72 20 20 69 74 | 65 6d 23 20 6d 61 6b 65 |gPtr  it|em# make|
|00000a90| 69 6e 74 0d 09 61 64 64 | 72 3a 20 69 74 65 6d 54 |int..add|r: itemT|
|00000aa0| 79 70 65 20 20 61 64 64 | 72 3a 20 69 74 65 6d 48 |ype  add|r: itemH|
|00000ab0| 61 6e 64 6c 65 20 20 74 | 65 6d 70 52 65 63 74 0d |andle  t|empRect.|
|00000ac0| 09 63 61 6c 6c 20 47 65 | 74 44 69 74 65 6d 0d 09 |.call Ge|tDitem..|
|00000ad0| 67 65 74 3a 20 64 6c 67 | 50 74 72 20 20 69 74 65 |get: dlg|Ptr  ite|
|00000ae0| 6d 23 20 6d 61 6b 65 69 | 6e 74 20 20 77 6f 72 64 |m# makei|nt  word|
|00000af0| 30 20 20 5e 70 72 6f 63 | 20 20 74 65 6d 70 52 65 |0  ^proc|  tempRe|
|00000b00| 63 74 0d 09 63 61 6c 6c | 20 53 65 74 44 69 74 65 |ct..call| SetDite|
|00000b10| 6d 20 20 3b 6d 0d 0d 0d | 3a 6d 20 48 49 54 42 4f |m  ;m...|:m HITBO|
|00000b20| 4c 44 3a 0d 09 67 65 74 | 3a 20 62 6f 6c 64 49 74 |LD:..get|: boldIt|
|00000b30| 65 6d 20 20 64 75 70 20 | 20 4e 49 46 20 20 64 72 |em  dup | NIF  dr|
|00000b40| 6f 70 20 20 45 58 49 54 | 20 20 54 48 45 4e 0d 09 |op  EXIT|  THEN..|
|00000b50| 31 2d 20 20 65 78 65 63 | 3a 20 73 65 6c 66 20 20 |1-  exec|: self  |
|00000b60| 3b 6d 0d 0d 3a 6d 20 4b | 45 59 3a 09 09 5c 20 28 |;m..:m K|EY:..\ (|
|00000b70| 20 2d 2d 20 62 20 29 0d | 09 09 5c 20 43 61 6c 6c | -- b ).|..\ Call|
|00000b80| 65 64 20 77 68 65 6e 20 | 61 20 6b 65 79 20 64 6f |ed when |a key do|
|00000b90| 77 6e 20 65 76 65 6e 74 | 20 6f 63 63 75 72 73 20 |wn event| occurs |
|00000ba0| 77 69 74 68 20 74 68 69 | 73 20 64 69 61 6c 6f 67 |with thi|s dialog|
|00000bb0| 27 73 0d 09 09 5c 20 77 | 69 6e 64 6f 77 20 61 63 |'s...\ w|indow ac|
|00000bc0| 74 69 76 65 2e 20 20 52 | 65 74 75 72 6e 73 20 66 |tive.  R|eturns f|
|00000bd0| 61 6c 73 65 20 69 66 20 | 77 65 27 76 65 20 68 61 |alse if |we've ha|
|00000be0| 6e 64 6c 65 64 20 74 68 | 65 20 6b 65 79 0d 09 09 |ndled th|e key...|
|00000bf0| 5c 20 68 65 72 65 2c 20 | 73 6f 20 6e 6f 20 66 75 |\ here, |so no fu|
|00000c00| 72 74 68 65 72 20 61 63 | 74 69 6f 6e 20 69 73 20 |rther ac|tion is |
|00000c10| 72 65 71 75 69 72 65 64 | 2e 20 20 53 75 62 63 6c |required|.  Subcl|
|00000c20| 61 73 73 65 73 20 63 61 | 6e 0d 09 09 5c 20 68 61 |asses ca|n...\ ha|
|00000c30| 76 65 20 63 75 73 74 6f | 6d 69 7a 65 64 20 4b 45 |ve custo|mized KE|
|00000c40| 59 3a 20 6d 65 74 68 6f | 64 73 3b 20 68 65 72 65 |Y: metho|ds; here|
|00000c50| 20 77 65 20 6a 75 73 74 | 20 70 72 6f 76 69 64 65 | we just| provide|
|00000c60| 20 61 0d 09 09 5c 20 68 | 6f 70 65 66 75 6c 6c 79 | a...\ h|opefully|
|00000c70| 20 73 65 6e 73 69 62 6c | 65 20 64 65 66 61 75 6c | sensibl|e defaul|
|00000c80| 74 20 61 63 74 69 6f 6e | 20 2d 20 6e 61 6d 65 6c |t action| - namel|
|00000c90| 79 2c 20 77 65 20 74 72 | 65 61 74 20 61 0d 09 09 |y, we tr|eat a...|
|00000ca0| 5c 20 52 65 74 75 72 6e | 20 6f 72 20 45 6e 74 65 |\ Return| or Ente|
|00000cb0| 72 20 61 73 20 61 20 63 | 6c 69 63 6b 20 6f 6e 20 |r as a c|lick on |
|00000cc0| 74 68 65 20 62 6f 6c 64 | 20 69 74 65 6d 2c 20 61 |the bold| item, a|
|00000cd0| 6e 64 20 69 67 6e 6f 72 | 65 0d 09 09 5c 20 61 6c |nd ignor|e...\ al|
|00000ce0| 6c 20 6f 74 68 65 72 20 | 6b 65 79 73 2e 0d 0d 09 |l other |keys....|
|00000cf0| 6d 73 67 3a 20 66 45 76 | 65 6e 74 20 20 24 20 46 |msg: fEv|ent  $ F|
|00000d00| 46 20 61 6e 64 20 20 28 | 20 63 68 61 72 20 74 79 |F and  (| char ty|
|00000d10| 70 65 64 20 29 0d 09 64 | 75 70 20 33 20 3d 20 20 |ped )..d|up 3 =  |
|00000d20| 73 77 61 70 20 52 45 54 | 20 3d 20 20 6f 72 0d 09 |swap RET| =  or..|
|00000d30| 49 46 09 5c 20 52 65 74 | 75 72 6e 20 6f 72 20 45 |IF.\ Ret|urn or E|
|00000d40| 6e 74 65 72 20 74 79 70 | 65 64 20 2d 20 74 72 65 |nter typ|ed - tre|
|00000d50| 61 74 20 61 73 20 63 6c | 69 63 6b 20 6f 6e 20 62 |at as cl|ick on b|
|00000d60| 6f 6c 64 20 69 74 65 6d | 0d 09 09 68 69 74 42 6f |old item|...hitBo|
|00000d70| 6c 64 3a 20 73 65 6c 66 | 20 20 66 61 6c 73 65 20 |ld: self|  false |
|00000d80| 20 45 58 49 54 0d 09 54 | 48 45 4e 0d 09 74 72 75 | EXIT..T|HEN..tru|
|00000d90| 65 20 20 3b 6d 0d 0d 3a | 6d 20 54 49 54 4c 45 3a |e  ;m..:|m TITLE:|
|00000da0| 09 5c 20 28 20 61 64 64 | 72 20 6c 65 6e 20 2d 2d |.\ ( add|r len --|
|00000db0| 20 29 0d 09 73 74 72 32 | 35 35 0d 09 67 65 74 3a | )..str2|55..get:|
|00000dc0| 20 64 6c 67 50 74 72 20 | 20 73 77 61 70 20 20 63 | dlgPtr | swap  c|
|00000dd0| 61 6c 6c 20 53 65 74 57 | 54 69 74 6c 65 20 20 3b |all SetW|Title  ;|
|00000de0| 6d 0d 0d 3a 6d 20 4d 41 | 58 58 3a 09 5c 20 28 20 |m..:m MA|XX:.\ ( |
|00000df0| 2d 2d 20 78 20 29 0d 09 | 67 65 74 3a 20 64 6c 67 |-- x )..|get: dlg|
|00000e00| 50 74 72 20 20 6d 61 78 | 58 3a 20 77 69 6e 64 6f |Ptr  max|X: windo|
|00000e10| 77 20 20 3b 6d 0d 0d 3a | 6d 20 4d 41 58 59 3a 0d |w  ;m..:|m MAXY:.|
|00000e20| 09 67 65 74 3a 20 64 6c | 67 50 74 72 20 20 6d 61 |.get: dl|gPtr  ma|
|00000e30| 78 59 3a 20 77 69 6e 64 | 6f 77 20 20 3b 6d 0d 0d |xY: wind|ow  ;m..|
|00000e40| 3a 6d 20 4d 4f 56 45 3a | 09 5c 20 28 20 78 20 79 |:m MOVE:|.\ ( x y|
|00000e50| 20 2d 2d 20 29 0d 09 67 | 65 74 3a 20 64 6c 67 50 | -- )..g|et: dlgP|
|00000e60| 74 72 20 20 6d 6f 76 65 | 3a 20 77 69 6e 64 6f 77 |tr  move|: window|
|00000e70| 20 20 3b 6d 0d 0d 3a 6d | 20 43 45 4e 54 45 52 3a |  ;m..:m| CENTER:|
|00000e80| 0d 09 67 65 74 3a 20 64 | 6c 67 50 74 72 20 20 63 |..get: d|lgPtr  c|
|00000e90| 65 6e 74 65 72 3a 20 77 | 69 6e 64 6f 77 20 20 3b |enter: w|indow  ;|
|00000ea0| 6d 0d 0d 5c 09 09 09 3d | 3d 3d 3d 3d 3d 3d 3d 3d |m..\...=|========|
|00000eb0| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 3a 6d 20 53 48 4f |========|..:m SHO|
|00000ec0| 57 3a 0d 09 67 65 74 3a | 20 64 6c 67 50 74 72 20 |W:..get:| dlgPtr |
|00000ed0| 20 63 61 6c 6c 20 53 68 | 6f 77 57 69 6e 64 6f 77 | call Sh|owWindow|
|00000ee0| 20 20 3b 6d 0d 0d 3a 6d | 20 48 49 44 45 3a 0d 09 |  ;m..:m| HIDE:..|
|00000ef0| 67 65 74 3a 20 64 6c 67 | 50 74 72 20 20 63 61 6c |get: dlg|Ptr  cal|
|00000f00| 6c 20 48 69 64 65 57 69 | 6e 64 6f 77 20 20 3b 6d |l HideWi|ndow  ;m|
|00000f10| 0d 0d 3a 6d 20 53 45 4c | 45 43 54 3a 0d 09 67 65 |..:m SEL|ECT:..ge|
|00000f20| 74 3a 20 64 6c 67 50 74 | 72 20 20 63 61 6c 6c 20 |t: dlgPt|r  call |
|00000f30| 53 65 6c 65 63 74 57 69 | 6e 64 6f 77 20 20 3b 6d |SelectWi|ndow  ;m|
|00000f40| 0d 0d 0d 3a 6d 20 43 4c | 41 53 53 49 4e 49 54 3a |...:m CL|ASSINIT:|
|00000f50| 09 5c 20 49 6e 69 74 69 | 61 6c 69 7a 65 73 20 64 |.\ Initi|alizes d|
|00000f60| 65 66 61 75 6c 74 20 68 | 61 6e 64 6c 65 72 73 20 |efault h|andlers |
|00000f70| 74 6f 20 63 6c 6f 73 65 | 20 74 68 65 20 64 69 61 |to close| the dia|
|00000f80| 6c 6f 67 20 62 6f 78 2e | 0d 09 5b 27 5d 20 63 6c |log box.|..['] cl|
|00000f90| 6f 73 65 72 20 20 66 69 | 6c 6c 3a 20 73 65 6c 66 |oser  fi|ll: self|
|00000fa0| 20 20 3b 6d 0d 0d 3b 63 | 6c 61 73 73 0d 0d 0d 3a |  ;m..;c|lass...:|
|00000fb0| 20 54 4f 47 49 54 45 4d | 09 5c 20 54 6f 67 67 6c | TOGITEM|.\ Toggl|
|00000fc0| 65 73 20 74 68 65 20 63 | 68 65 63 6b 20 62 6f 78 |es the c|heck box|
|00000fd0| 20 6f 72 20 72 61 64 69 | 6f 20 62 75 74 74 6f 6e | or radi|o button|
|00000fe0| 0d 09 67 65 74 3a 20 74 | 68 65 49 74 65 6d 20 20 |..get: t|heItem  |
|00000ff0| 31 20 6f 76 65 72 20 20 | 67 65 74 69 74 65 6d 3a |1 over  |getitem:|
|00001000| 20 63 61 6c 6c 65 72 20 | 20 2d 20 20 73 77 61 70 | caller | -  swap|
|00001010| 20 20 70 75 74 69 74 65 | 6d 3a 20 63 61 6c 6c 65 |  putite|m: calle|
|00001020| 72 0d 09 72 65 74 75 72 | 6e 54 6f 4d 6f 64 61 6c |r..retur|nToModal|
|00001030| 20 20 3b 0d 0d 0d 3a 20 | 50 41 52 41 4d 54 45 58 |  ;...: |PARAMTEX|
|00001040| 54 20 28 20 61 64 64 72 | 30 20 6c 65 6e 30 20 61 |T ( addr|0 len0 a|
|00001050| 64 64 72 31 20 6c 65 6e | 31 20 61 64 64 72 32 20 |ddr1 len|1 addr2 |
|00001060| 6c 65 6e 32 20 61 64 64 | 72 33 20 6c 65 6e 33 20 |len2 add|r3 len3 |
|00001070| 29 20 7b 20 5c 20 70 31 | 20 70 32 20 70 33 20 2d |) { \ p1| p2 p3 -|
|00001080| 2d 20 7d 0d 09 09 5c 20 | 53 75 62 73 74 69 74 75 |- }...\ |Substitu|
|00001090| 74 65 73 20 44 69 61 6c | 6f 67 20 74 65 78 74 2e |tes Dial|og text.|
|000010a0| 0d 09 20 73 74 72 32 35 | 35 20 64 75 70 20 2d 3e |.. str25|5 dup ->|
|000010b0| 20 70 33 20 20 63 6f 75 | 6e 74 20 2b 0d 09 3e 73 | p3  cou|nt +..>s|
|000010c0| 74 72 32 35 35 20 64 75 | 70 20 2d 3e 20 70 32 20 |tr255 du|p -> p2 |
|000010d0| 20 63 6f 75 6e 74 20 2b | 0d 09 3e 73 74 72 32 35 | count +|..>str25|
|000010e0| 35 20 64 75 70 20 2d 3e | 20 70 31 20 20 63 6f 75 |5 dup ->| p1  cou|
|000010f0| 6e 74 20 2b 0d 09 3e 73 | 74 72 32 35 35 20 20 70 |nt +..>s|tr255  p|
|00001100| 31 20 70 32 20 70 33 20 | 20 63 61 6c 6c 20 50 61 |1 p2 p3 | call Pa|
|00001110| 72 61 6d 54 65 78 74 20 | 20 3b 0d 00 00 00 00 00 |ramText | ;......|
|00001120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001180| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00001190| 00 00 00 cd 40 95 00 1f | 7f 20 06 00 00 00 00 00 |....@...|. ......|
|000011a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011b0| 0d 44 69 61 6c 6f 67 4d | 6f 64 2e 74 78 74 02 00 |.DialogM|od.txt..|
|000011c0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000011d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 ab 06 23 36 00 00 | 00 00 00 00 01 1e 00 00 |....#6..|........|
|00001200| 00 d1 46 91 00 06 7f 1f | 06 00 00 00 00 00 00 00 |..F.....|........|
|00001210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001240| 00 00 00 00 00 0a 00 00 | 00 00 00 00 00 06 00 00 |........|........|
|00001250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001260| 00 00 a7 96 9a 0c 00 00 | 92 cb 00 00 00 00 00 00 |........|........|
|00001270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001280| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00001290| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 00 00 |........|........|
|000012a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+