Retro68/LaunchAPPL/Server/LaunchAPPLServer.r

179 lines
4.2 KiB
R
Raw Normal View History

/*
Copyright 2018 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"
2018-05-06 00:02:29 +00:00
#include "Finder.r"
resource 'MENU' (128) {
128, textMenuProc;
allEnabled, enabled;
apple;
{
"About LaunchAPPLServer...", noIcon, noKey, noMark, plain;
"-", noIcon, noKey, noMark, plain;
}
};
resource 'MENU' (129) {
129, textMenuProc;
allEnabled, enabled;
"File";
{
"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 'MENU' (131) {
131, textMenuProc;
allEnabled, enabled;
2018-05-07 21:51:47 +00:00
"Connection";
{
"MacTCP", noIcon, noKey, noMark, plain;
"OpenTransport TCP", noIcon, noKey, noMark, plain;
2018-05-07 21:51:47 +00:00
"Modem Port", noIcon, noKey, noMark, plain;
"Printer Port", noIcon, noKey, noMark, plain;
"-", noIcon, noKey, noMark, plain;
"9600", noIcon, noKey, noMark, plain;
"19200", noIcon, noKey, check, plain;
"38400", noIcon, noKey, noMark, plain;
"57600", noIcon, noKey, noMark, plain;
"115200", noIcon, noKey, noMark, plain;
"230400", noIcon, noKey, noMark, plain;
}
};
resource 'MBAR' (128) {
{ 128, 129, 130, 131 };
};
data 'TEXT' (128, purgeable) {
"This application is the counterpart to Retro68's LaunchAPPL tool.\r"
"\r"
"It will listen via TCP or via serial port for applications sent by "
"the LaunchAPPL tool from a modern system and execute it on this Mac.\r"
"\r"
"Pick your connection type from the \"Connection\" menu. "
"Not all connection types are available on all Macs and system software versions."
};
resource 'WIND' (128, "About") {
2018-05-16 22:38:55 +00:00
{0, 0, 242, 320}, noGrowDocProc;
invisible;
goAway;
2018-05-16 22:38:55 +00:00
0, "About LaunchAPPLServer";
noAutoCenter;
};
resource 'WIND' (129, "Main") {
2018-04-26 22:29:33 +00:00
{50, 10, 200, 400}, noGrowDocProc;
visible;
noGoAway;
0, "Retro68 Application Launching Server";
centerMainScreen;
};
resource 'STR#' (128, purgeable) {
{
2018-04-26 22:29:33 +00:00
"Listening on Modem Port...";
"Listening on Printer Port...";
"Downloading Application...";
"Downloading Upgrade...";
"Running Application...";
"Sending Results...";
}
};
resource 'STR#' (129, purgeable) {
{
"Heap Size:", " KB";
"Free Memory:", " KB";
"File Size:", " KB";
"Transferred:", " KB";
"Speed:", " B/s";
"Time remaining:", " s";
"Transmission errors:", "";
}
};
resource 'SIZE' (-1) {
dontSaveScreen,
acceptSuspendResumeEvents,
enableOptionSwitch,
canBackground,
multiFinderAware,
backgroundAndForeground,
dontGetFrontClicks,
ignoreChildDiedEvents,
is32BitCompatible,
2018-05-05 21:59:38 +00:00
isHighLevelEventAware,
onlyLocalHLEvents,
notStationeryAware,
dontUseTextEditServices,
notDisplayManagerAware,
reserved,
reserved,
350 * 1024,
136 * 1024
};
2018-05-06 00:02:29 +00:00
type 'R68L' as 'STR ';
resource 'R68L' (0, purgeable) {
"LaunchAPPLServer (c) 2018"
};
resource 'FREF' (128, purgeable) {
'APPL',
0,
""
};
resource 'BNDL' (128, purgeable) {
'R68L',
0,
{
'ICN#', {
0, 128
},
'FREF', {
10, 128
}
}
};