mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-06-09 00:29:27 +00:00
285 lines
6.1 KiB
R
285 lines
6.1 KiB
R
/*------------------------------------------------------------------------------
|
||
#
|
||
# Apple Macintosh Developer Technical Support
|
||
#
|
||
# MultiFinder-Aware Simple Sample Application
|
||
#
|
||
# Sample
|
||
#
|
||
# Sample.r - Rez Source
|
||
#
|
||
# Copyright © Apple Computer, Inc. 1989-1990
|
||
# All rights reserved.
|
||
#
|
||
# Versions:
|
||
# 1.00 08/88
|
||
# 1.01 11/88
|
||
# 1.02 04/89 MPW 3.1
|
||
# 1.03 02/90 MPW 3.2
|
||
#
|
||
# Components:
|
||
# Sample.c Feb. 1, 1990
|
||
# Sample.r Feb. 1, 1990
|
||
# Sample.h Feb. 1, 1990
|
||
# Sample.make Feb. 1, 1990
|
||
#
|
||
# Sample is an example application that demonstrates how to
|
||
# initialize the commonly used toolbox managers, operate
|
||
# successfully under MultiFinder, handle desk accessories,
|
||
# and create, grow, and zoom windows.
|
||
#
|
||
# It does not by any means demonstrate all the techniques
|
||
# you need for a large application. In particular, Sample
|
||
# does not cover exception handling, multiple windows/documents,
|
||
# sophisticated memory management, printing, or undo. All of
|
||
# these are vital parts of a normal full-sized application.
|
||
#
|
||
# This application is an example of the form of a Macintosh
|
||
# application; it is NOT a template. It is NOT intended to be
|
||
# used as a foundation for the next world-class, best-selling,
|
||
# 600K application. A stick figure drawing of the human body may
|
||
# be a good example of the form for a painting, but that does not
|
||
# mean it should be used as the basis for the next Mona Lisa.
|
||
#
|
||
# We recommend that you review this program or TESample before
|
||
# beginning a new application.
|
||
------------------------------------------------------------------------------*/
|
||
|
||
|
||
#include "SysTypes.r"
|
||
#include "Types.r"
|
||
|
||
#include "Sample.h"
|
||
|
||
resource 'vers' (1) {
|
||
0x02, 0x00, release, 0x00,
|
||
verUS,
|
||
"1.03",
|
||
"1.03, Copyright \251 Apple Computer, Inc. 1989-1990"
|
||
};
|
||
|
||
|
||
/* this is a definition for a resource which contains only a rectangle */
|
||
|
||
type 'RECT' {
|
||
rect;
|
||
};
|
||
|
||
|
||
/* we use an MBAR resource to conveniently load all the menus */
|
||
|
||
resource 'MBAR' (rMenuBar, preload) {
|
||
{ mApple, mFile, mEdit, mLight }; /* four menus */
|
||
};
|
||
|
||
|
||
resource 'MENU' (mApple, preload) {
|
||
mApple, textMenuProc,
|
||
AllItems & ~MenuItem2, /* Disable dashed line, enable About and DAs */
|
||
enabled, apple,
|
||
{
|
||
"About Sample…",
|
||
noicon, nokey, nomark, plain;
|
||
"-",
|
||
noicon, nokey, nomark, plain
|
||
}
|
||
};
|
||
|
||
resource 'MENU' (mFile, preload) {
|
||
mFile, textMenuProc,
|
||
MenuItem12, /* enable Quit only, program enables others */
|
||
enabled, "File",
|
||
{
|
||
"New",
|
||
noicon, "N", nomark, plain;
|
||
"Open",
|
||
noicon, "O", nomark, plain;
|
||
"-",
|
||
noicon, nokey, nomark, plain;
|
||
"Close",
|
||
noicon, "W", nomark, plain;
|
||
"Save",
|
||
noicon, "S", nomark, plain;
|
||
"Save As…",
|
||
noicon, nokey, nomark, plain;
|
||
"Revert",
|
||
noicon, nokey, nomark, plain;
|
||
"-",
|
||
noicon, nokey, nomark, plain;
|
||
"Page Setup…",
|
||
noicon, nokey, nomark, plain;
|
||
"Print…",
|
||
noicon, nokey, nomark, plain;
|
||
"-",
|
||
noicon, nokey, nomark, plain;
|
||
"Quit",
|
||
noicon, "Q", nomark, plain
|
||
}
|
||
};
|
||
|
||
resource 'MENU' (mEdit, preload) {
|
||
mEdit, textMenuProc,
|
||
NoItems, /* disable everything, program does the enabling */
|
||
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, nokey, nomark, plain
|
||
}
|
||
};
|
||
|
||
resource 'MENU' (mLight, preload) {
|
||
mLight, textMenuProc,
|
||
NoItems, /* disable everything, program does the enabling */
|
||
enabled, "Traffic",
|
||
{
|
||
"Red Light",
|
||
noicon, nokey, nomark, plain;
|
||
"Green Light",
|
||
noicon, nokey, nomark, plain
|
||
}
|
||
};
|
||
|
||
|
||
/* this ALRT and DITL are used as an About screen */
|
||
|
||
resource 'ALRT' (rAboutAlert, purgeable) {
|
||
{40, 20, 160, 297},
|
||
rAboutAlert,
|
||
{ /* array: 4 elements */
|
||
/* [1] */
|
||
OK, visible, silent,
|
||
/* [2] */
|
||
OK, visible, silent,
|
||
/* [3] */
|
||
OK, visible, silent,
|
||
/* [4] */
|
||
OK, visible, silent
|
||
}
|
||
};
|
||
|
||
resource 'DITL' (rAboutAlert, purgeable) {
|
||
{ /* array DITLarray: 5 elements */
|
||
/* [1] */
|
||
{88, 185, 108, 265},
|
||
Button {
|
||
enabled,
|
||
"OK"
|
||
},
|
||
/* [2] */
|
||
{8, 8, 24, 214},
|
||
StaticText {
|
||
disabled,
|
||
"Simple Sample (Traffic Light)"
|
||
},
|
||
/* [3] */
|
||
{32, 8, 48, 296},
|
||
StaticText {
|
||
disabled,
|
||
"Copyright © Apple Computer 1989-1990"
|
||
},
|
||
/* [4] */
|
||
{56, 8, 72, 136},
|
||
StaticText {
|
||
disabled,
|
||
"Brought to you by:"
|
||
},
|
||
/* [5] */
|
||
{80, 24, 112, 167},
|
||
StaticText {
|
||
disabled,
|
||
"Macintosh Developer Technical Support"
|
||
}
|
||
}
|
||
};
|
||
|
||
|
||
/* this ALRT and DITL are used as an error screen */
|
||
|
||
resource 'ALRT' (rUserAlert, purgeable) {
|
||
{40, 20, 120, 260},
|
||
rUserAlert,
|
||
{ /* array: 4 elements */
|
||
/* [1] */
|
||
OK, visible, silent,
|
||
/* [2] */
|
||
OK, visible, silent,
|
||
/* [3] */
|
||
OK, visible, silent,
|
||
/* [4] */
|
||
OK, visible, silent
|
||
}
|
||
};
|
||
|
||
|
||
resource 'DITL' (rUserAlert, purgeable) {
|
||
{ /* array DITLarray: 3 elements */
|
||
/* [1] */
|
||
{50, 150, 70, 230},
|
||
Button {
|
||
enabled,
|
||
"OK"
|
||
},
|
||
/* [2] */
|
||
{10, 60, 30, 230},
|
||
StaticText {
|
||
disabled,
|
||
"Sample - Error occurred!"
|
||
},
|
||
/* [3] */
|
||
{8, 8, 40, 40},
|
||
Icon {
|
||
disabled,
|
||
2
|
||
}
|
||
}
|
||
};
|
||
|
||
|
||
resource 'WIND' (rWindow, preload, purgeable) {
|
||
{60, 40, 290, 160},
|
||
noGrowDocProc, visible, noGoAway, 0x0, "Traffic"
|
||
};
|
||
|
||
resource 'RECT' (rStopRect, preload, purgeable) {
|
||
{10, 10, 110, 110}
|
||
};
|
||
|
||
resource 'RECT' (rGoRect, preload, purgeable) {
|
||
{120, 10, 220, 110}
|
||
};
|
||
|
||
|
||
/* here is the quintessential MultiFinder friendliness device, the SIZE resource */
|
||
|
||
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! */
|
||
dontGetFrontClicks, /* 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,
|
||
kPrefSize * 1024,
|
||
kMinSize * 1024
|
||
};
|