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);
}
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 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 exportFdir_OnCommand(HWND hwnd, int id, HWND hwndCtl, UINT codeNotify)
{
LPExportFdirData lpExportFdirData=GetDlgData(hwnd, ExportFdirData);
switch (id) {
case CID_OK:
switch (RadioButton(hwnd, CID_LOCAL, 0)) {
case CID_LOCAL:
lpExportFdirData->lpFdirEntry->fdirFlags&= ~FDIR_FLAG_FILEPOOL;
lpExportFdirData->lpFdirEntry->fdirFlags&= ~FDIR_FLAG_EXPORT;
break;
case CID_EXPORT:
lpExportFdirData->lpFdirEntry->fdirFlags&= ~FDIR_FLAG_FILEPOOL;
lpExportFdirData->lpFdirEntry->fdirFlags|=FDIR_FLAG_EXPORT;
break;
case CID_TRANSFORM:
lpExportFdirData->lpFdirEntry->fdirFlags|=FDIR_FLAG_FILEPOOL;
lpExportFdirData->lpFdirEntry->fdirFlags&= ~FDIR_FLAG_EXPORT;
break;
}
case CID_CANCEL:
EndDialog(hwnd, lpExportFdirData->lpFdirEntry->fdirFlags&(FDIR_FLAG_EXPORT|FDIR_FLAG_FILEPOOL));
break;
}
}
static void exportFlist_OnCommand(HWND hwnd, int id, HWND hwndCtl, UINT codeNotify)
{
LPFlistEntry lpFlistEntry=GetDlgData(hwnd, FlistEntry);
switch (id) {
case CID_OK:
switch (RadioButton(hwnd, CID_LOCAL, 0)) {
case CID_LOCAL:
lpFlistEntry->flistFlags&= ~FLIST_FLAG_FILEPOOL;
lpFlistEntry->flistFlags&= ~FLIST_FLAG_EXPORT;
break;
case CID_EXPORT:
lpFlistEntry->flistFlags&= ~FLIST_FLAG_FILEPOOL;
lpFlistEntry->flistFlags|=FLIST_FLAG_EXPORT;
break;
case CID_TRANSFORM:
lpFlistEntry->flistFlags|=FLIST_FLAG_FILEPOOL;
lpFlistEntry->flistFlags&= ~FLIST_FLAG_EXPORT;
break;
}
case CID_CANCEL:
EndDialog(hwnd, lpFlistEntry->flistFlags&(FLIST_FLAG_EXPORT|FLIST_FLAG_FILEPOOL));
break;
}
}
static BOOL exportFlist_OnInitDialog(HWND hwnd, HWND hwndFocus, LPARAM lParam)
{
LPFlistEntry lpFlistEntry=(LPFlistEntry)lParam;
SetDlgData(hwnd, lpFlistEntry);
SetDlgItemText(hwnd, CID_FILENAME, lpFlistEntry->flistName);
RadioButton(hwnd, CID_LOCAL,
lpFlistEntry->flistFlags&FLIST_FLAG_EXPORT ? CID_EXPORT :
lpFlistEntry->flistFlags&FLIST_FLAG_FILEPOOL ? CID_TRANSFORM :
CID_LOCAL);
return(TRUE);
}
static BOOL exportFdir_OnInitDialog(HWND hwnd, HWND hwndFocus, LPARAM lParam)
{
LPExportFdirData lpExportFdirData=(LPExportFdirData)lParam;
SetDlgData(hwnd, lpExportFdirData);
SetDlgItemText(hwnd, CID_FILENAME, lpExportFdirData->lpFdirEntry->fdirName);
ShowWindow(GetDlgItem(hwnd, CID_TRANSFORM), lpExportFdirData->bTransformOK);
EnableWindow(GetDlgItem(hwnd, CID_EXPORT), lpExportFdirData->bExportOK);
RadioButton(hwnd, CID_LOCAL,
lpExportFdirData->lpFdirEntry->fdirFlags&FDIR_FLAG_EXPORT ? CID_EXPORT :
lpExportFdirData->lpFdirEntry->fdirFlags&FDIR_FLAG_FILEPOOL ? CID_TRANSFORM :
CID_LOCAL);
return(TRUE);
}
/*-------------- 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;
}
/******************************************************************************
ProcessMessage - Process the message coming from Fvwm
Skeleton based on processmessage() from FvwmIdent:
Copyright 1994, Robert Nation and Nobutaka Suzuki.
******************************************************************************/
void ProcessMessage(unsigned long type,unsigned long *body)
{
int redraw=0,i;
long flags;
char *name,*string;
static current_focus=-1;
Picture p;
switch(type)
{
case M_ADD_WINDOW:
case M_CONFIGURE_WINDOW:
if (body[0] == win)
{
win_x=(int)body[3];
win_y=(int)body[4];
win_title=(int)body[9];
win_border=(int)body[10];
}
if ((i = FindItem(&windows,body[0]))!=-1)
{
/* printf("does it go here on MOVE %ld, %ld ?\n", i, CurrentDesk);
*/
if(UpdateItemDesk(&windows, i, body[7]) > 0)
{
/* printf("why doesnt it go here on MOVE ?\n");
*/
AdjustWindow();
RedrawWindow(1);
}
break;
}
if (!(body[8]&WINDOWLISTSKIP) || !UseSkipList)
AddItem(&windows,body[0],body[8], body[7] /* desk */);
break;
case M_DESTROY_WINDOW:
if ((i=DeleteItem(&windows,body[0]))==-1) break;
RemoveButton(&buttons,i);
if (WindowIsUp)
AdjustWindow();
redraw=1;
break;
case M_MINI_ICON:
if ((i=FindItem(&windows,body[0]))==-1) break;
if (UpdateButton(&buttons,i,NULL,-1)!=-1)
{
p.picture = body[1];
p.mask = body[2];
p.width = body[3];
p.height = body[4];
p.depth = body[5];
UpdateButtonPicture(&buttons, i, &p);
redraw = 0;
}
break;
case M_WINDOW_NAME:
case M_ICON_NAME:
if ((type==M_ICON_NAME && !UseIconNames) ||
(type==M_WINDOW_NAME && UseIconNames)) break;
if ((i=UpdateItemName(&windows,body[0],(char *)&body[3]))==-1) break;
string=(char *)&body[3];
name=makename(string,ItemFlags(&windows,body[0]));
if (UpdateButton(&buttons,i,name,-1)==-1)
{
AddButton(&buttons, name, NULL, 1);
UpdateButtonSet(&buttons,i,ItemFlags(&windows,body[0])&ICONIFIED?1:0);
UpdateButtonDesk(&buttons,i,ItemDesk(&windows, body[0]));
}
free(name);
if (WindowIsUp) AdjustWindow();
redraw=1;
break;
case M_DEICONIFY:
case M_ICONIFY:
if ((i=FindItem(&windows,body[0]))==-1) break;
flags=ItemFlags(&windows,body[0]);
if (type==M_DEICONIFY && !(flags&ICONIFIED)) break;
if (type==M_ICONIFY && flags&ICONIFIED) break;
flags^=ICONIFIED;
UpdateItemFlags(&windows,body[0],flags);
string=ItemName(&windows,i);
name=makename(string,flags);
if (UpdateButton(&buttons,i,name,-1)!=-1) redraw=1;
if (i!=current_focus||(flags&ICONIFIED))
if (UpdateButtonSet(&buttons,i,(flags&ICONIFIED) ? 1 : 0)!=-1) redraw=1;
free(name);
break;
case M_FOCUS_CHANGE:
/* old coded, before Task bar code spliced in
i=FindItem(&windows,body[0]);
if (i==current_focus) break;
if (current_focus!=-1)
if ((ItemFlags(&windows,ItemID(&windows,current_focus))&ICONIFIED)==0)
if (UpdateButtonSet(&buttons,current_focus,0)!=-1) redraw=1;
current_focus=-1;
if (i!=-1&&(ItemFlags(&windows,body[0])&ICONIFIED)) break;
current_focus=i;
if (current_focus!=-1)
if (UpdateButtonSet(&buttons,current_focus,2)!=-1) redraw=1;
* end of old code */
/* Code copied Straight from TaskBar */
if ((i=FindItem(&windows,body[0]))!=-1)
{
flags=ItemFlags(&windows,body[0]);
UpdateItemFlags(&windows,body[0],flags);
}
RadioButton(&buttons,i);
redraw = 1;
break;
break;
case M_END_WINDOWLIST:
if (!WindowIsUp) MakeMeWindow();
redraw=1;
break;
case M_NEW_DESK:
CurrentDesk = body[0];
if(ShowCurrentDesk)
{
RESIZE_BUG_HACK = 1;
AdjustWindow();
RESIZE_BUG_HACK = 0;
RedrawWindow(1);
}
break;
case M_NEW_PAGE:
break;
}
if (redraw && WindowIsUp==1) RedrawWindow(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);
}
LevelEditorToolBar::LevelEditorToolBar()
{
System::Windows::Controls::Image^ image;
// Кисть объектов
System::Windows::Controls::RadioButton^ mBrushToolBtn = gcnew RadioButton();
image = gcnew System::Windows::Controls::Image();
image->Source = ResourceHelper::GetPngSource("Brush.png");
image->Width = 24;
image->Height = 24;
mBrushToolBtn->Content = image;
mBrushToolBtn->Command = LevelEditorWindow::SelectEntityBrush;
mBrushToolBtn->ToolTip = "Entity brush";
// Добавить слой
System::Windows::Controls::Button^ mAddLayerBtn = gcnew Button();
image = gcnew System::Windows::Controls::Image();
image->Source = ResourceHelper::GetPngSource("AddLayer.png");
image->Width = 24;
image->Height = 24;
mAddLayerBtn->Content = image;
mAddLayerBtn->Command = LevelEditorWindow::AddLayerCommand;
mAddLayerBtn->ToolTip = "Add layer";
// Включить сетку
System::Windows::Controls::CheckBox^ mActivateGridBtn = gcnew CheckBox();
image = gcnew System::Windows::Controls::Image();
image->Source = ResourceHelper::GetPngSource("Grid.png");
image->Width = 24;
image->Height = 24;
mActivateGridBtn->Content = image;
mActivateGridBtn->Command = LevelEditorCommands::ActivateGrid;
mActivateGridBtn->ToolTip = "Snap to grid";
// Выбор объектов
System::Windows::Controls::RadioButton^ mSelectorBtn = gcnew RadioButton();
image = gcnew System::Windows::Controls::Image();
image->Source = ResourceHelper::GetPngSource("Select.png");
image->Width = 24;
image->Height = 24;
mSelectorBtn->Content = image;
mSelectorBtn->Command = LevelEditorCommands::SelectObjectsSelector;
mSelectorBtn->ToolTip = "Select entity";
// Включение физики
CheckBox^ mTurnPhisics = gcnew CheckBox();
image = gcnew System::Windows::Controls::Image();
image->Source = ResourceHelper::GetPngSource("Physics.png");
image->Width = 24;
image->Height = 24;
mTurnPhisics->Content = image;
mTurnPhisics->Command = LevelEditorCommands::ActivatePhisics;
mTurnPhisics->ToolTip = "Physics";
CheckBox^ mDrawPhisics = gcnew CheckBox();
image = gcnew System::Windows::Controls::Image();
image->Source = ResourceHelper::GetPngSource("Shapes.png");
image->Width = 24;
image->Height = 24;
mDrawPhisics->Content = image;
mDrawPhisics->Command = LevelEditorCommands::DrawPhisics;
mDrawPhisics->ToolTip = "Draw physics";
// Добавляем кнопки
AddChild(mBrushToolBtn);
AddChild(mSelectorBtn);
AddChild(mAddLayerBtn);
AddChild(mActivateGridBtn);
AddChild(mTurnPhisics);
AddChild(mDrawPhisics);
}
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;
}
/******************************************************************************
ProcessMessage - Process the message coming from Fvwm
Skeleton based on processmessage() from FvwmIdent:
Copyright 1994, Robert Nation and Nobutaka Suzuki.
******************************************************************************/
void ProcessMessage(unsigned long type,unsigned long *body)
{
int redraw=0,i;
long flags;
char *name,*string;
static int current_focus=-1;
FvwmPicture p;
switch(type)
{
case M_ADD_WINDOW:
case M_CONFIGURE_WINDOW:
if ((i = FindItem(&windows,body[0]))!=-1)
{
if(UpdateItemDesk(&windows, i, body[7]) > 0)
{
AdjustWindow();
RedrawWindow(1);
}
break;
}
if (!(body[8]&WINDOWLISTSKIP) || !UseSkipList)
AddItem(&windows,body[0],body[8], body[7] /* desk */);
break;
case M_DESTROY_WINDOW:
if ((i=DeleteItem(&windows,body[0]))==-1) break;
RemoveButton(&buttons,i);
if (WindowIsUp)
AdjustWindow();
redraw=1;
break;
#ifdef MINI_ICONS
case M_MINI_ICON:
if ((i=FindItem(&windows,body[0]))==-1) break;
if (UpdateButton(&buttons,i,NULL,-1)!=-1)
{
p.width = body[3];
p.height = body[4];
p.depth = body[5];
p.picture = body[6];
p.mask = body[7];
UpdateButtonPicture(&buttons, i, &p);
redraw = 0;
}
break;
#endif
case M_WINDOW_NAME:
case M_ICON_NAME:
if ((type==M_ICON_NAME && !UseIconNames) ||
(type==M_WINDOW_NAME && UseIconNames)) break;
if ((i=UpdateItemName(&windows,body[0],(char *)&body[3]))==-1) break;
string=(char *)&body[3];
name=makename(string,ItemFlags(&windows,body[0]));
if (UpdateButton(&buttons,i,name,-1)==-1)
{
AddButton(&buttons, name, NULL, 1);
UpdateButtonSet(&buttons,i,ItemFlags(&windows,body[0])&ICONIFIED?1:0);
UpdateButtonDesk(&buttons,i,ItemDesk(&windows, body[0]));
}
free(name);
if (WindowIsUp) AdjustWindow();
redraw=1;
break;
case M_DEICONIFY:
case M_ICONIFY:
if ((i=FindItem(&windows,body[0]))==-1) break;
flags=ItemFlags(&windows,body[0]);
if (type==M_DEICONIFY && !(flags&ICONIFIED)) break;
if (type==M_ICONIFY && flags&ICONIFIED) break;
flags^=ICONIFIED;
UpdateItemFlags(&windows,body[0],flags);
string=ItemName(&windows,i);
name=makename(string,flags);
if (UpdateButton(&buttons,i,name,-1)!=-1) redraw=1;
if (i!=current_focus||(flags&ICONIFIED))
if (UpdateButtonSet(&buttons,i,(flags&ICONIFIED) ? 1 : 0)!=-1) redraw=1;
free(name);
break;
case M_FOCUS_CHANGE:
if ((i=FindItem(&windows,body[0]))!=-1)
{
flags=ItemFlags(&windows,body[0]);
UpdateItemFlags(&windows,body[0],flags);
RadioButton(&buttons,i);
}
else
RadioButton(&buttons,-1);
redraw = 1;
break;
case M_END_WINDOWLIST:
if (!WindowIsUp) MakeMeWindow();
redraw = 1;
break;
case M_NEW_DESK:
CurrentDesk = body[0];
if(ShowCurrentDesk)
{
AdjustWindow();
RedrawWindow(1);
}
break;
case M_NEW_PAGE:
break;
}
if (redraw && WindowIsUp==1) RedrawWindow(0);
}
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);
}
}
