NetDisk/cdev.rez

#include "types.rez"

resource rVersion (1) {
    { 1,0,0,beta,1 },
    verUS,
    "NetDisk",
    "By Stephen Heumann"
};

resource rComment (1) {
    "The NetDisk control panel allows you to mount disk images "
    "hosted on HTTP servers.\n"
    "\n"
    "Copyright 2018 Stephen Heumann\n"
    "\n"
    "This program contains material from the ORCA/C Run-Time Libraries, "
    "copyright 1987-1996 by Byte Works, Inc. Used with permission."
};

resource rCDEVFlags (1) {
    wantMachine+wantHit+wantClose+wantEdit+wantCreate,
    1,                          /* enabled */
    1,                          /* version */
    1,                          /* min ROM version */
    0,                          /* reserved */
    {0, 0, 55, 320},            /* rectangle */
    "NetDisk",                  /* name */
    "Stephen Heumann",          /* author */
    "v1.0a1"                    /* version string */
};

read rCDevCode (0x1,convert,locked) "cdev.obj";

resource rIcon (1) {
    0x8000,                     /* color icon */
    20,                         /* dimensions */
    28,
    //TODO change icon
    $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
    $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
    $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
    $"F00000000FFFFFFFFFFFFFFFFFFF"
    $"F0DDDDDD0FFFFFFFFFFFFFFFFFFF"
    $"F0DDDDDD04FFFFFFFF4FFFFFFFFF"
    $"F0DDDDDD04FFFFFFFF4F0FF000FF"
    $"F0DDDDDD444FFFFF0444A0F0DD0F"
    $"F0000000444FFFF0E4440A00DD0F"
    $"FF0FFFF4F4F4FFF04E404AA0DD0F"
    $"F000000404F4FFF04E404A00DD0F"
    $"F0F4FF4F04FF4F04004004000000"
    $"F000040004FFF44303433343330F"
    $"4444444444444444444444444444"
    $"3333333334333333334333333333"
    $"4444444444444444444444444444"
    $"FFFFFFFFF4FFFFFFFF4FFFFFFFFF"
    $"FFFFFFFFF4FFFFFFFF4FFFFFFFFF"
    $"FFFFFFFFF4FFFFFFFF4FFFFFFFFF"
    $"FFFFFFFFF4FFFFFFFF4FFFFFFFFF",

    $"0000000000000000000000000000"
    $"0000000000000000000000000000"
    $"0000000000000000000000000000"
    $"0FFFFFFFF0000000000000000000"
    $"0FFFFFFFF0000000000000000000"
    $"0FFFFFFFFF00000000F000000000"
    $"0FFFFFFFFF00000000F0F00FFF00"
    $"0FFFFFFFFFF00000FFFFFF0FFFF0"
    $"0FFFFFFFFFF0000FFFFFFFFFFFF0"
    $"00FFFFFF0F0F000FFFFFFFFFFFF0"
    $"0FFFFFFFFF0F000FFFFFFFFFFFF0"
    $"0FFFFFFFFF00F0FFFFFFFFFFFFFF"
    $"0FFFFFFFFF000FFFFFFFFFFFFFF0"
    $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
    $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
    $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
    $"000000000F00000000F000000000"
    $"000000000F00000000F000000000"
    $"000000000F00000000F000000000"
    $"000000000F00000000F000000000"
};

#define cdevWindow          1000
#define helpWindow          2000

#define imageURLTxt         2
#define urlLine             3
#define mountBtn            1
//#define optionsPopUp      6
//#define trianglePic       7

#define helpTxt             5


/*
 * Controls in the control panel window (for 640 mode or 320 mode)
 */
resource rControlList (640) {
    {
        cdevWindow+imageURLTxt,
        cdevWindow+urlLine,
        cdevWindow+mountBtn,
        //cdevWindow+trianglePic,
        //cdevWindow+optionsPopUp
    };
};

resource rControlList (320) {
    {
        cdevWindow+imageURLTxt,
        cdevWindow+urlLine,
        cdevWindow+mountBtn,
        //cdevWindow+trianglePic+320,
        //cdevWindow+optionsPopUp+320
    };
};

