/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Info / For Developers / Mops 3.4.sea / Mops source / Toolbox classes / Menu

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 04 4d 65 6e 75 00 00 | 00 00 00 00 00 00 00 00 |..Menu..|........|
|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 08 32 00 | 00 01 7d b0 de fb 1a b0 |......2.|..}.....|
|00000060| de fb 1a 00 00 08 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ef 57 00 00 |........|.....W..|
|00000080| 5c 20 4d 65 6e 75 20 63 | 6c 61 73 73 2e 0d 5c 20 |\ Menu c|lass..\ |
|00000090| 53 65 70 74 20 39 30 20 | 20 6d 72 68 20 20 69 74 |Sept 90 | mrh  it|
|000000a0| 65 6d 23 20 61 6e 6f 6d | 61 6c 69 65 73 20 66 69 |em# anom|alies fi|
|000000b0| 78 65 64 0d 5c 20 53 65 | 70 74 20 39 37 20 20 6d |xed.\ Se|pt 97  m|
|000000c0| 72 68 09 75 70 64 61 74 | 65 64 20 66 6f 72 20 50 |rh.updat|ed for P|
|000000d0| 6f 77 65 72 4d 6f 70 73 | 0d 0d 0d 73 79 73 63 61 |owerMops|...sysca|
|000000e0| 6c 6c 20 4e 65 77 4d 65 | 6e 75 0d 73 79 73 63 61 |ll NewMe|nu.sysca|
|000000f0| 6c 6c 20 47 65 74 4d 65 | 6e 75 0d 73 79 73 63 61 |ll GetMe|nu.sysca|
|00000100| 6c 6c 20 4d 65 6e 75 53 | 65 6c 65 63 74 0d 73 79 |ll MenuS|elect.sy|
|00000110| 73 63 61 6c 6c 20 44 72 | 61 77 4d 65 6e 75 42 61 |scall Dr|awMenuBa|
|00000120| 72 0d 73 79 73 63 61 6c | 6c 20 43 6c 65 61 72 4d |r.syscal|l ClearM|
|00000130| 65 6e 75 42 61 72 0d 73 | 79 73 63 61 6c 6c 20 4d |enuBar.s|yscall M|
|00000140| 65 6e 75 4b 65 79 0d 73 | 79 73 63 61 6c 6c 20 45 |enuKey.s|yscall E|
|00000150| 6e 61 62 6c 65 49 74 65 | 6d 0d 73 79 73 63 61 6c |nableIte|m.syscal|
|00000160| 6c 20 44 69 73 61 62 6c | 65 49 74 65 6d 0d 73 79 |l Disabl|eItem.sy|
|00000170| 73 63 61 6c 6c 20 48 69 | 6c 69 74 65 4d 65 6e 75 |scall Hi|liteMenu|
|00000180| 0d 73 79 73 63 61 6c 6c | 20 47 65 74 4d 65 6e 75 |.syscall| GetMenu|
|00000190| 49 74 65 6d 54 65 78 74 | 0d 73 79 73 63 61 6c 6c |ItemText|.syscall|
|000001a0| 20 53 65 74 4d 65 6e 75 | 49 74 65 6d 54 65 78 74 | SetMenu|ItemText|
|000001b0| 0d 73 79 73 63 61 6c 6c | 20 49 6e 73 65 72 74 4d |.syscall| InsertM|
|000001c0| 65 6e 75 49 74 65 6d 0d | 73 79 73 63 61 6c 6c 20 |enuItem.|syscall |
|000001d0| 44 65 6c 65 74 65 4d 65 | 6e 75 49 74 65 6d 0d 73 |DeleteMe|nuItem.s|
|000001e0| 79 73 63 61 6c 6c 20 49 | 6e 73 65 72 74 4d 65 6e |yscall I|nsertMen|
|000001f0| 75 0d 73 79 73 63 61 6c | 6c 20 49 6e 73 65 72 74 |u.syscal|l Insert|
|00000200| 52 65 73 4d 65 6e 75 0d | 73 79 73 63 61 6c 6c 20 |ResMenu.|syscall |
|00000210| 41 70 70 65 6e 64 4d 65 | 6e 75 0d 73 79 73 63 61 |AppendMe|nu.sysca|
|00000220| 6c 6c 20 41 70 70 65 6e | 64 52 65 73 4d 65 6e 75 |ll Appen|dResMenu|
|00000230| 0d 73 79 73 63 61 6c 6c | 20 43 68 65 63 6b 49 74 |.syscall| CheckIt|
|00000240| 65 6d 0d 73 79 73 63 61 | 6c 6c 20 4f 70 65 6e 44 |em.sysca|ll OpenD|
|00000250| 65 73 6b 41 63 63 0d 73 | 79 73 63 61 6c 6c 20 53 |eskAcc.s|yscall S|
|00000260| 79 73 74 65 6d 45 64 69 | 74 0d 73 79 73 63 61 6c |ystemEdi|t.syscal|
|00000270| 6c 20 52 65 6c 65 61 73 | 65 52 65 73 6f 75 72 63 |l Releas|eResourc|
|00000280| 65 0d 0d 0d 66 72 6f 6d | 20 20 4d 45 4e 55 4d 4f |e...from|  MENUMO|
|00000290| 44 20 20 69 6d 70 6f 72 | 74 7b 20 20 4d 45 4e 55 |D  impor|t{  MENU|
|000002a0| 20 20 41 50 50 4c 45 4d | 45 4e 55 20 20 45 44 49 |  APPLEM|ENU  EDI|
|000002b0| 54 4d 45 4e 55 20 20 7d | 0d 0d 63 6f 6d 70 69 6c |TMENU  }|..compil|
|000002c0| 65 3a 20 6d 65 6e 75 4d | 6f 64 0d 6c 6f 63 6b 3a |e: menuM|od.lock:|
|000002d0| 20 6d 65 6e 75 4d 6f 64 | 0d 74 72 75 65 20 73 65 | menuMod|.true se|
|000002e0| 74 49 6e 73 74 61 6c 6c | 3a 20 4d 65 6e 75 4d 6f |tInstall|: MenuMo|
|000002f0| 64 0d 0d 0d 3a 20 44 4f | 44 53 4b 09 09 5c 20 28 |d...: DO|DSK..\ (|
|00000300| 20 69 74 65 6d 23 20 2d | 2d 20 29 20 20 45 78 65 | item# -|- )  Exe|
|00000310| 63 75 74 65 73 20 74 68 | 65 20 64 65 73 6b 20 61 |cutes th|e desk a|
|00000320| 63 63 65 73 73 6f 72 79 | 20 66 6f 72 20 61 6e 20 |ccessory| for an |
|00000330| 69 74 65 6d 2e 0d 09 09 | 09 5c 20 20 4e 6f 74 65 |item....|.\  Note|
|00000340| 20 77 65 20 63 61 6e 20 | 73 65 6e 64 20 61 20 6c | we can |send a l|
|00000350| 61 74 65 2d 62 6f 75 6e | 64 20 6d 73 67 20 74 6f |ate-boun|d msg to|
|00000360| 20 73 65 6c 66 20 65 76 | 65 6e 20 74 68 6f 75 67 | self ev|en thoug|
|00000370| 68 20 77 65 27 72 65 0d | 09 09 09 5c 20 20 6e 6f |h we're.|...\  no|
|00000380| 74 20 6c 65 78 69 63 61 | 6c 6c 79 20 69 6e 20 61 |t lexica|lly in a|
|00000390| 20 63 6c 61 73 73 2c 20 | 73 69 6e 63 65 20 74 68 | class, |since th|
|000003a0| 69 73 20 77 6f 72 64 20 | 77 69 6c 6c 20 6f 6e 6c |is word |will onl|
|000003b0| 79 20 62 65 20 63 61 6c | 6c 65 64 0d 09 09 09 5c |y be cal|led....\|
|000003c0| 20 20 66 72 6f 6d 20 61 | 20 6d 65 74 68 6f 64 2e |  from a| method.|
|000003d0| 0d 0d 09 6f 70 65 6e 44 | 65 73 6b 3a 20 5b 73 65 |...openD|esk: [se|
|000003e0| 6c 66 5d 20 20 3b 0d 0d | 0d 3a 20 4d 53 45 4c 45 |lf]  ;..|.: MSELE|
|000003f0| 43 54 09 5c 20 28 20 70 | 6f 69 6e 74 20 2d 2d 20 |CT.\ ( p|oint -- |
|00000400| 69 74 65 6d 23 20 6d 65 | 6e 75 49 44 20 29 20 20 |item# me|nuID )  |
|00000410| 20 43 61 6c 6c 73 20 6d | 65 6e 75 20 6d 61 6e 61 | Calls m|enu mana|
|00000420| 67 65 72 20 74 6f 20 74 | 72 61 63 6b 20 61 20 6d |ger to t|rack a m|
|00000430| 65 6e 75 20 73 65 6c 65 | 63 74 69 6f 6e 0d 09 4d |enu sele|ction..M|
|00000440| 65 6e 75 53 65 6c 65 63 | 74 20 20 75 6e 70 61 63 |enuSelec|t  unpac|
|00000450| 6b 20 73 77 61 70 20 31 | 2d 20 73 77 61 70 20 20 |k swap 1|- swap  |
|00000460| 3b 0d 0d 0d 3a 63 6c 61 | 73 73 09 4d 42 41 52 09 |;...:cla|ss.MBAR.|
|00000470| 09 73 75 70 65 72 7b 20 | 6f 62 6a 65 63 74 20 7d |.super{ |object }|
|00000480| 0d 0d 20 20 20 32 34 09 | 6f 72 64 65 72 65 64 2d |..   24.|ordered-|
|00000490| 63 6f 6c 09 49 44 73 0d | 20 20 20 32 34 09 61 72 |col.IDs.|   24.ar|
|000004a0| 72 61 79 09 09 4d 45 4e | 55 53 09 09 5c 20 61 72 |ray..MEN|US..\ ar|
|000004b0| 72 61 79 20 6f 66 20 6d | 65 6e 75 20 6f 62 6a 65 |ray of m|enu obje|
|000004c0| 63 74 73 0d 0d 3a 6d 20 | 44 52 41 57 3a 09 44 72 |cts..:m |DRAW:.Dr|
|000004d0| 61 77 4d 65 6e 75 42 61 | 72 20 20 3b 6d 0d 0d 3a |awMenuBa|r  ;m..:|
|000004e0| 6d 20 43 4c 45 41 52 3a | 09 43 6c 65 61 72 4d 65 |m CLEAR:|.ClearMe|
|000004f0| 6e 75 42 61 72 20 20 20 | 63 6c 65 61 72 3a 20 49 |nuBar   |clear: I|
|00000500| 44 73 20 20 3b 6d 0d 0d | 3a 6d 20 41 44 44 3a 09 |Ds  ;m..|:m ADD:.|
|00000510| 09 5c 20 28 20 6d 65 6e | 31 20 2e 2e 2e 20 6d 65 |.\ ( men|1 ... me|
|00000520| 6e 4e 20 4e 20 2d 2d 20 | 29 20 20 41 64 64 73 20 |nN N -- |)  Adds |
|00000530| 6d 65 6e 75 20 6f 62 6a | 65 63 74 73 20 74 6f 20 |menu obj|ects to |
|00000540| 74 68 65 20 4d 65 6e 75 | 42 61 72 20 6f 62 6a 65 |the Menu|Bar obje|
|00000550| 63 74 2e 0d 0d 09 30 20 | 44 4f 20 20 69 20 74 6f |ct....0 |DO  i to|
|00000560| 3a 20 6d 65 6e 75 73 20 | 20 69 20 61 74 3a 20 6d |: menus | i at: m|
|00000570| 65 6e 75 73 20 20 69 64 | 3a 20 5b 5d 20 20 61 64 |enus  id|: []  ad|
|00000580| 64 3a 20 69 64 73 20 20 | 4c 4f 4f 50 20 20 3b 6d |d: ids  |LOOP  ;m|
|00000590| 0d 0d 3a 6d 20 4e 45 57 | 3a 09 09 5c 20 49 6e 73 |..:m NEW|:..\ Ins|
|000005a0| 65 72 74 73 20 6d 65 6e | 75 73 20 69 6e 20 54 6f |erts men|us in To|
|000005b0| 6f 6c 62 6f 78 20 4d 65 | 6e 75 42 61 72 20 6c 69 |olbox Me|nuBar li|
|000005c0| 73 74 2e 0d 09 73 69 7a | 65 3a 20 49 44 73 20 20 |st...siz|e: IDs  |
|000005d0| 30 0d 09 44 4f 20 20 20 | 73 69 7a 65 3a 20 49 44 |0..DO   |size: ID|
|000005e0| 73 20 20 31 2d 20 69 20 | 2d 20 20 61 74 3a 20 6d |s  1- i |-  at: m|
|000005f0| 65 6e 75 73 20 20 69 6e | 73 65 72 74 3a 20 5b 5d |enus  in|sert: []|
|00000600| 20 20 20 4c 4f 4f 50 0d | 09 64 72 61 77 3a 20 73 |   LOOP.|.draw: s|
|00000610| 65 6c 66 20 20 3b 6d 0d | 0d 3a 6d 20 49 4e 49 54 |elf  ;m.|.:m INIT|
|00000620| 3a 09 09 5c 20 28 20 6d | 65 6e 31 20 2e 2e 2e 20 |:..\ ( m|en1 ... |
|00000630| 6d 65 6e 4e 20 4e 20 2d | 2d 20 29 0d 09 63 6c 65 |menN N -|- )..cle|
|00000640| 61 72 3a 20 73 65 6c 66 | 20 20 61 64 64 3a 20 73 |ar: self|  add: s|
|00000650| 65 6c 66 20 20 6e 65 77 | 3a 20 73 65 6c 66 20 20 |elf  new|: self  |
|00000660| 3b 6d 0d 0d 3a 6d 20 45 | 58 45 43 3a 09 5c 20 28 |;m..:m E|XEC:.\ (|
|00000670| 20 69 74 65 6d 23 20 4d | 65 6e 75 49 44 20 2d 2d | item# M|enuID --|
|00000680| 20 29 0d 09 64 75 70 20 | 30 3e 0d 09 49 46 09 09 | )..dup |0>..IF..|
|00000690| 69 6e 64 65 78 4f 66 3a | 20 49 44 73 20 20 49 46 |indexOf:| IDs  IF|
|000006a0| 20 20 61 74 3a 20 6d 65 | 6e 75 73 20 20 65 78 65 |  at: me|nus  exe|
|000006b0| 63 3a 20 5b 5d 20 20 54 | 48 45 4e 0d 09 45 4c 53 |c: []  T|HEN..ELS|
|000006c0| 45 09 32 64 72 6f 70 0d | 09 54 48 45 4e 20 20 3b |E.2drop.|.THEN  ;|
|000006d0| 6d 0d 0d 3a 6d 20 43 4c | 49 43 4b 3a 09 77 68 65 |m..:m CL|ICK:.whe|
|000006e0| 72 65 3a 20 66 65 76 65 | 6e 74 20 20 6d 53 65 6c |re: feve|nt  mSel|
|000006f0| 65 63 74 20 20 65 78 65 | 63 3a 20 73 65 6c 66 20 |ect  exe|c: self |
|00000700| 20 3b 6d 0d 0d 3a 6d 20 | 4b 45 59 3a 09 09 5c 20 | ;m..:m |KEY:..\ |
|00000710| 28 20 63 20 2d 2d 20 29 | 20 20 48 61 6e 64 6c 65 |( c -- )|  Handle|
|00000720| 73 20 61 20 70 6f 73 73 | 69 62 6c 65 20 6d 65 6e |s a poss|ible men|
|00000730| 75 20 6b 65 79 20 73 65 | 6c 65 63 74 69 6f 6e 0d |u key se|lection.|
|00000740| 09 4d 65 6e 75 4b 65 79 | 20 20 75 6e 70 61 63 6b |.MenuKey|  unpack|
|00000750| 20 20 73 77 61 70 20 31 | 2d 20 73 77 61 70 0d 09 |  swap 1|- swap..|
|00000760| 65 78 65 63 3a 20 73 65 | 6c 66 20 20 3b 6d 0d 09 |exec: se|lf  ;m..|
|00000770| 0d 3a 6d 20 45 4e 41 42 | 4c 45 3a 09 5c 20 45 6e |.:m ENAB|LE:.\ En|
|00000780| 61 62 6c 65 73 20 61 6c | 6c 20 6d 65 6e 75 73 20 |ables al|l menus |
|00000790| 69 6e 20 74 68 65 20 4d | 65 6e 75 20 42 61 72 0d |in the M|enu Bar.|
|000007a0| 09 73 69 7a 65 3a 20 49 | 44 73 20 20 30 0d 09 44 |.size: I|Ds  0..D|
|000007b0| 4f 20 20 69 20 20 61 74 | 3a 20 6d 65 6e 75 73 20 |O  i  at|: menus |
|000007c0| 20 68 61 6e 64 6c 65 3a | 20 5b 5d 20 20 30 20 20 | handle:| []  0  |
|000007d0| 45 6e 61 62 6c 65 49 74 | 65 6d 20 20 4c 4f 4f 50 |EnableIt|em  LOOP|
|000007e0| 0d 09 64 72 61 77 3a 20 | 73 65 6c 66 20 20 3b 6d |..draw: |self  ;m|
|000007f0| 0d 0d 3a 6d 20 44 49 53 | 41 42 4c 45 3a 0d 09 73 |..:m DIS|ABLE:..s|
|00000800| 69 7a 65 3a 20 49 44 73 | 20 20 30 0d 09 44 4f 20 |ize: IDs|  0..DO |
|00000810| 20 69 20 20 61 74 3a 20 | 6d 65 6e 75 73 20 20 68 | i  at: |menus  h|
|00000820| 61 6e 64 6c 65 3a 20 5b | 5d 20 20 30 20 20 44 69 |andle: [|]  0  Di|
|00000830| 73 61 62 6c 65 49 74 65 | 6d 20 20 4c 4f 4f 50 0d |sableIte|m  LOOP.|
|00000840| 09 64 72 61 77 3a 20 73 | 65 6c 66 20 20 3b 6d 0d |.draw: s|elf  ;m.|
|00000850| 0d 3b 63 6c 61 73 73 0d | 0d 0d 6d 42 61 72 09 4d |.;class.|..mBar.M|
|00000860| 45 4e 55 42 41 52 09 09 | 09 09 5c 20 4f 75 72 20 |ENUBAR..|..\ Our |
|00000870| 64 65 66 61 75 6c 74 20 | 6d 65 6e 75 20 62 61 72 |default |menu bar|
|00000880| 0d 0d 6d 65 6e 75 62 61 | 72 20 20 70 75 74 3a 20 |..menuba|r  put: |
|00000890| 4d 42 61 64 64 72 09 09 | 5c 20 53 65 74 20 61 73 |MBaddr..|\ Set as|
|000008a0| 20 63 75 72 72 65 6e 74 | 20 6d 65 6e 75 20 62 61 | current| menu ba|
|000008b0| 72 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |r.......|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 01 00 00 00 01 42 | 00 00 00 42 00 00 00 3b |.......B|...B...;|
|00000910| 00 00 01 a8 06 73 61 72 | 72 61 79 b4 02 00 00 00 |.....sar|ray.....|
|00000920| 54 45 58 54 4d 41 43 41 | 01 00 00 00 00 80 00 00 |TEXTMACA|........|
|00000930| 04 4d 65 6e 75 46 02 00 | 00 00 50 61 72 74 53 49 |.MenuF..|..PartSI|
|00000940| 54 21 00 00 00 00 00 00 | 00 00 00 01 82 53 00 00 |T!......|.....S..|
|00000950| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 b3 66 c2 7a 00 00 | 00 00 00 00 01 7d 00 00 |...f.z..|.....}..|
|00000980| 00 00 0e 00 00 00 01 a8 | 08 73 61 76 65 64 6c 67 |........|.savedlg|
|00000990| 31 00 02 00 00 00 54 45 | 58 54 4d 41 43 41 01 00 |1.....TE|XTMACA..|
|000009a0| 00 00 00 00 00 00 00 00 | 01 e7 00 00 00 00 09 4b |........|.......K|
|000009b0| 00 00 0a 00 00 00 00 00 | 02 3e 00 00 04 00 a3 79 |........|.>.....y|
|000009c0| 8f a5 a3 7c 1e 84 00 00 | 00 00 00 00 00 00 00 00 |...|....|........|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 38 df 00 05 |........|....8...|
|000009e0| 00 00 00 00 00 00 00 00 | 38 e4 00 02 00 00 00 00 |........|8.......|
|000009f0| 00 00 00 00 00 00 00 00 | 06 00 00 00 01 a9 00 45 |........|.......E|
|00000a00| 00 00 00 3e 00 00 00 00 | 00 00 00 00 00 00 00 00 |...>....|........|
|00000a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 03 5e |........|.......^|
|00000a30| 00 00 03 5e 00 00 00 00 | 00 00 00 00 00 00 00 00 |...^....|........|
|00000a40| 00 00 00 00 01 00 00 00 | 01 42 00 00 00 42 00 00 |........|.B...B..|
|00000a50| 00 3b 02 90 84 a8 1a 14 | 00 00 00 1c 00 32 00 00 |.;......|.....2..|
|00000a60| 4d 49 46 4f 00 00 00 0a | 00 80 00 00 00 00 00 00 |MIFO....|........|
|00000a70| 02 90 8b e4 08 4d 69 73 | 63 49 6e 66 6f 00 00 00 |.....Mis|cInfo...|
+--------+-------------------------+-------------------------+--------+--------+