DiskBrowser/diskbrowser.rez

#include "types.rez"

#define winDiskBrowser 1001

#define searchLine 1002
#define searchButton 1003
#define findDisksForText 1004
#define forIIGSRadio 1005
#define forAnyAppleIIRadio 1006
#define disksList 1007
#define mountDiskButton 1008

resource rVersion (1) {
    {
        1,0,0,                          /* Version number */
        beta, 1,                        /* Release version */
    },
    verUS,                              /* Region code */
    "Archive.org Disk Browser",         /* Title */
    "By Stephen Heumann"
};

resource rWindParam1 (winDiskBrowser) {
    fTitle+fClose+fFlex+fMove+fVis,     /* wFrameBits */
    winDiskBrowser,                     /* wTitle */
    0,                                  /* wRefCon */
    {0,0,0,0},                          /* ZoomRect */
    winDiskBrowser,                     /* wColor ID */
    {0,0},                              /* Origin */
    {0,0},                              /* data size */
    {0,0},                              /* max height-width */
    {0,0},                              /* scroll vertical, horizontal */
    {0,0},                              /* page vertical, horizontal */
    0,                                  /* wInfoRefCon */
    0,                                  /* wInfoHeight */
    {27,5,198,425},                     /* wPosition */
    infront,                            /* wPlane */
    winDiskBrowser,                     /* wStorage */
    $0A09                               /* wInVerb */
};

resource rPString(winDiskBrowser) { "  Archive.org Disk Browser  " };

resource rWindColor (winDiskBrowser) {
    0x0000,                             /* frameColor */
    0x0F00,                             /* titleColor */
    0x020F,                             /* tbarColor */
    0xF0F0,                             /* growColor */
    0x00F0                              /* infoColor */
};

resource rControlList (winDiskBrowser) {{
    mountDiskButton,
    disksList,
    findDisksForText,
    forIIGSRadio,
    forAnyAppleIIRadio,
    searchLine,
    searchButton
}};

resource rControlTemplate (searchLine) {
    searchLine,
    {8, 10, 26, 300},
    editLineControl {{
        0,
        $7000+RefIsResource,
        0,
        255,                            /* max size */
        searchLine                      /* text ref */
    }};
};

resource rPString (searchLine) { "" };


resource rControlTemplate (searchButton) {
    searchButton,
    {10, 309, 24, 410},
    SimpleButtonControl {{
        0,
        $3000+RefIsResource,
        0,
        searchButton,
        0,                              /* color table ref */
        {"\$0D","\$0D",0,0}             /* key equivalent = Return */
    }};
};

resource rPString(searchButton) { "Find Disks" };


resource rControlTemplate (findDisksForText) {
    findDisksForText,                    /* control ID */
    {30, 9, 42, 118},                   /* control rect */
    statTextControl {{
        fBlastText,                     /* flags */
        $1000+RefIsResource,            /* moreFlags */
        0,                              /* refCon */
        findDisksForText                 /* title ref */
    }};
};

resource rTextForLETextBox2 (findDisksForText) {
    "Find disks for:"
};

resource rControlTemplate (forIIGSRadio) {
    forIIGSRadio,
    {30,120,0,0},
    RadioControl {{
        $0002,
        $1002,
        0,
        forIIGSRadio,                   /* Title ref */
        1                               /* initial value */
    }};
};
resource rPString (forIIgsRadio) {"Apple IIGS"};

resource rControlTemplate (forAnyAppleIIRadio) {
    forAnyAppleIIRadio,
    {30,235,0,0},
    RadioControl {{
        $0002,
        $1002,
        0,
        forAnyAppleIIRadio,             /* Title ref */
        0                               /* initial value */
    }};
};
resource rPString (forAnyAppleIIRadio) {"Any Apple II"};

resource rControlTemplate (disksList) {
    disksList,                          /* control ID */
    {45, 10, 147, 386},                 /* control rect */
    ListControl {{
        $0000,                          /* flags */
        $1400,                          /* more flags */
        0,                              /* refcon */
        0,                              /* list size */
        10,                              /* List View */
        $0003,                          /* List Type */
        0,                              /* List Start */
        10,                             /* ListMemHeight */
        13,                             /* List Mem Size */
        0,                              /* List Ref */
        0                               /* Color Ref */
    }};
};

resource rControlTemplate (mountDiskButton) {
    mountDiskButton,
    {152, 305, 166, 410},
    SimpleButtonControl {{
        0,
        $1000+RefIsResource,
        0,
        mountDiskButton,
        0,                              /* color table ref */
        {"\$0D","\$0D",0,0}             /* key equivalent */
    }};
};

resource rPString(mountDiskButton) { "Mount Disk" };


/*
 * Error messages
 */

#define searchErrorAlert 3000
#define mountErrorAlert 3001

resource rAlertString (searchErrorAlert) {
    "72/"
    "There was an error when searching for disks.\n"
    "\n"
    "*0"
    "/^#0\$00"
};

resource rAlertString (mountErrorAlert) {
    "72/"
    "There was an error when trying to mount a disk.\n"
    "\n"
    "*0"
    "/^#0\$00"
};