#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 /* This should be kept in sync with version.h. */ resource rVersion (1) { { 1,0,0, /* Version number */ release, 0, /* 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 #define marinettiVersionWarning 3002 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" }; resource rAlertString (marinettiVersionWarning) { "84:" "NetDisk and the Archive.org Disk Browser are designed for use with " "Marinetti 3.0b11 or later. You are currently using an older version of " "Marinetti. You can try to use NetDisk with your current Marinetti " "version, but you may experience I/O errors or other problems. " "To ensure proper operation, please upgrade Marinetti." ":^#6\$00" };