| / Garbo
/ Garbo.cdr / mac / source / menustuf.sit / DemoteMenu.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:06:00 1989, creator 'MPS ', type ASCII, 1455 bytes "DemoteMenu.p" , at 0x62f 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 0c 44 65 6d 6f 74 65 | 4d 65 6e 75 2e 70 00 00 |..Demote|Menu.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 af 00 | 00 01 7e 9f 8f 94 62 9f |........|..~...b.|
|00000060| fb 71 98 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.q......|........|
|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 | 44 65 6d 6f 74 65 4d 65 |Program |DemoteMe|
|00000090| 6e 75 3b 0d 7b 0d 09 54 | 68 69 73 20 70 72 6f 67 |nu;.{..T|his prog|
|000000a0| 72 61 6d 20 69 73 20 61 | 6e 20 4d 50 57 20 74 6f |ram is a|n MPW to|
|000000b0| 6f 6c 20 77 68 69 63 68 | 20 72 65 6d 6f 76 65 73 |ol which| removes|
|000000c0| 20 61 20 6d 65 6e 75 20 | 66 72 6f 6d 20 74 68 65 | a menu |from the|
|000000d0| 20 6d 65 6e 75 20 62 61 | 72 20 61 6e 64 0d 09 6d | menu ba|r and..m|
|000000e0| 6f 76 65 73 20 69 74 20 | 69 6e 74 6f 20 74 68 65 |oves it |into the|
|000000f0| 20 68 69 65 72 61 72 63 | 68 69 63 61 6c 20 6d 65 | hierarc|hical me|
|00000100| 6e 75 20 6c 69 73 74 2e | 20 43 61 6c 6c 20 69 74 |nu list.| Call it|
|00000110| 20 66 72 6f 6d 20 74 68 | 65 20 4d 50 57 20 53 68 | from th|e MPW Sh|
|00000120| 65 6c 6c 0d 09 61 73 20 | 66 6f 6c 6c 6f 77 73 3a |ell..as |follows:|
|00000130| 0d 0d 09 09 44 65 6d 6f | 74 65 4d 65 6e 75 20 5b |....Demo|teMenu [|
|00000140| 6d 65 6e 75 4e 61 6d 65 | 5d 0d 0d 09 77 68 65 72 |menuName|]...wher|
|00000150| 65 20 6d 65 6e 75 4e 61 | 6d 65 20 69 73 20 74 68 |e menuNa|me is th|
|00000160| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 6d 65 |e name o|f the me|
|00000170| 6e 75 20 74 6f 20 62 65 | 20 64 65 6d 6f 74 65 64 |nu to be| demoted|
|00000180| 2e 20 49 66 20 74 68 65 | 20 61 72 67 75 6d 65 6e |. If the| argumen|
|00000190| 74 0d 09 69 73 20 6f 6d | 69 74 74 65 64 2c 20 61 |t..is om|itted, a|
|000001a0| 20 6c 69 73 74 20 6f 66 | 20 74 68 65 20 6e 61 6d | list of| the nam|
|000001b0| 65 73 20 6f 66 20 61 6c | 6c 20 63 75 72 72 65 6e |es of al|l curren|
|000001c0| 74 6c 79 2d 64 65 6d 6f | 74 65 64 20 6d 65 6e 75 |tly-demo|ted menu|
|000001d0| 73 20 69 73 0d 09 77 72 | 69 74 74 65 6e 20 74 6f |s is..wr|itten to|
|000001e0| 20 74 68 65 20 73 74 61 | 6e 64 61 72 64 20 6f 75 | the sta|ndard ou|
|000001f0| 74 70 75 74 2c 20 61 73 | 20 61 20 6c 69 73 74 20 |tput, as| a list |
|00000200| 6f 66 20 44 65 6d 6f 74 | 65 4d 65 6e 75 20 63 6f |of Demot|eMenu co|
|00000210| 6d 6d 61 6e 64 73 2e 0d | 0d 09 46 69 72 73 74 20 |mmands..|..First |
|00000220| 77 6f 72 6b 69 6e 67 20 | 76 65 72 73 69 6f 6e 20 |working |version |
|00000230| 62 79 20 4c 44 4f 20 31 | 39 38 39 20 4a 61 6e 75 |by LDO 1|989 Janu|
|00000240| 61 72 79 20 34 2e 0d 09 | 4d 6f 64 69 66 69 65 64 |ary 4...|Modified|
|00000250| 20 31 39 38 39 20 4a 61 | 6e 75 61 72 79 20 36 20 | 1989 Ja|nuary 6 |
|00000260| 74 6f 20 61 64 64 20 6c | 69 73 74 69 6e 67 20 66 |to add l|isting f|
|00000270| 75 6e 63 74 69 6f 6e 2e | 0d 09 4d 6f 64 69 66 69 |unction.|..Modifi|
|00000280| 65 64 20 31 39 38 39 20 | 4a 61 6e 75 61 72 79 20 |ed 1989 |January |
|00000290| 39 20 74 6f 20 75 73 65 | 20 6e 69 63 65 72 20 71 |9 to use| nicer q|
|000002a0| 75 6f 74 69 6e 67 20 66 | 75 6e 63 74 69 6f 6e 2e |uoting f|unction.|
|000002b0| 0d 7d 0d 0d 09 55 73 65 | 73 0d 09 09 4d 65 6d 54 |.}...Use|s...MemT|
|000002c0| 79 70 65 73 2c 0d 09 09 | 51 75 69 63 6b 44 72 61 |ypes,...|QuickDra|
|000002d0| 77 2c 0d 09 09 4f 53 49 | 6e 74 66 2c 0d 09 09 54 |w,...OSI|ntf,...T|
|000002e0| 6f 6f 6c 49 6e 74 66 2c | 0d 09 09 49 6e 74 45 6e |oolIntf,|...IntEn|
|000002f0| 76 2c 0d 09 09 4d 65 6e | 75 53 74 75 66 66 43 6f |v,...Men|uStuffCo|
|00000300| 6d 6d 6f 6e 3b 0d 0d 09 | 56 61 72 0d 09 09 54 68 |mmon;...|Var...Th|
|00000310| 65 4d 65 6e 75 20 3a 20 | 4d 65 6e 75 48 61 6e 64 |eMenu : |MenuHand|
|00000320| 6c 65 3b 0d 09 09 49 74 | 65 6d 4e 6f 20 3a 20 4c |le;...It|emNo : L|
|00000330| 6f 6e 67 49 6e 74 3b 0d | 0d 09 50 72 6f 63 65 64 |ongInt;.|..Proced|
|00000340| 75 72 65 20 4c 69 73 74 | 44 65 6d 6f 74 65 64 0d |ure List|Demoted.|
|00000350| 09 20 20 28 0d 09 09 54 | 68 69 73 4d 65 6e 75 20 |. (...T|hisMenu |
|00000360| 3a 20 4d 65 6e 75 48 61 | 6e 64 6c 65 3b 0d 09 09 |: MenuHa|ndle;...|
|00000370| 76 61 72 20 4b 65 65 70 | 47 6f 69 6e 67 20 3a 20 |var Keep|Going : |
|00000380| 42 6f 6f 6c 65 61 6e 3b | 0d 09 09 49 67 6e 6f 72 |Boolean;|...Ignor|
|00000390| 65 64 20 3a 20 75 6e 69 | 76 20 4c 6f 6e 67 49 6e |ed : uni|v LongIn|
|000003a0| 74 0d 09 20 20 29 3b 0d | 09 20 20 7b 20 68 61 6e |t.. );.|. { han|
|000003b0| 64 6c 65 72 20 77 68 69 | 63 68 20 67 65 6e 65 72 |dler whi|ch gener|
|000003c0| 61 74 65 73 20 74 68 65 | 20 6c 69 73 74 20 6f 66 |ates the| list of|
|000003d0| 20 64 65 6d 6f 74 65 64 | 20 6d 65 6e 75 73 2e 20 | demoted| menus. |
|000003e0| 7d 0d 0d 09 09 56 61 72 | 0d 09 09 09 54 68 69 73 |}....Var|....This|
|000003f0| 4d 65 6e 75 4e 61 6d 65 | 20 3a 20 53 74 72 32 35 |MenuName| : Str25|
|00000400| 35 3b 0d 0d 09 20 20 42 | 65 67 69 6e 0d 09 09 54 |5;... B|egin...T|
|00000410| 68 69 73 4d 65 6e 75 4e | 61 6d 65 20 3a 3d 20 54 |hisMenuN|ame := T|
|00000420| 68 69 73 4d 65 6e 75 5e | 5e 2e 4d 65 6e 75 44 61 |hisMenu^|^.MenuDa|
|00000430| 74 61 3b 0d 09 09 57 72 | 69 74 65 6c 6e 28 4f 75 |ta;...Wr|iteln(Ou|
|00000440| 74 70 75 74 2c 20 41 72 | 67 56 5e 5b 30 5d 5e 2c |tput, Ar|gV^[0]^,|
|00000450| 20 27 20 27 2c 20 51 75 | 6f 74 65 28 54 68 69 73 | ' ', Qu|ote(This|
|00000460| 4d 65 6e 75 4e 61 6d 65 | 29 29 0d 09 20 20 45 6e |MenuName|)).. En|
|00000470| 64 20 7b 4c 69 73 74 44 | 65 6d 6f 74 65 64 7d 3b |d {ListD|emoted};|
|00000480| 0d 0d 20 20 42 65 67 69 | 6e 20 7b 44 65 6d 6f 74 |.. Begi|n {Demot|
|00000490| 65 4d 65 6e 75 7d 0d 09 | 49 6e 69 74 47 72 61 66 |eMenu}..|InitGraf|
|000004a0| 28 40 54 68 65 50 6f 72 | 74 29 3b 0d 09 49 66 20 |(@ThePor|t);..If |
|000004b0| 41 72 67 43 20 3e 20 31 | 20 74 68 65 6e 0d 09 20 |ArgC > 1| then.. |
|000004c0| 20 42 65 67 69 6e 0d 09 | 09 54 68 65 4d 65 6e 75 | Begin..|.TheMenu|
|000004d0| 20 3a 3d 20 46 69 6e 64 | 4d 65 6e 75 28 41 72 67 | := Find|Menu(Arg|
|000004e0| 56 5e 5b 31 5d 5e 29 3b | 0d 09 09 49 66 20 54 68 |V^[1]^);|...If Th|
|000004f0| 65 4d 65 6e 75 20 3c 3e | 20 4e 69 6c 20 74 68 65 |eMenu <>| Nil the|
|00000500| 6e 0d 09 09 20 20 42 65 | 67 69 6e 0d 09 09 09 44 |n... Be|gin....D|
|00000510| 65 6c 65 74 65 4d 65 6e | 75 28 54 68 65 4d 65 6e |eleteMen|u(TheMen|
|00000520| 75 5e 5e 2e 4d 65 6e 75 | 49 44 29 3b 0d 09 09 09 |u^^.Menu|ID);....|
|00000530| 49 6e 73 65 72 74 4d 65 | 6e 75 28 54 68 65 4d 65 |InsertMe|nu(TheMe|
|00000540| 6e 75 2c 20 48 69 65 72 | 4d 65 6e 75 29 3b 0d 09 |nu, Hier|Menu);..|
|00000550| 09 09 44 72 61 77 4d 65 | 6e 75 42 61 72 0d 09 09 |..DrawMe|nuBar...|
|00000560| 20 20 45 6e 64 0d 09 09 | 65 6c 73 65 0d 09 09 20 | End...|else... |
|00000570| 20 42 65 67 69 6e 0d 09 | 09 09 57 72 69 74 65 6c | Begin..|..Writel|
|00000580| 6e 28 44 69 61 67 6e 6f | 73 74 69 63 2c 20 27 23 |n(Diagno|stic, '#|
|00000590| 23 23 20 27 2c 20 41 72 | 67 56 5e 5b 30 5d 5e 2c |## ', Ar|gV^[0]^,|
|000005a0| 20 27 20 2d 20 74 6f 70 | 2d 6c 65 76 65 6c 20 6d | ' - top|-level m|
|000005b0| 65 6e 75 20 22 27 2c 20 | 41 72 67 56 5e 5b 31 5d |enu "', |ArgV^[1]|
|000005c0| 5e 2c 20 27 22 20 6e 6f | 74 20 66 6f 75 6e 64 27 |^, '" no|t found'|
|000005d0| 29 3b 0d 09 09 09 49 45 | 45 78 69 74 28 32 29 0d |);....IE|Exit(2).|
|000005e0| 09 09 20 20 45 6e 64 0d | 09 20 20 45 6e 64 0d 09 |.. End.|. End..|
|000005f0| 65 6c 73 65 0d 09 09 54 | 72 61 76 65 72 73 65 53 |else...T|raverseS|
|00000600| 75 62 4d 65 6e 75 73 28 | 40 4c 69 73 74 44 65 6d |ubMenus(|@ListDem|
|00000610| 6f 74 65 64 2c 20 4e 69 | 6c 29 0d 20 20 45 6e 64 |oted, Ni|l). End|
|00000620| 20 7b 44 65 6d 6f 74 65 | 4d 65 6e 75 7d 2e 0d 00 | {Demote|Menu}...|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|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| 0c 44 65 6d 6f 74 65 4d | 65 6e 75 2e 70 4d 02 00 |.DemoteM|enu.pM..|
|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 81 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 6b 00 0c 01 d5 |ackInt..|...k....|
|000007b0| 02 50 00 6b 00 0c 01 d5 | 02 50 9f fb 71 98 00 00 |.P.k....|.P..q...|
|000007c0| 02 69 00 00 02 69 00 00 | 03 b4 01 00 00 00 01 00 |.i...i..|........|
|000007d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 07 7d 10 |...L...L|...2..}.|
|000007e0| 03 50 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.P.....2|..MPSR..|
|000007f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 08 7c b0 00 00 |........|....|...|
+--------+-------------------------+-------------------------+--------+--------+