mirror of
https://github.com/sheumann/DiskBrowser.git
synced 2024-06-07 04:29:29 +00:00
15931f20a2
This provides a less flickery display, and arguably cleaner code. The outlines should perfectly match the look of the stock "default" buttons, although obviously this wouldn't work right if their design was ever changed.
159 lines
4.5 KiB
Plaintext
159 lines
4.5 KiB
Plaintext
#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 rWindParam1 (winDiskBrowser) {
|
|
fTitle+fClose+fFlex+fMove+fVis, /* wFrameBits */
|
|
nil, /* wTitle */
|
|
0, /* wRefCon */
|
|
{0,0,0,0}, /* ZoomRect */
|
|
nil, /* 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 */
|
|
$0009 /* wInVerb */
|
|
};
|
|
|
|
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, 410}, /* control rect */
|
|
ListControl {{
|
|
$0007, /* flags */
|
|
$1400, /* more flags */
|
|
0, /* refcon */
|
|
0, /* list size */
|
|
10, /* List View */
|
|
$0000, /* List Type */
|
|
0, /* List Start */
|
|
10, /* ListMemHeight */
|
|
9, /* 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
|
|
|
|
resource rAlertString (searchErrorAlert) {
|
|
"52/"
|
|
"There was an error when searching for disks. (error code *0)"
|
|
"/^#0\$00"
|
|
};
|