/************************************************************************** * Nlm_MuskStyleManager() * call manager **************************************************************************/ void LIBCALL Nlm_MuskStyleManager ( void ){ GrouP tg,bg,lg,rg; if ( managerStatus & SM_DLG_UP ) { Hide(window); Show(window); return; } managerStatus = SM_DLG_UP; window = FixedWindow (-50, -33, -10, -10, "Style manager", NULL); tg = HiddenGroup (window, 2, 1, NULL); lg = HiddenGroup (tg, 1, 2, NULL); StaticPrompt (lg, "Styles:", 0, 0, systemFont, 'l'); namesList = SingleList (lg, 15, 8, OnSelectName); rg = HiddenGroup (tg, 1, 6, NULL); PushButton (rg, "Close", OnCloseButton ); StaticPrompt (rg, "", 0, 0, systemFont, 'l'); PushButton (rg, "Set", OnSetCurrentButton); PushButton (rg, "Copy...", OnNewButton); modifyButton = PushButton (rg, "Modify...", OnModifyButton); deleteButton = PushButton (rg, "Delete", OnDeleteButton); bg = HiddenGroup (tg, 1, 1, NULL); currentPrompt = StaticPrompt (bg, MakePromptVal(), 0, 0, systemFont, 'l'); ReloadNames(); RealizeWindow (window); Show (window); Select (window); Nlm_WaitForCondition ( managerStatus & SM_DLG_UP); Nlm_ProcessAnEvent (); Hide (window); Remove (window); } /* End of Nlm_MuskStyleManager() */
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 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; }
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 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 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 Cn3D_ExportPDB(IteM i) { PDNMS pdnmsThis = NULL; PMSD pmsdThis = NULL; Char pcSavestr[60]; Char pcSavename[32]; CharPtr Cn3D_pcPDBName; GrouP g, g2, g3, g4; GrouP gMS; ButtoN b; if (Cn3D_Export_InUse) return; else Cn3D_Export_InUse = TRUE; pdnmsThis = GetSelectedModelstruc(); if (!pdnmsThis) { Cn3D_Export_InUse = FALSE; return; } pmsdThis = (PMSD) pdnmsThis->data.ptrvalue; Cn3D_wPDBSave = ModalWindow(-20, -13, -10, -10, NULL); /* set up a group encolosing structures - models selection lists and - "info strings" */ Cn3D_pcPDBName = StringSave(GetStrucStrings(pdnmsThis, PDB_ACC)); sprintf(pcSavestr, "Save %s As a PDB Formatted File ...", Cn3D_pcPDBName); g = HiddenGroup(Cn3D_wPDBSave, 0, 3, NULL); SetGroupMargins(g, 10, 10); SetGroupSpacing(g, 10, 5); StaticPrompt(g, pcSavestr, 0, 0, systemFont, 'l'); g2 = HiddenGroup(g, 2, 0, NULL); SetGroupMargins(g2, 10, 10); SetGroupSpacing(g2, 10, 5); StringNCpy(pcSavename, Cn3D_pcPDBName, 8); StringCat(pcSavename, ".pdb"); Cn3D_tPDBSave = DialogText(g2, pcSavename, 18, (TxtActnProc) Cn3D_PDBEnableProc); MemFree(Cn3D_pcPDBName); Cn3D_bPDBBrowse = PushButton(g2, " browse...", (BtnActnProc) Cn3D_PDBBrowseProc); g3 = HiddenGroup(g, 2, 0, NULL); gMS = Cn3D_ModelSelect(g3, FALSE); /* no vector models for PDB files saves */ g4 = HiddenGroup(g3, 0, 2, NULL); SetGroupMargins(g4, 10, 10); SetGroupSpacing(g4, 10, 5); Cn3D_bPDBOk = PushButton(g4, "OK", Cn3D_ExportPDBNow); b = PushButton(g4, "Cancel", Cn3D_CancelPDB); Cn3D_PDBEnableProc(NULL); Select(Cn3D_bPDBOk); /* disable appropriate stuff here */ Cn3D_DisableFileOps(); Show(Cn3D_wPDBSave); return; }
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; }
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 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); }
static void DOT_SetupDotParameters(GrouP g, DOTStartDataPtr sdata, Boolean is_dot) { GrouP g1, g2, g3, gtotal; if (is_dot == TRUE){ gtotal = HiddenGroup(g, 1, 3, NULL); sdata->plusorminus = NormalGroup(gtotal, 2,1, "", systemFont,NULL); RadioButton(sdata->plusorminus, "plus-plus"); RadioButton(sdata->plusorminus, "plus-minus"); SetValue(sdata->plusorminus, 1); } else gtotal = HiddenGroup(g, 1, 2, NULL); g2 = NormalGroup(gtotal, 4, 2, "", systemFont,NULL); StaticPrompt(g2, "query start -- ", 0, 0, systemFont, 'l'); sdata->querystart = DialogText(g2, "All", 5, NULL); StaticPrompt(g2, "query stop -- ", 0, 0, systemFont, 'l'); sdata->querystop = DialogText(g2, "All", 5, NULL); StaticPrompt(g2, "subject start -- ", 0, 0, systemFont, 'l'); sdata->subjectstart = DialogText(g2, "All", 5, NULL); StaticPrompt(g2, "subject stop -- ", 0, 0, systemFont, 'l'); sdata->subjectstop = DialogText(g2, "All", 5, NULL); g3 = NormalGroup(gtotal, 2, 2, "", systemFont,NULL); StaticPrompt(g3, "hitsize -- ", 0, 0, systemFont, 'l'); sdata->hitsize = DialogText(g3, "100000", 5, NULL); StaticPrompt(g3, "wordsize -- ", 0, 0, systemFont, 'l'); sdata->wordsize = DialogText(g3, "11", 5, NULL); }
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; }
/************************************************************************** * NewStyleDialog() **************************************************************************/ static Boolean /*FCN*/NewStyleDialog ( Int2 srcStyle ){ GrouP g, tg; TexT nsdDialogText; Char newName[64]; if ( nsdStatus & SM_DLG_UP ) return FALSE; nsdStatus = SM_DLG_UP; nsdWindow = FixedWindow (-50, -33, -10, -10, "Copy Style", NULL ); g = HiddenGroup ( nsdWindow, 1, 2, NULL); tg = HiddenGroup ( g, 2, 1, NULL); StaticPrompt ( tg, "To:", 0, 0, systemFont, 'l'); nsdDialogText = DialogText ( tg, "", 20, NULL ); tg = HiddenGroup ( g, 2, 1, NULL); SetGroupMargins ( tg, 7*Nlm_stdCharWidth, 5 ); PushButton ( tg, "OK", OnOKButton ), PushButton ( tg, "Cancel", OnCancelButton ); RealizeWindow ( nsdWindow ); Show ( nsdWindow ); Select ( nsdWindow ); Nlm_WaitForCondition ( nsdStatus & SM_DLG_UP); GetTitle ( nsdDialogText, newName, 64 ); newName[63] = 0; Nlm_ProcessAnEvent (); Hide ( nsdWindow ); Remove ( nsdWindow ); Select ( window ); if ( nsdStatus & SM_DLG_OK ){ if ( Nlm_CopyMuskStyle ( newName, srcStyle ) != -1 ) return TRUE; else Message ( MSG_ERROR, "Can not create style %s", newName ); } return FALSE; } /*End of NewStyleDialog() */
/*---------------------------------------------------------*/ GrouP LIBCALL DisplayControls(Nlm_GrouP prnt) { GrouP g, h; PrompT ppt1, /*ppt2,*/ ppt3, ppt4; g = HiddenGroup(prnt, -1, 0, NULL); if (!g) return NULL; SetGroupSpacing(g, 3, 9); #ifdef WIN_MOTIF SetGroupMargins(g, 4, 1); SetGroupSpacing(g, 2, 1); #else SetGroupMargins(g, 1, 1); SetGroupSpacing(g, 0, 0); #endif StaticPrompt(g, "", 0, stdLineHeight, systemFont, 'l'); StaticPrompt(g, "", 0, stdLineHeight, systemFont, 'l'); h = HiddenGroup(g, 0, -4, NULL); SetGroupSpacing(h, 30, 10); ppt1 = StaticPrompt(h, "Molecule", 0, stdLineHeight + 5, systemFont, 'c'); Cn3D_lStruc = MultiList(h, 6, 10, FillFeatureListProc); StaticPrompt(h, "", 0, stdLineHeight, systemFont, 'l'); StaticPrompt(h, "", 0, stdLineHeight, systemFont, 'l'); AlignObjects(ALIGN_LEFT, (HANDLE) ppt1, (HANDLE) Cn3D_lStruc, NULL); ppt3 = StaticPrompt(h, "Domain", 0, stdLineHeight + 5, systemFont, 'c'); Cn3D_bDisplayAlignedDomain = CheckBox(h, "Aligned Domain Only", Cn3D_ListAlignedDomainProc); Cn3D_lFeature = MultiList(h, 6, 8, Cn3D_SelectDomainProc); StaticPrompt(h, "", 0, stdLineHeight, systemFont, 'l'); AlignObjects(ALIGN_LEFT, (HANDLE) ppt3, (HANDLE) Cn3D_lFeature, NULL); ppt4 = StaticPrompt(h, "Residue", 0, stdLineHeight + 5, systemFont, 'c'); Cn3D_bAlignOn = CheckBox(h, "Aligned", NULL); Cn3D_bUnalignOn = CheckBox(h, "Unaligned", NULL); Cn3D_bDisplayHighlight = CheckBox(h, "Show Selected Only", NULL); AlignObjects(ALIGN_LEFT, (HANDLE) ppt4, (HANDLE) Cn3D_bDisplayHighlight, NULL); SetStatus(Cn3D_bDisplayHighlight, FALSE); SetStatus(Cn3D_bAlignOn, Cn3D_fAlignOn); SetStatus(Cn3D_bUnalignOn, Cn3D_fUnalignOn); Cn3D_altConfIdOverlay = CheckBox(g, "Overlay uncorrelated conformer ensembles", NULL); AlignObjects(ALIGN_CENTER, (HANDLE) Cn3D_altConfIdOverlay, (HANDLE) g, NULL); SetStatus(Cn3D_altConfIdOverlay, TRUE); StaticPrompt(g, "", 0, stdLineHeight + 5, systemFont, 'c'); Cn3D_bDisplayApply = PushButton(g, "Apply!", Cn3D_DisplayProc); AlignObjects(ALIGN_CENTER, (HANDLE) Cn3D_bDisplayApply, (HANDLE) h, NULL); ResetDisplayCtrls(); return g; }
/*-------------- 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 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); }
Int2 LIBCALLBACK VSMGenericBinAsnOpen ( Pointer data ) { Char filename[255]; AsnIoPtr aip; Pointer ptr; Uint2 entityID; Int2 ct, i, retval = OM_MSG_RET_OK; ObjMgrPtr omp; ObjMgrTypePtr omtp = NULL; OMProcControlPtr ompcp; WindoW w; GrouP g; ButtoN b; VSMReadBinStr vrb; VSeqMgrPtr vsmp; ompcp = (OMProcControlPtr)data; vsmp = VSeqMgrGet(); omp = vsmp->omp; filename[0] = '\0'; if (GetInputFileName(filename, (size_t)254, NULL, NULL)) { vrb.do_it = FALSE; vrb.window_done = FALSE; vrb.the_type = 0; w = ModalWindow (-50, -33, -10, -10, NULL); SetWindowExtra(w, &vrb, NULL); g = HiddenGroup(w, 0, 2, NULL); StaticPrompt(g, "Select ASN.1 type:", 0,0,systemFont,'l'); vrb.p = PopupList(g, TRUE, NULL); i = 0; ct = 0; omtp = NULL; while ((omtp = ObjMgrTypeFindNext(omp, omtp)) != NULL) { if (omtp->asnname != NULL) { i++; PopupItem(vrb.p, omtp->asnname); if (! StringCmp(vsmp->lastASNtype, omtp->asnname)) ct = i; } } if (! i) { ErrPostEx(SEV_ERROR,0,0, "No ASN.1 types are registered"); Remove(w); return OM_MSG_RET_ERROR; } if (! ct) ct = 1; SetValue(vrb.p, ct); g = HiddenGroup(w, 2, 0, NULL); DefaultButton(g, "Accept", AsnBinAcceptProc); b = PushButton(g, "Cancel", AsnBinCancelProc); Show(w); Nlm_WaitForCondition (! vrb.window_done); ProcessAnEvent(); if (! vrb.do_it) return retval; i = 0; omtp = NULL; while ((omtp = ObjMgrTypeFindNext(omp, omtp)) != NULL) { i++; if (i == vrb.the_type) break; } if (omtp == NULL) { ErrPostEx(SEV_ERROR,0,0,"Couldn't find vrb.the_type"); return OM_MSG_RET_ERROR; } StringMove(vsmp->lastASNtype, omtp->asnname); WatchCursor(); aip = AsnIoOpen(filename, "rb"); ptr = (*(omtp->asnread))(aip, NULL); AsnIoClose(aip); if (ptr == NULL) { ErrPostEx(SEV_ERROR,0,0,"Couldn't read [%s], type [%s]", filename, omtp->asnname); retval = OM_MSG_RET_ERROR; } else { entityID = ObjMgrRegister(omtp->datatype, ptr); ompcp->output_data = ptr; ompcp->output_entityID = entityID; PromoteToSeqEntry (entityID, omtp->datatype, ptr); retval = OM_MSG_RET_DONE; } ArrowCursor(); } else retval = OM_MSG_RET_OK; return retval; }
GrouP /*FCN*/Nlm_CreateDlgGroup ( GrouP gTop ){ GrouP g, glr, g1, g2; Handle toAlign[3]; g = HiddenGroup ( gTop, 2, 1, NULL); SetGroupSpacing ( g, 1, 1 ); glr = NormalGroup ( g, 1, 2, "Groups:", systemFont, NULL ); #ifdef WIN_MOTIF SetGroupSpacing ( glr, 12, 12 ); SetGroupMargins ( glr, 8, 8 ); #else SetGroupSpacing ( glr, 6, 6 ); SetGroupMargins ( glr, 6, 6 ); #endif g1 = HiddenGroup ( glr, 2, 1, NULL ); g2 = HiddenGroup ( g1, 1, 0, NULL ); PushButton ( g2, "Top", OnGroupTop ); PushButton ( g2, "Bottom", OnGroupBottom ); groupHideButton = PushButton ( g2, "Hide", OnGroupHide ); groupCompBox = CheckBox ( g2, "Compress", OnGroupCompress ); groupDelButton = PushButton ( g2, "Delete", OnGroupDelete ); groupList = SingleList ( g1, 10, 8, OnGroupList ); curGroupInd = 0; LoadGroupArray(); g2 = HiddenGroup ( glr, 3, 0, NULL ); toAlign[2] = (Handle)PushButton ( g2, "Create", OnGroupNew ); toAlign[0] = (Handle)StaticPrompt ( g2, "Group", 0, 0, systemFont, 'l'); #ifdef WIN_MOTIF groupDialog = DialogText ( g2, "", 7, OnText16 ); #else groupDialog = DialogText ( g2, "", 9, OnText16 ); #endif toAlign[1] = (Handle)groupDialog; AlignObjects ( ALIGN_CENTER, (HANDLE)g1, (HANDLE)g2, NULL ); featGroup = glr = NormalGroup ( g, 1, 2, "Features:", systemFont, NULL ); #ifdef WIN_MOTIF SetGroupSpacing ( glr, 12, 12 ); SetGroupMargins ( glr, 8, 8 ); #else SetGroupSpacing ( glr, 6, 6 ); SetGroupMargins ( glr, 6, 6 ); #endif g1 = HiddenGroup ( glr, 2, 1, NULL ); featList = SingleList ( g1, 10, 8, OnFeatureList ); LoadFeatureArray(); FillFeatList( FALSE ); if ( totalFeatures == 0 ){ curFeatureInd = -1; } else { curFeatureInd = 0; SetValue ( featList, 1 ); } g2 = HiddenGroup ( g1, 1, 0, NULL ); PushButton ( g2, "Top", OnFeatTop ); PushButton ( g2, " Bottom ", OnFeatBottom ); featHideButton = PushButton ( g2, "Hide", OnFeatHide ); g2 = HiddenGroup ( glr, 3, 0, NULL ); #ifdef WIN_MOTIF SetGroupMargins ( g2, 8, 8 ); #endif toAlign[0] = (Handle)PushButton ( g2, "Move", OnFeatMove ); toAlign[1] = (Handle)StaticPrompt ( g2, "To", 0, 0, systemFont, 'l'); featPopup = PopupList ( g2, FALSE, NULL ); toAlign[2] = (Handle)featPopup; FillGroupList(FALSE); SetGroupValue (curGroupInd); FillFeatPopup(FALSE); UpdateDlgControls (); return g; }
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 Cn3D_ExportKin(IteM i) { PDNMS pdnmsThis = NULL; PMSD pmsdThis = NULL; Char pcSavestr[60]; Char pcSavename[32]; CharPtr Cn3D_pcKinName; GrouP g, g2, g3, g4; GrouP gMS; ButtoN b; Int2 iCount; if (Cn3D_Export_InUse) return; else Cn3D_Export_InUse = TRUE; pdnmsThis = GetSelectedModelstruc(); if (!pdnmsThis) { Cn3D_Export_InUse = FALSE; return; } pmsdThis = (PMSD) pdnmsThis->data.ptrvalue; Cn3D_wKinSave = ModalWindow(-20, -13, -10, -10, NULL); /* set up a group encolosing structures - models selection lists and - "info strings" */ Cn3D_pcKinName = StringSave(GetStrucStrings(pdnmsThis, PDB_ACC)); sprintf(pcSavestr, "Save %s As a Kinemage Rendered File ...", Cn3D_pcKinName); g = HiddenGroup(Cn3D_wKinSave, 0, 5, NULL); SetGroupMargins(g, 10, 10); SetGroupSpacing(g, 10, 5); StaticPrompt(g, pcSavestr, 0, 0, systemFont, 'l'); g2 = HiddenGroup(g, 2, 0, NULL); SetGroupMargins(g2, 10, 10); SetGroupSpacing(g2, 10, 5); StringNCpy(pcSavename, Cn3D_pcKinName, 8); StringCat(pcSavename, ".kin"); Cn3D_tKinSave = DialogText(g2, pcSavename, 18, (TxtActnProc) Cn3D_KinEnableProc); MemFree(Cn3D_pcKinName); Cn3D_bKinBrowse = PushButton(g2, " browse...", (BtnActnProc) Cn3D_KinBrowseProc); g3 = HiddenGroup(g, 2, 0, NULL); gMS = Cn3D_ModelSelect(g3, FALSE); /* no vector models for Kin files saves */ g4 = HiddenGroup(g3, 0, 2, NULL); SetGroupMargins(g4, 10, 10); SetGroupSpacing(g4, 10, 5); Cn3D_bKinOk = PushButton(g4, "OK", Cn3D_ExportKinNow); b = PushButton(g4, "Cancel", Cn3D_CancelKin); Cn3D_gColorAtoms = NormalGroup(g, 2, 2, " color by...", systemFont, NULL); SetGroupMargins(Cn3D_gColorAtoms, 10, 10); SetGroupSpacing(Cn3D_gColorAtoms, 10, 5); RadioButton(Cn3D_gColorAtoms, "Molecule number"); RadioButton(Cn3D_gColorAtoms, "Secondary Structure & Residue Type"); RadioButton(Cn3D_gColorAtoms, "Thermal Factors"); RadioButton(Cn3D_gColorAtoms, "Element"); SetValue(Cn3D_gColorAtoms, 1); Cn3D_gRenderOpts = NormalGroup(g, 2, 3, " viewable subsets...", systemFont, NULL); Cn3D_bRender[0] = CheckBox(Cn3D_gRenderOpts, "Virtual Backbone", NULL); Cn3D_bRender[1] = CheckBox(Cn3D_gRenderOpts, "Real Backbone", NULL); Cn3D_bRender[2] = CheckBox(Cn3D_gRenderOpts, "Residues", NULL); Cn3D_bRender[3] = CheckBox(Cn3D_gRenderOpts, "Heterogens", NULL); Cn3D_bRender[4] = CheckBox(Cn3D_gRenderOpts, "Alternate Conformations", NULL); Cn3D_bRender[5] = CheckBox(Cn3D_gRenderOpts, "NMR Animations", NULL); for (iCount = 0; iCount < 6; iCount++) SetStatus(Cn3D_bRender[iCount], TRUE); Cn3D_KinEnableProc(NULL); Select(Cn3D_bKinOk); /* disable appropriate stuff here */ Cn3D_DisableFileOps(); Show(Cn3D_wKinSave); 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; }