/* --------------------------------------------------------------------------
Move a listbox item one position up.
- Parameters -------------------------------------------------------------
HWND hwnd : dialog window handle.
INT offset : if greater than 0 move the item downward otherwise move
the item upward.
- Return value -----------------------------------------------------------
VOID
-------------------------------------------------------------------------- */
VOID moveItem(HWND hwnd, INT offset) {
SHORT iMax, item;
ULONG handle;
CHAR buf[MAXSTRITEM];
hwnd = WinWindowFromID(hwnd, LB_STRINGS);
item = wLboxQuerySelItem(hwnd);
iMax = wLboxQueryItemCount(hwnd) - 1;
wLboxQueryItemText(hwnd, item, buf, MAXSTRITEM);
handle = wLboxQueryItemHnd(hwnd, item);
WinDeleteLboxItem(hwnd, item);
item = wLboxInsItem(hwnd, item + offset, buf);
if (item >= 0) wLboxSetItemHnd(hwnd, item, handle);
wLboxSelItem(hwnd, item);
}
static MRESULT EXPENTRY pm_drive(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
{
static int drive = 0;
switch (msg) {
case WM_INITDLG:
{
int val, i = 0;
HWND ihwnd = WinWindowFromID(hwnd, CBS_IMAGE);
while (i < 10 && ui_status.imageHist[i][0]) {
WinLboxInsertItem(ihwnd, ui_status.imageHist[i++]);
}
WinLboxInsertItem(ihwnd, "");
resources_get_int("DriveTrueEmulation", &val);
WinCheckButton(hwnd, CB_TRUEDRIVE, val);
WinCheckButton(hwnd, RB_DRIVE8|drive, 1);
WinSendMsg(hwnd, WM_SWITCH, (void*)drive, 0);
WinSendMsg(hwnd, WM_DRIVESTATE, (void*)ui_status.lastDriveState, NULL);
for (i = 0; i < 3; i++) {
WinSendMsg(hwnd, WM_TRACK, (void*)i, (void*)(int)(ui_status.lastTrack[i] * 2));
}
}
break;
case WM_COMMAND:
switch (LONGFROMMP(mp1)) {
case PB_CREATE:
create_dialog(hwnd);
return FALSE;
case PB_ATTACH:
ViceFileDialog(hwnd, 0x0100 | (drive + 1), FDS_OPEN_DIALOG);
return FALSE;
case PB_DETACH:
file_system_detach_disk(drive + 8);
return FALSE;
case PB_FLIPADD:
fliplist_add_image(drive + 8);
return FALSE;
case PB_FLIPREMOVE:
fliplist_remove(drive + 8, NULL);
return FALSE;
case PB_FLIP:
fliplist_attach_head(drive + 8, FLIP_NEXT);
return FALSE;
}
break;
case WM_CONTROL:
{
switch (SHORT1FROMMP(mp1)) {
case RB_DRIVE8:
case RB_DRIVE9:
case RB_DRIVE10:
case RB_DRIVE11:
WinSendMsg(hwnd, WM_SWITCH, (void*)(SHORT1FROMMP(mp1) & 0x3), 0);
break;
case CB_TRUEDRIVE:
toggle("DriveTrueEmulation");
WinSendMsg(hwnd, WM_SWITCH, (void*)drive, 0);
break;
case CB_CONVERTP00:
toggle_drive_res("FSDevice%dConvertP00", drive);//);
WinSendMsg(hwnd, WM_SWITCH, (void*)drive, 0);
break;
case CB_SAVEP00:
toggle_drive_res("FileDevice%dSaveP00", drive);
break;
case CB_ALLOWACCESS:
toggle_drive_res("FileSystemDevice%d", drive);
WinSendMsg(hwnd, WM_SWITCH, (void*)drive, 0);
break;
case CB_HIDENONP00:
toggle_drive_res("FSDevice%dHideCBMFiles", drive);
break;
case CB_MEM2000:
toggle_drive_res("Drive%dRAM2000", drive);
break;
case CB_MEM4000:
toggle_drive_res("Drive%dRAM4000", drive);
break;
case CB_MEM6000:
toggle_drive_res("Drive%dRAM6000", drive);
break;
case CB_MEM8000:
toggle_drive_res("Drive%dRAM8000", drive);
break;
case CB_MEMA000:
toggle_drive_res("Drive%dRAMA000", drive);
break;
case CB_READONLY:
toggle_drive_res("AttachDevice%dReadonly", drive);
break;
case CB_PARALLEL:
if (drive == 0 || drive == 1) {
toggle_drive_res("Drive%dParallelCable", drive);
}
break;
case RB_NEVER:
case RB_ASK:
case RB_ALWAYS:
if (drive == 0 || drive == 1) {
resources_set_int_sprintf("Drive%dExtendImagePolicy", (SHORT1FROMMP(mp1) & 0x3), drive + 8);
}
break;
case RB_NONE:
case RB_TRAP:
case RB_SKIP:
if (drive == 0 || drive == 1) {
resources_set_int_sprintf("Drive%dIdleMethod", (SHORT1FROMMP(mp1) & 0x3), drive + 8);
}
break;
case CBS_IMAGE:
if (SHORT2FROMMP(mp1) == CBN_ENTER) {
char psz[CCHMAXPATH];
WinLboxQuerySelectedItemText(hwnd, CBS_IMAGE, psz, CCHMAXPATH);
if (!strlen(psz)) {
file_system_detach_disk(drive + 8);
return FALSE;
}
if (file_system_attach_disk(drive + 8, psz)) {
WinMessageBox(HWND_DESKTOP, hwnd, "Cannot attach specified file.", "VICE/2 Error", 0, MB_OK);
}
}
return FALSE;
case CBS_PATH:
switch (SHORT2FROMMP(mp1)) {
case SPBN_CHANGE:
{
char path[255];
WinSendDlgMsg(hwnd, CBS_PATH, SPBM_QUERYVALUE, &path, 255);
if (!chdir(path)) {
resources_set_string_sprintf("FSDevice%dDir", path, drive + 8);
}
}
break;
case SPBN_KILLFOCUS:
{
const char *path;
resources_get_string_sprintf("FSDevice%dDir", &path, drive + 8);
WinSendDlgMsg(hwnd, CBS_PATH, SPBM_SETARRAY, &path, 1);
WinSetDlgSpinVal(hwnd, CBS_PATH, 0);
}
break;
}
return FALSE;
case CBS_TYPE:
if (SHORT2FROMMP(mp1) == CBN_ENTER && (drive == 0 || drive == 1)) {
const int nr = WinQueryLboxSelectedItem((HWND)mp2);
const int val = WinLboxItemHandle((HWND)mp2, nr);
resources_set_int_sprintf("Drive%dType", val, drive + 8);
}
return FALSE;
}
}
break;
case WM_DRIVEIMAGE:
{
HWND ihwnd = WinWindowFromID(hwnd, CBS_IMAGE);
const char *name = (char *)mp1;
int pos;
for (pos = 0; pos < 9; pos++) {
WinDeleteLboxItem(ihwnd, 0);
}
pos = 0;
while (pos < 10 && ui_status.imageHist[pos][0]) {
WinLboxInsertItem(ihwnd, ui_status.imageHist[pos++]);
}
WinLboxInsertItem(ihwnd, "");
if (drive == (int)mp2) {
WinLboxSelectItem(ihwnd, name[0] ? 0 : pos);
}
}
return FALSE;
case WM_TRACK:
if (!(ui_status.lastDriveState & (1 << (int)mp1))) {
break;
}
WinSetDlgSpinVal(hwnd, SPB_TRACK8+(int)mp1, (int)((int)mp2 / 2));
WinShowDlg(hwnd, SS_HALFTRACK8 + (int)mp1, ((int)mp2 % 2));
break;
case WM_DRIVELEDS:
WinShowDlg(hwnd, SS_LED8+(int)mp1, (int)mp2);
break;
case WM_DRIVESTATE:
WinShowDlg(hwnd, SPB_TRACK8, (int)mp1 & 1 == 1);
WinShowDlg(hwnd, SS_HALFTRACK8, (int)mp1 & 1 == 1);
WinShowDlg(hwnd, SPB_TRACK9, (int)mp1 & 2 == 1);
WinShowDlg(hwnd, SS_HALFTRACK9, (int)mp1 & 2 == 1);
WinShowDlg(hwnd, SS_LED8, 0);
WinShowDlg(hwnd, SS_LED9, 0);
break;
case WM_SWITCH:
drive = (int)mp1;
{
const HWND lbox = WinWindowFromID(hwnd, CBS_TYPE);
int type = 0;
int val;
int res;
int drive89 = (drive == 0 || drive == 1);
resources_get_int("DriveTrueEmulation", &val);
WinLboxEmpty(lbox);
if (drive89) {
int i, nr;
WinCheckButton(hwnd, RB_NEVER | get_drive_res("Drive%dExtendImagePolicy", drive), 1);
WinCheckButton(hwnd, RB_NONE | get_drive_res("Drive%dIdleMethod", drive), 1);
nr = 0;
res = get_drive_res("Drive%dType", drive);
for (i = 0; i < nDRIVES; i++) {
if (!drive_check_type(driveRes[i], drive)) {
continue;
}
WinLboxInsertItem(lbox, driveName[i]);
WinLboxSetItemHandle(lbox, nr, driveRes[i]);
if (res == driveRes[i]) {
type = nr;
}
nr++;
}
} else {
WinCheckButton(hwnd, RB_NEVER, 0);
WinCheckButton(hwnd, RB_ASK, 0);
WinCheckButton(hwnd, RB_ALWAYS, 0);
WinCheckButton(hwnd, RB_NONE, 0);
WinCheckButton(hwnd, RB_SKIP, 0);
WinCheckButton(hwnd, RB_TRAP, 0);
}
WinLboxSelectItem(lbox, type);
WinCheckButton(hwnd, CB_PARALLEL, drive89 && get_drive_res("Drive%dParallelCable", drive) != 0);
WinCheckButton(hwnd, CB_MEM2000, drive89 && get_drive_res("Drive%dRAM2000", drive) != 0);
WinCheckButton(hwnd, CB_MEM4000, drive89 && get_drive_res("Drive%dRAM4000", drive) != 0);
WinCheckButton(hwnd, CB_MEM6000, drive89 && get_drive_res("Drive%dRAM6000", drive) != 0);
WinCheckButton(hwnd, CB_MEM8000, drive89 && get_drive_res("Drive%dRAM8000", drive) != 0);
WinCheckButton(hwnd, CB_MEMA000, drive89 && get_drive_res("Drive%dRAMA000", drive) != 0);
WinEnableControl(hwnd, CB_PARALLEL, drive89 && val);
WinEnableControl(hwnd, RB_NEVER, drive89 && val);
WinEnableControl(hwnd, RB_ASK, drive89 && val);
WinEnableControl(hwnd, RB_ALWAYS, drive89 && val);
WinEnableControl(hwnd, RB_NONE, drive89 && val);
WinEnableControl(hwnd, RB_SKIP, drive89 && val);
WinEnableControl(hwnd, RB_TRAP, drive89 && val);
WinEnableControl(hwnd, CBS_TYPE, drive89 && val);
WinEnableControl(hwnd, CB_MEM2000, drive89 && val);
WinEnableControl(hwnd, CB_MEM4000, drive89 && val);
WinEnableControl(hwnd, CB_MEM6000, drive89 && val);
WinEnableControl(hwnd, CB_MEM8000, drive89 && val);
WinEnableControl(hwnd, CB_MEMA000, drive89 && val);
{
int acc = get_drive_res("FileSystemDevice%d", drive) != 0;
int conv = get_drive_res("FSDevice%dConvertP00", drive) != 0;
if (!conv) {
resources_set_int_sprintf("FSDevice%dHideCBMFiles", 0, drive + 8);
}
WinCheckButton(hwnd, CB_ALLOWACCESS, acc);
WinCheckButton(hwnd, CB_CONVERTP00, conv);
WinCheckButton(hwnd, CB_SAVEP00, get_drive_res("FSDevice%dSaveP00", drive) != 0);
WinCheckButton(hwnd, CB_HIDENONP00, get_drive_res("FSDevice%dHideCBMFiles", drive) != 0);
WinEnableControl(hwnd, CB_ALLOWACCESS, !(drive89 && val));
WinEnableControl(hwnd, CB_SAVEP00, !(drive89 && val) && acc);
WinEnableControl(hwnd, CB_CONVERTP00, !(drive89 && val) && acc);
WinEnableControl(hwnd, CBS_PATH, !(drive89 && val) && acc);
WinEnableControl(hwnd, CB_HIDENONP00, !(drive89 && val) && acc && conv);
WinCheckButton(hwnd, CB_READONLY, get_drive_res("AttachDevice%dReadonly", drive) != 0);
}
{
char tmp[CCHMAXPATH];
int max = WinDlgLboxQueryCount(hwnd, CBS_IMAGE);
int pos = -1;
do {
WinLboxQueryItem(hwnd, CBS_IMAGE, ++pos, tmp, CCHMAXPATH);
}
while (pos < max && strcmp(ui_status.lastImage[drive], tmp));
WinDlgLboxSelectItem(hwnd, CBS_IMAGE, pos);
}
{
const char *path;
resources_get_string_sprintf("FSDevice%dDir", &path, drive + 8);
WinSendDlgMsg(hwnd, CBS_PATH, SPBM_SETARRAY, &path, 1);
WinSetDlgSpinVal(hwnd, CBS_PATH, 0);
}
}
return FALSE;
}
return WinDefDlgProc (hwnd, msg, mp1, mp2);
}
MRESULT CreInstDlg::wmCommand(HM12){
USE_HM12;
USHORT command;
char typename[MAXNAMELENGTH]="";
char propname[MAXNAMELENGTH]="";
char newvalue[MAXNAMELENGTH]="";
int index,dbtype,oktype,i;
ODB_INT intval;
ODB_REAL realval;
ODB_SET coll;
object *obj,*o;
command=SHORT1FROMMP( mp1 ) ;
switch(command)
{
case DID_OK: //ok button pressed. Create object
index=WinQueryLboxSelectedItem(hwndlbtypes);
WinQueryLboxItemText(hwndlbtypes,index,typename,MAXNAMELENGTH);
if (strlen(typename)<1) {
//type not specified
WinMessageBox(HWND_DESKTOP,hwndOwner,(PCH) "A type must be spec.",
(PCH)"Alert",0,MB_NOICON|MB_OK);
break;
}
else {
obj=odb.create_instance(typename);
if (obj==NULL) {
//object could not be created, possibly because
//extentless type selectd
WinMessageBox(HWND_DESKTOP,hwndOwner,(PCH) "Could not create object",
(PCH)"Alert",0,MB_NOICON|MB_OK);
break;
};
i=WinQueryLboxCount(hwndassignedprop);
i--;
while(i>=0){
//check that the data for each prop is ok
//and set the properies for the object
WinQueryLboxItemText(hwndassignedprop,i,propname,MAXNAMELENGTH);
WinQueryLboxItemText(hwndassignedprop,i,propname,MAXNAMELENGTH);
WinQueryLboxItemText(hwndpropval,i,newvalue,MAXNAMELENGTH);
dbtype=odb.getpropertytype(typename,propname);
if (dbtype==_INT_) {
validate_integer(newvalue,intval);
(*obj).setproperty_value(propname,intval);
};
if (dbtype==_OTHER_) {
validate_integer(newvalue,intval);
o=odb.getobjectwithoid("Usertypes",intval);
(*obj).setproperty_value(propname,o);
};
if (dbtype==_REAL_) {
validate_real(newvalue,realval);
(*obj).setproperty_value(propname,realval);
};
if (dbtype==_COLLECTION_){
coll=new collection(_OTHER_);
if (validate_set(newvalue,&odb,coll)<0) (*coll).~collection();
(*obj).setproperty_value(propname,coll);
};
if (dbtype==_INT_COLLECTION_){
coll=new collection(_INT_);
if (validate_set(newvalue,&odb,coll)<0) (*coll).~collection();
(*obj).setproperty_value(propname,coll);
};
if (dbtype==_REAL_COLLECTION_){
coll=new collection(_REAL_);
if (validate_set(newvalue,&odb,coll)<0) (*coll).~collection();
(*obj).setproperty_value(propname,coll);
};
if (dbtype==_CHAR_COLLECTION_){
coll=new collection(_CHAR_);
if (validate_set(newvalue,&odb,coll)<0) (*coll).~collection();
(*obj).setproperty_value(propname,coll);
};
if (dbtype==_CHAR_) (*obj).setproperty_value(propname,newvalue);
i--;
}; //end while all properties set.
//deleta all unassigned praps
(*this).clearlbox(hwndassignedprop);
clearlbox(hwndpropval);
clearlbox(hwndlbprops);
WinSetWindowText(hwndviewval,(PSZ)"");
populate_props(hwndlbprops,typename, odb);
noassignedprops=0; //no assigned properties anymore
WinMessageBox(HWND_DESKTOP,hwndOwner,(PCH) "Instance created.",
(PCH)"Success",0,MB_NOICON|MB_OK);
}; //else //create the object and set properties
return (MRESULT) FALSE;
//break;
case DID_CANCEL: //quit this window
if(WinMessageBox(HWND_DESKTOP,hwndOwner,(PCH) "Quit this window?",
(PCH)"Sanity Check",0,
MB_NOICON|MB_OKCANCEL)==MBID_OK)
WinDismissDlg( hwnd, TRUE ); // Removes the dialog box
return (MRESULT) FALSE;
case PB_SET:
//assign property a value. The prop is moved to assignedprops
//and value is validated and moved to hidden listbox
index=WinQueryLboxSelectedItem(hwndlbtypes); //typename
WinQueryLboxItemText(hwndlbtypes,index,typename,MAXNAMELENGTH);
index=WinQueryLboxSelectedItem(hwndlbprops); //propname
WinQueryLboxItemText(hwndlbprops,index,propname,MAXNAMELENGTH);
WinQueryWindowText(hwndnewvalue,MAXNAMELENGTH,newvalue);
dbtype=odb.getpropertytype(typename,propname);
if (dbtype==_INT_)
oktype=validate_integer(newvalue,intval);
if (dbtype==_OTHER_){
oktype=validate_integer(newvalue,intval);
if (oktype!=0) {
//check that there is an object with the oid
obj=odb.getobjectwithoid("Usertypes",intval);
if (obj==NULL) oktype=0;
}
};
if (dbtype==_REAL_)
oktype=validate_real(newvalue,realval);
if (dbtype==_CHAR_) oktype=1;
if ((strlen(newvalue)>0)&&(strlen(propname)>0)&&(oktype!=0)){
//move assigned prop from prop cmb box to assigned props
WinInsertLboxItem(hwndassignedprop,noassignedprops,(PSZ)propname);
WinInsertLboxItem(hwndpropval,noassignedprops,(PSZ)newvalue);
noassignedprops++;
WinDeleteLboxItem(hwndlbprops,index);
WinSetWindowText(hwnddatatype,(PSZ)"");
WinSetWindowText(hwndnewvalue,(PSZ)"");
}
else
WinMessageBox(HWND_DESKTOP,hwndOwner,(PCH) "Missing or erroneous data",
(PCH)"Alert",0,MB_OKCANCEL);
break;
default:
return WinDefDlgProc( hwnd, msg, mp1, mp2 );
}
