Developer CD Series 1989 April: Phil & Dave's Excellent CD

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1989 …il & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / DTS Goodies / MDEF (LS Pascal) / mdef main next >
Text File | 1989-01-01 | 5.6 KB | [TEXT/PJMM]
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was processed as: Text File (text/txt).
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	Pascal Compiled Unit `(other/pascalCompiledUnit)`	magic	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	ASCII text, with CR line terminators	default
`100%`	checkBytes	Printable ASCII	default
`100%`	perlTextCheck	Likely Text (Perl)	default
`100%`	siegfried	x-fmt/111 Plain Text File	default
`100%`	gt2	Pascal Unit 'mdef'	default
`100%`	detectItEasy	Format: plain text[CR]	default (weak)
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[PJMM]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 75 6e 69 74 20 6d 64 65 | 66 3b 0d 0d 69 6e 74 65 |unit mde|f;..inte|
|00000010| 72 66 61 63 65 0d 0d 09 | 7b 20 41 20 63 6f 64 65 |rface...|{ A code|
|00000020| 20 72 65 73 6f 75 72 63 | 65 20 6d 75 73 74 20 68 | resourc|e must h|
|00000030| 61 76 65 20 6e 6f 20 67 | 6c 6f 62 61 6c 20 76 61 |ave no g|lobal va|
|00000040| 72 69 61 62 6c 65 73 2e | 20 20 41 6c 6c 20 73 68 |riables.|  All sh|
|00000050| 61 72 65 64 20 76 61 72 | 69 61 62 6c 65 73 20 61 |ared var|iables a|
|00000060| 72 65 20 7d 0d 09 7b 20 | 6c 6f 63 61 6c 20 70 72 |re }..{ |local pr|
|00000070| 6f 63 65 64 75 72 65 20 | 4d 41 49 4e 2c 20 61 6e |ocedure |MAIN, an|
|00000080| 64 20 73 68 61 72 65 64 | 20 61 6d 6f 6e 67 20 69 |d shared| among i|
|00000090| 74 73 20 73 75 62 20 70 | 72 6f 63 65 64 75 72 65 |ts sub p|rocedure|
|000000a0| 73 20 7d 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |s }...pr|ocedure |
|000000b0| 4f 75 72 5f 43 75 73 74 | 6f 6d 5f 4d 65 6e 75 20 |Our_Cust|om_Menu |
|000000c0| 28 6d 65 73 73 61 67 65 | 3a 20 69 6e 74 65 67 65 |(message|: intege|
|000000d0| 72 3b 0d 09 09 09 09 09 | 09 09 09 09 74 68 65 4d |r;......|....theM|
|000000e0| 65 6e 75 3a 20 4d 65 6e | 75 48 61 6e 64 6c 65 3b |enu: Men|uHandle;|
|000000f0| 0d 09 09 09 09 09 09 09 | 09 09 76 61 72 20 6d 65 |........|..var me|
|00000100| 6e 75 52 65 63 74 3a 20 | 52 65 63 74 3b 0d 09 09 |nuRect: |Rect;...|
|00000110| 09 09 09 09 09 09 09 68 | 69 74 50 74 3a 20 50 6f |.......h|itPt: Po|
|00000120| 69 6e 74 3b 0d 09 09 09 | 09 09 09 09 09 09 76 61 |int;....|......va|
|00000130| 72 20 77 68 69 63 68 49 | 74 65 6d 3a 20 69 6e 74 |r whichI|tem: int|
|00000140| 65 67 65 72 29 3b 09 7b | 20 61 20 63 6f 64 65 20 |eger);.{| a code |
|00000150| 72 65 73 6f 75 72 63 65 | 20 6d 75 73 74 20 68 61 |resource| must ha|
|00000160| 76 65 20 61 20 70 72 6f | 63 65 64 75 72 65 20 63 |ve a pro|cedure c|
|00000170| 61 6c 6c 65 64 20 4d 41 | 49 4e 20 7d 0d 0d 69 6d |alled MA|IN }..im|
|00000180| 70 6c 65 6d 65 6e 74 61 | 74 69 6f 6e 0d 0d 7b 2a |plementa|tion..{*|
|00000190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001d0| 2a 2a 2a 2a 2a 20 7d 0d | 7b 20 20 20 20 20 20 20 |***** }.|{       |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000220| 7d 0d 7b 20 20 65 6e 74 | 72 79 20 70 6f 69 6e 74 |}.{  ent|ry point|
|00000230| 20 66 6f 72 20 6f 75 72 | 20 3c 4d 3e 65 6e 75 20 | for our| <M>enu |
|00000240| 3c 44 45 46 3e 69 6e 69 | 74 69 6f 6e 20 20 20 20 |<DEF>ini|tion    |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000260| 20 20 20 20 20 20 20 20 | 20 20 7d 0d 7b 20 20 20 |        |  }.{   |
|00000270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002b0| 20 20 20 20 7d 0d 7b 20 | 20 54 68 69 73 20 6d 65 |    }.{ | This me|
|000002c0| 6e 75 20 64 69 73 70 6c | 61 79 73 20 70 61 74 74 |nu displ|ays patt|
|000002d0| 65 72 6e 73 20 74 61 6b | 65 6e 20 66 72 6f 6d 20 |erns tak|en from |
|000002e0| 74 68 65 20 53 79 73 74 | 65 6d 20 50 41 54 23 2e |the Syst|em PAT#.|
|000002f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 7d 0d |        |      }.|
|00000300| 7b 20 20 54 68 65 20 73 | 69 7a 65 20 6f 66 20 74 |{  The s|ize of t|
|00000310| 68 65 20 72 65 63 74 61 | 6e 67 6c 65 73 20 66 6f |he recta|ngles fo|
|00000320| 72 20 65 61 63 68 20 70 | 61 74 74 65 72 6e 20 61 |r each p|attern a|
|00000330| 72 65 20 64 65 73 69 67 | 6e 61 74 65 64 20 20 20 |re desig|nated   |
|00000340| 20 20 20 20 20 20 20 20 | 7d 0d 7b 20 20 62 79 20 |        |}.{  by |
|00000350| 50 52 45 43 54 57 49 44 | 45 20 61 6e 64 20 50 52 |PRECTWID|E and PR|
|00000360| 45 43 54 48 49 47 48 2e | 20 20 54 68 65 20 6d 65 |ECTHIGH.|  The me|
|00000370| 6e 75 20 69 73 20 64 72 | 61 77 6e 20 77 69 74 68 |nu is dr|awn with|
|00000380| 20 74 68 65 20 20 20 20 | 20 20 20 20 20 20 20 20 | the    |        |
|00000390| 20 20 7d 0d 7b 20 20 72 | 65 63 74 61 6e 67 6c 65 |  }.{  r|ectangle|
|000003a0| 73 2c 20 50 41 54 52 4f | 57 53 20 68 69 67 68 20 |s, PATRO|WS high |
|000003b0| 61 6e 64 20 50 41 54 43 | 4f 4c 53 20 77 69 64 65 |and PATC|OLS wide|
|000003c0| 2c 20 69 6e 20 74 68 69 | 73 20 63 61 73 65 2c 20 |, in thi|s case, |
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 7d 0d 7b 20 |        |    }.{ |
|000003e0| 20 38 20 70 61 74 74 65 | 72 6e 73 20 68 69 67 68 | 8 patte|rns high|
|000003f0| 20 62 79 20 35 20 70 61 | 74 74 65 72 6e 73 20 77 | by 5 pa|tterns w|
|00000400| 69 64 65 2e 20 20 20 20 | 20 20 20 20 20 20 20 20 |ide.    |        |
|00000410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000420| 20 20 20 20 20 20 7d 0d | 7b 20 20 54 68 65 20 4d |      }.|{  The M|
|00000430| 65 6e 75 49 74 65 6d 20 | 72 65 74 75 72 6e 65 64 |enuItem |returned|
|00000440| 20 62 79 20 74 68 65 20 | 4d 44 45 46 20 69 73 20 | by the |MDEF is |
|00000450| 74 68 65 20 69 6e 64 65 | 78 20 77 69 74 68 69 6e |the inde|x within|
|00000460| 20 74 68 65 20 20 20 20 | 20 20 20 20 20 20 20 20 | the    |        |
|00000470| 7d 0d 7b 20 20 50 41 54 | 23 20 6f 66 20 74 68 65 |}.{  PAT|# of the|
|00000480| 20 70 61 74 74 65 72 6e | 20 63 68 6f 73 65 6e 20 | pattern| chosen |
|00000490| 62 79 20 74 68 65 20 75 | 73 65 72 2c 20 61 6e 64 |by the u|ser, and|
|000004a0| 20 63 61 6e 20 62 65 20 | 66 6f 75 6e 64 20 77 69 | can be |found wi|
|000004b0| 74 68 2e 2e 2e 20 20 20 | 20 20 7d 0d 7b 20 20 20 |th...   |  }.{   |
|000004c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000500| 20 20 20 20 7d 0d 7b 20 | 20 20 20 20 47 65 74 49 |    }.{ |    GetI|
|00000510| 6e 64 50 61 74 74 65 72 | 6e 28 26 73 6f 6d 65 50 |ndPatter|n(&someP|
|00000520| 61 74 74 65 72 6e 56 61 | 72 69 61 62 6c 65 2c 4c |atternVa|riable,L|
|00000530| 49 53 54 49 44 2c 4d 65 | 6e 75 49 74 65 6d 29 3b |ISTID,Me|nuItem);|
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 7d 0d |        |      }.|
|00000550| 7b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |{       |        |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000590| 20 20 20 20 20 20 20 20 | 7d 0d 7b 20 20 46 72 6f |        |}.{  Fro|
|000005a0| 6d 20 74 68 65 20 4c 69 | 67 68 74 73 70 65 65 64 |m the Li|ghtspeed|
|000005b0| 43 20 22 50 72 6f 6a 65 | 63 74 22 20 6d 65 6e 75 |C "Proje|ct" menu|
|000005c0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:       |        |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005e0| 20 20 7d 0d 7b 20 20 20 | 20 20 20 20 20 20 20 20 |  }.{   |        |
|000005f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000620| 20 20 20 20 20 20 20 20 | 20 20 20 20 7d 0d 7b 20 |        |    }.{ |
|00000630| 20 20 20 20 22 53 65 74 | 20 50 72 6f 6a 65 63 74 |    "Set| Project|
|00000640| 20 54 79 70 65 2e 2e 2e | 22 20 20 20 20 20 20 20 | Type...|"       |
|00000650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000670| 20 20 20 20 20 20 7d 0d | 7b 20 20 20 20 20 2d 2d |      }.|{     --|
|00000680| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006a0| 2d 2d 2d 2d 2d 20 20 20 | 20 20 20 20 20 20 20 20 |-----   |        |
|000006b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006c0| 7d 0d 7b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |}.{     |        |
|000006d0| 20 20 43 6f 64 65 20 52 | 65 73 6f 75 72 63 65 20 |  Code R|esource |
|000006e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000700| 20 20 20 20 20 20 20 20 | 20 20 7d 0d 7b 20 20 20 |        |  }.{   |
|00000710| 20 20 54 79 70 65 20 20 | 20 20 20 20 4d 44 45 46 |  Type  |    MDEF|
|00000720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000750| 20 20 20 20 7d 0d 7b 20 | 20 20 20 20 49 64 20 20 |    }.{ |    Id  |
|00000760| 20 20 20 20 20 20 31 33 | 30 20 20 20 20 20 20 20 |      13|0       |
|00000770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 7d 0d |        |      }.|
|000007a0| 7b 20 20 20 20 20 4e 61 | 6d 65 20 20 20 20 20 20 |{     Na|me      |
|000007b0| 50 61 74 74 65 72 6e 20 | 4d 65 6e 75 20 5b 6f 70 |Pattern |Menu [op|
|000007c0| 74 69 6f 6e 61 6c 5d 20 | 20 20 20 20 20 20 20 20 |tional] |        |
|000007d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007e0| 20 20 20 20 20 20 20 20 | 7d 0d 7b 20 20 20 20 20 |        |}.{     |
|000007f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000830| 20 20 7d 0d 7b 20 20 20 | 20 20 22 42 75 69 6c 64 |  }.{   |  "Build|
|00000840| 20 43 6f 64 65 20 52 65 | 73 6f 75 72 63 65 2e 2e | Code Re|source..|
|00000850| 2e 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |."      |        |
|00000860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000870| 20 20 20 20 20 20 20 20 | 20 20 20 20 7d 0d 7b 20 |        |    }.{ |
|00000880| 20 20 20 20 22 4d 44 45 | 46 20 43 6f 64 65 22 20 |    "MDE|F Code" |
|00000890| 69 66 20 79 6f 75 27 72 | 65 20 75 73 69 6e 67 20 |if you'r|e using |
|000008a0| 74 68 65 20 22 58 46 45 | 52 20 4d 44 45 46 22 20 |the "XFE|R MDEF" |
|000008b0| 70 72 6f 6a 65 63 74 20 | 74 6f 20 20 20 20 20 20 |project |to      |
|000008c0| 20 20 20 20 20 20 7d 0d | 7b 20 20 20 20 20 63 6f |      }.|{     co|
|000008d0| 70 79 20 74 68 65 20 4d | 44 45 46 20 61 6e 64 20 |py the M|DEF and |
|000008e0| 70 6c 61 63 65 20 69 74 | 20 69 6e 20 74 68 65 20 |place it| in the |
|000008f0| 22 70 61 74 6d 65 6e 75 | 64 65 6d 6f 2e 72 73 72 |"patmenu|demo.rsr|
|00000900| 63 22 20 66 69 6c 65 20 | 20 20 20 20 20 20 20 20 |c" file |        |
|00000910| 7d 0d 7b 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |}.{*****|********|
|00000920| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000930| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000950| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 20 7d 0d 0d 09 70 72 |********|* }...pr|
|00000960| 6f 63 65 64 75 72 65 20 | 4f 75 72 5f 43 75 73 74 |ocedure |Our_Cust|
|00000970| 6f 6d 5f 4d 65 6e 75 3b | 0d 0d 09 09 63 6f 6e 73 |om_Menu;|....cons|
|00000980| 74 0d 09 09 09 50 52 45 | 43 54 57 49 44 45 20 3d |t....PRE|CTWIDE =|
|00000990| 20 33 32 3b 09 09 7b 20 | 68 6f 77 20 77 69 64 65 | 32;..{ |how wide|
|000009a0| 20 61 72 65 20 74 68 65 | 20 70 61 74 74 65 72 6e | are the| pattern|
|000009b0| 73 09 7d 0d 09 09 09 50 | 52 45 43 54 48 49 47 48 |s.}....P|RECTHIGH|
|000009c0| 20 3d 20 33 32 3b 09 09 | 7b 20 68 6f 77 20 68 69 | = 32;..|{ how hi|
|000009d0| 67 68 20 61 72 65 20 74 | 68 65 20 70 61 74 74 65 |gh are t|he patte|
|000009e0| 72 6e 73 20 7d 0d 09 09 | 09 50 41 54 52 4f 57 53 |rns }...|.PATROWS|
|000009f0| 20 3d 20 38 3b 09 09 20 | 20 20 20 7b 20 6e 75 6d | = 8;.. |   { num|
|00000a00| 62 65 72 20 6f 66 20 72 | 6f 77 73 20 69 6e 20 6d |ber of r|ows in m|
|00000a10| 65 6e 75 20 7d 0d 09 09 | 09 50 41 54 43 4f 4c 53 |enu }...|.PATCOLS|
|00000a20| 20 3d 20 35 3b 09 09 20 | 20 20 20 7b 20 6e 75 6d | = 5;.. |   { num|
|00000a30| 62 65 72 20 6f 66 20 63 | 6f 6c 75 6d 6e 73 20 69 |ber of c|olumns i|
|00000a40| 6e 20 6d 65 6e 75 09 7d | 0d 09 09 09 4c 49 53 54 |n menu.}|....LIST|
|00000a50| 49 44 20 3d 20 31 30 30 | 30 3b 20 20 20 20 7b 20 |ID = 100|0;    { |
|00000a60| 52 65 73 6f 75 72 63 65 | 20 49 44 20 6f 66 20 50 |Resource| ID of P|
|00000a70| 41 54 23 20 7d 0d 0d 09 | 09 70 72 6f 63 65 64 75 |AT# }...|.procedu|
|00000a80| 72 65 20 63 61 6c 63 69 | 74 65 6d 72 65 63 74 20 |re calci|temrect |
|00000a90| 28 4d 65 6e 75 52 65 63 | 74 3a 20 52 65 63 74 3b |(MenuRec|t: Rect;|
|00000aa0| 0d 09 09 09 09 09 09 09 | 09 09 09 76 61 72 20 72 |........|...var r|
|00000ab0| 65 73 75 6c 74 52 65 63 | 74 3a 20 52 65 63 74 3b |esultRec|t: Rect;|
|00000ac0| 0d 09 09 09 09 09 09 09 | 09 09 09 69 74 65 6d 3a |........|...item:|
|00000ad0| 20 69 6e 74 65 67 65 72 | 29 3b 0d 0d 09 09 09 76 | integer|);.....v|
|00000ae0| 61 72 0d 09 09 09 09 72 | 6f 77 2c 20 63 6f 6c 3a |ar.....r|ow, col:|
|00000af0| 20 69 6e 74 65 67 65 72 | 3b 0d 0d 7b 20 63 61 6c | integer|;..{ cal|
|00000b00| 63 75 6c 61 74 65 20 74 | 68 65 20 72 65 63 74 61 |culate t|he recta|
|00000b10| 6e 67 6c 65 20 77 69 74 | 68 69 6e 20 74 68 65 20 |ngle wit|hin the |
|00000b20| 6d 65 6e 75 2c 20 28 74 | 68 65 72 65 66 6f 72 65 |menu, (t|herefore|
|00000b30| 2c 20 77 69 74 68 69 6e | 20 4d 65 6e 75 52 65 63 |, within| MenuRec|
|00000b40| 74 29 2c 20 7d 0d 7b 20 | 66 6f 72 20 61 6e 79 20 |t), }.{ |for any |
|00000b50| 67 69 76 65 6e 20 6d 65 | 6e 75 20 69 74 65 6d 20 |given me|nu item |
|00000b60| 64 65 73 69 67 6e 61 74 | 65 64 20 62 79 20 22 69 |designat|ed by "i|
|00000b70| 74 65 6d 22 2e 20 20 46 | 69 6e 64 20 6f 75 74 20 |tem".  F|ind out |
|00000b80| 77 68 69 63 68 20 72 6f | 77 20 61 6e 64 20 7d 0d |which ro|w and }.|
|00000b90| 7b 20 63 6f 6c 75 6d 6e | 20 74 68 65 20 69 74 65 |{ column| the ite|
|00000ba0| 6d 20 69 73 20 69 6e 2c | 20 74 68 65 6e 20 63 6f |m is in,| then co|
|00000bb0| 6e 73 74 72 75 63 74 20 | 74 68 65 20 72 65 63 74 |nstruct |the rect|
|00000bc0| 61 6e 67 6c 65 2c 20 61 | 6e 64 20 72 65 74 75 72 |angle, a|nd retur|
|00000bd0| 6e 20 74 68 65 20 7d 0d | 7b 20 72 65 63 74 61 6e |n the }.|{ rectan|
|00000be0| 67 6c 65 20 61 73 20 74 | 68 65 20 66 75 6e 63 74 |gle as t|he funct|
|00000bf0| 69 6f 6e 20 72 65 73 75 | 6c 74 20 7d 0d 0d 09 09 |ion resu|lt }....|
|00000c00| 62 65 67 69 6e 0d 09 09 | 09 72 6f 77 20 3a 3d 20 |begin...|.row := |
|00000c10| 28 69 74 65 6d 20 2d 20 | 31 29 20 64 69 76 20 50 |(item - |1) div P|
|00000c20| 41 54 43 4f 4c 53 3b 0d | 09 09 09 63 6f 6c 20 3a |ATCOLS;.|...col :|
|00000c30| 3d 20 28 69 74 65 6d 20 | 2d 20 31 29 20 6d 6f 64 |= (item |- 1) mod|
|00000c40| 20 50 41 54 43 4f 4c 53 | 3b 0d 09 09 09 72 65 73 | PATCOLS|;....res|
|00000c50| 75 6c 74 52 65 63 74 2e | 6c 65 66 74 20 3a 3d 20 |ultRect.|left := |
|00000c60| 4d 65 6e 75 52 65 63 74 | 2e 6c 65 66 74 20 2b 20 |MenuRect|.left + |
|00000c70| 63 6f 6c 20 2a 20 50 52 | 45 43 54 57 49 44 45 3b |col * PR|ECTWIDE;|
|00000c80| 0d 09 09 09 72 65 73 75 | 6c 74 52 65 63 74 2e 74 |....resu|ltRect.t|
|00000c90| 6f 70 20 3a 3d 20 4d 65 | 6e 75 52 65 63 74 2e 74 |op := Me|nuRect.t|
|00000ca0| 6f 70 20 2b 20 72 6f 77 | 20 2a 20 50 52 45 43 54 |op + row| * PRECT|
|00000cb0| 48 49 47 48 3b 0d 09 09 | 09 72 65 73 75 6c 74 52 |HIGH;...|.resultR|
|00000cc0| 65 63 74 2e 72 69 67 68 | 74 20 3a 3d 20 72 65 73 |ect.righ|t := res|
|00000cd0| 75 6c 74 52 65 63 74 2e | 6c 65 66 74 20 2b 20 50 |ultRect.|left + P|
|00000ce0| 52 45 43 54 57 49 44 45 | 3b 0d 09 09 09 72 65 73 |RECTWIDE|;....res|
|00000cf0| 75 6c 74 52 65 63 74 2e | 62 6f 74 74 6f 6d 20 3a |ultRect.|bottom :|
|00000d00| 3d 20 72 65 73 75 6c 74 | 52 65 63 74 2e 74 6f 70 |= result|Rect.top|
|00000d10| 20 2b 20 50 52 45 43 54 | 48 49 47 48 3b 0d 09 09 | + PRECT|HIGH;...|
|00000d20| 65 6e 64 3b 0d 0d 09 09 | 70 72 6f 63 65 64 75 72 |end;....|procedur|
|00000d30| 65 20 64 6f 6d 65 6e 75 | 64 72 61 77 20 28 6d 65 |e domenu|draw (me|
|00000d40| 6e 75 52 65 63 74 3a 20 | 52 65 63 74 29 3b 0d 0d |nuRect: |Rect);..|
|00000d50| 09 09 09 76 61 72 0d 09 | 09 09 09 69 74 65 6d 52 |...var..|...itemR|
|00000d60| 65 63 74 3a 20 52 65 63 | 74 3b 0d 09 09 09 09 74 |ect: Rec|t;.....t|
|00000d70| 68 65 50 61 74 3a 20 50 | 61 74 74 65 72 6e 3b 0d |hePat: P|attern;.|
|00000d80| 09 09 09 09 69 6e 64 65 | 78 3a 20 69 6e 74 65 67 |....inde|x: integ|
|00000d90| 65 72 3b 0d 0d 7b 20 63 | 79 63 6c 65 20 74 68 72 |er;..{ c|ycle thr|
|00000da0| 6f 75 67 68 20 50 41 54 | 52 4f 57 53 20 2a 20 50 |ough PAT|ROWS * P|
|00000db0| 41 54 43 4f 4c 53 20 69 | 74 65 6d 73 2c 20 67 65 |ATCOLS i|tems, ge|
|00000dc0| 74 74 69 6e 67 20 61 20 | 70 61 74 74 65 72 6e 20 |tting a |pattern |
|00000dd0| 66 72 6f 6d 20 74 68 65 | 20 7d 0d 7b 20 53 79 73 |from the| }.{ Sys|
|00000de0| 74 65 6d 20 50 41 54 23 | 2c 20 61 6e 64 20 66 69 |tem PAT#|, and fi|
|00000df0| 6c 6c 69 6e 67 20 74 68 | 65 20 6d 65 6e 75 20 72 |lling th|e menu r|
|00000e00| 65 63 74 61 6e 67 6c 65 | 73 20 77 69 74 68 20 74 |ectangle|s with t|
|00000e10| 68 61 74 20 70 61 74 74 | 65 72 6e 20 7d 0d 0d 09 |hat patt|ern }...|
|00000e20| 09 62 65 67 69 6e 0d 09 | 09 09 66 6f 72 20 69 6e |.begin..|..for in|
|00000e30| 64 65 78 20 3a 3d 20 31 | 20 74 6f 20 28 50 41 54 |dex := 1| to (PAT|
|00000e40| 52 4f 57 53 20 2a 20 50 | 41 54 43 4f 4c 53 29 20 |ROWS * P|ATCOLS) |
|00000e50| 64 6f 0d 09 09 09 09 62 | 65 67 69 6e 0d 09 09 09 |do.....b|egin....|
|00000e60| 09 09 47 65 74 49 6e 64 | 50 61 74 74 65 72 6e 28 |..GetInd|Pattern(|
|00000e70| 74 68 65 50 61 74 2c 20 | 4c 49 53 54 49 44 2c 20 |thePat, |LISTID, |
|00000e80| 69 6e 64 65 78 29 3b 09 | 7b 20 67 65 74 20 74 68 |index);.|{ get th|
|00000e90| 65 20 70 61 74 74 65 72 | 6e 20 7d 0d 09 09 09 09 |e patter|n }.....|
|00000ea0| 09 63 61 6c 63 69 74 65 | 6d 72 65 63 74 28 6d 65 |.calcite|mrect(me|
|00000eb0| 6e 75 52 65 63 74 2c 20 | 69 74 65 6d 52 65 63 74 |nuRect, |itemRect|
|00000ec0| 2c 20 69 6e 64 65 78 29 | 3b 09 7b 20 63 61 6c 63 |, index)|;.{ calc|
|00000ed0| 75 6c 61 74 65 20 74 68 | 65 20 72 65 63 74 61 6e |ulate th|e rectan|
|00000ee0| 67 6c 65 20 69 6e 20 74 | 68 65 20 6d 65 6e 75 20 |gle in t|he menu |
|00000ef0| 7d 0d 09 09 09 09 09 49 | 6e 73 65 74 52 65 63 74 |}......I|nsetRect|
|00000f00| 28 69 74 65 6d 52 65 63 | 74 2c 20 31 2c 20 31 29 |(itemRec|t, 1, 1)|
|00000f10| 3b 09 7b 20 64 72 61 77 | 20 74 68 65 20 6d 65 6e |;.{ draw| the men|
|00000f20| 75 20 69 74 65 6d 20 7d | 0d 09 09 09 09 09 46 69 |u item }|......Fi|
|00000f30| 6c 6c 52 65 63 74 28 69 | 74 65 6d 52 65 63 74 2c |llRect(i|temRect,|
|00000f40| 20 74 68 65 50 61 74 29 | 3b 0d 09 09 09 09 09 46 | thePat)|;......F|
|00000f50| 72 61 6d 65 52 65 63 74 | 28 69 74 65 6d 52 65 63 |rameRect|(itemRec|
|00000f60| 74 29 3b 0d 09 09 09 09 | 65 6e 64 3b 0d 09 09 65 |t);.....|end;...e|
|00000f70| 6e 64 3b 0d 0d 09 09 70 | 72 6f 63 65 64 75 72 65 |nd;....p|rocedure|
|00000f80| 20 64 6f 6d 65 6e 75 63 | 68 6f 6f 73 65 20 28 6d | domenuc|hoose (m|
|00000f90| 65 6e 75 52 65 63 74 3a | 20 52 65 63 74 3b 0d 09 |enuRect:| Rect;..|
|00000fa0| 09 09 09 09 09 09 09 09 | 09 68 69 74 50 74 3a 20 |........|.hitPt: |
|00000fb0| 50 6f 69 6e 74 3b 0d 09 | 09 09 09 09 09 09 09 09 |Point;..|........|
|00000fc0| 09 76 61 72 20 77 68 69 | 63 68 49 74 65 6d 3a 20 |.var whi|chItem: |
|00000fd0| 69 6e 74 65 67 65 72 29 | 3b 0d 0d 09 09 09 76 61 |integer)|;.....va|
|00000fe0| 72 0d 09 09 09 09 69 6e | 64 65 78 2c 20 69 74 65 |r.....in|dex, ite|
|00000ff0| 6d 43 68 6f 73 65 6e 3a | 20 69 6e 74 65 67 65 72 |mChosen:| integer|
|00001000| 3b 0d 09 09 09 09 74 65 | 73 74 52 65 63 74 2c 20 |;.....te|stRect, |
|00001010| 6f 6c 64 52 65 63 74 3a | 20 52 65 63 74 3b 0d 0d |oldRect:| Rect;..|
|00001020| 09 09 62 65 67 69 6e 0d | 09 09 09 69 74 65 6d 43 |..begin.|...itemC|
|00001030| 68 6f 73 65 6e 20 3a 3d | 20 31 30 30 30 3b 0d 7b |hosen :=| 1000;.{|
|00001040| 20 61 6e 20 69 6d 70 6f | 73 73 69 62 6c 65 20 6d | an impo|ssible m|
|00001050| 65 6e 75 20 63 68 6f 69 | 63 65 20 7d 0d 7b 20 66 |enu choi|ce }.{ f|
|00001060| 69 6e 64 20 6f 75 74 20 | 77 68 69 63 68 20 6d 65 |ind out |which me|
|00001070| 6e 75 20 69 74 65 6d 20 | 72 65 63 74 61 6e 67 6c |nu item |rectangl|
|00001080| 65 20 74 68 65 20 6d 6f | 75 73 65 20 69 73 20 69 |e the mo|use is i|
|00001090| 6e 20 7d 0d 09 09 09 66 | 6f 72 20 69 6e 64 65 78 |n }....f|or index|
|000010a0| 20 3a 3d 20 31 20 74 6f | 20 50 41 54 52 4f 57 53 | := 1 to| PATROWS|
|000010b0| 20 2a 20 50 41 54 43 4f | 4c 53 20 64 6f 0d 09 09 | * PATCO|LS do...|
|000010c0| 09 09 62 65 67 69 6e 0d | 09 09 09 09 09 63 61 6c |..begin.|.....cal|
|000010d0| 63 69 74 65 6d 72 65 63 | 74 28 6d 65 6e 75 52 65 |citemrec|t(menuRe|
|000010e0| 63 74 2c 20 74 65 73 74 | 52 65 63 74 2c 20 69 6e |ct, test|Rect, in|
|000010f0| 64 65 78 29 3b 0d 09 09 | 09 09 09 69 66 20 50 74 |dex);...|...if Pt|
|00001100| 49 6e 52 65 63 74 28 68 | 69 74 50 74 2c 20 74 65 |InRect(h|itPt, te|
|00001110| 73 74 52 65 63 74 29 20 | 74 68 65 6e 0d 09 09 09 |stRect) |then....|
|00001120| 09 09 09 62 65 67 69 6e | 0d 7b 20 74 68 65 20 6d |...begin|.{ the m|
|00001130| 6f 75 73 65 20 69 73 20 | 69 6e 20 74 68 65 20 22 |ouse is |in the "|
|00001140| 69 6e 64 65 78 74 68 22 | 20 6d 65 6e 75 20 69 74 |indexth"| menu it|
|00001150| 65 6d 20 7d 0d 09 09 09 | 09 09 09 09 69 74 65 6d |em }....|....item|
|00001160| 43 68 6f 73 65 6e 20 3a | 3d 20 69 6e 64 65 78 3b |Chosen :|= index;|
|00001170| 0d 09 09 7b 09 62 72 65 | 61 6b 3b 20 7d 0d 09 09 |...{.bre|ak; }...|
|00001180| 09 09 09 09 65 6e 64 3b | 0d 09 09 09 09 65 6e 64 |....end;|.....end|
|00001190| 3b 0d 09 09 09 69 66 20 | 69 74 65 6d 43 68 6f 73 |;....if |itemChos|
|000011a0| 65 6e 20 3c 3e 20 31 30 | 30 30 20 74 68 65 6e 0d |en <> 10|00 then.|
|000011b0| 09 09 09 09 62 65 67 69 | 6e 0d 7b 20 74 68 65 6e |....begi|n.{ then|
|000011c0| 20 77 65 20 66 6f 75 6e | 64 20 74 68 65 20 6d 6f | we foun|d the mo|
|000011d0| 75 73 65 20 69 6e 20 61 | 20 6d 65 6e 75 20 69 74 |use in a| menu it|
|000011e0| 65 6d 2e 20 77 61 73 20 | 74 68 65 72 65 20 61 6e |em. was |there an|
|000011f0| 20 6f 6c 64 20 6d 65 6e | 75 20 69 74 65 6d 20 73 | old men|u item s|
|00001200| 65 6c 65 63 74 65 64 3f | 20 7d 0d 09 09 09 09 09 |elected?| }......|
|00001210| 69 66 20 28 28 77 68 69 | 63 68 49 74 65 6d 20 3c |if ((whi|chItem <|
|00001220| 3e 20 30 29 20 61 6e 64 | 20 28 77 68 69 63 68 49 |> 0) and| (whichI|
|00001230| 74 65 6d 20 3c 3e 20 69 | 74 65 6d 43 68 6f 73 65 |tem <> i|temChose|
|00001240| 6e 29 29 20 74 68 65 6e | 0d 09 09 09 09 09 09 62 |n)) then|.......b|
|00001250| 65 67 69 6e 0d 7b 20 69 | 66 20 73 6f 2c 20 74 68 |egin.{ i|f so, th|
|00001260| 65 6e 20 75 6e 2d 73 65 | 6c 65 63 74 20 69 74 20 |en un-se|lect it |
|00001270| 7d 0d 09 09 09 09 09 09 | 09 63 61 6c 63 69 74 65 |}.......|.calcite|
|00001280| 6d 72 65 63 74 28 6d 65 | 6e 75 52 65 63 74 2c 20 |mrect(me|nuRect, |
|00001290| 6f 6c 64 52 65 63 74 2c | 20 77 68 69 63 68 49 74 |oldRect,| whichIt|
|000012a0| 65 6d 29 3b 0d 09 09 09 | 09 09 09 09 50 65 6e 4d |em);....|....PenM|
|000012b0| 6f 64 65 28 70 61 74 58 | 6f 72 29 3b 0d 09 09 09 |ode(patX|or);....|
|000012c0| 09 09 09 09 46 72 61 6d | 65 52 65 63 74 28 6f 6c |....Fram|eRect(ol|
|000012d0| 64 52 65 63 74 29 3b 0d | 09 09 09 09 09 09 65 6e |dRect);.|......en|
|000012e0| 64 3b 0d 7b 20 74 65 6c | 6c 20 74 68 65 20 6d 65 |d;.{ tel|l the me|
|000012f0| 6e 75 20 6d 61 6e 61 67 | 65 72 20 77 68 69 63 68 |nu manag|er which|
|00001300| 20 69 74 65 6d 20 77 61 | 73 20 6c 61 73 74 20 73 | item wa|s last s|
|00001310| 65 6c 65 63 74 65 64 20 | 61 6e 64 20 73 65 6c 65 |elected |and sele|
|00001320| 63 74 20 69 74 20 7d 0d | 09 09 09 09 09 77 68 69 |ct it }.|.....whi|
|00001330| 63 68 49 74 65 6d 20 3a | 3d 20 69 74 65 6d 43 68 |chItem :|= itemCh|
|00001340| 6f 73 65 6e 3b 0d 09 09 | 09 09 09 63 61 6c 63 69 |osen;...|...calci|
|00001350| 74 65 6d 72 65 63 74 28 | 6d 65 6e 75 52 65 63 74 |temrect(|menuRect|
|00001360| 2c 20 6f 6c 64 52 65 63 | 74 2c 20 69 74 65 6d 43 |, oldRec|t, itemC|
|00001370| 68 6f 73 65 6e 29 3b 0d | 09 09 09 09 09 50 65 6e |hosen);.|.....Pen|
|00001380| 4d 6f 64 65 28 70 61 74 | 43 6f 70 79 29 3b 0d 09 |Mode(pat|Copy);..|
|00001390| 09 09 09 09 46 72 61 6d | 65 52 65 63 74 28 6f 6c |....Fram|eRect(ol|
|000013a0| 64 52 65 63 74 29 3b 0d | 09 09 09 09 65 6e 64 0d |dRect);.|....end.|
|000013b0| 09 09 09 65 6c 73 65 20 | 69 66 20 6e 6f 74 20 50 |...else |if not P|
|000013c0| 74 49 6e 52 65 63 74 28 | 68 69 74 50 74 2c 20 6d |tInRect(|hitPt, m|
|000013d0| 65 6e 75 52 65 63 74 29 | 20 74 68 65 6e 0d 7b 20 |enuRect)| then.{ |
|000013e0| 6e 6f 20 6d 65 6e 75 20 | 69 74 65 6d 20 77 61 73 |no menu |item was|
|000013f0| 20 73 65 6c 65 63 74 65 | 64 2c 20 73 6f 20 75 6e | selecte|d, so un|
|00001400| 2d 73 65 6c 65 63 74 20 | 61 6e 79 20 70 72 65 76 |-select |any prev|
|00001410| 69 6f 75 73 20 6d 65 6e | 75 20 69 74 65 6d 20 73 |ious men|u item s|
|00001420| 65 6c 65 63 74 65 64 20 | 7d 0d 09 09 09 09 62 65 |elected |}.....be|
|00001430| 67 69 6e 0d 09 09 09 09 | 09 63 61 6c 63 69 74 65 |gin.....|.calcite|
|00001440| 6d 72 65 63 74 28 6d 65 | 6e 75 52 65 63 74 2c 20 |mrect(me|nuRect, |
|00001450| 6f 6c 64 52 65 63 74 2c | 20 77 68 69 63 68 49 74 |oldRect,| whichIt|
|00001460| 65 6d 29 3b 0d 09 09 09 | 09 09 50 65 6e 4d 6f 64 |em);....|..PenMod|
|00001470| 65 28 70 61 74 58 6f 72 | 29 3b 0d 09 09 09 09 09 |e(patXor|);......|
|00001480| 46 72 61 6d 65 52 65 63 | 74 28 6f 6c 64 52 65 63 |FrameRec|t(oldRec|
|00001490| 74 29 3b 0d 09 09 09 09 | 09 77 68 69 63 68 49 74 |t);.....|.whichIt|
|000014a0| 65 6d 20 3a 3d 20 30 3b | 0d 09 09 09 09 65 6e 64 |em := 0;|.....end|
|000014b0| 3b 0d 09 09 65 6e 64 3b | 0d 0d 09 09 70 72 6f 63 |;...end;|....proc|
|000014c0| 65 64 75 72 65 20 64 6f | 6d 65 6e 75 73 69 7a 65 |edure do|menusize|
|000014d0| 20 28 76 61 72 20 74 68 | 65 4d 65 6e 75 3a 20 4d | (var th|eMenu: M|
|000014e0| 65 6e 75 68 61 6e 64 6c | 65 29 3b 0d 0d 09 09 62 |enuhandl|e);....b|
|000014f0| 65 67 69 6e 0d 7b 20 74 | 65 6c 6c 20 74 68 65 20 |egin.{ t|ell the |
|00001500| 6d 65 6e 75 20 6d 61 6e | 61 67 65 72 20 68 6f 77 |menu man|ager how|
|00001510| 20 6c 61 72 67 65 20 74 | 68 65 20 6d 65 6e 75 20 | large t|he menu |
|00001520| 72 65 63 74 61 6e 67 6c | 65 20 69 73 20 7d 0d 09 |rectangl|e is }..|
|00001530| 09 09 74 68 65 4d 65 6e | 75 5e 5e 2e 6d 65 6e 75 |..theMen|u^^.menu|
|00001540| 57 69 64 74 68 20 3a 3d | 20 50 41 54 43 4f 4c 53 |Width :=| PATCOLS|
|00001550| 20 2a 20 50 52 45 43 54 | 57 49 44 45 3b 0d 09 09 | * PRECT|WIDE;...|
|00001560| 09 74 68 65 4d 65 6e 75 | 5e 5e 2e 6d 65 6e 75 48 |.theMenu|^^.menuH|
|00001570| 65 69 67 68 74 20 3a 3d | 20 50 41 54 52 4f 57 53 |eight :=| PATROWS|
|00001580| 20 2a 20 50 52 45 43 54 | 48 49 47 48 3b 0d 09 09 | * PRECT|HIGH;...|
|00001590| 65 6e 64 3b 0d 0d 09 62 | 65 67 69 6e 0d 09 7b 20 |end;...b|egin..{ |
|000015a0| 77 68 61 74 20 64 6f 65 | 73 20 74 68 65 20 6d 65 |what doe|s the me|
|000015b0| 6e 75 20 6d 61 6e 61 67 | 65 72 20 77 61 6e 74 20 |nu manag|er want |
|000015c0| 75 73 20 74 6f 20 64 6f | 3f 20 7d 0d 09 09 63 61 |us to do|? }...ca|
|000015d0| 73 65 20 6d 65 73 73 61 | 67 65 20 6f 66 0d 09 09 |se messa|ge of...|
|000015e0| 09 6d 44 72 61 77 4d 73 | 67 3a 20 0d 09 09 09 09 |.mDrawMs|g: .....|
|000015f0| 64 6f 6d 65 6e 75 64 72 | 61 77 28 6d 65 6e 75 52 |domenudr|aw(menuR|
|00001600| 65 63 74 29 3b 0d 0d 09 | 09 09 6d 43 68 6f 6f 73 |ect);...|..mChoos|
|00001610| 65 4d 73 67 3a 20 0d 09 | 09 09 09 64 6f 6d 65 6e |eMsg: ..|...domen|
|00001620| 75 63 68 6f 6f 73 65 28 | 6d 65 6e 75 52 65 63 74 |uchoose(|menuRect|
|00001630| 2c 20 68 69 74 50 74 2c | 20 77 68 69 63 68 49 74 |, hitPt,| whichIt|
|00001640| 65 6d 29 3b 0d 0d 09 09 | 09 6d 53 69 7a 65 4d 73 |em);....|.mSizeMs|
|00001650| 67 3a 20 0d 09 09 09 09 | 64 6f 6d 65 6e 75 73 69 |g: .....|domenusi|
|00001660| 7a 65 28 74 68 65 4d 65 | 6e 75 29 3b 0d 0d 09 09 |ze(theMe|nu);....|
|00001670| 09 6f 74 68 65 72 77 69 | 73 65 0d 09 09 09 09 3b |.otherwi|se.....;|
|00001680| 0d 09 09 65 6e 64 3b 0d | 09 65 6e 64 3b 0d 0d 65 |...end;.|.end;..e|
|00001690| 6e 64 2e                |                         |nd.     |        |
+--------+-------------------------+-------------------------+--------+--------+