static void ClickRulesDoc (DoC d, PoinT pt)
{
Int2 item, row, col, match;
RecT rct;
CommentSetDlgPtr dlg;
BaR sb_vert = NULL;
Int2 scroll_pos = 0;
CommentRulePtr cr, last_cr = NULL;
dlg = (CommentSetDlgPtr) GetObjectExtra (d);
if (dlg == NULL || dlg->rule_list == NULL) return;
MapDocPoint (d, pt, &item, &row, &col, &rct);
if (item == 0 && dlg->rule_list == NULL) {
cr = CommentRuleNew ();
dlg->rule_list = cr;
dlg->curr_item = 1;
PointerToDialog (dlg->rule_editor, cr);
ListRules (dlg->rule_list_dlg, dlg->rule_list, dlg->font);
} else if (item > 0 && row > 0) {
if (item != dlg->curr_item) {
cr = DialogToPointer (dlg->rule_editor);
ReplaceNthCommentRule (&(dlg->rule_list), cr, dlg->curr_item);
cr = dlg->rule_list;
match = 1;
while (match < item && cr != NULL) {
match++;
last_cr = cr;
cr = cr->next;
}
if (cr == NULL) {
cr = CommentRuleNew ();
if (last_cr == NULL) {
dlg->rule_list = cr;
} else {
last_cr->next = cr;
}
}
PointerToDialog (dlg->rule_editor, cr);
dlg->curr_item = item;
ListRules (dlg->rule_list_dlg, dlg->rule_list, dlg->font);
}
}
}
static void EndPointValNodeToEndPointDialog (DialoG d, Pointer data)
{
EndPointsDialogPtr epp;
epp = (EndPointsDialogPtr) GetObjectExtra (d);
if (epp != NULL)
PointerToDialog (epp->dep, data);
return;
}
static void CommentRuleToDialog (DialoG d, Pointer data)
{
CommentRuleDlgPtr dlg;
CommentRulePtr rule;
dlg = (CommentRuleDlgPtr) GetObjectExtra (d);
if (dlg == NULL) {
return;
}
rule = (CommentRulePtr) data;
if (rule == NULL) {
SetTitle (dlg->prefix, "");
PointerToDialog (dlg->fields_dlg, NULL);
} else {
SetTitle (dlg->prefix, rule->prefix == NULL ? "" : rule->prefix);
PointerToDialog (dlg->fields_dlg, rule->fields);
}
}
NLM_EXTERN void LaunchCommentRulesEditor (IteM i)
{
BaseFormPtr bfp;
WindoW w;
DialoG d;
CommentSetDlgPtr dlg;
GrouP h, c;
MenU m;
ButtoN b;
#ifdef WIN_MAC
bfp = currentFormDataPtr;
#else
bfp = GetObjectExtra (i);
#endif
if (bfp == NULL) return;
dlg = (CommentSetDlgPtr) MemNew (sizeof (CommentSetDlgData));
if (dlg == NULL) return;
w = FixedWindow (-50, -33, -10, -10, "Comment Rules Editor", StdCloseWindowProc);
#if 0
m = PulldownMenu (w, "File");
FormCommandItem (m, "Open", (BaseFormPtr)f, VIB_MSG_OPEN);
FormCommandItem (m, "Import", (BaseFormPtr)f, VIB_MSG_IMPORT);
FormCommandItem (m, "Save", (BaseFormPtr)f, VIB_MSG_SAVE);
FormCommandItem (m, "Save As", (BaseFormPtr)f, VIB_MSG_SAVE_AS);
SeparatorItem (m);
FormCommandItem (m, "Quit", (BaseFormPtr)f, VIB_MSG_QUIT);
m = PulldownMenu (w, "Edit");
FormCommandItem (m, "Copy All to Clipboard", (BaseFormPtr) f, VIB_MSG_COPY);
#endif
h = HiddenGroup (w, -1, 0, NULL);
SetGroupSpacing (h, 10, 10);
d = CommentSetDialog (h);
dlg = GetObjectExtra (d);
PointerToDialog (d, LoadCommentRuleSet());
c = HiddenGroup (h, 3, 0, NULL);
b = PushButton (c, "Accept", SaveRuleChanges);
SetObjectExtra (b, d, NULL);
PushButton (c, "Cancel", StdCancelButtonProc);
AlignObjects (ALIGN_CENTER, (HANDLE) d, (HANDLE) c, NULL);
Show (w);
}
static void CommentSetToDialog (DialoG d, Pointer data)
{
CommentSetDlgPtr dlg;
dlg = (CommentSetDlgPtr) GetObjectExtra (d);
if (dlg == NULL) {
return;
}
dlg->rule_list = CommentSetFree (dlg->rule_list);
dlg->rule_list = (CommentRulePtr) data;
ListRules (dlg->rule_list_dlg, dlg->rule_list, dlg->font);
if (dlg->rule_list != NULL) {
dlg->curr_item = 1;
PointerToDialog (dlg->rule_editor, dlg->rule_list);
}
}
extern void SetCalendarDate (
DialoG d,
Int4 month,
Int4 day,
Int4 year
)
{
CalendarDate cd;
if (d == NULL) return;
cd.month = month;
cd.day = day;
cd.year = year;
PointerToDialog (d, (Pointer) &cd);
}
static void PreferencesProc (IteM i)
{
ButtoN b;
GrouP c;
EntrezPrefsPtr epp;
GrouP g;
PrefsFormPtr pfp;
WindoW w;
pfp = (PrefsFormPtr) MemNew (sizeof (PrefsForm));
if (pfp == NULL) return;
w = FixedWindow (-50, -33, -10, -10, "Preferences", StdCloseWindowProc);
SetObjectExtra (w, pfp, StdCleanupFormProc);
pfp->form = (ForM) w;
pfp->formmessage = DefaultMessageProc;
g = HiddenGroup (w, -1, 0, NULL);
SetGroupSpacing (g, 10, 10);
pfp->prefs = CreateEntrezPrefsDialog (g, NULL);
c = HiddenGroup (g, 2, 0, NULL);
b = PushButton (c, "Accept", AcceptPrefsProc);
SetObjectExtra (b, pfp, NULL);
PushButton (c, "Cancel", StdCancelButtonProc);
AlignObjects (ALIGN_CENTER, (HANDLE) pfp->prefs, (HANDLE) c, NULL);
RealizeWindow (w);
epp = EntrezPrefsNew ();
if (epp != NULL) {
epp->persistDefault = entrezglobals.persistDefault;
epp->alignDefault = entrezglobals.alignDefault;
epp->lookupDirect = entrezglobals.lookupDirect;
epp->showAsn = entrezglobals.showAsn;
epp->initDatabase = StringSaveNoNull (entrezglobals.initDatabase);
epp->initField = StringSaveNoNull (entrezglobals.initField);
epp->initMode = StringSaveNoNull (entrezglobals.initMode);
epp->initMedLabel = StringSaveNoNull (medviewprocs.initMedLabel);
epp->initNucLabel = StringSaveNoNull (seqviewprocs.initNucLabel);
epp->initProtLabel = StringSaveNoNull (seqviewprocs.initProtLabel);
epp->initGenomeLabel = StringSaveNoNull (seqviewprocs.initGenomeLabel);
}
PointerToDialog (pfp->prefs, (Pointer) epp);
EntrezPrefsFree (epp);
Show (w);
Select (w);
}
