Retro68/LaunchAPPL/Server/LaunchAPPLServer.r

/*
	Copyright 2019 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"
#include "Dialogs.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;
        "Shared Files", 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;
        "-", noIcon, noKey, noMark, plain;
        "Choose Shared Directory...", 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)...";
        "Waiting for shared files...";
        "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) {
	reserved,
	acceptSuspendResumeEvents,
	reserved,
	canBackground,
	multiFinderAware,
	backgroundAndForeground,
	dontGetFrontClicks,
	ignoreChildDiedEvents,
	is32BitCompatible,
	isHighLevelEventAware,
	onlyLocalHLEvents,
	notStationeryAware,
	dontUseTextEditServices,
	notDisplayManagerAware,
	reserved,
	reserved,
	500 * 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
        }
    }
};

resource 'DLOG' (128, purgeable)
{
	{0, 0, 225, 348},
	dBoxProc,
	invisible,
	noGoAway,
	0x0,
	128,
	"",
	noAutoCenter
};

resource 'DITL' (128, purgeable)
{
	{
		/* [1] */
		{138, 256, 156, 336},
		Button { enabled, "Open" },
		/* [2] */
		{1152, 59, 1232, 77},
		Button { enabled, "" },
		/* [3] */
		{188, 256, 206, 336},
		Button { enabled, "Cancel" },
		/* [4] */
		{39, 232, 59, 347},
		UserItem { disabled },
		/* [5] */
		{68, 256, 86, 336},
		Button { enabled, "Eject" },
		/* [6] */
		{93, 256, 111, 336},
		Button { enabled, "Drive" },
		/* [7] */
		{39, 12, 210, 230},
		UserItem { enabled },
		/* [8] */
		{39, 229, 210, 246},
		UserItem { enabled },
		/* [9] */
		{124, 252, 125, 340},
		UserItem { disabled },
		/* [10] */
		{1044, 20, 1145, 116},
		StaticText { disabled, "" },
		/* [11] */
        {163, 256, 181, 336},
		Button { enabled, "Choose" }
	}
};

resource 'DLOG' (129, purgeable)
{
    {0, 0, 200, 344}, dBoxProc, invisible, noGoAway, 0,
    129, "", noAutoCenter
};
resource 'DITL'(129)
{
    {
        {169, 252, 189, 332}, Button { enabled, "Open" },
        {107, 252, 127, 332}, Button { enabled, "Cancel" },
        {0, 0, 0, 0}, HelpItem { disabled, HMScanhdlg {-6042}},
        {8, 235, 24, 337}, UserItem { enabled },
        {32, 252, 52, 332}, Button { enabled, "Eject" },
        {60, 252, 80, 332}, Button { enabled, "Desktop" },
        {29, 12, 193, 230}, UserItem { enabled },
        {6, 12, 25, 230}, UserItem { enabled },
        {93, 251, 94, 333}, Picture  { disabled, 11 },
        {138, 252, 158, 332}, Button { enabled, "Choose" },
    }
};