124 lines
2.5 KiB
C
124 lines
2.5 KiB
C
/*
|
|
Title: info
|
|
|
|
File: info.c
|
|
Purpose: Info
|
|
Last update: Tue Nov 10 1992
|
|
*/
|
|
|
|
|
|
/* ---- Includes ---- */
|
|
#include <stdio.h>
|
|
|
|
#include "info.h"
|
|
#include "seq.h"
|
|
|
|
#include <X11/Intrinsic.h>
|
|
#include <X11/Shell.h>
|
|
#include <X11/StringDefs.h>
|
|
#include <X11/Xaw/AsciiText.h>
|
|
#include <X11/Xaw/Command.h>
|
|
#include <X11/Xaw/Form.h>
|
|
|
|
|
|
|
|
|
|
/* ---- Statics ---- */
|
|
|
|
|
|
|
|
|
|
|
|
/* ---- Callbacks ---- */
|
|
|
|
|
|
|
|
|
|
static void get_info_string(Seq seq, char *seq_info)
|
|
{
|
|
switch (seq->format) {
|
|
case ABIFormat:
|
|
case SCFFormat:
|
|
if (seq->info != NULL) {
|
|
sprintf(seq_info,"%s\n",seq->info);
|
|
break;
|
|
}
|
|
case ALFFormat:
|
|
default:
|
|
strcpy(seq_info,"No information for this sequence\n");
|
|
break;
|
|
}
|
|
}
|
|
|
|
/*ARGSUSED*/
|
|
static void
|
|
DestroyPopupPrompt(Widget widget, XtPointer client_data, XtPointer call_data)
|
|
{
|
|
|
|
Widget popup = XtParent( (Widget) client_data);
|
|
XtDestroyWidget(popup);
|
|
}
|
|
|
|
|
|
/* ---- Exports ---- */
|
|
|
|
|
|
/* ARGSUSED */
|
|
void info(Widget button, Seq seq)
|
|
{
|
|
Arg args[5];
|
|
Widget popup;
|
|
Position x, y;
|
|
Dimension width, height;
|
|
Cardinal n;
|
|
Widget apane,apane1,apane2;
|
|
char seq_info[500];
|
|
|
|
if (seq == NULLSeq) return;
|
|
/*
|
|
* This will position the upper left hand corner of the popup at the
|
|
* center of the widget which invoked this callback, which will also
|
|
* become the parent of the popup.
|
|
*/
|
|
|
|
get_info_string(seq,seq_info);
|
|
|
|
n = 0;
|
|
XtSetArg(args[0], XtNwidth, &width); n++;
|
|
XtSetArg(args[1], XtNheight, &height); n++;
|
|
XtGetValues(button, args, n);
|
|
XtTranslateCoords(button, (Position) (width / 2), (Position) (height / 2),
|
|
&x, &y);
|
|
|
|
x -= 350;
|
|
n = 0;
|
|
XtSetArg(args[n], XtNx, x); n++;
|
|
XtSetArg(args[n], XtNy, y); n++;
|
|
|
|
popup = XtCreatePopupShell("prompt", transientShellWidgetClass, button,
|
|
args, n);
|
|
|
|
apane = XtCreateManagedWidget("apane", formWidgetClass, popup ,NULL, 0);
|
|
apane2 = XtVaCreateManagedWidget("apane2", asciiTextWidgetClass,apane,
|
|
XtNeditType, XawtextRead,
|
|
XtNwidth, 400,
|
|
XtNheight, 80,
|
|
XtNstring, seq_info,
|
|
XtNscrollVertical, XawtextScrollAlways,
|
|
NULL);
|
|
|
|
apane1 = XtVaCreateManagedWidget("apane3", commandWidgetClass,apane,
|
|
XtNeditType, XawtextEdit,
|
|
XtNwidth, 400,
|
|
XtNheight, 20,
|
|
XtNfromVert, apane2,
|
|
XtNlabel, "Cancel",
|
|
NULL);
|
|
|
|
XtAddCallback(apane1, XtNcallback, DestroyPopupPrompt, (XtPointer)apane);
|
|
XtPopup(popup, XtGrabNone);
|
|
|
|
}
|
|
|
|
|