resource rControlTemplate (cdevWindow+imageURLTxt) {
    imageURLTxt,                            /* control ID */
    {4, 10, 15, 270},                       /* control rect */
    statTextControl {{
        fBlastText,                         /* flags */
        $1000+RefIsResource,                /* moreFlags */
        0,                                  /* refCon */
        cdevWindow+imageURLTxt              /* title ref */
    }};
};

resource rTextForLETextBox2 (cdevWindow+imageURLTxt) {
    "Disk Image URL:"
};

resource rControlTemplate (cdevWindow+urlLine) {
    urlLine,
    {15, 10, 28, 310},
    editLineControl {{
        0,
        $7000+RefIsResource,
        0,
        255,                                /* max size */
        cdevWindow+urlLine                  /* text ref */
    }};
};

resource rPString (cdevWindow+urlLine) { "http://" };

resource rControlTemplate (cdevWindow+mountBtn) {
    mountBtn,
    {35, 156, 0, 0},
    SimpleButtonControl {{
        DefaultButton,
        $3000+RefIsResource,
        0,
        cdevWindow+mountBtn,
        0,                                  /* color table ref */
        {"\$0D","\$0D",0,0}                 /* key equivalent = Return */
    }};
};

resource rPString(cdevWindow+mountBtn) { "Mount Disk Image" };

#if 0
/* Options menu pop-up -- separate versions for 640 mode and 320 mode */
resource rControlTemplate (cdevWindow+optionsPopUp) {
    optionsPopUp,
    {5, 282, 13, 310 },
    PopUpControl {{
        fDontDrawTitle+fDontDrawResult,
        fCtlProcNotPtr+RefIsResource/*+fDrawPopDownIcon*/,
        0,
        0,
        optionsMenu,                        /* menu ref */
        afpOverTCPOptionsItem,              /* initial value */
        0
    }};
};

resource rControlTemplate (cdevWindow+optionsPopUp+ 320) {
    optionsPopUp,
    {5, 296, 13, 310 },
    PopUpControl {{
        fDontDrawTitle+fDontDrawResult,
        fCtlProcNotPtr+RefIsResource/*+fDrawPopDownIcon*/,
        0,
        0,
        optionsMenu,                        /* menu ref */
        afpOverTCPOptionsItem,              /* initial value */
        0
    }};
};

/* Triangle to draw on options pop-up */
resource rControlTemplate (cdevWindow+trianglePic) {
    trianglePic,
    {7, 286, 11, 302},
    PictureControl {{
        CtlInactive,
        fCtlProcNotPtr+RefIsResource,
        0,
        trianglePic                         /* picture reference */
    }};
};

resource rControlTemplate (cdevWindow+trianglePic+320) {
    trianglePic,
    {7, 298, 0, 0},
    PictureControl {{
        CtlInactive,
        fCtlProcNotPtr+RefIsResource,
        0,
        trianglePic                         /* picture reference */
    }};
};

data rPicture (trianglePic) {
    $"8000 0000 0000 0400 1000 1182 0100 0A00"
    $"01C0 01C0 FF3F FF3F 9000 8000 0000 0400"
    $"0000 0000 0400 1000 0000 0000 0400 1000"
    $"0000 0000 0400 1000 0000 0000 0000 F000"
    $"000F FF00 00FF FFF0 0FFF"
};

resource rMenu (optionsMenu) {
    optionsMenu,                            /* menu ID */
    refIsResource*menuTitleRefShift + refIsResource*itemRefShift,
    optionsMenu,                            /* menu title ref (not drawn) */
    {
        //items go here
    };
};
resource rPString(optionsMenu,noCrossBank) { "" };
#endif

/*
 * Controls in the help window
 */
resource rControlList (2) {
    {
        helpWindow+helpTxt
    };
};

resource rControlTemplate (helpWindow+helpTxt) {
    helpTxt,
    {38, 5, 138, 280},
    statTextControl {{
        0,                                  /* flags */
        $1000+RefIsResource,                /* moreFlags */
        0,                                  /* refCon */
        helpWindow+helpTxt                  /* title ref */
    }};
};

resource rTextForLETextBox2 (helpWindow+helpTxt) {
    "The NetDisk control panel allows you to mount disk images "
    "hosted on HTTP servers.\n"
};