| / Garbo
/ Garbo.cdr / mac / source / menustuf.sit / PromoteMenu.p.bin
| < prev | next > |
| MacBinary | 1990-04-16 | 2.0 KB | [TEXT/MPS ] |
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text| Confidence | Program | Detection | Match Type | Support |
|---|---|---|---|---|
| 66% | dexvert | AMOS Picture Packer (image/amosPicturePacker) | ext | Supported |
| 1% | dexvert | Debian floppy split (archive/debianFloppySplit) | ext | Unsupported |
| 1% | dexvert | Sound Images sound sample (audio/soundImagesSoundSample) | ext | Unsupported |
| 1% | dexvert | DESI-III drawing (image/desiIIIDrawing) | ext | Unsupported |
| 1% | dexvert | MS-DOS PMODE extender executable (executable/msdosPMODEExtenderExecutable) | ext | Unsupported |
| 1% | dexvert | Alien Trilogytextures (other/alienTrilogyTextures) | ext | Unsupported |
| 1% | dexvert | APT cache data (other/aptCacheData) | ext | Unsupported |
| 1% | dexvert | CorelTRACE configuration (other/corelTRACEConfiguration) | ext | Unsupported |
| 1% | dexvert | Dreamcast Disc (other/dreamcastDisc) | ext | Unsupported |
| 1% | dexvert | EST flat binary (other/estFlatBinary) | ext | Unsupported |
| 1% | dexvert | Finale Enigma Binary Format (other/finaleEnigmaBinaryFormat) | ext | Unsupported |
| 1% | dexvert | Sega Genesis/Megadrive/32x ROM (other/genesisROM) | ext | Unsupported |
| 1% | dexvert | Myth: The Fallen Lords game archive (other/mythTheFallenLordsGameArchive) | ext | Unsupported |
| 1% | dexvert | Sound Images Sound Driver (other/soundImagesSoundDriver) | ext | Unsupported |
| 1% | dexvert | Symantec/Norton Config (other/symantecNortonConfig) | ext | Unsupported |
| 1% | dexvert | Vectrex ROM (other/vectrexROM) | ext | Unsupported |
| 1% | dexvert | BIS raP encoded format (other/bisraPEncoded) | ext | Unsupported |
| 1% | dexvert | Pascal Script binary (other/pascalScriptBinary) | ext | Unsupported |
| 1% | dexvert | 7th Level game data archive (other/seventhLevelGameDataArchive) | ext | Unsupported |
| 1% | dexvert | MacBinary (archive/macBinary) | fallback | Supported |
| 1% | dexvert | Text File (text/txt) | fallback | Supported |
| 100% | file | MacBinary, Sat Oct 29 11:29:38 1988, modified Thu Jan 19 06:09:24 1989, creator 'MPS ', type ASCII, 1471 bytes "PromoteMenu.p" , at 0x63f 382 bytes resource | default (weak) | |
| 99% | file | data | default | |
| 74% | TrID | Macintosh plain text (MacBinary) | default | |
| 25% | TrID | MacBinary 1 | default (weak) | |
| 100% | lsar | MacBinary | default | |
| 100% | gt2 | MAC Bilddatei | default (weak) |
| id metadata | |
|---|---|
| key | value |
| macFileType | [TEXT] |
| macFileCreator | [MPS ] |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 50 72 6f 6d 6f 74 | 65 4d 65 6e 75 2e 70 00 |..Promot|eMenu.p.|
|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 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 05 bf 00 | 00 01 7e 9f 8f 94 62 9f |........|..~...b.|
|00000060| fb 72 64 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.rd.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 50 72 6f 67 72 61 6d 20 | 50 72 6f 6d 6f 74 65 4d |Program |PromoteM|
|00000090| 65 6e 75 3b 0d 7b 0d 09 | 54 68 69 73 20 70 72 6f |enu;.{..|This pro|
|000000a0| 67 72 61 6d 20 69 73 20 | 61 6e 20 4d 50 57 20 74 |gram is |an MPW t|
|000000b0| 6f 6f 6c 20 77 68 69 63 | 68 20 72 65 6d 6f 76 65 |ool whic|h remove|
|000000c0| 73 20 61 20 6d 65 6e 75 | 20 66 72 6f 6d 20 74 68 |s a menu| from th|
|000000d0| 65 20 68 69 65 72 61 72 | 63 68 69 63 61 6c 0d 09 |e hierar|chical..|
|000000e0| 70 6f 72 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 6d |portion |of the m|
|000000f0| 65 6e 75 20 6c 69 73 74 | 20 61 6e 64 20 61 64 64 |enu list| and add|
|00000100| 73 20 69 74 20 6f 6e 74 | 6f 20 74 68 65 20 65 6e |s it ont|o the en|
|00000110| 64 20 6f 66 20 74 68 65 | 20 6d 65 6e 75 20 62 61 |d of the| menu ba|
|00000120| 72 2e 0d 09 43 61 6c 6c | 20 69 74 20 66 72 6f 6d |r...Call| it from|
|00000130| 20 74 68 65 20 4d 50 57 | 20 53 68 65 6c 6c 20 61 | the MPW| Shell a|
|00000140| 73 20 66 6f 6c 6c 6f 77 | 73 3a 0d 0d 09 09 50 72 |s follow|s:....Pr|
|00000150| 6f 6d 6f 74 65 4d 65 6e | 75 20 5b 6d 65 6e 75 4e |omoteMen|u [menuN|
|00000160| 61 6d 65 5d 0d 0d 09 77 | 68 65 72 65 20 6d 65 6e |ame]...w|here men|
|00000170| 75 4e 61 6d 65 20 69 73 | 20 74 68 65 20 6e 61 6d |uName is| the nam|
|00000180| 65 20 6f 66 20 74 68 65 | 20 6d 65 6e 75 20 74 6f |e of the| menu to|
|00000190| 20 62 65 20 70 72 6f 6d | 6f 74 65 64 2e 20 49 66 | be prom|oted. If|
|000001a0| 20 74 68 65 20 61 72 67 | 75 6d 65 6e 74 0d 09 69 | the arg|ument..i|
|000001b0| 73 20 6f 6d 69 74 74 65 | 64 2c 20 61 20 6c 69 73 |s omitte|d, a lis|
|000001c0| 74 20 6f 66 20 61 6c 6c | 20 74 68 65 20 63 75 72 |t of all| the cur|
|000001d0| 72 65 6e 74 20 74 6f 70 | 2d 6c 65 76 65 6c 20 6d |rent top|-level m|
|000001e0| 65 6e 75 73 20 69 73 20 | 77 72 69 74 74 65 6e 20 |enus is |written |
|000001f0| 74 6f 0d 09 74 68 65 20 | 73 74 61 6e 64 61 72 64 |to..the |standard|
|00000200| 20 6f 75 74 70 75 74 2c | 20 61 73 20 61 20 73 65 | output,| as a se|
|00000210| 71 75 65 6e 63 65 20 6f | 66 20 50 72 6f 6d 6f 74 |quence o|f Promot|
|00000220| 65 4d 65 6e 75 20 63 6f | 6d 6d 61 6e 64 73 2e 0d |eMenu co|mmands..|
|00000230| 0d 09 46 69 72 73 74 20 | 77 6f 72 6b 69 6e 67 20 |..First |working |
|00000240| 76 65 72 73 69 6f 6e 20 | 62 79 20 4c 44 4f 20 31 |version |by LDO 1|
|00000250| 39 38 39 20 4a 61 6e 75 | 61 72 79 20 34 2e 0d 09 |989 Janu|ary 4...|
|00000260| 4d 6f 64 69 66 69 65 64 | 20 31 39 38 39 20 4a 61 |Modified| 1989 Ja|
|00000270| 6e 75 61 72 79 20 36 20 | 74 6f 20 61 64 64 20 6c |nuary 6 |to add l|
|00000280| 69 73 74 69 6e 67 20 66 | 75 6e 63 74 69 6f 6e 2e |isting f|unction.|
|00000290| 0d 09 4d 6f 64 69 66 69 | 65 64 20 31 39 38 39 20 |..Modifi|ed 1989 |
|000002a0| 4a 61 6e 75 61 72 79 20 | 39 20 74 6f 20 75 73 65 |January |9 to use|
|000002b0| 20 6e 69 63 65 72 20 71 | 75 6f 74 69 6e 67 20 66 | nicer q|uoting f|
|000002c0| 75 6e 63 74 69 6f 6e 2e | 0d 7d 0d 0d 09 55 73 65 |unction.|.}...Use|
|000002d0| 73 0d 09 09 4d 65 6d 54 | 79 70 65 73 2c 0d 09 09 |s...MemT|ypes,...|
|000002e0| 51 75 69 63 6b 44 72 61 | 77 2c 0d 09 09 4f 53 49 |QuickDra|w,...OSI|
|000002f0| 6e 74 66 2c 0d 09 09 54 | 6f 6f 6c 49 6e 74 66 2c |ntf,...T|oolIntf,|
|00000300| 0d 09 09 49 6e 74 45 6e | 76 2c 0d 09 09 4d 65 6e |...IntEn|v,...Men|
|00000310| 75 53 74 75 66 66 43 6f | 6d 6d 6f 6e 3b 0d 0d 09 |uStuffCo|mmon;...|
|00000320| 56 61 72 0d 09 09 54 68 | 65 4d 65 6e 75 20 3a 20 |Var...Th|eMenu : |
|00000330| 4d 65 6e 75 48 61 6e 64 | 6c 65 3b 0d 09 09 49 74 |MenuHand|le;...It|
|00000340| 65 6d 4e 6f 20 3a 20 4c | 6f 6e 67 49 6e 74 3b 0d |emNo : L|ongInt;.|
|00000350| 0d 09 50 72 6f 63 65 64 | 75 72 65 20 4c 69 73 74 |..Proced|ure List|
|00000360| 54 6f 70 4c 65 76 65 6c | 0d 09 20 20 28 0d 09 09 |TopLevel|.. (...|
|00000370| 54 68 69 73 4d 65 6e 75 | 20 3a 20 4d 65 6e 75 48 |ThisMenu| : MenuH|
|00000380| 61 6e 64 6c 65 3b 0d 09 | 09 76 61 72 20 4b 65 65 |andle;..|.var Kee|
|00000390| 70 47 6f 69 6e 67 20 3a | 20 42 6f 6f 6c 65 61 6e |pGoing :| Boolean|
|000003a0| 3b 0d 09 09 49 67 6e 6f | 72 65 64 20 3a 20 75 6e |;...Igno|red : un|
|000003b0| 69 76 20 4c 6f 6e 67 49 | 6e 74 0d 09 20 20 29 3b |iv LongI|nt.. );|
|000003c0| 0d 09 20 20 7b 20 68 61 | 6e 64 6c 65 72 20 77 68 |.. { ha|ndler wh|
|000003d0| 69 63 68 20 67 65 6e 65 | 72 61 74 65 73 20 74 68 |ich gene|rates th|
|000003e0| 65 20 6c 69 73 74 20 6f | 66 20 70 72 6f 6d 6f 74 |e list o|f promot|
|000003f0| 65 64 20 6d 65 6e 75 73 | 2e 20 7d 0d 0d 09 09 56 |ed menus|. }....V|
|00000400| 61 72 0d 09 09 09 54 68 | 69 73 4d 65 6e 75 4e 61 |ar....Th|isMenuNa|
|00000410| 6d 65 20 3a 20 53 74 72 | 32 35 35 3b 0d 0d 09 20 |me : Str|255;... |
|00000420| 20 42 65 67 69 6e 0d 09 | 09 54 68 69 73 4d 65 6e | Begin..|.ThisMen|
|00000430| 75 4e 61 6d 65 20 3a 3d | 20 54 68 69 73 4d 65 6e |uName :=| ThisMen|
|00000440| 75 5e 5e 2e 4d 65 6e 75 | 44 61 74 61 3b 0d 09 09 |u^^.Menu|Data;...|
|00000450| 57 72 69 74 65 6c 6e 28 | 4f 75 74 70 75 74 2c 20 |Writeln(|Output, |
|00000460| 41 72 67 56 5e 5b 30 5d | 5e 2c 20 27 20 27 2c 20 |ArgV^[0]|^, ' ', |
|00000470| 51 75 6f 74 65 28 54 68 | 69 73 4d 65 6e 75 4e 61 |Quote(Th|isMenuNa|
|00000480| 6d 65 29 29 0d 09 20 20 | 45 6e 64 20 7b 4c 69 73 |me)).. |End {Lis|
|00000490| 74 54 6f 70 4c 65 76 65 | 6c 7d 3b 0d 0d 20 20 42 |tTopLeve|l};.. B|
|000004a0| 65 67 69 6e 20 7b 50 72 | 6f 6d 6f 74 65 4d 65 6e |egin {Pr|omoteMen|
|000004b0| 75 7d 0d 09 49 6e 69 74 | 47 72 61 66 28 40 54 68 |u}..Init|Graf(@Th|
|000004c0| 65 50 6f 72 74 29 3b 0d | 09 49 66 20 41 72 67 43 |ePort);.|.If ArgC|
|000004d0| 20 3e 20 31 20 74 68 65 | 6e 0d 09 20 20 42 65 67 | > 1 the|n.. Beg|
|000004e0| 69 6e 0d 09 09 54 68 65 | 4d 65 6e 75 20 3a 3d 20 |in...The|Menu := |
|000004f0| 46 69 6e 64 53 75 62 4d | 65 6e 75 28 41 72 67 56 |FindSubM|enu(ArgV|
|00000500| 5e 5b 31 5d 5e 29 3b 0d | 09 09 49 66 20 54 68 65 |^[1]^);.|..If The|
|00000510| 4d 65 6e 75 20 3c 3e 20 | 4e 69 6c 20 74 68 65 6e |Menu <> |Nil then|
|00000520| 0d 09 09 20 20 42 65 67 | 69 6e 0d 09 09 09 44 65 |... Beg|in....De|
|00000530| 6c 65 74 65 4d 65 6e 75 | 28 54 68 65 4d 65 6e 75 |leteMenu|(TheMenu|
|00000540| 5e 5e 2e 4d 65 6e 75 49 | 44 29 3b 0d 09 09 09 49 |^^.MenuI|D);....I|
|00000550| 6e 73 65 72 74 4d 65 6e | 75 28 54 68 65 4d 65 6e |nsertMen|u(TheMen|
|00000560| 75 2c 20 30 29 3b 0d 09 | 09 09 44 72 61 77 4d 65 |u, 0);..|..DrawMe|
|00000570| 6e 75 42 61 72 0d 09 09 | 20 20 45 6e 64 0d 09 09 |nuBar...| End...|
|00000580| 65 6c 73 65 0d 09 09 20 | 20 42 65 67 69 6e 0d 09 |else... | Begin..|
|00000590| 09 09 57 72 69 74 65 6c | 6e 28 44 69 61 67 6e 6f |..Writel|n(Diagno|
|000005a0| 73 74 69 63 2c 20 27 23 | 23 23 20 27 2c 20 41 72 |stic, '#|## ', Ar|
|000005b0| 67 56 5e 5b 30 5d 5e 2c | 20 27 20 2d 20 73 75 62 |gV^[0]^,| ' - sub|
|000005c0| 6d 65 6e 75 20 22 27 2c | 20 41 72 67 56 5e 5b 31 |menu "',| ArgV^[1|
|000005d0| 5d 5e 2c 20 27 22 20 6e | 6f 74 20 66 6f 75 6e 64 |]^, '" n|ot found|
|000005e0| 27 29 3b 0d 09 09 09 49 | 45 45 78 69 74 28 32 29 |');....I|EExit(2)|
|000005f0| 0d 09 09 20 20 45 6e 64 | 0d 09 20 20 45 6e 64 0d |... End|.. End.|
|00000600| 09 65 6c 73 65 0d 09 09 | 54 72 61 76 65 72 73 65 |.else...|Traverse|
|00000610| 4d 65 6e 75 73 28 40 4c | 69 73 74 54 6f 70 4c 65 |Menus(@L|istTopLe|
|00000620| 76 65 6c 2c 20 4e 69 6c | 29 0d 20 20 45 6e 64 20 |vel, Nil|). End |
|00000630| 7b 50 72 6f 6d 6f 74 65 | 4d 65 6e 75 7d 2e 0d 00 |{Promote|Menu}...|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000690| 0d 0d 20 20 20 20 55 73 | 65 73 0d 09 4d 65 6d 54 |.. Us|es..MemT|
|000006a0| 79 70 65 73 2c 0d 09 51 | 75 69 63 6b 44 72 61 77 |ypes,..Q|uickDraw|
|000006b0| 0d 50 72 6f 6d 6f 74 65 | 4d 65 6e 75 2e 70 02 00 |.Promote|Menu.p..|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 a2 46 60 8b 00 00 | 00 00 00 00 01 7e 64 20 |...F`...|.....~d |
|00000700| 7b 53 65 74 4d 65 6e 75 | 7d 2e 0d 6f 78 28 4d 79 |{SetMenu|}..ox(My|
|00000710| 53 74 6f 72 61 67 65 29 | 3b 0d 09 09 53 65 74 53 |Storage)|;...SetS|
|00000720| 65 6c 65 63 74 28 4d 79 | 53 74 6f 72 61 67 65 2c |elect(My|Storage,|
|00000730| 20 30 29 3b 0d 09 09 4d | 79 57 69 6e 64 6f 77 5e | 0);...M|yWindow^|
|00000740| 2e 57 69 6e 64 6f 77 4b | 69 6e 64 20 3a 3d 20 4d |.WindowK|ind := M|
|00000750| 79 44 43 45 2e 44 43 74 | 6c 52 65 66 4e 75 6d 3b |yDCE.DCt|lRefNum;|
|00000760| 0d 09 09 53 68 6f 77 57 | 69 6e 64 6f 77 28 57 69 |...ShowW|indow(Wi|
|00000770| 6e 64 6f 77 50 74 72 28 | 4d 79 57 69 6e 64 6f 77 |ndowPtr(|MyWindow|
|00000780| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 49 6e 74 |...H..Mo|naco.Int|
|00000790| 66 2c 0d 09 54 6f 6f 6c | 49 6e 74 66 2c 0d 09 50 |f,..Tool|Intf,..P|
|000007a0| 61 63 6b 49 6e 74 00 06 | 00 04 00 56 00 14 01 c0 |ackInt..|...V....|
|000007b0| 02 58 00 56 00 14 01 c0 | 02 58 9f fb 72 64 00 00 |.X.V....|.X..rd..|
|000007c0| 02 81 00 00 02 81 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000007d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 07 7d 10 |...L...L|...2..}.|
|000007e0| 03 ae 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000007f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 08 7c a0 00 00 |........|....|...|
+--------+-------------------------+-------------------------+--------+--------+