DtSetModList::DtSetModList(AnyUI *parent,
char *name,
BaseUI *workarea,
ButtonCallback filterCB)
: Dialog(parent, name)
{
mainw = (DtMainW *) parent;
_has_been_posted = false;
_info = new LabelObj(this, MESSAGE(SelectPrintersToBeShowL));
_container = new Container(this, "FilterList", SCROLLED_VERTICAL_ROW_COLUMN,
MULTIPLE_SELECT);
_container->IconView(SMALL_ICON);
_filterCB = filterCB;
_workarea = (Container *) workarea;
Container *form = new Container(this, "Form", FORM);
_info->AttachRight();
_info->AttachLeft();
_info->AttachTop();
form->AttachBottom();
form->AttachRight();
form->AttachLeft();
_container->AttachBottom(form, 5);
_container->AttachRight();
_container->AttachLeft();
_container->AttachTop(_info);
select_all = new Button(form, MESSAGE(SelectAllL), PUSH_BUTTON, SelectAllCB,
_container);
unselect_all = new Button(form, MESSAGE(DeselectAllL), PUSH_BUTTON,
UnSelectAllCB, _container);
int i;
IconObj **objs = (IconObj **) workarea->Children();
for (i = 0; i < workarea->NumChildren(); i++)
{
if (objs[i]->UIClass() == ICON)
{
IconObj *icon = new IconObj(_container, (char *)objs[i]->Name(),
objs[i]->IconFile());
icon->ApplicationData = objs[i];
}
}
ok = new Button(this, MESSAGE(OKL), PUSH_BUTTON, OkCB, this);
apply = new Button(this, MESSAGE(ApplyL), PUSH_BUTTON, ApplyCB, this);
cancel = new Button(this, MESSAGE(CancelL), PUSH_BUTTON, CancelCB, this);
help = new Button(this, MESSAGE(HelpL), PUSH_BUTTON, HelpCB, this);
DefaultButton(ok);
CancelButton(cancel);
Reset();
}
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);
}
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 ();
}
/*-------------- 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;
}
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;
}
