Retro68/Samples/WDEF/wdefshell.r
2018-01-06 03:11:48 +01:00

133 lines
3.4 KiB
R

/*
Copyright 2017 Wolfgang Thaller.
This file is part of Retro68.
Retro68 is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
Retro68 is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with Retro68. If not, see <http://www.gnu.org/licenses/>.
*/
#include "Processes.r"
#include "Menus.r"
#include "Windows.r"
#include "MacTypes.r"
resource 'MENU' (128) {
128, textMenuProc;
allEnabled, enabled;
apple;
{
"About WDEF Shell...", noIcon, noKey, noMark, plain;
"-", noIcon, noKey, noMark, plain;
}
};
resource 'MENU' (129) {
129, textMenuProc;
allEnabled, enabled;
"File";
{
"New Document Window", noIcon, "N", noMark, plain;
"New Rounded Window", noIcon, "M", noMark, plain;
"New Custom Window (10-byte stub)", noIcon, "1", noMark, plain;
"New Custom Window (code resource)", noIcon, "2", noMark, plain;
"Close", noIcon, "W", noMark, plain;
"-", noIcon, noKey, noMark, plain;
"Quit", noIcon, "Q", noMark, plain;
}
};
resource 'MENU' (130) {
130, textMenuProc;
0, 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 'MBAR' (128) {
{ 128, 129, 130 };
};
resource 'STR#' (128) {
{
"Standard Document Window",
"Rounded Document Window",
"Custom Window (10-byte stub)",
"Custom Window (code resource)";
}
};
data 'TEXT' (128) {
"About WDEF Shell\r\r"
"A Sample program that tries to show both how to write a basic classic Mac application, "
"and how to write a custom window definition procedure (WDEF) using Retro68.\r"
"Other code resources (CDEF, MDEF, LDEF, ...) aren't that much different.\r"
"\r\rWritten in 2018, so everything here has been obsolete for two decades."
};
resource 'WIND' (128) {
{0, 0, 220, 320}, altDBoxProc;
invisible;
noGoAway;
0, "";
noAutoCenter;
};
/* The 10-byte code resource stub trick.
*
* The bytes in this resource are 68K machine code for
* move.l L1(pc), -(sp) | 2F3A 0004
* rts | 4E75
* L1: dc.l 0x00000000 | 0000 0000
*
* The application loads this resource and replaces the final four bytes
* with the address of the WDEF function in wdef.c, which is compiled as part
* of the application.
*/
data 'WDEF' (128) {
$"2F3A 0004 4E75 0000 0000"
};
resource 'SIZE' (-1) {
dontSaveScreen,
acceptSuspendResumeEvents,
enableOptionSwitch,
canBackground,
multiFinderAware,
backgroundAndForeground,
dontGetFrontClicks,
ignoreChildDiedEvents,
is32BitCompatible,
isHighLevelEventAware,
onlyLocalHLEvents,
notStationeryAware,
reserved,
reserved,
reserved,
reserved,
#ifdef TARGET_API_MAC_CARBON
500 * 1024, // Carbon apparently needs additional memory.
500 * 1024
#else
100 * 1024,
100 * 1024
#endif
};