Sample.r

/*------------------------------------------------------------------------------
 
      Sample.r  -  Resources for the Sample Application
 
      Copyright Apple Computer, Inc. 1985-1987
      All rights reserved.
 
------------------------------------------------------------------------------*/
 
#include "Types.r"
include "MenuDef.res";
 
/* These define's are used in the MENU resources to disable specific
   menu items. */
#define AllItems    0b1111111111111111111111111111111   /* 31 flags */
#define MenuItem1   0b00001
#define MenuItem2   0b00010
#define MenuItem3   0b00100
#define MenuItem4   0b01000
#define MenuItem5   0b10000
#define MenuItem6   0b100000
 
resource 'WIND' (128, "Sample Window") {
    {64, 60, 314, 460},
    documentProc, visible, noGoAway, 0x0, "Sample Window"
};
 
resource 'DLOG' (128, "About SampleÉ") {
    {66, 102, 224, 400},
    dBoxProc, visible, noGoAway, 0x0, 128, ""
};
 
resource 'DITL' (128) {
     {
/* 1 */ {130, 205, 150, 284},
        button {
            enabled,
            "Continue"
        };
/* 2 */ {104, 144, 120, 296},               /* SourceLanguage Item */
        staticText {
            disabled,
            ""
        };
/* 3 */ {88, 144, 105, 218},                /* Author Item */
        staticText {
            disabled,
            ""
        };
/* 4 */ {8, 32, 26, 273},
        staticText {
            disabled,
            "Macintosh Programmer's Workshop"
        };
/* 5 */ {32, 80, 50, 212},
        staticText {
            disabled,
            "Sample Application"
        };
/* 6 */ {56, 16, 74, 281},
        staticText {
            enabled, "Copyright © 1985-1987 Apple Computer"
        };
/* 7 */ {88, 16, 104, 144},
        staticText {
            enabled, "Source Language:"
        };
/* 8 */ {104, 16, 120, 144},
        staticText {
            enabled, "Brought to you by:"
        }
    }
};
 
resource 'MENU' (128, "Apple", preload) {
    128, textMenuProc,
    AllItems & ~MenuItem2,  /* Disable item #2 */
    enabled, apple,
    {
        "About SampleÉ",
            noicon, nokey, nomark, plain;
        "-",
            noicon, nokey, nomark, plain
    }
};
 
resource 'MENU' (129, "File", preload) {
    129, textMenuProc,
    allEnabled,
    enabled, "File",
    {
        "Quit",
            noicon, "Q", nomark, plain
    }
};
 
resource 'MENU' (126, "File", preload) {
    126, textMenuProc,
    allEnabled,
    enabled, "File",
    {
        "Quit",
            noicon, "Q", nomark, plain
    }
};
 
 
resource 'MENU' (130, "Edit", preload) {
    130, textMenuProc,
    AllItems & ~(MenuItem1 | MenuItem2 | MenuItem6),    /* Disable items #1 & #2 */
    enabled, "Edit",
     {
        "Undo",
            noicon, "Z", nomark, plain;
        "-",
            noicon, nokey, nomark, plain;
        "Cut",
            noicon, "X", nomark, plain;
        "Copy",
            noicon, "C", nomark, plain;
        "Paste",
            noicon, "V", nomark, plain;
        "Clear",
            noicon, hierarchicalMenu, "\0x7E", plain
    }
};
 
 
type 'PSMP' as 'STR ';
 
