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;
}
static void ReadGIProc (ButtoN b)
{
WindoW w;
GrouP h, g;
ButtoN bt;
TexT pc;
CharPtr winprmt = "Entrez GI";
XOSPtr xosp;
if ((xosp = (XOSPtr) GetObjectExtra (b)) != NULL)
{
w = MovableModalWindow (-60, -33, -10, -10, winprmt, CloseGIWindowProc);
h = HiddenGroup (w, 1, 0, NULL);
StaticPrompt (h, winprmt, StringWidth (winprmt),
dialogTextHeight, NULL, 'c');
g = HiddenGroup (h, 2, 0, NULL);
pc = DialogText (g, "", 8, NULL);
bt = PushButton (h, " Okay ", SetGIProc);
SetObjectExtra (pc, xosp, NULL);
SetObjectExtra (bt, pc, NULL);
Show (w);
Select (w);
}
return;
}
static void ConsortParamProc (ButtoN b)
{
WindoW w;
GrouP h, h1, g, g1;
ButtoN b1, b2, b3;
XOSPtr xosp;
SeqScrollDataPtr ssdp = NULL;
if ((xosp = (XOSPtr) GetObjectExtra (b)) == NULL)
return;
if (xosp->flagParamWindow)
return;
w = FixedWindow (-75, -10, -10, -10,
"Consort Parameters", CloseParamWindowProc);
h = HiddenGroup (w, 1, 0, NULL);
h1 = HiddenGroup (h, 2, 0, NULL);
g1 = HiddenGroup (h1, 1, 0, NULL);
g = HiddenGroup (g1, 1, 0, NULL);
StaticPrompt (g, "xdelta", StringWidth ("1234567890"), dialogTextHeight,
NULL, 'c');
g = HiddenGroup (g1, 2, 0, NULL);
AddScrollControl (&ssdp, g, (Int2) xosp->xdeltaval,
(Int2) xosp->xdeltamin, (Int2) xosp->xdeltamax, 24);
g1 = HiddenGroup (h1, 1, 0, NULL);
g = HiddenGroup (g1, 1, 0, NULL);
StaticPrompt (g, "ydelta", StringWidth ("1234567890"), dialogTextHeight,
NULL, 'c');
g = HiddenGroup (g1, 2, 0, NULL);
AddScrollControl (&ssdp, g, (Int2) xosp->ydeltaval,
(Int2) xosp->ydeltamin, (Int2) xosp->ydeltamax, 24);
SetObjectExtra (w, ssdp, NULL);
h1 = HiddenGroup (h, 1, 0, NULL);
StaticPrompt (h1, "tree style", 0, dialogTextHeight, NULL, 'l');
g = HiddenGroup (h1, 1, 0, NULL);
RadioButton (g, "LR");
RadioButton (g, "TB");
SetValue (g, 1);
xosp->gstyle = g;
h1 = HiddenGroup (h, 3, 0, NULL);
b1 = PushButton (h1, "Accept", AcceptParamProc);
SetObjectExtra (b1, xosp, NULL);
b2 = PushButton (h1, "Apply ", UpdateParamProc);
SetObjectExtra (b2, xosp, NULL);
b3 = PushButton (h1, "Cancel", CancelParamProc);
SetObjectExtra (b3, xosp, NULL);
Show (w);
Select (w);
xosp->flagParamWindow = TRUE;
return;
}
extern DialoG CreateCalendarDateDialog (
GrouP prnt,
Pointer userdata,
DialogActnFunc actproc
)
{
CalendarDate cd;
DatePagePtr dpp;
DayTime dt;
GrouP f;
GrouP p;
p = HiddenGroup (prnt, 1, 0, NULL);
dpp = (DatePagePtr) MemNew (sizeof (DatePage));
if (dpp) {
SetObjectExtra (p, dpp, StdCleanupExtraProc);
dpp->dialog = (DialoG) p;
dpp->todialog = CalendarDatePtrToDatePage;
dpp->fromdialog = DatePageToCalendarDatePtr;
dpp->testdialog = NULL;
dpp->actproc = actproc;
dpp->userdata = userdata;
f = HiddenGroup (p, -6, 0, NULL);
dpp->month = PopupList (f, TRUE, ChangeDateProc);
SetObjectExtra (dpp->month, (Pointer) dpp, NULL);
InitEnumPopup (dpp->month, months_alist, NULL);
SetValue (dpp->month, 1);
dpp->day = PopupList (f, TRUE, ChangeDateProc);
SetObjectExtra (dpp->day, (Pointer) dpp, NULL);
InitEnumPopup (dpp->day, days_alist, NULL);
SetValue (dpp->day, 1);
StaticPrompt (f, ",", 0, popupMenuHeight, programFont, 'l');
dpp->year = PopupList (f, TRUE, ChangeDateProc);
SetObjectExtra (dpp->year, (Pointer) dpp, NULL);
InitEnumPopup (dpp->year, years_alist, NULL);
SetValue (dpp->year, 1);
if (GetDayTime (&dt)) {
cd.month = dt.tm_mon + 1;
cd.day = dt.tm_mday;
cd.year = dt.tm_year + 1900;
CalendarDatePtrToDatePage ((DialoG) p, (Pointer) &cd);
}
}
return (DialoG) p;
}
static void ConsignParamProc (ButtoN b)
{
WindoW w;
GrouP h, h1, g, g1;
ButtoN b1, b2, b3;
XOSPtr xosp;
SeqScrollDataPtr ssdp = NULL;
if ((xosp = (XOSPtr) GetObjectExtra (b)) == NULL)
return;
if (xosp->flagParamWindow)
return;
w = FixedWindow (-75, -10, -10, -10,
"Consign Parameters", CloseParamWindowProc);
h = HiddenGroup (w, 1, 0, NULL);
h1 = HiddenGroup (h, 2, 0, NULL);
g1 = HiddenGroup (h1, 1, 0, NULL);
g = HiddenGroup (g1, 1, 0, NULL);
StaticPrompt (g, "CU cut", StringWidth ("12345678"), dialogTextHeight,
NULL, 'c');
g = HiddenGroup (g1, 2, 0, NULL);
AddScrollControl (&ssdp, g, (Int2) xosp->cutoff,
(Int2) xosp->cutoffmin, (Int2) xosp->cutoffmax, 24);
g1 = HiddenGroup (h1, 1, 0, NULL);
g = HiddenGroup (g1, 1, 0, NULL);
StaticPrompt (g, "CU win", StringWidth ("12345678"), dialogTextHeight,
NULL, 'c');
g = HiddenGroup (g1, 2, 0, NULL);
AddScrollControl (&ssdp, g, (Int2) xosp->window,
(Int2) xosp->windowmin, (Int2) xosp->windowmax, 24);
SetObjectExtra (w, ssdp, NULL);
h1 = HiddenGroup (h, 3, 0, NULL);
b1 = PushButton (h1, "Accept", AcceptParamProc);
SetObjectExtra (b1, xosp, NULL);
b2 = PushButton (h1, "Apply ", UpdateParamProc);
SetObjectExtra (b2, xosp, NULL);
b3 = PushButton (h1, "Cancel", CancelParamProc);
SetObjectExtra (b3, xosp, NULL);
Show (w);
Select (w);
xosp->flagParamWindow = TRUE;
return;
}
static void DustParamProc (ButtoN b)
{
WindoW w;
GrouP h, g;
ButtoN b1, b2, b3;
XOSPtr xosp;
SeqScrollDataPtr ssdp_dust = NULL;
if ((xosp = (XOSPtr) GetObjectExtra (b)) == NULL)
return;
if (xosp->flagParamWindow)
return;
w = FixedWindow (-50, -10, -10, -10,
"Dust Parameters", CloseParamWindowProc);
h = HiddenGroup (w, 4, 0, NULL);
StaticPrompt (h, "window", StringWidth ("window"), dialogTextHeight,
NULL, 'c');
StaticPrompt (h, "cutoff", StringWidth ("cutoff"), dialogTextHeight,
NULL, 'c');
StaticPrompt (h, "minwin", StringWidth ("minwin"), dialogTextHeight,
NULL, 'c');
StaticPrompt (h, "linker", StringWidth ("linker"), dialogTextHeight,
NULL, 'c');
g = HiddenGroup (h, 2, 0, NULL);
AddScrollControl (&ssdp_dust, g, 64, 8, 256, 24);
g = HiddenGroup (h, 2, 0, NULL);
AddScrollControl (&ssdp_dust, g, 20, 2, 64, 24);
g = HiddenGroup (h, 2, 0, NULL);
AddScrollControl (&ssdp_dust, g, 4, 4, 128, 24);
g = HiddenGroup (h, 2, 0, NULL);
AddScrollControl (&ssdp_dust, g, 1, 1, 32, 24);
SetObjectExtra (w, ssdp_dust, NULL);
b1 = PushButton (h, "Accept", AcceptParamProc);
SetObjectExtra (b1, xosp, NULL);
b2 = PushButton (h, "Apply ", UpdateParamProc);
SetObjectExtra (b2, xosp, NULL);
b3 = PushButton (h, "Cancel", CancelParamProc);
SetObjectExtra (b3, xosp, NULL);
Show (w);
Select (w);
xosp->flagParamWindow = TRUE;
return;
}
static DialoG CreateCutoffsDialog (GrouP g, Uint2 rows, Int2 spacing,
Boolean flagIsMatrix)
{
EndPointsDialogPtr epp;
GrouP g1, c, c1;
PrompT es, ee, em;
TagListPtr tlp;
Uint2 columns;
c = HiddenGroup (g, 0 , 0, NULL);
epp = (EndPointsDialogPtr) MemNew (sizeof (EndPointsDialog));
if (epp != NULL)
{
SetObjectExtra (c, epp, CleanupCutoffProc);
epp->dialog = (DialoG) c;
epp->todialog = EndPointValNodeToEndPointDialog;
epp->fromdialog = EndPointDialogToEndPointValNode;
epp->testdialog = NULL;
epp->dialogmessage = NULL;
g1 = HiddenGroup (c, -1, 0, NULL);
SetGroupSpacing (g1, 4, 2);
if (flagIsMatrix)
c1 = HiddenGroup (g1, 3, 0, NULL);
else
c1 = HiddenGroup (g1, 2, 0, NULL);
SetGroupSpacing (c1, spacing, spacing);
es = StaticPrompt (c1, "Start", 0, 0, programFont, 'c');
ee = StaticPrompt (c1, "End", 0, 0, programFont, 'c');
if (flagIsMatrix)
{
em = StaticPrompt (c1, "Strand", 0, 0, programFont, 'c');
columns = 3;
ep_t = ep_types_m;
ep_w = ep_width_m;
}
else
{
columns = 2;
ep_t = ep_types_f;
ep_w = ep_width_f;
}
epp->dep = CreateTagListDialog (g1, rows, columns, spacing,
ep_t, ep_w, NULL,
EndPointToDialog,
DialogToEndPoint);
tlp = (TagListPtr) GetObjectExtra (epp->dep);
if (tlp != NULL)
{
AlignObjects (ALIGN_JUSTIFY, (HANDLE) tlp->control[0],
(HANDLE) es, NULL);
AlignObjects (ALIGN_JUSTIFY, (HANDLE) tlp->control[1],
(HANDLE) ee, NULL);
if (flagIsMatrix)
AlignObjects (ALIGN_JUSTIFY, (HANDLE) tlp->control[2],
(HANDLE) em, NULL);
}
}
return (DialoG) c;
}
static void MedlineViewFormMenus (WindoW w)
{
BaseFormPtr bfp;
IteM i;
MenU m;
bfp = (BaseFormPtr) GetObjectExtra (w);
if (bfp != NULL) {
m = PulldownMenu (w, "File");
FormCommandItem (m, "Close", bfp, VIB_MSG_CLOSE);
SeparatorItem (m);
i = CommandItem (m, "Duplicate View", DuplicateViewProc);
SetObjectExtra (i, bfp, NULL);
SeparatorItem (m);
FormCommandItem (m, "Export...", bfp, VIB_MSG_EXPORT);
SeparatorItem (m);
/*
FormCommandItem (m, "Save", bfp, VIB_MSG_SAVE);
FormCommandItem (m, "Save As...", bfp, VIB_MSG_SAVE_AS);
SeparatorItem (m);
*/
FormCommandItem (m, "Print...", bfp, VIB_MSG_PRINT);
m = PulldownMenu (w, "Edit");
FormCommandItem (m, COPY_MENU_ITEM, bfp, VIB_MSG_COPY);
}
}
static void DocSumFormMenus (WindoW w)
{
BaseFormPtr bfp;
ChoicE c;
IteM i;
MenU m;
MenU sub;
bfp = (BaseFormPtr) GetObjectExtra (w);
if (bfp != NULL) {
m = PulldownMenu (w, "File");
FormCommandItem (m, "Close", bfp, VIB_MSG_CLOSE);
SeparatorItem (m);
FormCommandItem (m, "Import...", bfp, VIB_MSG_IMPORT);
FormCommandItem (m, "Export...", bfp, VIB_MSG_EXPORT);
SeparatorItem (m);
/*
FormCommandItem (m, "Save", bfp, VIB_MSG_SAVE);
FormCommandItem (m, "Save As...", bfp, VIB_MSG_SAVE_AS);
SeparatorItem (m);
*/
FormCommandItem (m, "Print...", bfp, VIB_MSG_PRINT);
m = PulldownMenu (w, "Edit");
FormCommandItem (m, COPY_MENU_ITEM, bfp, VIB_MSG_COPY);
m = PulldownMenu (w, "Options");
CommandItem (m, "Preferences...", PreferencesProc);
SeparatorItem (m);
sub = SubMenu (m, "Neighbor Policy");
c = CreateNeighborDelayChoice (sub, bfp);
SetValue (c, 2); /* UseDelayedNeighbor */
SeparatorItem (m);
LoadDocsumOptionsMenu (m);
seqviewprocs.alignWithChecked = entrezglobals.alignWithChecked;
m = PulldownMenu (w, "Misc");
sub = SubMenu (m, "Font Selection");
i = CommandItem (sub, "DocSum Font...", DocSumFontChangeProc);
SetObjectExtra (i, bfp, NULL);
i = CommandItem (sub, "Display Font...", DisplayFontChangeProc);
SetObjectExtra (i, bfp, NULL);
}
}
static void CcpParamProc (ButtoN b)
{
WindoW w;
GrouP h, g, h1;
ButtoN b1, b2, b3;
XOSPtr xosp;
SeqScrollDataPtr ssdp_ccp = NULL;
if ((xosp = (XOSPtr) GetObjectExtra (b)) == NULL)
return;
if (xosp->flagParamWindow)
return;
w = FixedWindow (-50, -10, -10, -10,
"Ccp Parameters", CloseParamWindowProc);
h = HiddenGroup (w, 1, 0, NULL);
h1 = HiddenGroup (h, 2, 0, NULL);
StaticPrompt (h1, "window", StringWidth ("window"), dialogTextHeight,
NULL, 'c');
StaticPrompt (h1, "linker", StringWidth ("linker"), dialogTextHeight,
NULL, 'c');
h1 = HiddenGroup (h, 2, 0, NULL);
g = HiddenGroup (h1, 2, 0, NULL);
AddScrollControl (&ssdp_ccp, g, 22, 7, 42, 24);
g = HiddenGroup (h1, 2, 0, NULL);
AddScrollControl (&ssdp_ccp, g, 0, 0, 64, 24);
SetObjectExtra (w, ssdp_ccp, NULL);
h1 = HiddenGroup (h, 3, 0, NULL);
b1 = PushButton (h1, "Accept", AcceptParamProc);
SetObjectExtra (b1, xosp, NULL);
b2 = PushButton (h1, "Apply ", UpdateParamProc);
SetObjectExtra (b2, xosp, NULL);
b3 = PushButton (h1, "Cancel", CancelParamProc);
SetObjectExtra (b3, xosp, NULL);
Show (w);
Select (w);
xosp->flagParamWindow = TRUE;
return;
}
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);
}
static void DOT_SetupBlastParameters(GrouP g, DOTStartDataPtr sdata)
{
GrouP g0, g1, g2, g3, g4, g5, gtotal;
GrouP g_sub1, g_sub2;
gtotal = HiddenGroup(g, 1, 6, NULL);
sdata->plusorminus = NormalGroup(gtotal, 2,1, "", systemFont,NULL);
RadioButton(sdata->plusorminus, "both");
RadioButton(sdata->plusorminus, "plus-plus");
RadioButton(sdata->plusorminus, "plus-minus");
SetValue(sdata->plusorminus, 1);
g0 = HiddenGroup(gtotal, 2, 1, NULL);
StaticPrompt(g0, "Program name: ", 0, 0, systemFont, 'l');
sdata->progname = DialogText(g0, "blastn", 7, NULL);
g1 = NormalGroup(gtotal, 4, 2, "", systemFont,NULL);
StaticPrompt(g1, "query start -- ", 0, 0, systemFont, 'l');
sdata->querystart = DialogText(g1, "All", 5, NULL);
StaticPrompt(g1, "query stop -- ", 0, 0, systemFont, 'l');
sdata->querystop = DialogText(g1, "All", 5, NULL);
StaticPrompt(g1, "subject start -- ", 0, 0, systemFont, 'l');
sdata->subjectstart = DialogText(g1, "All", 5, NULL);
StaticPrompt(g1, "subject stop -- ", 0, 0, systemFont, 'l');
sdata->subjectstop = DialogText(g1, "All", 5, NULL);
g3 = NormalGroup(gtotal, 1, 3, "Local Alignment Options", programFont, NULL);
g_sub1 = NormalGroup(g3, 1,1, "", programFont,NULL);
g_sub2 = HiddenGroup(g_sub1, 3, 2, NULL);
sdata->gapped = HiddenGroup(g_sub2, 0, 2, NULL);
RadioButton(sdata->gapped, "gapped");
RadioButton(sdata->gapped, "ungapped");
SetValue(sdata->gapped, 1);
g4 = NormalGroup(gtotal, 1,1, "Mask Regions", programFont,NULL);
g_sub1=HiddenGroup(g4, 0, 2, NULL);
sdata->mask_repeats= CheckBox(g_sub1, "Mask Repeats", NULL);
SetStatus(sdata->mask_repeats, FALSE);
sdata->mask_simple = CheckBox(g_sub1, "Mask Simple Sequence", NULL);
SetStatus(sdata->mask_simple, TRUE);
sdata->megablast= CheckBox(gtotal, "Mega Blast", DOT_MegaBlast2Defaults);
SetObjectExtra(sdata->megablast, (Pointer)sdata, NULL);
SetStatus(sdata->megablast, FALSE);
g5 = NormalGroup(gtotal, 1,1, "", programFont,NULL);
g_sub1 = HiddenGroup(g5, 2, 2, NULL);
StaticPrompt(g_sub1, "E-value: e-", 0, 0, programFont, 'l');
sdata->eval = DialogText(g_sub1, "1", 5, NULL);
StaticPrompt(g_sub1, "wordsize:", 0, 0, programFont, 'l');
sdata->wordsize = DialogText(g_sub1, "11", 5, NULL);
}
Int2 Main (void)
{
WindoW w;
GrouP g;
ButtoN b1, b2, b3, b4, b5;
XOSPtr xosp;
ProcessUpdatesFirst (FALSE);
xosp = SetUp ();
w = FixedWindow (-50, -33, -10, -10,
"Consign", CloseConsignParentProc);
g = HiddenGroup (w, 7, 0, NULL);
b1 = PushButton (g, " Input GI ", ReadGIProc);
b2 = PushButton (g, "Input FastA", ReadFileProc);
b3 = PushButton (g, " Parameters", ConsignParamProc);
b4 = PushButton (g, " Consign ", ConsignProc);
b5 = PushButton (g, " Finish ", EndProg);
SetObjectExtra (w, xosp, NULL);
SetObjectExtra (b1, xosp, NULL);
SetObjectExtra (b2, xosp, NULL);
SetObjectExtra (b3, xosp, NULL);
SetObjectExtra (b4, xosp, NULL);
SetObjectExtra (b5, xosp, NULL);
Show (w);
ProcessEvents ();
return 0;
}
extern void DOT_readExisting(ButtoN b)
{
WindoW w;
GrouP g, g2, c;
Char szAppName [10]={"D-Viewer"};
DOTStartDataPtr sdata;
sdata=(DOTStartDataPtr)GetObjectExtra(ParentWindow(b));
if (!sdata) return;
Hide(sdata->hStart);
w = MovableModalWindow (-50, -33, -10, -10, "Local File", NULL);
SetObjectExtra(w, (Pointer)sdata, NULL);
if (w==NULL) return;
g = NormalGroup(w, 1, 3, "File name:", systemFont, NULL);
SetGroupMargins(g, 10, 10);
SetGroupSpacing(g, 10, 20);
g2=HiddenGroup(g, 2, 2, NULL);
sdata->id1 = DialogText(g2,"",25, NULL);
b = PushButton(g2, " browse...", DOT_OpenBrowse1Proc);
SetObjectExtra (b, (Pointer) sdata, NULL);
if (!GetStatus(sdata->seqa)){
sdata->id2 = DialogText(g2,"",25, NULL);
b = PushButton(g2, " browse...", DOT_OpenBrowse2Proc);
SetObjectExtra (b, (Pointer) sdata, NULL);
if (GetStatus(sdata->dot))
DOT_SetupDotParameters(g, sdata, TRUE);
else if (GetStatus(sdata->auto_blast))
DOT_SetupDotParameters(g, sdata, FALSE);
else
DOT_SetupBlastParameters(g, sdata);
}
c = HiddenGroup (g, 4, 0, NULL);
DefaultButton(c, "OK", DOT_OpenAcceptProc);
PushButton(c, "Cancel", DOT_CancelProc);
Select(w);
Show(w);
}
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 BioseqViewFormMenus (WindoW w)
{
BaseFormPtr bfp;
IteM i;
MenU m;
MenU sub;
bfp = (BaseFormPtr) GetObjectExtra (w);
if (bfp != NULL) {
m = PulldownMenu (w, "File");
FormCommandItem (m, "Close", bfp, VIB_MSG_CLOSE);
SeparatorItem (m);
i = CommandItem (m, "Duplicate View", DuplicateViewProc);
SetObjectExtra (i, bfp, NULL);
SeparatorItem (m);
FormCommandItem (m, "Export...", bfp, VIB_MSG_EXPORT);
SeparatorItem (m);
/*
FormCommandItem (m, "Save", bfp, VIB_MSG_SAVE);
FormCommandItem (m, "Save As...", bfp, VIB_MSG_SAVE_AS);
SeparatorItem (m);
*/
FormCommandItem (m, "Print...", bfp, VIB_MSG_PRINT);
m = PulldownMenu (w, "Edit");
FormCommandItem (m, COPY_MENU_ITEM, bfp, VIB_MSG_COPY);
m = PulldownMenu (w, "Misc");
sub = SubMenu (m, "Font Selection");
i = CommandItem (sub, "Display Font...", DisplayFontChangeProc);
SetObjectExtra (i, bfp, NULL);
SeparatorItem (m);
CreateLegendItem (m, bfp);
}
}
static void DOT_GetFromNetwork(ButtoN b)
{
WindoW w;
GrouP g, c;
Char szAppName [10]={"D-Viewer"};
DOTStartDataPtr sdata;
sdata=(DOTStartDataPtr)GetObjectExtra(ParentWindow(b));
if (!sdata) return;
Hide(sdata->hStart);
w = MovableModalWindow (-50, -33, -10, -10, "Download From NCBI", NULL);
SetObjectExtra(w, (Pointer)sdata, NULL);
if (w==NULL) return;
SetGroupSpacing (w, 10, 10);
/*accesion*/
g = NormalGroup (w, 1, 4, "Entrez GI or Accession", systemFont,NULL);
sdata->id1=DialogText (g, "", 10, NULL);
sdata->id2=DialogText (g, "", 10, NULL);
SetObjectExtra(w, (Pointer)sdata, NULL);
if (GetStatus(sdata->dot))
DOT_SetupDotParameters(g, sdata, TRUE);
else if (GetStatus(sdata->auto_blast))
DOT_SetupDotParameters(g, sdata, FALSE);
else if (GetStatus(sdata->reg_blast))
DOT_SetupBlastParameters(g, sdata);
c = HiddenGroup (g, 4, 0, NULL);
SetGroupMargins(c, 10, 10);
SetGroupSpacing (c, 10, 20);
DefaultButton (c, "Retrieve", DOT_AcceptNetworkProc);
PushButton (c, "Cancel", DOT_CancelProc);
AlignObjects (ALIGN_CENTER, (HANDLE) g, (HANDLE) c, NULL);
RealizeWindow (w);
Show (w);
Select (w);
Update ();
}
NLM_EXTERN DialoG CommentRuleDialog (GrouP h, Nlm_ChangeNotifyProc change_notify, Pointer change_userdata)
{
CommentRuleDlgPtr dlg;
GrouP p, g1, g2;
dlg = (CommentRuleDlgPtr) MemNew (sizeof (CommentRuleDlgData));
if (dlg == NULL)
{
return NULL;
}
p = HiddenGroup (h, -1, 0, NULL);
SetObjectExtra (p, dlg, StdCleanupExtraProc);
dlg->dialog = (DialoG) p;
dlg->todialog = CommentRuleToDialog;
dlg->fromdialog = CommentRuleFromDialog;
dlg->change_notify = change_notify;
dlg->change_userdata = change_userdata;
g1 = HiddenGroup (p, 2, 0, NULL);
StaticPrompt (g1, "Prefix", 0, popupMenuHeight, programFont, 'r');
dlg->prefix = DialogText (g1, "", 20, ChangeCommentRuleDialogPrefix);
SetObjectExtra (dlg->prefix, dlg, NULL);
g2 = HiddenGroup (p, 3, 0, NULL);
StaticPrompt (g2, "Field Name", commentruleedit_widths[COMMENTRULEEDIT_FIELDNAME_COLUMN] * Nlm_stdCharWidth, popupMenuHeight, programFont, 'c');
StaticPrompt (g2, "Match Expression", commentruleedit_widths[COMMENTRULEEDIT_MATCH_COLUMN] * Nlm_stdCharWidth, popupMenuHeight, programFont, 'c');
StaticPrompt (g2, "Required", commentruleedit_widths[COMMENTRULEEDIT_REQUIRED_COLUMN] * Nlm_stdCharWidth, popupMenuHeight, programFont, 'c');
dlg->fields_dlg = CommentRuleFieldsDialog (p);
AlignObjects (ALIGN_CENTER, (HANDLE) g1, (HANDLE) g2, (HANDLE) dlg->fields_dlg, NULL);
return (DialoG) p;
}
/*******************************************************************************
Function : DDV_StartMainWin_Master()
Purpose : start DDV main window as a standalone application. Never use this
function for other purpose. If you want to start DDV as a slave, take a
look at the functions below.
Parameters : mWin_d; main program data
ldp; logo data
Return value : handle to the DDV main window
*******************************************************************************/
static WindoW DDV_StartMainWin_Master(DdvMainWinPtr mWin_d,UDVLogoDataPtr ldp)
{
Int2 Margins;
WindoW w;
Boolean bRet;
/*main window*/
Margins=10*stdCharWidth;
w=DocumentWindow(Margins,Margins ,-10,-10,
szAppName,
DDV_WinMainProgQuit,
DDV_WinMainResize);
if (w==NULL){
Message (MSG_ERROR, "Viewer creation failed.");
return(NULL);
}
SetObjectExtra (w, (Pointer)mWin_d, (FreeProc)DDV_WinMainCleanup);
SetAppProperty("UDVLogoData",(Pointer)ldp);
mWin_d->hWndMain=w;
/*this is an autonomous viewer*/
mWin_d->AutonomeViewer=TRUE;
/*use the Network ?*/
mWin_d->UseNetwork=TRUE;/*DDV_UseNetwork();*/
bRet=DDV_CreateViewerPanel(w,mWin_d,NULL,FALSE); /*FALSE for viewer */
if (!bRet) return(NULL);
/*init logo_panel*/
LogoFontCreate(&ldp->f1,&ldp->f2,&ldp->f3);
StringCpy(ldp->szTitle,"DDV");
StringCpy(ldp->szDesc,", a MSA viewer/editor");
mWin_d->Show_logo=TRUE;
/*set the function to get a gi over the network*/
mWin_d->fetchSepProc=(UdvFetchSeqEntryProc)EntrezSeqEntryGet;
mWin_d->NetCfgMenuProc=DDV_ConfigNetwork;
mWin_d->NetStartProc=DDV_StartEntrez;
return(w);
}
static void DOT_StartupWindow(void)
{
WindoW w;
GrouP c, cg;
DOTStartDataPtr sdata;
PaneL p;
w = FixedWindow (-50, -33, -10, -10, "Welcome to D-Viewer", StdCloseWindowProc);
p = SimplePanel (w, 28 * stdCharWidth, 4 * stdLineHeight, DOT_DrawAbout);
sdata=(DOTStartDataPtr)MemNew(sizeof(DOTStartData));
sdata->hStart=w;
cg=HiddenGroup(w, 4, 0, NULL);
sdata->dot=CheckBox(cg, "Dot plot", DOT_CheckDot);
SetStatus(sdata->dot, TRUE);
sdata->reg_blast=CheckBox(cg, "Bl2Seqs", DOT_CheckRegBlast);
SetStatus(sdata->reg_blast, FALSE);
sdata->auto_blast = CheckBox(cg, "Scoop", DOT_CheckAutoBlast);
SetStatus(sdata->auto_blast, FALSE);
sdata->seqa=CheckBox(cg, "SeqAnnote File", DOT_CheckSA);
SetStatus(sdata->seqa, FALSE);
c = HiddenGroup (w, 1, 3, NULL);
SetGroupMargins(c, 10, 10);
SetGroupSpacing (c, 10, 10);
sdata->entrez=PushButton (c, "Fetch from Entrez", DOT_GetFromNetwork);
Enable(sdata->entrez);
sdata->file=PushButton (c, "Open Local Files", DOT_readExisting);
Enable(sdata->file);
PushButton (c, "Quit Program", DOT_quitProgram);
SetObjectExtra(w, (Pointer)sdata, StdCleanupExtraProc);
AlignObjects (ALIGN_CENTER, (HANDLE) p, (HANDLE) c, NULL, NULL);
Select(w);
Show(w);
ProcessEvents();
}
Int2 LIBCALLBACK FilterDustFunc (Pointer data)
{
OMProcControlPtr ompcp;
BioseqPtr bsp;
GraphViewFormPtr gvp;
WindoW w;
OMUserDataPtr omudp;
SeqPortPtr spp;
Int4 exval[4];
ompcp = (OMProcControlPtr) data;
if (ompcp == NULL || ompcp->input_itemtype == 0)
return OM_MSG_RET_ERROR;
switch (ompcp->input_itemtype)
{
case OBJ_BIOSEQ:
bsp = (BioseqPtr) ompcp->input_data;
break;
default:
return OM_MSG_RET_ERROR;
}
if (bsp != NULL)
{
if (!ISA_na (bsp->mol))
return OM_MSG_RET_ERROR;
w = (WindoW) CreateGraphViewForm (-50, -33, "Dust Filter",
bsp, GRAPH_FILTER);
}
else
{
return OM_MSG_RET_ERROR;
}
if ((gvp = (GraphViewFormPtr) GetObjectExtra (w)) == NULL)
{
/* w = Remove (w); */
return OM_MSG_RET_ERROR;
}
else
{
SetObjectExtra (w, gvp, CleanupGCFilterForm);
gvp->graphtype = GRAPH_FILTER;
gvp->window = 64;
exval[0] = 64;
exval[1] = 20;
exval[2] = 4;
exval[3] = 1;
gvp->type = NA_FILTER_DUST;
gvp->entityID = ompcp->input_entityID;
gvp->itemID = ompcp->input_itemID;
gvp->procID = ompcp->proc->procid;
/* msg stuff */
gvp->userKEY = OMGetNextUserKey ();
if ((omudp = ObjMgrAddUserData (gvp->entityID, gvp->procID,
OMPROC_FILTER, gvp->userKEY)) != NULL)
{
omudp->userdata.ptrvalue = (Pointer) gvp;
omudp->messagefunc = FilterMsgFunc;
/* omudp->messagefunc = NULL; */
}
WatchCursor ();
spp = SeqPortNew (bsp, 0, bsp->length-1, 0, Seq_code_ncbi2na);
gvp->sgp = FilterSeq (spp, 0, bsp->length-1, NULL, NULL,
exval, gvp->type);
SeqPortFree (spp);
if (gvp->sgp == NULL)
{
/* w = Remove (w); */
ArrowCursor ();
return OM_MSG_RET_ERROR;
}
else
{
BioseqPtrToGraphViewForm (gvp->form, gvp->sgp);
}
}
/* put the screen up */
Show (w);
Select (w);
return OM_MSG_RET_DONE;
}
static void DustProc (ButtoN b)
{
Boolean flagHaveNet;
SeqEntryPtr sep;
Int4 gi;
CharPtr fastafile;
FILE *fiop;
CharPtr title;
GatherScopePtr gsp;
XOSPtr xosp;
XISPtr xisp;
Int4 i;
DustRegionPtr drp;
FloatHiPtr fhi, fhit;
FloatHi minscore, maxscore, deltascore;
Int4 Yscale;
SeqGraphPtr sgp;
WindoW w;
PaneL p;
if ((xosp = (XOSPtr) GetObjectExtra (b)) == NULL)
return;
gsp = xosp->gsp;
gi = xosp->gi;
fastafile = xosp->filename;
if (gi > 0)
{
if (!EntrezInit ("dustv", FALSE, &flagHaveNet))
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 102,
"Entrez init failed");
ErrShow ();
return;
}
}
if (gi > 0)
{
sep = EntrezSeqEntryGet (gi, SEQENTRY_READ_BIOSEQ);
}
else if (fastafile != NULL)
{
if ((fiop = FileOpen (fastafile, "r")) == NULL)
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 103,
"Failed to open FastA file");
ErrShow ();
return;
}
sep = FastaToSeqEntry (fiop, TRUE);
}
else
{
sep = NULL;
}
if (sep == NULL)
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 104,
"No seqentry");
ErrShow ();
return;
}
else
{
xosp->sep = sep;
xosp->bsp = NULL;
xosp->gi = gi;
GatherSeqEntry (sep, (Pointer) xosp, GetBioseq,
(Pointer) gsp);
if (xosp->bsp != NULL)
{
if (ISA_na (xosp->bsp->mol))
{
drp = DustBioseq (xosp->bsp, 0, xosp->bsp->length-1, xosp->ddp);
fhit = fhi = DustForGraph (drp, xosp->bsp->length, 0,
xosp->bsp->length-1);
DustRegionFree (drp);
if (fhi == NULL)
{
return;
}
minscore = 0.0;
maxscore = 0.0;
for (i = 0; i < xosp->bsp->length; i++)
{
if (*fhit > maxscore)
maxscore = *fhit;
fhit++;
}
title = FastaTitle (xosp->bsp, "DUST: >", NULL);
if ((sgp = SeqGraphNew ()) == NULL)
{
MemFree (fhi);
MemFree (title);
return;
}
xisp = MemNew (sizeof (XIS));
xisp->sgp = sgp;
xisp->Xscale = 1;
xisp->Yscale = 1;
xisp->Xaxislen = 250;
xisp->Yaxislen = 100;
xisp->Xprelen = 0;
xisp->Yprelen = 50;
xisp->Xpostlen = 50;
xisp->Ypostlen = 50;
sgp->loc = SeqLocIntNew (0, xosp->bsp->length-1, xosp->bsp->strand,
xosp->bsp->id);
sgp->title = title;
sgp->flags[2] = 1;
sgp->numval = xosp->bsp->length;
sgp->values = (Pointer) fhi;
fhit = fhi;
deltascore = maxscore - minscore;
if ((Yscale = 100 / (Int4) deltascore) > 0)
{
minscore *= Yscale;
maxscore *= Yscale;
for (i = 0; i < xosp->bsp->length; i++)
{
*fhit *= Yscale;
fhit++;
}
xisp->Yscale = Yscale;
}
sgp->max.realvalue = maxscore;
sgp->min.realvalue = minscore;
w = FixedWindow (-50, -50, -10, -10, "Dust", CloseGraphWindowProc);
SetObjectExtra (w, xisp, NULL);
p = SimplePanel (w,
(Int2) (xisp->Xprelen+xisp->Xaxislen+xisp->Xpostlen),
(Int2) (xisp->Yprelen+xisp->Yaxislen+xisp->Ypostlen),
DrawGraph);
SetPanelClick (p, NULL, NULL, NULL, CloseGraphPanelProc);
RealizeWindow (w);
Show (w);
}
else
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 101, "Not a nucleic acid Bioseq");
ErrShow ();
}
}
else
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 101, "No Bioseq in SeqEntry");
ErrShow ();
}
xosp->sep = sep = SeqEntryFree (sep);
}
if (gi > 0)
EntrezFini ();
else
FileClose (fiop);
return;
}
extern void CreateAddSpecialDialog (
GrouP prnt,
SscTablesPtr stp
)
{
Char buf [64];
GrouP g, h, m, p;
MiscRatePtr mrp;
SscSpecPtr ssp;
Char str [16];
if (stp == NULL) return;
mrp = stp->miscrate_table;
if (mrp == NULL) return;
ssp = (SscSpecPtr) MemNew (sizeof (SscSpec));
if (ssp == NULL) return;
p = HiddenGroup (prnt, -1, 0, NULL);
SetGroupSpacing (p, 10, 10);
SetObjectExtra (p, ssp, StdCleanupExtraProc);
ssp->dialog = (DialoG) p;
ssp->tables = stp;
ssp->whichspec = HiddenGroup (p, 5, 0, ChangeSpecType);
SetObjectExtra (ssp->whichspec, ssp, NULL);
RadioButton (ssp->whichspec, "Visiting");
RadioButton (ssp->whichspec, "Affiliated");
RadioButton (ssp->whichspec, "Transient");
ssp->namegroup = HiddenGroup (p, 15, 0, NULL);
SetGroupSpacing (ssp->namegroup, 5, 3);
StaticPrompt (ssp->namegroup, "Name", 0, dialogTextHeight, programFont, 'l');
ssp->name = DialogText (ssp->namegroup,
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
0, ChangeSpecName);
SetObjectExtra (ssp->name, (Pointer) ssp, NULL);
SetTitle (ssp->name, "");
Hide (ssp->namegroup);
h = HiddenGroup (p, 0, 0, NULL);
SetGroupMargins (h, 10, 10);
g = HiddenGroup (h, -1, 0, NULL);
Hide (g);
ssp->controls [EMPTY_PAGE] = g;
g = HiddenGroup (h, -1, 0, NULL);
if (PrintWholeDollar (mrp->visiting_fee, str)) {
sprintf (buf, "Charge $%s Visiting Fee", str);
} else {
sprintf (buf, "Charge Visiting Fee");
}
ssp->visitfee = CheckBox (g, buf, NULL);
SetStatus (ssp->visitfee, TRUE);
Hide (g);
ssp->controls [ADD_VISIT_PAGE] = g;
g = HiddenGroup (h, -1, 0, NULL);
if (PrintWholeDollar (mrp->affiliated_fee, str)) {
sprintf (buf, "Charge $%s Affiliated Fee", str);
} else {
sprintf (buf, "Charge Affiliated Fee");
}
ssp->affilfee = CheckBox (g, buf, NULL);
SetStatus (ssp->visitfee, TRUE);
Hide (g);
ssp->controls [ADD_AFFIL_PAGE] = g;
g = HiddenGroup (h, -1, 0, NULL);
SetGroupSpacing (g, 10, 10);
m = HiddenGroup (g, 1, 0, NULL);
SetGroupSpacing (m, 5, 3);
ProrateDollarAmount (mrp->transient_fee, 1, FALSE, stp, &(ssp->proratedtrans));
if (PrintWholeDollar (&(ssp->proratedtrans), str)) {
sprintf (buf, "Charge $%s Transient Dues", str);
} else {
sprintf (buf, "Charge Transient Dues");
}
ssp->transfee = CheckBox (m, buf, NULL);
SetStatus (ssp->transfee, TRUE);
ProrateDollarAmount (mrp->ssa_regular, 5, TRUE, stp, &(ssp->proratedssa));
if (PrintWholeDollar (&(ssp->proratedssa), str)) {
sprintf (buf, "Charge $%s SSA Dues (Prorated May-Apr)", str);
} else {
sprintf (buf, "Charge SSA Dues");
}
ssp->transssa = CheckBox (m, buf, NULL);
SetStatus (ssp->transssa, TRUE);
ssp->jobs = CreateClubJobsDialog (g);
AlignObjects (ALIGN_CENTER,
(HANDLE) m,
(HANDLE) ssp->jobs,
NULL);
Hide (g);
ssp->controls [ADD_TRANS_FEE] = g;
ssp->addspec = PushButton (p, "Add Special Member", AddSpecMember);
SetObjectExtra (ssp->addspec, (Pointer) ssp, NULL);
Disable (ssp->addspec);
ssp->currPage = 0;
AlignObjects (ALIGN_CENTER,
(HANDLE) ssp->whichspec,
(HANDLE) ssp->namegroup,
(HANDLE) ssp->controls [EMPTY_PAGE],
(HANDLE) ssp->controls [ADD_VISIT_PAGE],
(HANDLE) ssp->controls [ADD_AFFIL_PAGE],
(HANDLE) ssp->controls [ADD_TRANS_FEE],
(HANDLE) ssp->addspec,
NULL);
}
static void ConsignProc (ButtoN b)
{
XOSPtr xosp;
XISPtr xisp;
ComPatPtr cpp, cpph;
ValNodePtr orflist;
SeqLocPtr slp, slpn;
Int4 start, stop;
Uint1 strand;
SeqPortPtr spp;
Uint1Ptr aaseq;
Int4 ntpos, aapos;
Uint1 cdn[3];
SeqAlignPtr sap, sapn;
FloatHi probcut;
Int4 clustmin, findmin;
Int4 i, n, endpos, XLength, XScale, shift;
Int4 iframe, frame, top, orftop[6];
FloatHiPtr score, expandscore;
FloatHi maxscore;
Int4Ptr tableGlobal;
SeqGraphPtr sgp, sgpn;
WindoW w;
VieweR v;
GrouP g;
SegmenT seg;
GraphSentPtr gsp;
Char numberbuffer[32];
if ((xosp = (XOSPtr) GetObjectExtra (b)) == NULL)
return;
if (xosp->bsp == NULL)
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 101, "No Bioseq");
ErrShow ();
return;
}
WatchCursor ();
cpph = cpp = ReadPrositePattern (xosp->pattern_file, TRUE, -1, NULL, NULL);
if (cpph == NULL)
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 101,
"read failed %s", xosp->pattern_file);
ErrShow ();
ArrowCursor ();
return;
}
xosp->orflist = GetOrfList (xosp->bsp, (Int2) (xosp->orfcut));
xosp->orflist = ClearNonMetOrfs (xosp->orflist);
orflist = xosp->orflist;
while (orflist != NULL)
{
slp = (SeqLocPtr) orflist->data.ptrvalue;
if (slp->choice == 0)
{
orflist = orflist->next;
continue;
}
if (slp->choice == SEQLOC_MIX)
slp = (SeqLocPtr) slp->data.ptrvalue;
start = SeqLocStart (slp);
stop = SeqLocStop (slp);
strand = SeqLocStrand (slp);
if (strand != Seq_strand_both)
strand = Seq_strand_both;
if (stop - start + 1 >= xosp->minimumseed)
{
spp = SeqPortNew (xosp->bsp, start, stop, strand, Seq_code_ncbi4na);
aaseq = (Uint1Ptr) MemNew ((size_t)
(sizeof (Uint1) * (((stop-start)/3)+2)));
ntpos = start;
aapos = 0;
while (ntpos < start+3)
{
cdn[0] = SeqPortGetResidue (spp);
ntpos++;
cdn[1] = SeqPortGetResidue (spp);
ntpos++;
cdn[2] = SeqPortGetResidue (spp);
ntpos++;
aaseq[aapos] = AAForCodon (cdn, xosp->gcdi);
aapos++;
}
while (ntpos <= stop)
{
cdn[0] = SeqPortGetResidue (spp);
ntpos++;
cdn[1] = SeqPortGetResidue (spp);
ntpos++;
cdn[2] = SeqPortGetResidue (spp);
ntpos++;
aaseq[aapos] = AAForCodon (cdn, xosp->gcd);
aapos++;
}
SeqPortFree (spp);
aaseq[aapos] = 0;
cpp = cpph;
while (cpp != NULL)
{
sap = PatternMatch (aaseq, 0, Seq_strand_plus, SeqLocId (slp),
cpp, 0, Seq_strand_unknown, FALSE);
if (sap != NULL)
break;
cpp = cpp->nextpattern;
}
MemFree (aaseq);
if (sap != NULL)
{
SeqLocLink (&(xosp->slps), SeqLocDup (slp));
}
while (sap != NULL)
{
sapn = sap->next;
SeqAlignFree (sap);
sap = sapn;
}
}
orflist = orflist->next;
}
ComPatFree (cpph);
orflist = xosp->orflist;
while (orflist != NULL)
{
slp = (SeqLocPtr) orflist->data.ptrvalue;
if (slp->choice > 0)
SeqLocLink (&(xosp->slpa), SeqLocDup (slp));
while (slp != NULL)
{
slpn = slp->next;
SeqLocFree (slp);
slp = slpn;
}
orflist->data.ptrvalue = NULL;
orflist = orflist->next;
}
xosp->orflist = ValNodeFree (xosp->orflist);
probcut = xosp->probcut;
clustmin = xosp->clustmin;
findmin = xosp->findmin;
xosp->slpb = FindSimilarBiasOrfs (xosp->sep, probcut, clustmin, findmin,
xosp->slps, xosp->slpa);
tableGlobal = CodonTableFromSeqLoc (xosp->bsp, xosp->slpb);
seg = NULL;
top = 0;
xisp = (XISPtr) MemNew (sizeof (XIS));
frame = 0;
for (iframe = 0; iframe < 6; iframe++)
{
endpos = (xosp->bsp->length + 3 - frame - xosp->window) / 3;
if (iframe < 3)
score = BiasScoreBioseq (xosp->bsp, tableGlobal, xosp->window,
frame, Seq_strand_plus);
else
score = BiasScoreBioseq (xosp->bsp, tableGlobal, xosp->window,
frame, Seq_strand_minus);
maxscore = 0.0;
for (i = 0; i < endpos; i++)
if (score[i] > maxscore)
maxscore = score[i];
expandscore = (FloatHiPtr) MemNew (sizeof (FloatHi) * xosp->bsp->length);
for (i = 0; i < xosp->window/2; i++)
expandscore[i] = maxscore;
n = 0;
while (i < xosp->bsp->length)
{
if (n < endpos)
expandscore[i] = score[n];
else
expandscore[i] = maxscore;
i++;
if (i%3 == 0)
n++;
}
MemFree (score);
score = expandscore;
sgp = SeqGraphNew ();
if (xisp->sgp == NULL)
{
xisp->sgp = sgp;
}
else
{
sgpn = xisp->sgp;
while (sgpn->next != NULL)
sgpn = sgpn->next;
sgpn->next = sgp;
}
XLength = xosp->bsp->length;
if (XLength > 1200)
XLength = 1200;
XScale = xosp->bsp->length / XLength;
if (xosp->bsp->length % XLength != 0)
XScale++;
sgp->loc = SeqLocIntNew (0, xosp->bsp->length-1, xosp->bsp->strand,
xosp->bsp->id);
sgp->flags[2] = 1;
sgp->numval = xosp->bsp->length;
sgp->values = (Pointer) score;
sgp->max.realvalue = maxscore;
sgp->min.realvalue = 0.0;
sgp->flags[1] = 1;
sgp->a = 4.0;
sgp->b = 0.0;
if (seg == NULL)
seg = CreatePicture ();
if ((gsp = AddGraphSentinelToPicture (sgp, xosp->bsp, seg, 0,
top, 0, NULL)) != NULL)
{
sprintf (numberbuffer, "%ld", 1L);
AddLabel (seg, gsp->box.left, gsp->bottom-20,
numberbuffer, SMALL_TEXT, 0, MIDDLE_CENTER, 0);
sprintf (numberbuffer, "%ld", (long) xosp->bsp->length);
AddLabel (seg, gsp->box.left+xosp->bsp->length, gsp->bottom-20,
numberbuffer, SMALL_TEXT, 0, MIDDLE_CENTER, 0);
}
shift = (Int4) (maxscore*sgp->a);
orftop[iframe] = top - shift - 38;
top -= (shift+56);
frame++;
if (frame == 3)
{
top -= 24;
frame = 0;
}
}
frame = 0;
for (iframe = 0; iframe < 6; iframe++)
{
if (iframe < 3)
strand = Seq_strand_plus;
else
strand = Seq_strand_minus;
shift = 0;
if (xosp->slpa != NULL)
{
AddOrfClass (xosp->slpa, seg, orftop, iframe, frame,
shift, strand, YELLOW_COLOR, 5);
shift += 4;
}
if (xosp->slpk != NULL)
{
AddOrfClass (xosp->slpk, seg, orftop, iframe, frame,
shift, strand, GREEN_COLOR, 5);
shift += 4;
}
if (xosp->slpb != NULL)
{
AddOrfClass (xosp->slpb, seg, orftop, iframe, frame,
shift, strand, BLUE_COLOR, 5);
shift += 4;
}
if (xosp->slps != NULL)
{
AddOrfClass (xosp->slps, seg, orftop, iframe, frame,
shift, strand, RED_COLOR, 5);
}
frame++;
if (frame == 3)
frame = 0;
}
MemFree (tableGlobal);
start = 20;
stop = 20 + (50*XScale);
top = orftop[5] - 40;
if (xosp->slpa != NULL)
{
top -= 12;
AddAttribute (seg, (COLOR_ATT|STYLE_ATT|SHADING_ATT|WIDTH_ATT),
YELLOW_COLOR, SOLID_LINE, SOLID_SHADING, 5,
0);
AddLine (seg, start, top, stop, top, FALSE, 0);
AddAttribute (seg, (COLOR_ATT|STYLE_ATT|SHADING_ATT|WIDTH_ATT),
BLACK_COLOR, SOLID_LINE, SOLID_SHADING, STD_PEN_WIDTH,
0);
AddLabel (seg, stop+(20*XScale), top,
"All Met-init'd ORFs equal to or greater than 50 codons",
SMALL_TEXT, 0, MIDDLE_RIGHT, 0);
}
if (xosp->slpk != NULL)
{
top -= 12;
AddAttribute (seg, (COLOR_ATT|STYLE_ATT|SHADING_ATT|WIDTH_ATT),
GREEN_COLOR, SOLID_LINE, SOLID_SHADING, 5,
0);
AddLine (seg, start, top, stop, top, FALSE, 0);
AddAttribute (seg, (COLOR_ATT|STYLE_ATT|SHADING_ATT|WIDTH_ATT),
BLACK_COLOR, SOLID_LINE, SOLID_SHADING, STD_PEN_WIDTH,
0);
AddLabel (seg, stop+(20*XScale), top, "Annotated (reported) ORFs",
SMALL_TEXT, 0, MIDDLE_RIGHT, 0);
}
if (xosp->slpb != NULL)
{
top -= 12;
AddAttribute (seg, (COLOR_ATT|STYLE_ATT|SHADING_ATT|WIDTH_ATT),
BLUE_COLOR, SOLID_LINE, SOLID_SHADING, 5,
0);
AddLine (seg, start, top, stop, top, FALSE, 0);
AddAttribute (seg, (COLOR_ATT|STYLE_ATT|SHADING_ATT|WIDTH_ATT),
BLACK_COLOR, SOLID_LINE, SOLID_SHADING, STD_PEN_WIDTH,
0);
AddLabel (seg, stop+(20*XScale), top, "Similar codon usage bias ORFs to seed ORFs",
SMALL_TEXT, 0, MIDDLE_RIGHT, 0);
}
if (xosp->slps != NULL)
{
top -= 12;
AddAttribute (seg, (COLOR_ATT|STYLE_ATT|SHADING_ATT|WIDTH_ATT),
RED_COLOR, SOLID_LINE, SOLID_SHADING, 5,
0);
AddLine (seg, start, top, stop, top, FALSE, 0);
AddAttribute (seg, (COLOR_ATT|STYLE_ATT|SHADING_ATT|WIDTH_ATT),
BLACK_COLOR, SOLID_LINE, SOLID_SHADING, STD_PEN_WIDTH,
0);
AddLabel (seg, stop+(20*XScale), top, "Pattern match seed ORFs",
SMALL_TEXT, 0, MIDDLE_RIGHT, 0);
}
xisp->picture = seg;
w = FixedWindow (10, 10, 640, 720, "Consign", CloseGraphWindowProc);
SetObjectExtra (w, xisp, CleanUpGraphWindow);
g = HiddenGroup (w, -1, 0, NULL);
v = CreateViewer (g, 560, 640, TRUE, TRUE);
AttachPicture (v, seg, INT4_MIN, INT4_MAX, UPPER_LEFT, XScale, 1, NULL);
PushButton (g, "Close", CloseGraphWindowButton);
RealizeWindow (w);
ArrowCursor ();
Show (w);
return;
}
static void CcpProc (ButtoN b)
{
Boolean flagHaveNet;
SeqEntryPtr sep;
Int4 i, gi;
CharPtr fastafile;
FILE *fiop;
CharPtr title;
GatherScopePtr gsp;
XOSPtr xosp;
XISPtr xisp;
FloatHi minscore, maxscore;
FloatHiPtr pcs, pccscr;
SeqGraphPtr sgp;
WindoW w;
PaneL p;
if ((xosp = (XOSPtr) GetObjectExtra (b)) == NULL)
return;
if (ReadPccData (xosp->pccp) == 0)
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 101,
"Could not open or read %s data file", xosp->pccp->pccdatafile);
ErrShow ();
return;
}
gsp = xosp->gsp;
gi = xosp->gi;
fastafile = xosp->filename;
if (gi > 0)
{
if (!EntrezInit ("ccpv", FALSE, &flagHaveNet))
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 102,
"Entrez init failed");
ErrShow ();
xosp->pccp->res = (CharPtr) MemFree (xosp->pccp->res);
return;
}
}
if (gi > 0)
{
sep = EntrezSeqEntryGet (gi, SEQENTRY_READ_BIOSEQ);
}
else if (fastafile != NULL)
{
if ((fiop = FileOpen (fastafile, "r")) == NULL)
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 103,
"Failed to open FastA file");
ErrShow ();
xosp->pccp->res = (CharPtr) MemFree (xosp->pccp->res);
return;
}
sep = FastaToSeqEntry (fiop, FALSE);
}
else
{
sep = NULL;
}
if (sep == NULL)
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 104,
"No seqentry");
ErrShow ();
xosp->pccp->res = (CharPtr) MemFree (xosp->pccp->res);
return;
}
else
{
xosp->sep = sep;
xosp->bsp = NULL;
xosp->gi = gi;
GatherSeqEntry (sep, (Pointer) xosp, GetBioseq,
(Pointer) gsp);
if (xosp->bsp != NULL)
{
if (ISA_aa (xosp->bsp->mol))
{
pcs = pccscr = PredictCCBioseq (xosp->bsp, 0, xosp->bsp->length-1,
xosp->pccp);
xosp->pccp->res = (CharPtr) MemFree (xosp->pccp->res);
if (pccscr == NULL)
{
return;
}
for (i = 0; i < xosp->bsp->length; i++)
{
*pcs *= 100.0;
pcs++;
}
minscore = 0.0;
maxscore = 100.0;
title = FastaTitle (xosp->bsp, "CCP: >", NULL);
if ((sgp = SeqGraphNew ()) == NULL)
{
MemFree (pccscr);
MemFree (title);
return;
}
xisp = MemNew (sizeof (XIS));
xisp->sgp = sgp;
xisp->Xscale = 1;
xisp->Yscale = 1;
xisp->Xaxislen = 250;
xisp->Yaxislen = 100;
xisp->Xprelen = 0;
xisp->Yprelen = 50;
xisp->Xpostlen = 50;
xisp->Ypostlen = 50;
sgp->loc = SeqLocIntNew (0, xosp->bsp->length-1, xosp->bsp->strand,
xosp->bsp->id);
sgp->title = title;
sgp->flags[2] = 1;
sgp->numval = xosp->bsp->length;
sgp->max.realvalue = maxscore;
sgp->min.realvalue = minscore;
sgp->values = (Pointer) pccscr;
w = FixedWindow (-50, -50, -10, -10, "Ccp", CloseGraphWindowProc);
SetObjectExtra (w, xisp, NULL);
p = SimplePanel (w,
(Int2) (xisp->Xprelen+xisp->Xaxislen+xisp->Xpostlen),
(Int2) (xisp->Yprelen+xisp->Yaxislen+xisp->Ypostlen),
DrawGraph);
SetPanelClick (p, NULL, NULL, NULL, CloseGraphPanelProc);
RealizeWindow (w);
Show (w);
}
else
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 101, "Not an amino acid Bioseq");
ErrShow ();
}
}
else
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 101, "No Bioseq in SeqEntry");
ErrShow ();
}
xosp->sep = sep = SeqEntryFree (sep);
}
if (gi > 0)
EntrezFini ();
else
FileClose (fiop);
return;
}
extern void ShowNetConfigForm (WndActnProc activate, FormMessageFunc messages,
VoidProc accepted, VoidProc cancelled,
VoidProc turnedOff, Boolean netCurrentlyOn)
{
ButtoN b;
GrouP c;
GrouP g;
GrouP h;
GrouP j;
Int2 len;
NetConfigPtr ncp;
PrompT ppt0, ppt1;
ButtoN rb;
Char str [256];
WindoW w;
GrouP x;
GrouP z;
w = NULL;
ncp = (NetConfigPtr) MemNew (sizeof (NetConfigData));
if (ncp != NULL) {
w = FixedWindow (-50, -33, -10, -10, "Network Configuration",
StdSendCloseWindowMessageProc);
SetObjectExtra (w, ncp, StdCleanupFormProc);
ncp->form = (ForM) w;
ncp->formmessage = ConfigMessageProc;
ncp->appmessage = messages;
ncp->activate = activate;
SetActivate (w, ConfigFormActivate);
ncp->accepted = accepted;
ncp->cancelled = cancelled;
ncp->turnedOff = turnedOff;
h = HiddenGroup (w, -1, 0, NULL);
SetGroupSpacing (h, 5, 10);
j = HiddenGroup (h, 2, 0, NULL);
ppt0 = StaticPrompt (j, "Connection", 0, 0, programFont, 'l');
ncp->srvConnMode = HiddenGroup (j, 4, 0, ChangeConnection);
SetObjectExtra (ncp->srvConnMode, ncp, NULL);
rb = RadioButton (ncp->srvConnMode, "None");
RadioButton (ncp->srvConnMode, "Normal");
RadioButton (ncp->srvConnMode, "Firewall");
/* RadioButton (ncp->srvConnMode, "Stateless"); */
SetValue (ncp->srvConnMode, 2);
if (turnedOff == NULL) {
Disable (rb);
}
AlignObjects (ALIGN_MIDDLE, (HANDLE) ppt0, (HANDLE) ncp->srvConnMode, NULL);
ncp->netGroup = HiddenGroup (h, -1, 0, NULL);
SetGroupSpacing (ncp->netGroup, 5, 10);
SelectFont (programFont);
len = StringWidth ("HTTP Proxy Server ") + 2;
SelectFont (systemFont);
z = HiddenGroup (ncp->netGroup, -2, 0, NULL);
StaticPrompt (z, "HTTP Proxy Server", len, dialogTextHeight, programFont, 'l');
ncp->proxyHost = DialogText (z, "", 12, ChangeProxy);
SetObjectExtra (ncp->proxyHost, ncp, NULL);
/*
StaticPrompt (z, "", 0, 0, programFont, 'l');
StaticPrompt (z, "", 0, 0, programFont, 'l');
*/
ppt0 = StaticPrompt (z, "HTTP Proxy Port ", len, dialogTextHeight, programFont, 'l');
ncp->proxyPort = DialogText (z, "", 3, NULL);
x = MultiLinePrompt (z, "Non-transparent Proxy Server", len, programFont);
ncp->firewallProxy = DialogText (z, "", 12, NULL);
AlignObjects (ALIGN_MIDDLE, (HANDLE) x, (HANDLE) ncp->firewallProxy, NULL);
/*
AlignObjects (ALIGN_MIDDLE, (HANDLE) ppt0, (HANDLE) ncp->proxyPort,
(HANDLE) ncp->firewallProxy, NULL);
*/
AlignObjects (ALIGN_RIGHT, (HANDLE) ncp->proxyHost, (HANDLE) ncp->firewallProxy, NULL);
AlignObjects (ALIGN_LEFT, (HANDLE) ncp->proxyHost, (HANDLE) ncp->firewallProxy, NULL);
g = HiddenGroup (ncp->netGroup, 5, 0, NULL);
/*
ppt0 = StaticPrompt (g, "Domain name server", 0, 0, programFont, 'l');
ncp->dnsAvailable = CheckBox (g, "Available", NULL);
*/
ncp->dnsAvailable = CheckBox (g, "Domain Name Server", NULL);
SetStatus (ncp->dnsAvailable, TRUE);
/* StaticPrompt (g, " ", 0, 0, programFont, 'l'); */
ppt1 = StaticPrompt (g, "Timeout", 0, popupMenuHeight, programFont, 'l');
ncp->timeOut = PopupList (g, TRUE, NULL);
PopupItem (ncp->timeOut, "10 seconds");
PopupItem (ncp->timeOut, "30 seconds");
PopupItem (ncp->timeOut, "60 seconds");
PopupItem (ncp->timeOut, " 5 minutes");
SetValue (ncp->timeOut, 2);
AlignObjects (ALIGN_MIDDLE, /* (HANDLE) ppt0, */ (HANDLE) ncp->dnsAvailable,
(HANDLE) ppt1, (HANDLE) ncp->timeOut, NULL);
c = HiddenGroup (w, 4, 0, NULL);
SetGroupSpacing (c, 10, 2);
ncp->accept = PushButton (c, "Accept", AcceptNetConfigForm);
SetObjectExtra (ncp->accept, ncp, NULL);
b = PushButton (c, "Cancel", StdSendCancelButtonMessageProc);
SetObjectExtra (b, ncp, NULL);
/*
AlignObjects (ALIGN_CENTER, (HANDLE) h, (HANDLE) c, NULL);
*/
AlignObjects (ALIGN_CENTER, (HANDLE) j, (HANDLE) z, (HANDLE) g, (HANDLE) c, NULL);
RealizeWindow (w);
if (! netCurrentlyOn) {
SafeSetValue (ncp->srvConnMode, 1);
Hide (ncp->netGroup);
} else if (GetAppParam ("NCBI", "CONN", "FIREWALL", NULL, str, sizeof (str))) {
if (StringICmp (str, "TRUE") == 0) {
SafeSetValue (ncp->srvConnMode, 3);
}
}
if (GetAppParam ("NCBI", "CONN", "HTTP_PROXY_HOST", NULL, str, sizeof (str))) {
if (! StringHasNoText (str)) {
SafeSetTitle (ncp->proxyHost, str);
if (GetValue (ncp->srvConnMode) == 2) {
SafeSetValue (ncp->srvConnMode, 3);
}
}
}
if (GetAppParam ("NCBI", "CONN", "HTTP_PROXY_PORT", NULL, str, sizeof (str))) {
if (! StringHasNoText (str)) {
SafeSetTitle (ncp->proxyPort, str);
}
}
if (GetAppParam ("NCBI", "CONN", "PROXY_HOST", NULL, str, sizeof (str))) {
if (! StringHasNoText (str)) {
SafeSetTitle (ncp->firewallProxy, str);
}
}
if (GetAppParam ("NCBI", "CONN", "HOST", NULL, str, sizeof (str))) {
if (StringICmp (str, "130.14.29.110") == 0) {
SafeSetStatus (ncp->dnsAvailable, FALSE);
}
}
if (GetAppParam ("NCBI", "CONN", "TIMEOUT", "30", str, sizeof (str))) {
if (StringICmp (str, "10") == 0) {
SafeSetValue (ncp->timeOut, 1);
} else if (StringICmp (str, "60") == 0) {
SafeSetValue (ncp->timeOut, 3);
} else if (StringICmp (str, "300") == 0) {
SafeSetValue (ncp->timeOut, 4);
} else {
SafeSetValue (ncp->timeOut, 2);
}
}
ChangeConfigControls (ncp);
Show (w);
Select (w);
Select (ncp->proxyHost);
}
}
static void ConsortProc (ButtoN b)
{
XOSPtr xosp;
XISPtr xisp;
TreeNodePtr ptrNode;
WindoW w;
VieweR v;
GrouP g;
SegmenT seg;
Int4 xmax, xmin;
Int4 xoffset, yoffset;
if ((xosp = (XOSPtr) GetObjectExtra (b)) == NULL)
return;
if (xosp->sep == NULL)
{
ErrPostEx (SEV_ERROR, TOP_ERROR, 101, "No SeqEntry");
ErrShow ();
return;
}
WatchCursor ();
xoffset = xosp->xdeltaval;
yoffset = xosp->ydeltaval;
ptrNode = ConsortSeqEntry (xosp->sep);
SetAllLeftRightRootedTreeNeighbors (ptrNode);
SetAllPivotNodes (ptrNode);
switch (xosp->treestyle)
{
default:
case 0:
SetAllTheoreticalCoordinates (ptrNode, 300, 50);
AdjustAllTheoreticalCoordinates (ptrNode, 300);
ChangeTreeScale (ptrNode, 300, 50, (FloatHi) xoffset, (FloatHi) yoffset);
break;
case 1:
SetAllCoordinates (ptrNode, 300, 50, xoffset, yoffset);
break;
}
xmin = GetMinimumTreeXcoord (ptrNode);
if (xmin-50 > 0)
ShiftTree (ptrNode, (-1*(xmin-50)), 0);
if (xmin < 0)
ShiftTree (ptrNode, ((-1*xmin)+50), 0);
xmin = GetMinimumTreeXcoord (ptrNode);
xmax = GetMaximumTreeXcoord (ptrNode);
if (xmin < 0)
xmin *= -1;
if (xmax < 0)
xmax *= -1;
xisp = (XISPtr) MemNew (sizeof (XIS));
if (xmax > xmin)
xisp->Xdelta = (2*(xmax+100)) + 10;
else
xisp->Xdelta = (2*(xmin+100)) + 10;
seg = DrawTree (ptrNode);
xisp->picture = seg;
w = FixedWindow (10, 10, 640, 640, "Consort", CloseGraphWindowProc);
SetObjectExtra (w, xisp, CleanUpGraphWindow);
g = HiddenGroup (w, -1, 0, NULL);
v = CreateViewer (g, 560, 560, TRUE, TRUE);
AttachPicture (v, seg, INT4_MIN, INT4_MAX, UPPER_LEFT, 1, 1, NULL);
PushButton (g, "Close", CloseGraphWindowButton);
RealizeWindow (w);
ArrowCursor ();
Show (w);
return;
}
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;
}
