int main(int argc, char* argv[]){
bool All_Fields = false;
char *title = (char *) NULL, *subject = (char *) NULL, *domain = (char *) NULL, *version = (char *) NULL;
char *citation = (char *) NULL, *institute = (char *) NULL, *source = (char *) NULL, *person = (char *) NULL;
char *comment = (char *) NULL, *type = (char *) NULL, ch = 'x';
int argPos, argNum = argc, verbose = false;
FILE *file = (FILE *) NULL;
DBObjData *dbData = new DBObjData();
DBDataHeader header;
if (argc == 1) { Show_Usage(argv[0]); return 0; }
for (argPos = 1;argPos < argNum; )
{
if (CMargTest (argv [argPos],"-a","--all")) {
All_Fields = true;
if ((argNum = CMargShiftLeft (argPos,argv,argNum)) <= argPos) break;
continue;
}
if (CMargTest (argv [argPos],"-V","--verbose")) {
verbose = true;
if ((argNum = CMargShiftLeft (argPos,argv,argNum)) <= argPos) break;
continue;
}
if (CMargTest (argv [argPos],"-h","--help")) { Show_Usage(argv[0]); return 0; }
if ((file == (FILE *) NULL) && (access(argv[argPos],R_OK) == 0)) file = fopen(argv[argPos],"r");
// ugly but working method to search for input filename.
argPos++;
}
if (file != (FILE *) NULL)
{
if (header.Read(file) == DBFault) { delete dbData; return(DBFault); }
fseek(file,0,SEEK_SET); //go back to beginning of file
if (dbData->Read(file) == DBFault) { delete dbData; return(DBFault); }
fclose(file);
}
else
{
CMmsgPrint (CMmsgUsrError,"No data file, reading from stdin!");
if (header.Read(stdin) == DBFault) { delete dbData; return(DBFault); }
if (dbData->Read(stdin) == DBFault) { delete dbData; return(DBFault); }
}
if(All_Fields)
{
title = dbData->Name();
domain = dbData->Document(DBDocGeoDomain);
subject = dbData->Document(DBDocSubject);
version = dbData->Document(DBDocVersion);
type = DBDataTypeString(header.Type ());
institute = dbData->Document(DBDocCitationInst);
person = dbData->Document(DBDocOwnerPerson);
citation = dbData->Document(DBDocCitationRef);
comment = dbData->Document(DBDocComment);
source = dbData->Document(DBDocSourcePerson);
}
else
{
for (argPos = 1;argPos < argNum; ) {
if (CMargTest (argv [argPos],"-t","--title")) {
title = dbData->Name();
if(title == (char *) NULL) title = &ch;
if ((argNum = CMargShiftLeft (argPos,argv,argNum)) <= argPos) break;
continue;
}
if (CMargTest (argv [argPos],"-d","--domain")) {
domain = dbData->Document(DBDocGeoDomain);
if(domain == (char *) NULL) domain = &ch;
if ((argNum = CMargShiftLeft (argPos,argv,argNum)) <= argPos) break;
continue;
}
if (CMargTest (argv [argPos],"-s","--subject")) {
subject = dbData->Document(DBDocSubject);
if(subject == (char *) NULL) subject = &ch;
if ((argNum = CMargShiftLeft (argPos,argv,argNum)) <= argPos) break;
continue;
}
if (CMargTest (argv [argPos],"-v","--version")) {
version = dbData->Document(DBDocVersion);
if(version == (char *) NULL) version = &ch;
if ((argNum = CMargShiftLeft (argPos,argv,argNum)) <= argPos) break;
continue;
}
if (CMargTest (argv [argPos],"-n","--institute")) {
institute = dbData->Document(DBDocCitationInst);
if(institute == (char *) NULL) institute = &ch;
if ((argNum = CMargShiftLeft (argPos,argv,argNum)) <= argPos) break;
continue;
}
if (CMargTest (argv [argPos],"-p","--person")) {
person = dbData->Document(DBDocOwnerPerson);
if(person == (char *) NULL) person = &ch;
if ((argNum = CMargShiftLeft (argPos,argv,argNum)) <= argPos) break;
continue;
}
if (CMargTest (argv [argPos],"-i","--citation")) {
citation = dbData->Document(DBDocCitationRef);
if(citation == (char *) NULL) citation = &ch;
if ((argNum = CMargShiftLeft (argPos,argv,argNum)) <= argPos) break;
continue;
}
if (CMargTest (argv [argPos],"-c","--comment")) {
comment = dbData->Document(DBDocComment);
if(comment == (char *) NULL) comment = &ch;
if ((argNum = CMargShiftLeft (argPos,argv,argNum)) <= argPos) break;
continue;
}
if (CMargTest (argv [argPos],"-S","--source")) {
source = dbData->Document(DBDocSourcePerson);
if(source == (char *) NULL) source = &ch;
if ((argNum = CMargShiftLeft (argPos,argv,argNum)) <= argPos) break;
continue;
}
if ((argv[argPos][0] == '-') && (strlen (argv[argPos]) > 1))
{ CMmsgPrint (CMmsgUsrError,"Unknown option: %s!",argv[argPos]); return (CMfailed); }
argPos++;
}
}
if (argNum > 3) { CMmsgPrint (CMmsgUsrError,"Extra arguments!"); return (CMfailed); }
if (verbose) RGlibPauseOpen (argv[0]);
if (title == &ch) printf("Title: N/A\n"); else if (title != (char *) NULL) printf("Title: %s\n", title);
if (domain == &ch) printf("Domain: N/A\n"); else if (domain != (char *) NULL) printf("Domain: %s\n", domain);
if (subject == &ch) printf("Subject: N/A\n"); else if (subject != (char *) NULL) printf("Subject: %s\n", subject);
if (version == &ch) printf("Version: N/A\n"); else if (version != (char *) NULL) printf("Version: %s\n", version);
if (type == &ch) printf("Data Type: N/A\n"); else if (type != (char *) NULL) printf("Data Type: %s\n", type);
if (institute == &ch) printf("Citation Institute: N/A\n"); else if (institute != (char *) NULL) printf("Citation Institute: %s\n",institute);
if (citation == &ch) printf("Citation Reference: N/A\n"); else if (citation != (char *) NULL) printf("Citation Reference: %s\n",citation);
if (person == &ch) printf("Person: N/A\n"); else if (person != (char *) NULL) printf("Person: %s\n", person);
if (source == &ch) printf("Source: N/A\n"); else if (source != (char *) NULL) printf("Source: %s\n", source);
if (comment == &ch) printf("Comment: N/A\n"); else if (comment != (char *) NULL) printf("Comment: %s\n", comment);
if (verbose) RGlibPauseClose ();
return (0);
}
DBInt UIDataHeaderForm(DBObjData *data) {
char *text;
DBInt i, edit;
DBUnsigned var;
static DBInt dataType, save, changed[10];
static Widget dShell = NULL;
static Widget nameTextF, subjectTextF, geoDomTextF, versionTextF, lastModL, ownerL;
static Widget citRefText, citInstTextF, srcInstTextF, srcPersTextF, commentText;
static Widget typeMenu;
if (dShell == NULL) {
XmString string, select;
Widget mainForm, label, button, separator;
var = 0;
dShell = UIDialogForm((char *) "Data Header Information");
mainForm = UIDialogFormGetMainForm(dShell);
select = XmStringCreate((char *) "Select", UICharSetBold);
string = XmStringCreate((char *) "Name:", UICharSetBold);
label = XtVaCreateManagedWidget("UIDataHeaderFormNameLabel", xmLabelWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_FORM,
XmNtopOffset, 10,
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, 25,
XmNrightOffset, 10,
XmNalignment, XmALIGNMENT_END,
XmNlabelString, string,
NULL);
XmStringFree(string);
nameTextF = XtVaCreateManagedWidget("UIDataHeaderFormNameText", xmTextFieldWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_FORM,
XmNtopOffset, 10,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, label,
XmNleftOffset, 5,
XmNmaxLength, DBDataNameLen - 1,
XmNcolumns, DBDataNameLen - 1,
NULL);
XtAddCallback(nameTextF, XmNvalueChangedCallback, (XtCallbackProc) _UIDataHeaderTextFieldCBK, changed + var++);
typeMenu = XmCreatePulldownMenu(mainForm, (char *) "UIDataHeaderFormTypeMenu", NULL, 0);
for (i = 0; i < (int) (sizeof(_UIDataTypeList) / sizeof(UIButtonList)); ++i) {
string = XmStringCreate(DBDataTypeString(_UIDataTypeList[i].ID), UICharSetNormal);
_UIDataTypeList[i].Button = XtVaCreateManagedWidget("UIDataHeaderFormTypeButton", xmPushButtonGadgetClass,
typeMenu,
XmNuserData, _UIDataTypeList[i].ID,
XmNlabelString, string,
NULL);
XmStringFree(string);
XtAddCallback(_UIDataTypeList[i].Button, XmNactivateCallback, (XtCallbackProc) _UIDataHeaderFormButtonCBK,
&dataType);
}
string = XmStringCreate((char *) "Data Type:", UICharSetBold);
typeMenu = XtVaCreateManagedWidget("UIDataHeaderFormTypeMenu", xmRowColumnWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, nameTextF,
XmNtopOffset, 2,
XmNrightAttachment, XmATTACH_FORM,
XmNrightOffset, 10,
XmNsubMenuId, typeMenu,
XmNlabelString, string,
XmNrowColumnType, XmMENU_OPTION,
XmNtraversalOn, false,
NULL);
XmStringFree(string);
string = XmStringCreate((char *) "Subject:", UICharSetBold);
label = XtVaCreateManagedWidget("UIDataHeaderFormSubjectLabel", xmLabelWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, nameTextF,
XmNtopOffset, 10,
XmNrightAttachment, XmATTACH_WIDGET,
XmNrightWidget, nameTextF,
XmNrightOffset, 5,
XmNalignment, XmALIGNMENT_END,
XmNlabelString, string,
NULL);
XmStringFree(string);
subjectTextF = XtVaCreateManagedWidget("UIDataHeaderFormSubjectField", xmTextFieldWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, nameTextF,
XmNtopOffset, 10,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, label,
XmNleftOffset, 5,
XmNmaxLength, DBDataSubjectLen - 1,
XmNcolumns, DBDataSubjectLen - 1,
NULL);
XtAddCallback(subjectTextF, XmNvalueChangedCallback, (XtCallbackProc) _UIDataHeaderTextFieldCBK,
changed + var++);
button = XtVaCreateManagedWidget("UIDataHeaderFormSubjectSelectButton", xmPushButtonWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, nameTextF,
XmNtopOffset, 10,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, subjectTextF,
XmNleftOffset, 5,
XmNrightAttachment, XmATTACH_WIDGET,
XmNrightWidget, typeMenu,
XmNrightOffset, 20,
XmNlabelString, select,
XmNtraversalOn, false,
XmNuserData, (XtArgVal) UIDatasetSubject,
NULL);
XtAddCallback(button, XmNactivateCallback, (XtCallbackProc) _UIDataHeaderButtonCBK, subjectTextF);
string = XmStringCreate((char *) "Geograhic Domain:", UICharSetBold);
label = XtVaCreateManagedWidget("UIDataHeaderFormGeoDomainLabel", xmLabelWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, subjectTextF,
XmNtopOffset, 10,
XmNrightAttachment, XmATTACH_WIDGET,
XmNrightWidget, nameTextF,
XmNrightOffset, 5,
XmNalignment, XmALIGNMENT_END,
XmNlabelString, string,
NULL);
XmStringFree(string);
geoDomTextF = XtVaCreateManagedWidget("UIDataHeaderFormGeoField", xmTextFieldWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, subjectTextF,
XmNtopOffset, 10,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, label,
XmNleftOffset, 5,
XmNmaxLength, DBDataSubjectLen - 1,
XmNcolumns, DBDataSubjectLen - 1,
NULL);
XtAddCallback(geoDomTextF, XmNvalueChangedCallback, (XtCallbackProc) _UIDataHeaderTextFieldCBK,
changed + var++);
button = XtVaCreateManagedWidget("UIDataHeaderFormGeoDomainSelectButton", xmPushButtonWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, subjectTextF,
XmNtopOffset, 10,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, geoDomTextF,
XmNleftOffset, 5,
XmNrightAttachment, XmATTACH_WIDGET,
XmNrightWidget, typeMenu,
XmNrightOffset, 20,
XmNlabelString, select,
XmNuserData, (XtArgVal) UIDatasetGeoDomain,
XmNtraversalOn, false,
NULL);
XtAddCallback(button, XmNactivateCallback, (XtCallbackProc) _UIDataHeaderButtonCBK, geoDomTextF);
versionTextF = XtVaCreateManagedWidget("UIDataHeaderFormVersionText", xmTextFieldWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, subjectTextF,
XmNtopOffset, 5,
XmNrightAttachment, XmATTACH_FORM,
XmNrightOffset, 10,
XmNcolumns, DBDataVersionLen - 1,
NULL);
XtAddCallback(versionTextF, XmNvalueChangedCallback, (XtCallbackProc) _UIDataHeaderTextFieldCBK,
changed + var++);
string = XmStringCreate((char *) "Version:", UICharSetBold);
label = XtVaCreateManagedWidget("UIDataHeaderFormVersion", xmLabelWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, subjectTextF,
XmNtopOffset, 5,
XmNrightAttachment, XmATTACH_WIDGET,
XmNrightWidget, versionTextF,
XmNrightOffset, 5,
XmNalignment, XmALIGNMENT_END,
XmNlabelString, string,
NULL);
XmStringFree(string);
separator = XtVaCreateManagedWidget("UIDataHeaderFormSeparator", xmSeparatorWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, geoDomTextF,
XmNtopOffset, 5,
XmNleftAttachment, XmATTACH_FORM,
XmNleftOffset, 20,
XmNrightAttachment, XmATTACH_FORM,
XmNrightOffset, 20,
NULL);
string = XmStringCreate((char *) "Citation Reference:", UICharSetBold);
label = XtVaCreateManagedWidget("UIDataHeaderFormCitRefLabel", xmLabelWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, separator,
XmNtopOffset, 5,
XmNrightAttachment, XmATTACH_WIDGET,
XmNrightWidget, nameTextF,
XmNrightOffset, 5,
XmNalignment, XmALIGNMENT_END,
XmNlabelString, string,
NULL);
XmStringFree(string);
citRefText = XtVaCreateManagedWidget("UIDataHeaderFormCitRefText", xmTextWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, separator,
XmNtopOffset, 5,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, label,
XmNleftOffset, 5,
XmNmaxLength, DBDataCitationRefLen - 1,
XmNrows, DBDataCitationRefLen / DBDataNameLen,
XmNcolumns, DBDataNameLen - 1,
XmNeditMode, XmMULTI_LINE_EDIT,
XmNwordWrap, true,
NULL);
XtAddCallback(citRefText, XmNvalueChangedCallback, (XtCallbackProc) _UIDataHeaderTextCBK, changed + var++);
string = XmStringCreate((char *) "Citation Institute:", UICharSetBold);
label = XtVaCreateManagedWidget("UIDataHeaderFormInstRefLabel", xmLabelWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, citRefText,
XmNtopOffset, 5,
XmNrightAttachment, XmATTACH_WIDGET,
XmNrightWidget, nameTextF,
XmNrightOffset, 5,
XmNalignment, XmALIGNMENT_END,
XmNlabelString, string,
NULL);
XmStringFree(string);
citInstTextF = XtVaCreateManagedWidget("UIDataHeaderFormCitInstText", xmTextFieldWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, citRefText,
XmNtopOffset, 5,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, label,
XmNleftOffset, 5,
XmNmaxLength, DBDataCitationInstLen - 1,
XmNcolumns, DBDataNameLen - 1,
NULL);
XtAddCallback(citInstTextF, XmNvalueChangedCallback, (XtCallbackProc) _UIDataHeaderTextFieldCBK,
changed + var++);
string = XmStringCreate((char *) "Source Institue:", UICharSetBold);
label = XtVaCreateManagedWidget("UIDataHeaderFormSourceInstLabel", xmLabelWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, citInstTextF,
XmNtopOffset, 5,
XmNrightAttachment, XmATTACH_WIDGET,
XmNrightWidget, nameTextF,
XmNrightOffset, 5,
XmNlabelString, string,
NULL);
XmStringFree(string);
srcInstTextF = XtVaCreateManagedWidget("UIDataHeaderFormSourceInstText", xmTextFieldWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, citInstTextF,
XmNtopOffset, 5,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, label,
XmNleftOffset, 5,
XmNmaxLength, DBDataSourceInstLen - 1,
XmNcolumns, DBDataNameLen - 1,
NULL);
XtAddCallback(srcInstTextF, XmNvalueChangedCallback, (XtCallbackProc) _UIDataHeaderTextFieldCBK,
changed + var++);
string = XmStringCreate((char *) "Source Person:", UICharSetBold);
label = XtVaCreateManagedWidget("UIDataHeaderFormSourcePersonLabel", xmLabelWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, srcInstTextF,
XmNtopOffset, 5,
XmNrightAttachment, XmATTACH_WIDGET,
XmNrightWidget, nameTextF,
XmNrightOffset, 5,
XmNlabelString, string,
NULL);
XmStringFree(string);
srcPersTextF = XtVaCreateManagedWidget("UIDataHeaderFormSourcePersText", xmTextFieldWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, srcInstTextF,
XmNtopOffset, 5,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, label,
XmNleftOffset, 5,
XmNmaxLength, DBDataSourcePersonLen - 1,
XmNcolumns, DBDataSourcePersonLen - 1,
NULL);
XtAddCallback(srcPersTextF, XmNvalueChangedCallback, (XtCallbackProc) _UIDataHeaderTextFieldCBK,
changed + var++);
string = XmStringCreate((char *) "Last Modification:", UICharSetBold);
label = XtVaCreateManagedWidget("UIDataHeaderFormVersion", xmLabelWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, srcInstTextF,
XmNtopOffset, 5,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, srcPersTextF,
XmNleftOffset, 10,
XmNlabelString, string,
NULL);
XmStringFree(string);
string = XmStringCreate((char *) " ", UICharSetNormal);
lastModL = XtVaCreateManagedWidget("UIDataHeaderFormVersion", xmLabelGadgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, srcInstTextF,
XmNtopOffset, 5,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, label,
XmNleftOffset, 5,
XmNwidth, 100,
XmNrecomputeSize, false,
XmNlabelString, string,
NULL);
XmStringFree(string);
string = XmStringCreate((char *) "Last Modification:", UICharSetBold);
label = XtVaCreateManagedWidget("UIDataHeaderFormVersion", xmLabelWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, srcInstTextF,
XmNtopOffset, 5,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, srcPersTextF,
XmNleftOffset, 10,
XmNlabelString, string,
NULL);
XmStringFree(string);
string = XmStringCreate((char *) " ", UICharSetNormal);
lastModL = XtVaCreateManagedWidget("UIDataHeaderFormVersion", xmLabelGadgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, srcInstTextF,
XmNtopOffset, 5,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, label,
XmNleftOffset, 5,
XmNwidth, 100,
XmNrecomputeSize, false,
XmNlabelString, string,
NULL);
XmStringFree(string);
string = XmStringCreate((char *) "Owner:", UICharSetBold);
label = XtVaCreateManagedWidget("UIDataHeaderFormVersion", xmLabelWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, lastModL,
XmNtopOffset, 5,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, srcPersTextF,
XmNleftOffset, 10,
XmNlabelString, string,
NULL);
XmStringFree(string);
string = XmStringCreate((char *) " ", UICharSetNormal);
ownerL = XtVaCreateManagedWidget("UIDataHeaderFormVersion", xmLabelGadgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, lastModL,
XmNtopOffset, 5,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, label,
XmNleftOffset, 5,
XmNwidth, 100,
XmNrecomputeSize, false,
XmNlabelString, string,
NULL);
XmStringFree(string);
string = XmStringCreate((char *) "Comment:", UICharSetBold);
label = XtVaCreateManagedWidget("UIDataHeaderFormCommentLabel", xmLabelWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, ownerL,
XmNtopOffset, 5,
XmNrightAttachment, XmATTACH_WIDGET,
XmNrightWidget, nameTextF,
XmNrightOffset, 5,
XmNlabelString, string,
NULL);
XmStringFree(string);
commentText = XtVaCreateManagedWidget("UIDataHeaderFormCommentText", xmTextWidgetClass, mainForm,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, ownerL,
XmNtopOffset, 5,
XmNleftAttachment, XmATTACH_WIDGET,
XmNleftWidget, label,
XmNleftOffset, 5,
XmNbottomAttachment, XmATTACH_FORM,
XmNtopOffset, 10,
XmNmaxLength, DBDataCommentLen - 1,
XmNrows, DBDataCommentLen / DBDataNameLen,
XmNcolumns, DBDataNameLen - 1,
XmNeditMode, XmMULTI_LINE_EDIT,
XmNwordWrap, true,
NULL);
XtAddCallback(commentText, XmNvalueChangedCallback, (XtCallbackProc) _UIDataHeaderTextCBK, changed + var++);
XtAddCallback(UIDialogFormGetOkButton(dShell), XmNactivateCallback, (XtCallbackProc) UIAuxSetBooleanTrueCBK,
&save);
XmStringFree(select);
}
edit = true;
for (i = sizeof(_UIDataTypeList) / sizeof(UIButtonList) - 1; i >= 0; --i)
if ((_UIDataTypeList[i].ID & data->Type()) == data->Type()) {
XtSetSensitive(_UIDataTypeList[i].Button, true);
XtVaSetValues(typeMenu, XmNmenuHistory, _UIDataTypeList[i].Button, NULL);
dataType = _UIDataTypeList[i].ID;
}
else XtSetSensitive(_UIDataTypeList[i].Button, false);
XtVaSetValues(nameTextF, XmNuserData, data->Name(), NULL);
XmTextFieldSetString(nameTextF, data->Name());
XmTextFieldSetEditable(nameTextF, edit);
XtVaSetValues(subjectTextF, XmNuserData, data->Document(DBDocSubject), NULL);
XmTextFieldSetString(subjectTextF, data->Document(DBDocSubject));
XmTextFieldSetEditable(subjectTextF, edit);
XtVaSetValues(geoDomTextF, XmNuserData, data->Document(DBDocGeoDomain), NULL);
XmTextFieldSetString(geoDomTextF, data->Document(DBDocGeoDomain));
XmTextFieldSetEditable(geoDomTextF, edit);
XtVaSetValues(versionTextF, XmNuserData, data->Document(DBDocVersion), NULL);
XmTextFieldSetString(versionTextF, data->Document(DBDocVersion));
XmTextFieldSetEditable(versionTextF, edit);
XtVaSetValues(citRefText, XmNuserData, data->Document(DBDocCitationRef), NULL);
XmTextSetString(citRefText, data->Document(DBDocCitationRef));
XmTextSetEditable(citRefText, edit);
XtVaSetValues(citInstTextF, XmNuserData, data->Document(DBDocCitationInst), NULL);
XmTextFieldSetString(citInstTextF, data->Document(DBDocCitationInst));
XmTextFieldSetEditable(citInstTextF, edit);
XtVaSetValues(srcInstTextF, XmNuserData, data->Document(DBDocSourceInst), NULL);
XmTextFieldSetString(srcInstTextF, data->Document(DBDocSourceInst));
XmTextFieldSetEditable(srcInstTextF, edit);
XtVaSetValues(srcPersTextF, XmNuserData, data->Document(DBDocSourcePerson), NULL);
XmTextFieldSetString(srcPersTextF, data->Document(DBDocSourcePerson));
XmTextFieldSetEditable(srcPersTextF, edit);
XtVaSetValues(commentText, XmNuserData, data->Document(DBDocComment), NULL);
XmTextSetString(commentText, data->Document(DBDocComment));
XmTextSetEditable(commentText, edit);
if (data->LastModification().Year() != DBDefaultMissingIntVal)
UIAuxSetLabelString (lastModL, data->LastModification().Get());
else
UIAuxSetLabelString (lastModL, (char *) " ");
if ((data->Document(DBDocOwnerPerson) != (char *) NULL) && (strlen(data->Document(DBDocOwnerPerson)) > 0))
UIAuxSetLabelString (ownerL, data->Document(DBDocOwnerPerson));
else
UIAuxSetLabelString (ownerL, (char *) " ");
save = false;
XmProcessTraversal(nameTextF, XmTRAVERSE_CURRENT);
UIDialogFormPopup(dShell);
for (i = 0; i < (int) (sizeof(changed) / sizeof(int)); ++i) changed[i] = false;
while (UILoop()) {
var = 0;
text = XmTextFieldGetString(nameTextF);
if (strlen(text) == 0)
XtSetSensitive(UIDialogFormGetOkButton(dShell), false);
else {
for (i = 0; i < (int) (sizeof(changed) / sizeof(int)); ++i)
var = changed[i] ? var + 1 : var;
XtSetSensitive(UIDialogFormGetOkButton(dShell), var > 0);
}
XtFree(text);
}
UIDialogFormPopdown(dShell);
if (save) {
text = XmTextFieldGetString(nameTextF);
data->Name(text);
XtFree(text);
text = XmTextFieldGetString(subjectTextF);
data->Document(DBDocSubject, text);
XtFree(text);
text = XmTextFieldGetString(geoDomTextF);
data->Document(DBDocGeoDomain, text);
XtFree(text);
text = XmTextFieldGetString(versionTextF);
data->Document(DBDocVersion, text);
XtFree(text);
text = XmTextGetString(citRefText);
data->Document(DBDocCitationRef, text);
XtFree(text);
text = XmTextFieldGetString(citInstTextF);
data->Document(DBDocCitationInst, text);
XtFree(text);
text = XmTextFieldGetString(srcInstTextF);
data->Document(DBDocSourceInst, text);
XtFree(text);
text = XmTextFieldGetString(srcPersTextF);
data->Document(DBDocSourcePerson, text);
XtFree(text);
text = XmTextGetString(commentText);
data->Document(DBDocComment, text);
XtFree(text);
if (data->Type() != dataType) data->Type(dataType);
return (true);
}
else return (false);
}