resource 'PSMP' (0) {
    "Sample Pascal Application - Version 2.0.2"
};
 
 
resource 'ICN#' (128) {
    {   /* array: 2 elements */
        /* [1] */
        $"0000 0000 0000 0000 0000 0000 0000 0000"
        $"0000 0000 07FF FF00 0600 0080 0500 0040"
        $"0480 0020 0440 0010 0420 0008 0410 0004"
        $"040F FFFE 0408 0002 0408 0002 0408 0002"
        $"0408 0002 0408 0002 0408 0002 0408 0002"
        $"0408 0002 0408 0002 0408 0002 0408 0002"
        $"0208 0002 0108 0002 0088 0002 0048 0002"
        $"0028 0002 0018 0002 000F FFFE",
        /* [2] */
        $"000F FFFC 001F FFF8 003F FFF0 007F FFE0"
        $"00FF FFC0 0600 0080 05FF FF80 0792 49C0"
        $"07C9 24E0 07E4 9270 07F2 4918 07FF FFFC"
        $"07FF FFFE 07FF FFFE 07FF FFFE 07FF FFFE"
        $"07FF FFFE 07FF FFFE 07FF FFFE 07FF FFFE"
        $"07FF FFFE 07FF FFFE 07FF FFFE 07FF FFFE"
        $"03FF FFFE 01FF FFFE 00FF FFFE 007F FFFE"
        $"003F FFFE 001F FFFE 000F FFFE"
    }
};
 
 
resource 'BNDL' (128) {
    'PSMP',
    0,
    {
        'ICN#',
        {
            0, 128
        },
        'FREF',
        {
            0, 128
        }
    }
};
 
 
resource 'FREF' (128) {
    'APPL',
    0,
    ""
};
 
resource 'MENU' (26, "Case") {
    26,
    128,
    0x7BF,
    enabled,
    " ",
    {   /* array: 4 elements */
        /* [1] */
        "Upper Case", noIcon, "U", noMark, plain,
        /* [2] */
        "Lower Case", noIcon, "L", noMark, plain,
        /* [3] */
        "Title", 1, "T", noMark, plain,
        /* [4] */
        "Small Caps", noIcon, "S", noMark, plain
    }
};
 
resource 'MENU' (27, "Case") {
    27,
    128,
    0x7BF,
    enabled,
    " ",
    {   /* array: 4 elements */
        /* [1] */
        "Upper Case", noIcon, noKey, noMark, plain,
        /* [2] */
        "Lower Case", noIcon, noKey, noMark, plain,
        /* [3] */
        "Title", noIcon, hierarchicalMenu, "\0x1A", plain,
        /* [4] */
        "Small Caps", noIcon, noKey, noMark, plain
    }
};
 
resource 'MENU' (28, "Case") {
    28,
    TextMenuProc,
    0x7BF,
    enabled,
    " ",
    {   /* array: 4 elements */
        /* [1] */
        "Upper Case", noIcon, noKey, noMark, plain,
        /* [2] */
        "Lower Case", noIcon, noKey, noMark, plain,
        /* [3] */
        "Title", noIcon, noKey, noMark, plain,
        /* [4] */
        "Small Caps", noIcon, noKey, noMark, plain
    }
};
 
resource 'MENU' (11, "Style") {
    11,
    128,
    0b1111111111111111111111111111111,
    enabled,
    "Style",
    {   /* array: 16 elements */
        "Superscript", noIcon, hierarchicalMenu, "\0x1A", plain,
        /* [11] */
        "Subscript", noIcon, hierarchicalMenu, "\0x1B", plain,
        /* [12] */
        "Make this sucker", noIcon, hierarchicalMenu, "\0x1C", plain
    }
};
 
resource 'SIZE' (-1) {
    dontSaveScreen,
    acceptSuspendResumeEvents,
    enableOptionSwitch,
    canBackground,              /* we can background; we don't currently, but our sleep value */
                                /* guarantees we don't hog the Mac while we are in the background */
    multiFinderAware,           /* this says we do our own activate/deactivate; don't fake us out */
    backgroundAndForeground,    /* this is definitely not a background-only application! */
    GetFrontClicks,         /* change this is if you want "do first click" behavior like the Finder */
    ignoreChildDiedEvents,      /* essentially, I'm not a debugger (sub-launching) */
    not32BitCompatible,         /* this app should not be run in 32-bit address space */
    reserved,
    reserved,
    reserved,
    reserved,
    reserved,
    reserved,
    reserved,
    300 * 1024,
    128 * 1024  
};


Copyright © 2003 Apple Computer, Inc. All Rights Reserved. Terms of Use | Privacy Policy | Updated: 2003-01-14