Retro68/LaunchAPPL/Server/LaunchAPPLServer.r

/*
	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"
#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;
    "Connection";
    {
        "MacTCP", noIcon, noKey, noMark, plain;
        "OpenTransport TCP", noIcon, noKey, noMark, plain;
        "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") {
    {0, 0, 242, 320}, noGrowDocProc;
    invisible;
    goAway;
    0, "About LaunchAPPLServer";
    noAutoCenter;
};

resource 'WIND' (129, "Main") {
    {50, 10, 200, 400}, noGrowDocProc;
    invisible;
    noGoAway;
    0, "Retro68 Application Launching Server";
    centerMainScreen;
};

resource 'STR#' (128, purgeable) {
    {
        "Listening on Modem Port...";
        "Listening on Printer Port...";
        "Listening on TCP port 1984 (MacTCP)...";
        "Listening on TCP port 1984 (OpenTransport)...";
        "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,
	isHighLevelEventAware,
	onlyLocalHLEvents,
	notStationeryAware,
	dontUseTextEditServices,
	notDisplayManagerAware,
	reserved,
	reserved,
	350 * 1024,
	136 * 1024
};

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
        }
    }
};