NLM_EXTERN DialoG CommentSetDialog (GrouP h)
{
CommentSetDlgPtr dlg;
GrouP p;
dlg = (CommentSetDlgPtr) MemNew (sizeof (CommentSetDlgData));
if (dlg == NULL)
{
return NULL;
}
p = HiddenGroup (h, -1, 0, NULL);
SetObjectExtra (p, dlg, CleanupCommentSetDialog);
dlg->dialog = (DialoG) p;
dlg->todialog = CommentSetToDialog;
dlg->fromdialog = CommentSetFromDialog;
SetupCommentSetDialogFont (dlg);
dlg->rule_list_dlg = DocumentPanel (p, stdCharWidth * 50, stdLineHeight * 12);
SetObjectExtra (dlg->rule_list_dlg, dlg, NULL);
SetDocProcs (dlg->rule_list_dlg, ClickRulesDoc, NULL, NULL, NULL);
SetDocShade (dlg->rule_list_dlg, NULL, NULL, RuleHighlight, NULL);
dlg->rule_editor = CommentRuleDialog (p, UpdateRuleList, dlg);
AlignObjects (ALIGN_CENTER, (HANDLE) dlg->rule_list_dlg, (HANDLE) dlg->rule_editor, NULL);
return (DialoG) p;
}
extern DoC CreateHelpDialog (
GrouP prnt,
Int2 wid
)
{
helpColFmt.pixWidth = wid - 10;
helpColFmt.pixInset = 8;
return DocumentPanel (prnt, wid - 10, 15 * stdLineHeight);
}
static void AboutMoreProc (ButtoN b)
{
DoC d;
CharPtr info;
WindoW w;
Remove (ParentWindow (b));
w = ModalWindow (-50, -33, -1, -1, StdCloseWindowProc);
d = DocumentPanel (w, 30 * stdCharWidth, 16 * stdLineHeight);
b = PushButton (w, "Done", StdCancelButtonProc);
AlignObjects (ALIGN_CENTER, (HANDLE) d, (HANDLE) b, NULL);
RealizeWindow (w);
info = EntrezDetailedInfo ();
if (info == NULL) {
info = "No detailed information available\n";
}
AppendText (d, info, NULL, NULL, programFont);
Show (w);
Select (w);
}
/*-------------- main starts here --------------------------*/
extern Int2 Main (void)
{
RecT r1, r2;
#ifdef WIN_MAC
m = AppleMenu (NULL);
DeskAccGroup(m);
m = PulldownMenu(NULL, "File");
s = SubMenu(m, "Open");
i = CommandItem(m, "Quit/Q", QuitProc);
#endif
InitProc(GetArgc(), GetArgv());
w = RoundWindow(-50, -33, -10, -10, "PDBeast: Taxonomy Assignment", NULL);
#ifndef WIN_MAC
SetUpDrawingTools();
/* Red();
SetColor(5); */
InvertColors();
wpdb = RoundWindow(-53, -33, -10, -10, "PDB File Display", NULL);
p = StaticPrompt(wpdb, "Pdb File", 0, dialogTextHeight, systemFont, '1');
Advance(wpdb);
PdbOpen = DefaultButton(wpdb, "Open", PdbOpenProc);
Break(wpdb);
p = StaticPrompt(wpdb, "Blast Search", 0, dialogTextHeight, systemFont, '1');
Advance(wpdb);
lBlastChain = SingleList(wpdb, 10, 3, ListBlastChainProc);
Advance(wpdb);
BlastSearchAccept = DefaultButton(wpdb, "Send Query", BlastSearchAcceptProc);
Break(wpdb);
p = StaticPrompt(wpdb, "String Search", 0, dialogTextHeight, systemFont, '1');
Advance(wpdb);
Pdbfile_string = DialogText(wpdb, "", 15, NULL);
Advance(wpdb);
Pdbfile_string_accept = DefaultButton(wpdb, "Find", PdbfileStringAcceptProc);
Break(wpdb);
pdbfile_panel = DocumentPanel(wpdb, 650, 20*stdLineHeight);
Break(wpdb);
p = StaticPrompt(wpdb," ", 0, dialogTextHeight, systemFont, '1');
Advance(wpdb);
PdbClose = PushButton(wpdb,"Close", PdbCloseProc);
Break(wpdb);
m = PulldownMenu(w, "File");
s1 = SubMenu(m, "Open");
i = CommandItem(s1, "Entry", EntryProc);
s2 = SubMenu(s1, "List");
c = ChoiceGroup(s2, ListOpenProc);
ChoiceItem(c, myargs[6].strvalue);
/* s3 = SubMenu(m, "Update");
c = ChoiceGroup(s3, ListUpdateProc);
ChoiceItem(c, myargs[6].strvalue); */
i = CommandItem(m, "Quit/Q", QuitProc);
/* edit = PulldownMenu(w, "Edit");
i = CommandItem(edit, "cut", StdCutTextProc);
i = CommandItem(edit, "copy", StdCopyTextProc);
i = CommandItem(edit, "paste", StdPasteTextProc); */
#endif
infilemode = NormalGroup(w, 3, 0, "Data Mode of Input Entry",systemFont, InFileTypeProc);
RadioButton(infilemode, "Text");
RadioButton(infilemode, "Binary");
/* SafeSetValue(infilemode, 2); */
GetPosition(infilemode, &r1);
outfilemode = NormalGroup(w, 3, 0, "Data Mode of Output Entry",systemFont, OutFileTypeProc);
RadioButton(outfilemode, "Text");
RadioButton(outfilemode, "Binary");
/* SafeSetValue(outfilemode, 2); */
r2.top = r1.top; r2.bottom = r1.bottom;
r2.left = r1.right + 80;
r2. right = r2.left + r1.right - r1.left;
SetPosition(outfilemode, &r2);
Break(w);
p = StaticPrompt(w, "Seq-entry", 0, dialogTextHeight, systemFont, '1');
Advance (w);
l = SingleList(w, 20, 3, ListProc);
Disable(l);
Advance(w);
ListEntry_start = DefaultButton(w, "Start", ListEntryStartProc);
Disable(ListEntry_start);
Advance(w);
ListEntry_next = DefaultButton(w, "Next", ListEntryNextProc);
Disable(ListEntry_next);
Advance(w);
ListEntry_specific = DefaultButton(w, "Specific", ListEntrySpecificProc);
Disable(ListEntry_specific);
Break(w);
p = StaticPrompt(w, "Enter Entry Code", 0, dialogTextHeight, systemFont, '1');
Advance (w);
Entry_code = DialogText(w, "", 15, (TxtActnProc) EnableProc);
Select(Entry_code);
Advance (w);
Entry_accept = DefaultButton(w, "Open", EntryOpenProc);
Disable(Entry_accept);
Break(w);
p = StaticPrompt(w, "Chain", 0, dialogTextHeight, systemFont, '1');
chain_panel = DocumentPanel(w, 200, stdLineHeight);
Break(w);
p = StaticPrompt(w, "Pdb Source:", 0, dialogTextHeight, systemFont, '1');
pdb_source = ScrollText(w, 38, 3, systemFont, TRUE, NULL);
Advance(w);
Break(w);
p = StaticPrompt(w, "Taxonomy Data:", 0, dialogTextHeight, systemFont, '1');
org = DocumentPanel(w,400,6*stdLineHeight);
Break(w);
p = StaticPrompt(w, "Taxonomy Accept?", 0, dialogTextHeight, systemFont, '1');
Break(w);
Tax_accept = DefaultButton(w, "Yes", TaxAcceptProc);
Advance(w);
p = StaticPrompt(w, "to ", 0, dialogTextHeight, systemFont, '1');
Advance(w);
Tax_all_accept = DefaultButton(w, "All", TaxAllAcceptProc);
Disable(Tax_all_accept);
Advance(w);
p = StaticPrompt(w, " or ", 0, dialogTextHeight, systemFont, '1');
Advance(w);
Tax_part_accept = DefaultButton(w, "Chain", TaxPartAcceptProc);
Disable(Tax_part_accept);
Advance(w);
lchain = SingleList(w, 2, 4, TaxPartAssignProc);
Advance(w);
Tax_finish = DefaultButton(w, "All Done", TaxFinishProc);
Disable(Tax_finish);
Break(w);
Tax_reject = DefaultButton(w, "No", ReLookupProc);
Disable(Tax_accept);
Disable(Tax_reject);
Break(w);
p = StaticPrompt(w, "Look up Taxonomy Database with another String?", 0, dialogTextHeight, systemFont, '1');
Advance(w);
ReLookup_accept = DefaultButton(w, "Yes", AddStringProc);
Advance(w);
ReLookup_reject = DefaultButton(w, "No", ReLookupRejectProc);
Disable(ReLookup_accept);
Disable(ReLookup_reject);
Break(w);
p = StaticPrompt(w,"Search Taxonomy Database with", 0, dialogTextHeight, systemFont, '1');
Advance(w);
Source_string = DialogText(w, "", 15, NULL);
Advance(w);
Source_string_accept = DefaultButton(w, "Start", SourceStringAcceptProc);
Disable(Source_string_accept);
Break(w);
Show(w);
Show(wpdb);
ProcessEvents();
return 0;
}
extern DialoG CreateBadgesDialog (
GrouP prnt,
SscTablesPtr stp
)
{
GrouP cts, tbl, g0, g1, g2, p;
FonT fnt;
Int2 i, hgt, max, wid;
SscBadgPtr sbp;
sbp = (SscBadgPtr) MemNew (sizeof (SscBadg));
if (sbp == NULL) return NULL;
p = HiddenGroup (prnt, -1, 0, NULL);
SetGroupSpacing (p, 10, 10);
SetObjectExtra (p, sbp, StdCleanupExtraProc);
sbp->dialog = (DialoG) p;
sbp->todialog = AwardDataPtrToAdjPage;
sbp->fromdialog = AdjPageToAwardDataPtr;
sbp->tables = stp;
SelectFont (systemFont);
hgt = LineHeight ();
badgColFmt [0].pixWidth = 25 * StringWidth ("X") + 5;
max = StringWidth ("Diamond Distance ");
badgColFmt [1].pixWidth = max + 5;
SelectFont (systemFont);
wid = 0;
for (i = 0; i < 2; i++) {
wid += badgColFmt [i].pixWidth;
}
tbl = HiddenGroup (p, -1, 0, NULL);
SetGroupSpacing (tbl, 10, 5);
SetGroupMargins (tbl, 5, 5);
g0 = HiddenGroup (tbl, 15, 0, NULL);
SetGroupSpacing (g0, 0, 3);
#ifdef WIN_MSWIN
fnt = systemFont;
#else
fnt = programFont;
#endif
StaticPrompt (g0, "Name", badgColFmt [0].pixWidth, 0, fnt, 'c');
StaticPrompt (g0, "Award", badgColFmt [1].pixWidth, 0, fnt, 'c');
sbp->badglog = DocumentPanel (tbl, wid + 2, NUM_BADGE_LINES * hgt + 2);
SetObjectExtra (sbp->badglog, sbp, NULL);
SetDocCache (sbp->badglog, NULL, NULL, NULL);
SetDocNotify (sbp->badglog, ChangeBadgTableSelect);
sbp->numBadgs = 0;
for (i = 0; i < NUM_BADGE_LINES; i++) {
AppendItem (sbp->badglog, PrintBadgTable, sbp, FALSE, 1,
&badgParFmt, badgColFmt, systemFont);
}
cts = HiddenGroup (p, -1, 0, NULL);
SetGroupSpacing (cts, 10, 10);
SetGroupMargins (cts, 5, 5);
g1 = HiddenGroup (cts, -10, 0, NULL);
SetGroupSpacing (g1, 10, 5);
StaticPrompt (g1, "Name", 0, popupMenuHeight, programFont, 'l');
sbp->name = CreateEnumPopupDialog (g1, TRUE, ChangeName, stp->payers.alist, (UIEnum) 0, sbp);
StaticPrompt (g1, "Award", 0, popupMenuHeight, programFont, 'l');
sbp->reason = CreateEnumPopupDialog (g1, TRUE, ChangeReason, reason_alist, (UIEnum) 0, sbp);
SetObjectExtra (sbp->reason, sbp, NULL);
g2 = HiddenGroup (cts, -10, 0, NULL);
SetGroupSpacing (g2, 10, 5);
StaticPrompt (g2, "Comment", 0, dialogTextHeight, programFont, 'l');
sbp->comment = DialogText (g2, "", 20, ChangeComment);
SetObjectExtra (sbp->comment, sbp, NULL);
AlignObjects (ALIGN_CENTER, (HANDLE) tbl, (HANDLE) cts, NULL);
sbp->numBadgs = 0;
sbp->currItem = 1;
return (DialoG) p;
}
