OSErr GridWindSettingsDialog(GridWindMover *mover, TMap *owner,Boolean bAddMover,WindowPtr parentWindow)
{ // Note: returns USERCANCEL when user cancels
OSErr err = noErr;
short item;
if(!owner && bAddMover) {printError("Programmer error"); return -1;}
sharedWMover = mover; // existing mover is being edited
if(parentWindow == 0) parentWindow = mapWindow; // JLM 6/2/99
item = MyModalDialog(1825, parentWindow, 0, GridWindInit, GridWindClick);
if (item == M18OK)
{
if (bAddMover)
{
err = owner -> AddMover (sharedWMover, 0);
}
model->NewDirtNotification();
}
if(item == M18CANCEL)
{
err = USERCANCEL;
}
return err;
}
OSErr Random3DSettingsDialog(TRandom3D *mover, TMap *owner)
{
short item;
TRandom3D *newMover = 0;
OSErr err = 0;
if (!mover) {
newMover = new TRandom3D(owner, "3D Diffusion");
if (!newMover)
{ TechError("RandomSettingsDialog()", "new TRandom3D()", 0); return -1; }
if (err = newMover->InitMover()) { delete newMover; return err; }
sharedRMover3D = newMover;
}
else
sharedRMover3D = mover;
item = MyModalDialog(M28b, mapWindow, 0, M28bInit, M28bClick);
if (item == M28bOK) model->NewDirtNotification();
if (newMover) {
if (item == M28bOK) {
if (err = owner->AddMover(newMover, 0))
{ newMover->Dispose(); delete newMover; return -1; }
}
else {
newMover->Dispose();
delete newMover;
}
}
return 0;
}
OSErr AskUserForUnits(short* selectedUnits,Boolean *userCancel)
{
OSErr err = 0;
short item;
PopTableInfo saveTable = SavePopTable();
short j,numItems= 0;
PopInfoRec combinedUnitsPopTable[20];
// code to allow a dialog on top of another with pops
for(j = 0; j < sizeof(selectUnitsPopTable) / sizeof(PopInfoRec);j++)
combinedUnitsPopTable[numItems++] = selectUnitsPopTable[j];
for(j= 0; j < saveTable.numPopUps ; j++)
combinedUnitsPopTable[numItems++] = saveTable.popTable[j];
RegisterPopTable(combinedUnitsPopTable,numItems);
*userCancel = false;
gSUUnits = *selectedUnits;
item = MyModalDialog(SELECTUNITS, mapWindow,nil, SUInit, SUClick);
RestorePopTableInfo(saveTable);
if(item == SU_CANCEL)
{
*userCancel = true;
return USERCANCEL;
}
if(item == SU_OK)
{
*selectedUnits = gSUUnits;
return 0; // JLM 7/8/98
}
return -1;
}
OSErr PreferencesDialog()
{
short item;
Settings oldSettings = settings;
currentPreferencesDialog = 0;
item = MyModalDialog(M1, mapWindow, 0, PDInit, PDClick);
if (item != M1OK)
settings = oldSettings;
else model->NewDirtNotification();//JLM
return item == -1 ? -1 : 0;
}
OSErr ShioHtsDialog(Boolean *standingWave,float *scaleFactor,WindowPtr parentWindow)
{
short item;
sDialogStandingWave = *standingWave;
sDialogScaleFactor = *scaleFactor;
item = MyModalDialog(SHIOHTSDLG, mapWindow, 0, ShioHtsInit, ShioHtsClick);
if(item == SHIOHTSCANCEL) return USERCANCEL;
model->NewDirtNotification(); // is this necessary ?
if(item == SHIOHTSOK)
{
*standingWave = sDialogStandingWave;
*scaleFactor = sDialogScaleFactor;
return 0;
}
else return -1;
}
OSErr GridCurrentMover::SettingsDialog()
{
short item;
sGridCurrentDialogMover = this; // should pass in what is needed only
sDialogUncertaintyChanged2 = false;
item = MyModalDialog(M33, mapWindow, 0, GridCurrentMoverSettingsInit, GridCurrentMoverSettingsClick);
sGridCurrentDialogMover = 0;
if(M33OK == item)
{
if (sDialogUncertaintyChanged2) this -> UpdateUncertaintyValues(model->GetModelTime()-model->GetStartTime());
model->NewDirtNotification();// tell model about dirt
}
return M33OK == item ? 0 : -1;
}
OSErr EditCDOGProfilesDialog(DepthValuesSetH *depthvals, /*float *cellLength, long *numCells,*/ WindowPtr parentWindow)
{
short item;
sgDepthValuesH = *depthvals;
//sCellLength = *cellLength;
//sNumCells = *numCells;
item = MyModalDialog(EDIT_PROFILES_DLGID, mapWindow, 0, EditProfilesInit, EditProfilesClick);
SetWatchCursor();
if(item == EPOK)
{
*depthvals = sgDepthValuesH;
//*cellLength = sCellLength;
//*numCells = sNumCells;
model->NewDirtNotification();// JLM
return 0;
}
else if(item == EPCANCEL) return USERCANCEL;
else return -1;
}
