home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Usenet 1994 October
/
usenetsourcesnewsgroupsinfomagicoctober1994disk1.iso
/
altsrc
/
articles
/
11425
< prev
next >
Wrap
Text File
|
1994-11-01
|
64KB
|
2,025 lines
Newsgroups: alt.sources
Path: wupost!psuvax1!news.ecn.bgu.edu!willis.cis.uab.edu!ddsw1!panix!news.mathworks.com!europa.eng.gtefsd.com!swiss.ans.net!news.dfn.de!zeus.rbi.informatik.uni-frankfurt.de!terra.wiwi.uni-frankfurt.de!news.th-darmstadt.de!zib-berlin.de!math.fu-berlin.de!fub!bitrot!thomas
From: thomas@bitrot.in-berlin.de (Thomas Driemeyer)
Subject: Re: grok - X/Motif database manager and UI builder, part 05/12
Message-ID: <1994Oct31.213450.10746@bitrot.in-berlin.de>
Organization: /usr/lib/news/organi[sz]ation
References: <1994Oct31.212946.10228@bitrot.in-berlin.de>
Date: Mon, 31 Oct 1994 21:34:50 GMT
Lines: 2014
Submitted-by: thomas@bitrot
Archive-name: grok/part05
#!/bin/sh
# this is grok.shar.05 (part 5 of grok)
# do not concatenate these parts, unpack them in order with /bin/sh
# file formwin.c continued
#
if test ! -r _shar_seq_.tmp; then
echo 'Please unpack part 1 first!'
exit 1
fi
(read Scheck
if test "$Scheck" != 5; then
echo Please unpack part "$Scheck" next!
exit 1
else
exit 0
fi
) < _shar_seq_.tmp || exit 1
if test ! -f _shar_wnt_.tmp; then
echo 'x - still skipping formwin.c'
else
echo 'x - continuing file formwin.c'
sed 's/^X//' << 'SHAR_EOF' >> 'formwin.c' &&
X case 0x221: (void)read_text_button(w, &item->pattern); break;
X
X case 0x222: (void)read_text_button(w, &item->gray_if); break;
X case 0x223: (void)read_text_button(w, &item->invisible_if); break;
X case 0x224: (void)read_text_button(w, &item->freeze_if); break;
X case 0x225: (void)read_text_button(w, &item->skip_if); break;
X
X case 0x226: (void)read_text_button(w, &item->pressed); break;
X case 0x227: (void)read_text_button(w, &item->added); break;
X
X case 0x228: item->ch_vert ^= TRUE; break;
X case 0x229: item->ch_grid ^= TRUE; break;
X case 0x22a: item->ch_axis ^= TRUE; break;
X case 0x22b: item->ch_scroll ^= TRUE; break;
X
X case 0x22c: add_chart_component(item); all = TRUE; break;
X case 0x22d: del_chart_component(item); all = TRUE; break;
X case 0x230: if (item->ch_curr) item->ch_curr--; all = TRUE; break;
X case 0x22f: if (item->ch_curr < item->ch_ncomp-1) item->ch_curr++;
X all = TRUE; break;
X
X case 0x300: chart->line = FALSE; break;
X case 0x301: chart->line = TRUE; break;
X case 0x302: chart->stacked ^= TRUE; break;
X case 0x303: chart->cuddle ^= TRUE; break;
X case 0x304: chart->exclude_0 ^= TRUE; break;
X case 0x305: chart->exclude_neg ^= TRUE; break;
X case 0x30a: chart->average = atoi(read_text_button(w, 0)); break;
X case 0x306: (void)read_text_button(w, &chart->color); break;
X case 0x307: (void)read_text_button(w, &chart->value); break;
X case 0x308: (void)read_text_button(w, &chart->offset); break;
X case 0x309: (void)read_text_button(w, &chart->label); break;
X
X case 0x234: (void)read_text_button(w, &item->database); break;
X case 0x235: (void)read_text_button(w, &item->query); break;
X case 0x231: item->qsummary ^= TRUE; break;
X case 0x232: item->qfirst ^= TRUE;
X item->qlast = FALSE;
X fillout_formedit_widget_by_code(0x233); break;
X case 0x233: item->qlast ^= TRUE;
X item->qfirst = FALSE;
X fillout_formedit_widget_by_code(0x232); break;
X }
X
X /*
X * if a choice item is modified, modify all other choice items with
X * the same name too.
X */
X if (item && item->name && item->type == IT_CHOICE)
X for (i=0; i < form->nitems; i++) {
X ip = form->items[i];
X if (i != curr_item && ip->type == IT_CHOICE
X && ip->name
X && !strcmp(ip->name, item->name)) {
X ip->column = item->column;
X ip->search = item->search;
X ip->rdonly = item->rdonly;
X ip->nosort = item->nosort;
X ip->defsort = item->defsort;
X ip->sumcol = item->sumcol;
X ip->sumwidth = item->sumwidth;
X ip->column = item->column;
X if (item->idefault) {
X if (ip->idefault)
X free(ip->idefault);
X ip->idefault =mystrdup(item->idefault);
X }
X }
X }
X return(all ? 2 : 1);
}
SHAR_EOF
echo 'File formwin.c is complete' &&
chmod 0644 formwin.c ||
echo 'restore of formwin.c failed'
Wc_c="`wc -c < 'formwin.c'`"
test 32921 -eq "$Wc_c" ||
echo 'formwin.c: original size 32921, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= help.c ==============
if test -f 'help.c' -a X"$1" != X"-c"; then
echo 'x - skipping help.c (File already exists)'
rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting help.c (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'help.c' &&
/*
X * print help popup on a particular topic. Help topics are identified by
X * a short string that is looked up in the help file. The help file contains
X * a list of button help entries; each consisting of a line "%% topic"
X * followed by help text lines. Leading blanks in text lines are ignored.
X * Lines beginning with '#' are ignored.
X *
X * To add a help text to a widget, call
X * XtAddCallback(widget, XmNhelpCallback, help_callback, "topic")
X * and add "%%n topic" and the help text to the help file (n is a number
X * used for extracting a user's manual, it is not used by the grok program).
X *
X * help_callback(parent, topic) Print help for a topic, usually for
X * button <parent>.
X */
X
#include "config.h"
#include <stdio.h>
#include <malloc.h>
#include <Xm/Xm.h>
#include <Xm/DialogS.h>
#include <Xm/Form.h>
#include <Xm/Frame.h>
#include <Xm/LabelP.h>
#include <Xm/LabelG.h>
#include <Xm/PushBP.h>
#include <Xm/PushBG.h>
#include <Xm/ToggleB.h>
#include <Xm/Text.h>
#include <Xm/Protocols.h>
#include <X11/cursorfont.h>
#include "grok.h"
#include "form.h"
X
static void done_callback(), context_callback();
static char *get_text();
extern void *malloc(), *realloc();
extern BOOL find_file();
X
extern Display *display; /* everybody uses the same server */
extern XFontStruct *font[NFONTS]; /* fonts: FONT_* */
extern XmFontList fontlist[NFONTS];
extern Pixel color[NCOLS]; /* colors: COL_* */
extern CARD *curr_card; /* card being displayed in main win */
X
static BOOL have_shell; /* message popup exists if TRUE */
static Widget shell; /* popup menu shell */
X
X
/*
X * destroy the help popup. Remove it from the screen, and destroy its widgets.
X */
X
destroy_help_popup()
{
X if (have_shell) {
X XtPopdown(shell);
X XtDestroyWidget(shell);
X have_shell = FALSE;
X }
}
X
X
X
/*
X * look up the help text for <topic> and create a window containing the text.
X */
X
/*ARGSUSED*/
void help_callback(parent, topic)
X Widget parent;
X char *topic;
{
X static BOOL have_fontlist;
X static XmFontList fontlist;
X static Widget text_w;
X Widget form, w;
X Atom closewindow;
X char *message;
X Arg args[20];
X int n;
X int nlines = 1;
X char *p;
X
X if (!(message = get_text(topic)))
X return;
X if (!strcmp(topic, "card") && curr_card && curr_card->form
X && curr_card->form->help) {
X if (!(message = realloc(message, strlen(message) +
X strlen(curr_card->form->help) + 2)))
X return;
X strcat(message, "\n");
X strcat(message, curr_card->form->help);
X }
X if (have_shell) {
X XmTextSetString(text_w, message);
X XtPopup(shell, XtGrabNone);
X free(message);
X return;
X }
X if (!have_fontlist++)
X fontlist = XmFontListCreate(font[FONT_HELP], "cset");
X for (nlines=0, p=message; *p; p++)
X nlines += *p == '\n';
X if (nlines > 30)
X nlines = 30;
X
X n = 0;
X XtSetArg(args[n], XmNdeleteResponse, XmDO_NOTHING); n++;
X XtSetArg(args[n], XmNiconic, False); n++;
X shell = XtAppCreateShell("Help", "grok",
X applicationShellWidgetClass, display, args, n);
X set_icon(shell, 1);
X form = XtCreateManagedWidget("helpform", xmFormWidgetClass,
X shell, NULL, 0);
X XtAddCallback(form, XmNhelpCallback, (XtCallbackProc)help_callback,
X (XtPointer)"help");
X
X /*-- buttons --*/
X n = 0;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNbottomOffset, 8); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNrightOffset, 8); n++;
X XtSetArg(args[n], XmNwidth, 80); n++;
X w = XtCreateManagedWidget("Dismiss", xmPushButtonWidgetClass,
X form, args, n);
X XtAddCallback(w, XmNactivateCallback, done_callback, (XtPointer)0);
X XtAddCallback(w, XmNhelpCallback, (XtCallbackProc)help_callback,
X (XtPointer)"help_done");
X n = 0;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNbottomOffset, 8); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNrightWidget, w); n++;
X XtSetArg(args[n], XmNrightOffset, 8); n++;
X XtSetArg(args[n], XmNwidth, 80); n++;
X w = XtCreateManagedWidget("Context", xmPushButtonWidgetClass,
X form, args, n);
X XtAddCallback(w, XmNactivateCallback, context_callback, (XtPointer)0);
X XtAddCallback(w, XmNhelpCallback, (XtCallbackProc)help_callback,
X (XtPointer)"help_ctx");
X
X /*-- text --*/
X n = 0;
X XtSetArg(args[n], XmNtopAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNtopOffset, 8); n++;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNbottomWidget, w); n++;
X XtSetArg(args[n], XmNbottomOffset, 16); n++;
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNleftOffset, 8); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNrightOffset, 8); n++;
X XtSetArg(args[n], XmNhighlightThickness,0); n++;
X XtSetArg(args[n], XmNeditable, False); n++;
X XtSetArg(args[n], XmNeditMode, XmMULTI_LINE_EDIT); n++;
X XtSetArg(args[n], XmNcolumns, 60); n++;
X XtSetArg(args[n], XmNrows, nlines+1); n++;
X XtSetArg(args[n], XmNfontList, fontlist); n++;
X XtSetArg(args[n], XmNscrollVertical, True); n++;
X XtSetArg(args[n], XmNpendingDelete, False); n++;
X text_w = w = XmCreateScrolledText(form, "text", args, n);
X XmTextSetString(w, message);
X XtVaSetValues(w, XmNbackground, color[COL_SHEET], NULL);
X XtManageChild(w);
X XtAddCallback(w, XmNhelpCallback, (XtCallbackProc)help_callback,
X (XtPointer)"help");
X XtPopup(shell, XtGrabNone);
X closewindow = XmInternAtom(display, "WM_DELETE_WINDOW", False);
X XmAddWMProtocolCallback(shell, closewindow,
X done_callback, (XtPointer)shell);
X have_shell = TRUE;
X free(message);
}
X
X
/*ARGSUSED*/
static void done_callback(widget, item, data)
X Widget widget;
X int item;
X XmToggleButtonCallbackStruct *data;
{
X destroy_help_popup();
}
X
X
/*ARGSUSED*/
static void context_callback(widget, item, data)
X Widget widget;
X int item;
X XmToggleButtonCallbackStruct *data;
{
X Widget w;
X Cursor cursor = XCreateFontCursor(display, XC_question_arrow);
X if (w = XmTrackingLocate(shell, cursor, False)) {
X data->reason = XmCR_HELP;
X XtCallCallbacks(w, XmNhelpCallback, &data);
X }
X XFreeCursor(display, cursor);
}
X
X
/*ARGSUSED*/
static char *get_text(topic)
X char *topic;
{
X FILE *fp; /* help file */
X char line[1024]; /* line buffer (and filename)*/
X char *text; /* text buffer */
X int textsize; /* size of text buffer */
X int textlen = 0; /* # of chars in text buffer */
X int n; /* for stripping trailing \n */
X register char *p;
X
X if (!(text = (char *)malloc(textsize = 4096)))
X return(0);
X *text = 0;
X if (!find_file(line, HELP_FN, FALSE) || !(fp = fopen(line, "r"))) {
X sprintf(text, "Sorry, no help available,\n%s not found",
X HELP_FN);
X return(text);
X }
X for (;;) { /* find topic */
X if (!fgets(line, 1024, fp)) {
X strcpy(text, "Sorry, no help available on this topic");
X return(text);
X }
X if (line[0] != '%' || line[1] != '%')
X continue;
X line[strlen(line)-1] = 0; /* strip \n */
X for (p=line+2; *p >= '0' && *p <= '9'; p++);
X for (; *p == ' ' || *p == '\t'; p++);
X if (*p && *p != '\n' && !strcmp(p, topic))
X break;
X }
X for (;;) { /* read text */
X if (!fgets(line, 1024, fp))
X break;
X if (line[0] == '#')
X continue;
X if (line[0] == '%' && line[1] == '%')
X return(text);
X p = line[0] == '\t' ? line+1 : line;
X if (textlen + strlen(p) > textsize)
X if (!(text = (char *)realloc(text, textsize += 4096)))
X break;
X strcat(text, p);
X textlen += strlen(p);
X }
X for (n=strlen(text); n && text[n-1] == '\n'; n--)
X text[n-1] = 0;
X return(text);
}
SHAR_EOF
chmod 0644 help.c ||
echo 'restore of help.c failed'
Wc_c="`wc -c < 'help.c'`"
test 7585 -eq "$Wc_c" ||
echo 'help.c: original size 7585, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= main.c ==============
if test -f 'main.c' -a X"$1" != X"-c"; then
echo 'x - skipping main.c (File already exists)'
rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting main.c (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'main.c' &&
/*
X * Initializes everything and starts a calendar window for the current
X * month. The interval timer (for autosave and entry recycling) and a
X * few routines used by everyone are also here.
X *
X * main(argc, argv) Guess.
X *
X * Author: thomas@bitrot.in-berlin.de (Thomas Driemeyer)
X */
X
#include "config.h"
#include <stdio.h>
#include <unistd.h>
#include <errno.h>
#include <string.h>
#include <time.h>
#include <sys/types.h>
#include <Xm/Xm.h>
#include <X11/StringDefs.h>
#include "grok.h"
#include "form.h"
#include "version.h"
X
extern char *mystrdup();
static void init_resources(), init_colors(), init_fonts();
static void usage();
X
extern char *resolve_tilde();
extern void switch_form();
static void make_grokdir();
X
extern CARD *curr_card; /* card switched to if -t */
extern Widget w_summary; /* form for summary table */
extern Widget mainwindow; /* popup menus hang off main window */
Display *display; /* everybody uses the same server */
GC gc; /* everybody uses this context */
GC xor_gc; /* XOR gc for rubberbanding */
XXtAppContext app; /* application handle */
Widget toplevel; /* top-level shell for icon name */
char *progname; /* argv[0] */
XXFontStruct *font[NFONTS]; /* fonts: FONT_* */
XXmFontList fontlist[NFONTS];
Pixel color[NCOLS]; /* colors: COL_* */
Pixmap pixmap[NPICS]; /* common symbols */
X
X
static String fallbacks[] = {
#include "resource.h"
X NULL
};
X
X
/*
X * initialize everything and create the main calendar window
X */
X
main(argc, argv)
X int argc;
X char *argv[];
{
X int n, i;
X char *formname = 0;
X char *query = 0;
X BOOL nofork = FALSE;
X BOOL ttymode = FALSE;
X BOOL noheader = FALSE;
X char *errmsg;
X XGCValues gcval;
X
X if ((progname = strrchr(argv[0], '/')) && progname[1])
X progname++;
X else
X progname = argv[0];
X
X for (n=1; n < argc; n++) /* options */
X if (*argv[n] != '-')
X if (!formname)
X formname = argv[n];
X else if (!query)
X query = argv[n];
X else
X usage();
X
X else if (argv[n][2] < 'a' || argv[n][2] > 'z')
X switch(argv[n][1]) {
X case 'd':
X for (i=0; fallbacks[i]; i++)
X printf("%s%s\n", progname,
X fallbacks[i]);
X fflush(stdout);
X return(0);
X case 'v':
X fprintf(stderr, "%s: %s\n", progname, VERSION);
X return(0);
X case 'f':
X nofork = TRUE;
X break;
X case 'T':
X noheader = TRUE;
X case 't':
X ttymode = TRUE;
X break;
X default:
X usage();
X }
X
X (void)umask(0077);
X tzset();
X if (ttymode) {
X char buf[1024];
X if (!formname)
X usage();
X init_resources();
X read_preferences();
X switch_form(formname);
X if (!curr_card ||!curr_card->dbase ||!curr_card->dbase->nrows){
X fprintf(stderr, "%s: %s: no data\n",progname,formname);
X _exit(0);
X }
X query_any(curr_card, query);
X if (!curr_card->nquery) {
X fprintf(stderr,"%s: %s: no match\n",progname,formname);
X _exit(0);
X }
X if (!noheader) {
X char *p;
X make_summary_line(buf, curr_card, -1);
X puts(buf);
X for (p=buf; *p; p++)
X *p = '-';
X puts(buf);
X }
X for (n=0; n < curr_card->nquery; n++) {
X make_summary_line(buf, curr_card, curr_card->query[n]);
X puts(buf);
X }
X _exit(0);
X }
X if (!nofork) { /* background */
X long pid = fork();
X if (pid < 0)
X perror("can't fork");
X else if (pid > 0)
X _exit(0);
X }
X toplevel = XtAppInitialize(&app, "Grok", NULL, 0,
# ifndef XlibSpecificationRelease
X (Cardinal *)&argc, argv,
# else
X &argc, argv,
# endif
X fallbacks, NULL, 0);
X display = XtDisplay(toplevel);
X set_icon(toplevel, 0);
X gc = XCreateGC(display, DefaultRootWindow(display), 0, 0);
X xor_gc = XCreateGC(display, DefaultRootWindow(display), 0, 0);
X gcval.function = GXxor;
X (void)XChangeGC(display, xor_gc, GCFunction, &gcval);
X XSetForeground(display, xor_gc,
X WhitePixelOfScreen(DefaultScreenOfDisplay(display)));
X
X init_resources();
X init_colors();
X init_fonts();
X init_pixmaps();
X read_preferences();
X XSetForeground(display, xor_gc, color[COL_CANVBACK]);
X
X create_mainwindow(toplevel);
X XtRealizeWidget(toplevel);
X
X make_grokdir();
X
X if (formname)
X switch_form(formname);
X if (query) {
X query_any(curr_card, query);
X create_summary_menu(curr_card, w_summary, mainwindow);
X curr_card->row = curr_card->query ? curr_card->query[0]
X : curr_card->dbase->nrows;
X fillout_card(curr_card, FALSE);
X }
X XtAppMainLoop(app);
X return(0);
}
X
X
/*
X * usage information
X */
X
static void usage()
{
X fprintf(stderr, "Usage: %s [options] [form ['query']]\n", progname);
X fprintf(stderr, " Options:\n%s%s%s%s%s%s\n",
X "\t-h\tprint this help text\n",
X "\t-d\tdump fallback app-defaults and exit\n",
X "\t-v\tprint version string\n",
X "\t-t\tprint cards matching query to stdout\n",
X "\t-T\tsame as -t without header line\n",
X "\t-f\tdon't fork on startup\n");
X fprintf(stderr, " the form argument is required for -t and -T.\n");
X _exit(1);
}
X
X
/*
X * create the directory that holds all forms and databases. This is a
X * separate routine to avoid having a big buffer on the stack in main().
X */
X
static void mkdir_callback()
{
X char *path = resolve_tilde(GROKDIR, 0);
X (void)chmod(path, 0700);
X (void)mkdir(path, 0700);
X if (access(path, X_OK))
X create_error_popup(toplevel, errno,
X "Cannot create directory %s", path);
}
X
static void make_grokdir()
{
X char *path = resolve_tilde(GROKDIR, 0);
X if (access(path, X_OK))
X create_query_popup(toplevel, mkdir_callback, 0,
"Cannot access directory %s\n\n\
This directory is required to store the grok configuration\n\
file, and it is the default location for forms and databases.\n\
If you are running grok for the first time and intend to use it\n\
regularly, press OK now and copy all files from the grokdir\n\
demo directory in the grok distribution into %s .\n\
\n\
If you want to experiment with grok first, press Cancel. If\n\
you have a grokdir directory in the directory you started\n\
grok from, it will be used in place of %s, but you may\n\
not be able to create new forms and databases, and con-\n\
figuration changes will not be saved.",
X path, GROKDIR, GROKDIR);
}
X
X
/*------------------------------------ init ---------------------------------*/
/*
X * read resources and put them into the config struct. This routine is used
X * for getting three types of resources: res_type={XtRInt,XtRBool,XtRString}.
X */
X
void get_rsrc(ret, res_name, res_class_name, res_type)
X XtPointer ret;
X char *res_name;
X char *res_class_name;
X char *res_type;
{
X XtResource res_list[1];
X
X res_list->resource_name = res_name;
X res_list->resource_class = res_class_name;
X res_list->resource_type = res_type;
X res_list->resource_size = sizeof(res_type);
X res_list->resource_offset = 0;
X res_list->default_type = res_type;
X res_list->default_addr = 0;
X
X XtGetApplicationResources(toplevel, ret, res_list, 1, NULL, 0);
}
X
X
static void init_resources()
{
#if 0
X register struct config *c = &config;
X
X get_rsrc(&c->calbox_xs, "calBoxWidth", "CalBoxWidth", XtRInt);
#endif
}
X
X
/*
X * determine all colors, and allocate them. They can then be used by a call
X * to set_color(COL_XXX).
X */
X
static void init_colors()
{
X Screen *screen = DefaultScreenOfDisplay(display);
X Colormap cmap;
X XColor rgb;
X int i, d;
X char *c, *n, class_name[256];
X
X cmap = DefaultColormap(display, DefaultScreen(display));
X for (i=0; i < NCOLS; i++) {
X switch (i) {
X default:
X case COL_STD: n = "colStd"; d=1; break;
X case COL_BACK: n = "colBack"; d=0; break;
X case COL_SHEET: n = "colSheet"; d=0; break;
X case COL_TEXTBACK: n = "colTextBack"; d=0; break;
X case COL_TOGGLE: n = "colToggle"; d=1; break;
X case COL_CANVBACK: n = "colCanvBack"; d=0; break;
X case COL_CANVFRAME: n = "colCanvFrame"; d=1; break;
X case COL_CANVBOX: n = "colCanvBox"; d=0; break;
X case COL_CANVSEL: n = "colCanvSel"; d=1; break;
X case COL_CANVTEXT: n = "colCanvText"; d=1; break;
X case COL_CHART_AXIS: n = "colChartAxis"; d=1; break;
X case COL_CHART_GRID: n = "colChartGrid"; d=1; break;
X case COL_CHART_BOX: n = "colChartBox"; d=1; break;
X case COL_CHART_0: n = "colChart0"; d=0; break;
X case COL_CHART_1: n = "colChart1"; d=0; break;
X case COL_CHART_2: n = "colChart2"; d=0; break;
X case COL_CHART_3: n = "colChart3"; d=0; break;
X case COL_CHART_4: n = "colChart4"; d=0; break;
X case COL_CHART_5: n = "colChart5"; d=0; break;
X case COL_CHART_6: n = "colChart6"; d=0; break;
X case COL_CHART_7: n = "colChart7"; d=0; break;
X }
X strcpy(class_name, n);
X class_name[0] &= ~('a'^'A');
X get_rsrc(&c, n, class_name, XtRString);
X if (!XParseColor(display, cmap, c, &rgb))
X fprintf(stderr, "%s: unknown color \"%s\" (%s)\n",
X progname, c, n);
X else if (!XAllocColor(display, cmap, &rgb))
X fprintf(stderr, "%s: can't alloc color \"%s\" (%s)\n",
X progname, c, n);
X else {
X color[i] = rgb.pixel;
X continue;
X }
X color[i] = d ? BlackPixelOfScreen(screen)
X : WhitePixelOfScreen(screen);
X }
}
X
X
set_color(col)
X int col;
{
X XSetForeground(display, gc, color[col]);
}
X
X
/*
X * load all fonts and make them available in the "fonts" struct. They are
X * loaded into the GC as necessary.
X */
X
static void init_fonts()
{
X int i;
X char *f, class_name[256];
X
X for (i=0; i < NFONTS; i++) {
X switch (i) {
X default:
X case FONT_STD: f = "fontList"; break;
X case FONT_HELP: f = "helpFont"; break;
X case FONT_HELV: f = "helvFont"; break;
X case FONT_HELV_O: f = "helvObliqueFont"; break;
X case FONT_HELV_S: f = "helvSmallFont"; break;
X case FONT_HELV_L: f = "helvLargeFont"; break;
X case FONT_COURIER: f = "courierFont"; break;
X case FONT_LABEL: f = "labelFont"; break;
X }
X strcpy(class_name, f);
X class_name[0] &= ~('a'^'A');
X get_rsrc(&f, f, class_name, XtRString);
X if (!(font[i] = XLoadQueryFont(display, f)))
X fatal("can't load font \"%s\"\n", f);
X if (!(fontlist[i] = XmFontListCreate(font[i], "cset")))
X fatal("can't create fontlist \"%s\"\n", f);
X }
}
X
X
/*
X * allocate pixmaps
X */
X
#include "bm_left.h"
#include "bm_right.h"
X
static char *pics[NPICS] = { bm_left_bits, bm_right_bits };
static int pix_width[NPICS] = { bm_left_width, bm_right_width };
static int pix_height[NPICS] = { bm_left_height, bm_right_height };
X
init_pixmaps()
{
X int p;
X Colormap cmap;
X XColor rgb;
X char *c;
X
X cmap = DefaultColormap(display, DefaultScreen(display));
X get_rsrc(&c, "background", "Background", XtRString);
X if (!XParseColor(display, cmap, c, &rgb))
X fprintf(stderr, "pixmap error: unknown bkg color \"%s\"\n", c);
X if (!XAllocColor(display, cmap, &rgb))
X fprintf(stderr, "pixmap error: can't alloc bkg color \"%s\"\n",
X c);
X for (p=0; p < NPICS; p++)
X if (!(pixmap[p] = XCreatePixmapFromBitmapData(display,
X DefaultRootWindow(display),
X pics[p], pix_width[p], pix_height[p],
X color[COL_STD], rgb.pixel,
X DefaultDepth(display,DefaultScreen(display)))))
X fatal("no memory for pixmaps");
}
SHAR_EOF
chmod 0644 main.c ||
echo 'restore of main.c failed'
Wc_c="`wc -c < 'main.c'`"
test 10853 -eq "$Wc_c" ||
echo 'main.c: original size 10853, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= mainwin.c ==============
if test -f 'mainwin.c' -a X"$1" != X"-c"; then
echo 'x - skipping mainwin.c (File already exists)'
rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting mainwin.c (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'mainwin.c' &&
/*
X * Create the main window and everything in it.
X *
X * create_mainwindow(toplvl) Create all widgets in main window
X * print_info_line() print database status into main window
X * remake_dbase_pulldown() put known forms into dbase pulldown
X * remake_query_pulldown() put predefined queries into pulldown
X * remake_sort_pulldown() put sort criteria into sort pulldown
X * switch_form(formname) switch mainwindow to new form
X * search_cards(card,string) do a query for an expression or string
X */
X
#include "config.h"
#ifndef NOSTDLIB
#include <stdlib.h>
#endif
#include <stdio.h>
#include <time.h>
#include <sys/types.h>
#ifdef DIRECT
#include <sys/dir.h>
#define dirent direct
#else
#include <dirent.h>
#endif
#include <Xm/Xm.h>
#include <Xm/MainW.h>
#include <Xm/Separator.h>
#include <Xm/Form.h>
#include <Xm/Frame.h>
#include <Xm/LabelP.h>
#include <Xm/ArrowBP.h>
#include <Xm/ArrowBG.h>
#include <Xm/Text.h>
#include <Xm/PushBP.h>
#include <Xm/PushBG.h>
#include <X11/cursorfont.h>
#include "grok.h"
#include "form.h"
X
#define OFF 16 /* margin around summary and card */
#define NHIST 20 /* remember this many search strings */
X
#ifndef LIB
#define LIB "/usr/local/lib"
#endif
X
extern FORM *form_create();
extern DBASE *dbase_create();
extern CARD *create_card_menu();
extern char *resolve_tilde(), *mystrdup(), *evaluate();
extern void help_callback();
static void file_pulldown(), dbase_pulldown(), help_pulldown();
static void search_callback(), new_callback(), del_callback();
static void pos_callback(), query_pulldown(), sort_pulldown();
static void newform_pulldown(), letter_callback();
X
extern Display *display; /* everybody uses the same server */
extern GC gc; /* everybody uses this context */
extern struct config config; /* global configuration data */
extern Pixel color[NCOLS]; /* colors: COL_* */
extern Pixmap pixmap[NPICS]; /* common symbols */
extern XmFontList fontlist[NFONTS];
extern struct pref pref; /* global preferences */
extern int col_sorted_by; /* dbase is sorted by this column */
CARD *curr_card; /* card being displayed in main win, */
char *prev_form; /* previous form name */
Widget mainwindow; /* popup menus hang off main window */
static Dimension win_xs, win_ys; /* size of main window w/o sum+card */
static Widget toplevel; /* need to save this for icon name */
static Widget menubar; /* menu bar in main window */
static Widget dbpulldown; /* dbase pulldown menu widget */
static Widget sortpulldown; /* sort pulldown menu widget */
static Widget qpulldown; /* query pulldown menu widget */
X
static Widget w_info; /* info label, for "n found" */
static Widget w_search; /* search string text widget */
static Widget w_prev; /* search prev arrow */
static Widget w_next; /* search next arrow */
X Widget w_summary; /* form for summary table */
static Widget w_letter[28]; /* buttons for a,b,c,...,z,misc,* */
static Widget w_card; /* form for card */
static Widget w_left; /* button: previous card */
static Widget w_right; /* button: next card */
static Widget w_new; /* button: start a new card */
static Widget w_del; /* button: delete current card */
X
X
X
/*
X * create the main window with a menu bar and empty forms for the summary
X * and the card. The forms will be filled later. This routine is called
X * once during startup, before the first switch_form().
X */
X
create_mainwindow(toplvl)
X Widget toplvl;
{
X XmString s[10];
X Widget menu, fmenu, form, w, searchform;
X Arg args[15];
X int n, i, wid;
X char buf[10];
X
X toplevel = toplvl;
X mainwindow = XtCreateManagedWidget("mainwindow",
X xmMainWindowWidgetClass, toplevel, NULL, 0);
X
X /*-- menu bar --*/
X s[0] = XmStringCreateSimple("File");
X s[1] = XmStringCreateSimple("Database");
X s[2] = XmStringCreateSimple("Sort");
X s[3] = XmStringCreateSimple("Query");
X s[4] = XmStringCreateSimple("Help");
X menubar = XmVaCreateSimpleMenuBar(mainwindow, "menubar",
X FIX_MENUBAR
X XmVaCASCADEBUTTON, s[0], 'F',
X XmVaCASCADEBUTTON, s[1], 'D',
X XmVaCASCADEBUTTON, s[2], 'S',
X XmVaCASCADEBUTTON, s[3], 'Q',
X XmVaCASCADEBUTTON, s[4], 'H',
X NULL);
X if (w = XtNameToWidget(menubar, "button_4"))
X XtVaSetValues(menubar, XmNmenuHelpWidget, w, 0);
X for (n=0; n < 5; n++)
X XmStringFree(s[n]);
X
X s[0] = XmStringCreateSimple("Print...");
X s[1] = XmStringCreateSimple("Preferences...");
X s[2] = XmStringCreateSimple("Form editor");
X s[3] = XmStringCreateSimple("About...");
X s[4] = XmStringCreateSimple("Save");
X s[5] = XmStringCreateSimple("Quit");
X s[6] = XmStringCreateSimple("Rambo Quit");
X s[7] = XmStringCreateSimple("Ctrl-P");
X s[8] = XmStringCreateSimple("Ctrl-R");
X s[9] = XmStringCreateSimple("Ctrl-S");
X fmenu = XmVaCreateSimplePulldownMenu(menubar, "file", 0,
X file_pulldown,
X FIX_MENUBAR
X XmVaPUSHBUTTON, s[0], 'P', "Ctrl<Key>P", s[7],
X XmVaPUSHBUTTON, s[1], 'r', "Ctrl<Key>R", s[8],
X XmVaCASCADEBUTTON, s[2], 'F',
X XmVaPUSHBUTTON, s[3], 'A', NULL, NULL,
X XmVaPUSHBUTTON, s[4], 'S', "Ctrl<Key>S", s[9],
X XmVaPUSHBUTTON, s[5], 'Q', NULL, NULL,
X XmVaPUSHBUTTON, s[6], NULL, NULL, NULL,
X NULL);
#ifdef XmNtearOffModel
X XtVaSetValues(fmenu, XmNtearOffModel, XmTEAR_OFF_ENABLED, NULL);
#endif
X XtAddCallback(fmenu, XmNhelpCallback,
X help_callback, (XtPointer)"pd_file");
X for (n=0; n < 10; n++)
X XmStringFree(s[n]);
X
X s[0] = XmStringCreateSimple("Edit current form...");
X s[1] = XmStringCreateSimple("Create new form from scratch...");
X s[2] = XmStringCreateSimple("Create, use current as template...");
X fmenu = XmVaCreateSimplePulldownMenu(fmenu, "newform", 2,
X newform_pulldown,
X FIX_MENUBAR
X XmVaPUSHBUTTON, s[0], 'E', NULL, NULL,
X XmVaPUSHBUTTON, s[1], 'C', NULL, NULL,
X XmVaPUSHBUTTON, s[2], 't', NULL, NULL,
X NULL);
#ifdef XmNtearOffModel
X XtVaSetValues(fmenu, XmNtearOffModel, XmTEAR_OFF_ENABLED, NULL);
#endif
X XtAddCallback(fmenu, XmNhelpCallback,
X help_callback, (XtPointer)"pd_file");
X for (n=0; n < 3; n++)
X XmStringFree(s[n]);
X
X dbpulldown = XmVaCreateSimplePulldownMenu(menubar, "dbase", 1,
X dbase_pulldown,
X FIX_MENUBAR
X NULL);
X XtAddCallback(dbpulldown, XmNhelpCallback,
X help_callback, (XtPointer)"pd_dbase");
X
X sortpulldown = XmVaCreateSimplePulldownMenu(menubar, "sort", 2,
X sort_pulldown,
X FIX_MENUBAR
X NULL);
X XtAddCallback(sortpulldown, XmNhelpCallback,
X help_callback, (XtPointer)"pd_sort");
X
X qpulldown = XmVaCreateSimplePulldownMenu(menubar, "query", 3,
X query_pulldown,
X FIX_MENUBAR
X NULL);
X XtAddCallback(qpulldown, XmNhelpCallback,
X help_callback, (XtPointer)"pd_query");
X
X s[0] = XmStringCreateSimple("On context");
X s[1] = XmStringCreateSimple("Current database");
X s[2] = XmStringCreateSimple("Introduction");
X s[3] = XmStringCreateSimple("Getting help");
X s[4] = XmStringCreateSimple("Troubleshooting");
X s[5] = XmStringCreateSimple("Files and programs");
X s[6] = XmStringCreateSimple("Expression grammar");
X s[7] = XmStringCreateSimple("Ctrl-H");
X s[8] = XmStringCreateSimple("Ctrl-D");
X s[9] = XmStringCreateSimple("Ctrl-G");
X fmenu = XmVaCreateSimplePulldownMenu(menubar, "help", 4,
X help_pulldown,
X FIX_MENUBAR
X XmVaPUSHBUTTON, s[0], 'C', "Ctrl<Key>H", s[7],
X XmVaPUSHBUTTON, s[1], 'D', "Ctrl<Key>D", s[8],
X XM_VA_SEPARATOR
X XmVaPUSHBUTTON, s[2], 'I', NULL, NULL,
X XmVaPUSHBUTTON, s[3], 'G', NULL, NULL,
X XmVaPUSHBUTTON, s[4], 'T', NULL, NULL,
X XmVaPUSHBUTTON, s[5], 'F', NULL, NULL,
X XmVaPUSHBUTTON, s[6], 'E', "Ctrl<Key>G", s[9],
X NULL);
#ifdef XmNtearOffModel
X XtVaSetValues(fmenu, XmNtearOffModel, XmTEAR_OFF_ENABLED, NULL);
#endif
X for (n=0; n < 10; n++)
X XmStringFree(s[n]);
X
X form = XtCreateWidget("mainform", xmFormWidgetClass,
X mainwindow, NULL, 0);
X /*-- search string --*/
X n = 0;
X XtSetArg(args[n], XmNtopAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNtopOffset, 10); n++;
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNleftOffset, OFF); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNrightOffset, OFF); n++;
X searchform = XtCreateManagedWidget("searchform", xmFormWidgetClass,
X form, args, n);
X XtAddCallback(searchform, XmNhelpCallback, help_callback,
X (XtPointer)"search");
X
X n = 0;
X XtSetArg(args[n], XmNtopAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
X w = XtCreateManagedWidget("Search", xmPushButtonWidgetClass,
X searchform, args, n);
X XtAddCallback(w, XmNactivateCallback, search_callback, (XtPointer)0);
X XtAddCallback(w, XmNhelpCallback, help_callback, (XtPointer)"search");
X
X n = 0;
X XtSetArg(args[n], XmNtopAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNtopOffset, 3); n++;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNbottomOffset, 3); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNrightWidget, w); n++;
X XtSetArg(args[n], XmNrightOffset, 10); n++;
X XtSetArg(args[n], XmNarrowDirection, XmARROW_RIGHT); n++;
X XtSetArg(args[n], XmNsensitive, FALSE); n++;
X XtSetArg(args[n], XmNforeground, color[COL_BACK]); n++;
X w = w_next = XtCreateManagedWidget("next", xmArrowButtonWidgetClass,
X searchform, args, n);
X XtAddCallback(w, XmNactivateCallback, search_callback, (XtPointer)1);
X XtAddCallback(w, XmNhelpCallback, help_callback, (XtPointer)"search");
X
X n = 0;
X XtSetArg(args[n], XmNtopAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNtopOffset, 3); n++;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNbottomOffset, 3); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNrightWidget, w); n++;
X XtSetArg(args[n], XmNarrowDirection, XmARROW_LEFT); n++;
X XtSetArg(args[n], XmNsensitive, FALSE); n++;
X XtSetArg(args[n], XmNforeground, color[COL_BACK]); n++;
X w = w_prev = XtCreateManagedWidget("prev", xmArrowButtonWidgetClass,
X searchform, args, n);
X XtAddCallback(w, XmNactivateCallback, search_callback, (XtPointer)-1);
X XtAddCallback(w, XmNhelpCallback, help_callback, (XtPointer)"search");
X
X n = 0;
X XtSetArg(args[n], XmNtopAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNfontList, fontlist[FONT_HELV]); n++;
X w = XtCreateManagedWidget("Search:", xmLabelWidgetClass,
X searchform, args, n);
X
X n = 0;
X XtSetArg(args[n], XmNtopAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNleftWidget, w); n++;
X XtSetArg(args[n], XmNleftOffset, OFF); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNrightWidget, w_prev); n++;
X XtSetArg(args[n], XmNrightOffset, OFF); n++;
X XtSetArg(args[n], XmNpendingDelete, True); n++;
X XtSetArg(args[n], XmNhighlightThickness,1); n++;
X XtSetArg(args[n], XmNbackground, color[COL_TEXTBACK]); n++;
X XtSetArg(args[n], XmNfontList, fontlist[FONT_HELV]); n++;
X w_search = XtCreateManagedWidget(" ", xmTextWidgetClass,
X searchform, args, n);
X XtAddCallback(w_search, XmNactivateCallback, search_callback, NULL);
X XtAddCallback(w_search, XmNhelpCallback, help_callback,
X (XtPointer)"search");
X
X /*-- info line --*/
X n = 0;
X XtSetArg(args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNtopWidget, searchform); n++;
X XtSetArg(args[n], XmNtopOffset, 10); n++;
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNleftOffset, OFF); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNrightOffset, OFF); n++;
X XtSetArg(args[n], XmNalignment, XmALIGNMENT_BEGINNING); n++;
X XtSetArg(args[n], XmNfontList, fontlist[FONT_HELV]); n++;
X w_info = XtCreateManagedWidget(" ", xmLabelWidgetClass,
X form, args, n);
X XtAddCallback(w_info, XmNhelpCallback, help_callback,
X (XtPointer)"info");
X
X /*-- buttons --*/
X n = 0;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNbottomOffset, 8); n++;
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNleftOffset, OFF); n++;
X XtSetArg(args[n], XmNwidth, 40); n++;
X XtSetArg(args[n], XmNheight, 26); n++;
X XtSetArg(args[n], XmNlabelType, XmPIXMAP); n++;
X XtSetArg(args[n], XmNlabelPixmap, pixmap[PIC_LEFT]); n++;
X XtSetArg(args[n], XmNsensitive, False); n++;
X XtSetArg(args[n], XmNhighlightThickness,1); n++;
X w_left = XtCreateManagedWidget("Left", xmPushButtonWidgetClass,
X form, args, n);
X XtAddCallback(w_left,XmNactivateCallback, pos_callback, (XtPointer)-1);
X XtAddCallback(w_left,XmNhelpCallback, help_callback, (XtPointer)"pos");
X
X n = 0;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNbottomOffset, 8); n++;
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNleftWidget, w_left); n++;
X XtSetArg(args[n], XmNleftOffset, 4); n++;
X XtSetArg(args[n], XmNwidth, 40); n++;
X XtSetArg(args[n], XmNheight, 26); n++;
X XtSetArg(args[n], XmNlabelType, XmPIXMAP); n++;
X XtSetArg(args[n], XmNlabelPixmap, pixmap[PIC_RIGHT]); n++;
X XtSetArg(args[n], XmNsensitive, False); n++;
X XtSetArg(args[n], XmNhighlightThickness,1); n++;
X w_right = XtCreateManagedWidget("Right", xmPushButtonWidgetClass,
X form, args, n);
X XtAddCallback(w_right,XmNactivateCallback, pos_callback, (XtPointer)1);
X XtAddCallback(w_right,XmNhelpCallback,help_callback, (XtPointer)"pos");
X
X n = 0;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNbottomOffset, 8); n++;
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNleftWidget, w_right); n++;
X XtSetArg(args[n], XmNleftOffset, 24); n++;
X XtSetArg(args[n], XmNwidth, 80); n++;
X XtSetArg(args[n], XmNsensitive, False); n++;
X XtSetArg(args[n], XmNhighlightThickness,1); n++;
X w_new = XtCreateManagedWidget("New", xmPushButtonWidgetClass,
X form, args, n);
X XtAddCallback(w_new, XmNactivateCallback, new_callback, (XtPointer)0);
X XtAddCallback(w_new, XmNhelpCallback, help_callback, (XtPointer)"new");
X
X n = 0;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNbottomOffset, 8); n++;
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNleftWidget, w_new); n++;
X XtSetArg(args[n], XmNleftOffset, 8); n++;
X XtSetArg(args[n], XmNwidth, 80); n++;
X XtSetArg(args[n], XmNsensitive, False); n++;
X XtSetArg(args[n], XmNhighlightThickness,1); n++;
X w_del = XtCreateManagedWidget("Delete", xmPushButtonWidgetClass,
X form, args, n);
X XtAddCallback(w_del, XmNactivateCallback, del_callback, (XtPointer)0);
X XtAddCallback(w_del, XmNhelpCallback, help_callback, (XtPointer)"del");
X
X n = 0;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNbottomOffset, 8); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNrightOffset, OFF); n++;
X XtSetArg(args[n], XmNwidth, 80); n++;
X XtSetArg(args[n], XmNhighlightThickness,1); n++;
X w = XtCreateManagedWidget("Help", xmPushButtonWidgetClass,
X form, args, n);
X XtAddCallback(w, XmNactivateCallback,help_callback,(XtPointer)"card");
X XtAddCallback(w, XmNhelpCallback, help_callback, (XtPointer)"card");
X
X /*-- summary --*/
X n = 0;
X XtSetArg(args[n], XmNwidth, 400); n++;
X XtSetArg(args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNtopWidget, w_info); n++;
X XtSetArg(args[n], XmNtopOffset, 4); n++;
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNleftOffset, OFF); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNrightOffset, OFF); n++;
X w = w_summary = XtCreateManagedWidget("summform", xmFormWidgetClass,
X form, args, n);
X XtAddCallback(w, XmNhelpCallback, help_callback, (XtPointer)"summary");
X
X /*-- letters --*/
X if (pref.letters) {
X n = 0;
X XtSetArg(args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNtopWidget, w_summary); n++;
X XtSetArg(args[n], XmNtopOffset, 5); n++;
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNleftOffset, OFF+2); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNrightOffset, OFF); n++;
X w = XtCreateManagedWidget("letters", xmFormWidgetClass,
X form, args, n);
X XtAddCallback(w, XmNhelpCallback, help_callback,(XtPointer)"letters");
X
X for (i=0; i < 28; i++) {
X wid = strlen_in_pixels("W", FONT_STD);
X sprintf(buf, i < 26 ? "%c" : i==26 ? "misc" : "all", i+'A');
X n = 0;
X if (i == 0) {
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
X } else {
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNleftWidget, w_letter[i-1]); n++;
X }
X if (i < 26) {
X XtSetArg(args[n], XmNwidth, wid + 6); n++;
X }
X XtSetArg(args[n], XmNheight, wid + 6); n++;
X XtSetArg(args[n], XmNleftOffset, 0); n++;
X XtSetArg(args[n], XmNshadowThickness, 2); n++;
X XtSetArg(args[n], XmNtopAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNbottomAttachment,XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNhighlightThickness, 0); n++;
X w_letter[i] = XtCreateManagedWidget(buf, xmPushButtonWidgetClass,
X w, args, n);
X XtAddCallback(w_letter[i], XmNactivateCallback,
X letter_callback, (XtPointer)i);
X XtAddCallback(w_letter[i], XmNhelpCallback,
X help_callback, (XtPointer)"letters");
X }
X }
X /*-- card --*/
X n = 0;
X XtSetArg(args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNtopWidget, w); n++;
X XtSetArg(args[n], XmNtopOffset, OFF); n++;
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
X w = XtCreateManagedWidget(" ", xmSeparatorWidgetClass,
X form, args, n);
X n = 0;
X XtSetArg(args[n], XmNwidth, 400); n++;
X XtSetArg(args[n], XmNheight, 6); n++;
X XtSetArg(args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNtopWidget, w); n++;
X XtSetArg(args[n], XmNtopOffset, OFF); n++;
X XtSetArg(args[n], XmNbottomAttachment, XmATTACH_WIDGET); n++;
X XtSetArg(args[n], XmNbottomWidget, w_new); n++;
X XtSetArg(args[n], XmNbottomOffset, 8); n++;
X XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNleftOffset, OFF); n++;
X XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
X XtSetArg(args[n], XmNrightOffset, OFF); n++;
X w_card = XtCreateManagedWidget("cardform", xmFormWidgetClass,
X form, args, n);
X XtAddCallback(w_card, XmNhelpCallback,help_callback,(XtPointer)"card");
X
X XtManageChild(form);
X XtManageChild(menubar);
X create_summary_menu(curr_card, w_summary, mainwindow);
X remake_dbase_pulldown();
X remake_query_pulldown();
X remake_sort_pulldown();
}
X
X
/*
X * resize the main window such that there is enough room for the summary
X * and the card. During startup, create_mainwindow() has stored the size
X * without summary and card, now add enough space for the new summary and
X * card and resize the window.
X */
X
resize_mainwindow()
{
X Arg args[2];
X Dimension xs=0, ys=0;
X
X if (!win_ys) {
X XtSetArg(args[0], XmNwidth, &win_xs);
X XtSetArg(args[1], XmNheight, &win_ys);
X XtGetValues(mainwindow, args, 2);
X win_ys -= 1;
X }
X if (curr_card && curr_card->form) {
X xs = curr_card->form->xs + 2;
X ys = curr_card->form->ys + 2;
X }
X if (win_xs > xs) xs = win_xs;
X XtSetArg(args[0], XmNwidth, xs + 2*2 + 2*16);
X XtSetArg(args[1], XmNheight, win_ys + ys + 2*3);
X XtSetValues(XtParent(mainwindow), args, 2);
}
X
X
/*
X * print some enlightening info about the database into the info line between
X * the search string and the summary. This is called whenever something
X * changes: either the database was modified, or saved (modified is turned
X * off), or a search is done.
X */
X
void print_info_line()
{
X if (!display)
X return;
X if (!curr_card || !curr_card->dbase)
X print_button(w_info, "No database");
X else if (!curr_card->dbase->nrows)
X print_button(w_info, "No cards");
X else
X print_button(w_info, "%s: %d of %d cards %s",
X curr_card->form->name ? curr_card->form->name
X : "(no database)",
X curr_card->nquery,
X curr_card->dbase->nrows,
X curr_card->dbase->rdonly ? "(read only)" :
X curr_card->dbase->modified ? "(modified)":"");
}
X
X
/*-------------------------------------------------- variable pulldowns -----*/
/*
X * Read the current directory, the ./grokdir directory, the GROKDIR directory,
X * and the preference directories, and collect all form files (*.f) and put
X * them into the Form pulldown (pulldown #1). This is, of course, a flagrant
X * violation of the Motif style guide.
X */
X
#define MAXD 200 /* no more than 200 databases in pulldown */
static char *dbname[MAXD]; /* callback gets an index into this array */
static char *dbpath[MAXD]; /* path where form file was found */
static Widget dbwidget[MAXD]; /* button widgets, destroyed before remake */
X
static int append_to_dbase_pulldown(nlines, path)
X int nlines; /* # of databases already in pulldown*/
X char *path; /* directory name */
{
X char *p; /* for removing extension */
X DIR *dir; /* open directory file */
X struct dirent *dp; /* one directory entry */
X int num=0;
X
X path = resolve_tilde(path, 0);
X if (!(dir = opendir(path)))
X return(nlines);
X while (nlines < MAXD-!num) {
X if (!(dp = readdir(dir)))
X break;
X if (!(p = strrchr(dp->d_name, '.')) || strcmp(p, ".gf"))
X continue;
X *p = 0;
# ifndef NOMSEP
X if (!num++ && nlines)
X dbwidget[nlines++] = XtCreateManagedWidget(" ",
X xmSeparatorWidgetClass, dbpulldown, NULL, 0);
# endif
X dbname[nlines] = mystrdup(dp->d_name);
X dbpath[nlines] = mystrdup(path);
X dbwidget[nlines] = XtCreateManagedWidget(dp->d_name,
X xmPushButtonGadgetClass, dbpulldown, NULL, 0);
X XtAddCallback(dbwidget[nlines], XmNactivateCallback,
X dbase_pulldown, (XtPointer)nlines);
X nlines++;
X }
X (void)closedir(dir);
X return(nlines);
}
X
X
remake_dbase_pulldown()
{
X int n;
X char path[1024];
X
X for (n=0; n < MAXD; n++) {
X if (dbwidget[n])
X XtDestroyWidget(dbwidget[n]);
X if (dbpath[n])
X free((void *)dbpath[n]);
X if (dbname[n])
X free((void *)dbname[n]);
X dbwidget[n] = 0;
X dbname[n] = 0;
X dbpath[n] = 0;
X }
X sprintf(path, "%s/grokdir", LIB);
X n = append_to_dbase_pulldown(0, "./");
X n = append_to_dbase_pulldown(n, "./grokdir");
X n = append_to_dbase_pulldown(n, GROKDIR);
X n = append_to_dbase_pulldown(n, path);
#ifdef XmNtearOffModel
X XtVaSetValues(dbpulldown, XmNtearOffModel, XmTEAR_OFF_ENABLED, NULL);
#endif
}
X
X
/*
X * Put all the default queries in the form into the Query pulldown (pulldown
X * #3). Add a default query "All" at the top. This is yet another violation
X * of the Motif style guide. So what.
X */
X
#define MAXQ 100 /* no more than 100 queries in pulldown */
static Widget qwidget[MAXQ]; /* button widgets, destroyed before remake */
X
remake_query_pulldown()
{
X DQUERY *dq; /* current query entry */
X int i; /* # of queries in pulldown */
X int n; /* max # of lines in pulldown */
X
X for (n=0; n < MAXQ; n++) {
X if (qwidget[n])
X XtDestroyWidget(qwidget[n]);
X qwidget[n] = 0;
X }
X if (!curr_card || !curr_card->form)
X return;
X
X qwidget[0] = XtCreateManagedWidget("All",
X xmPushButtonGadgetClass, qpulldown, NULL, 0);
X XtAddCallback(qwidget[0], XmNactivateCallback,
X query_pulldown, (XtPointer)0);
X n = curr_card->form->nqueries > MAXQ ? MAXQ
X : curr_card->form->nqueries;
X for (i=0; i < n; i++) {
X dq = &curr_card->form->query[i];
X if (dq->suspended || !dq->name || !dq->query)
X continue;
X qwidget[i+1] = XtCreateManagedWidget(dq->name,
X xmPushButtonGadgetClass, qpulldown, NULL, 0);
X XtAddCallback(qwidget[i+1], XmNactivateCallback,
X query_pulldown, (XtPointer)(i+1));
X }
#ifdef XmNtearOffModel
X XtVaSetValues(qpulldown, XmNtearOffModel, XmTEAR_OFF_ENABLED, NULL);
#endif
}
X
X
/*
X * Put all the columns in the summary into the Sort pulldown (pulldown #2),
X * except those that have the nosort flag set.
X * What you hear weeping is the author of the Motif style guide.
X */
X
#define MAXS 100 /* no more than 100 criteria in pulldown */
static Widget swidget[MAXS]; /* button widgets, destroyed before remake */
X
remake_sort_pulldown()
{
X int sort_col[MAXS]; /* column for each pulldown item */
X char buf[256]; /* pulldown line text */
X register ITEM *item; /* scan items for sortable columns */
X int i; /* item counter */
X int j; /* skip redundant choice items */
X int n; /* # of lines in pulldown */
X
X for (n=0; n < MAXS; n++) {
X if (swidget[n])
X XtDestroyWidget(swidget[n]);
X swidget[n] = 0;
X }
X if (!curr_card || !curr_card->form || !curr_card->dbase)
X return;
X
X for (n=i=0; i < curr_card->form->nitems; i++) {
X item = curr_card->form->items[i];
X if (!IN_DBASE(item->type) || item->nosort)
X continue;
X for (j=0; j < n; j++)
X if (item->column == sort_col[j])
X break;
X if (j < n)
X continue;
X sprintf(buf, "by %.200s",
X item->type == IT_CHOICE ? item->name : item->label);
X if (buf[j = strlen(buf)-1] == ':')
X buf[j] = 0;
X swidget[n] = XtCreateManagedWidget(buf,
X xmPushButtonGadgetClass, sortpulldown, NULL,0);
X XtAddCallback(swidget[n], XmNactivateCallback,
X sort_pulldown, (XtPointer)item->column);
X sort_col[n++] = item->column;
X }
#ifdef XmNtearOffModel
X XtVaSetValues(sortpulldown, XmNtearOffModel, XmTEAR_OFF_ENABLED,NULL);
#endif
}
X
X
/*-------------------------------------------------- switch databases -------*/
/*
X * switch main window to new database. This happens on startup if a form
X * name is given on the command line, and whenever a new form name is chosen
X * from the database pulldown. ".gf" is appended to formname if necessary. If
X * formname == 0, kill the current form and don't switch to a new one. Sort
X * the new database by the default sort criterion if there is one.
X */
X
void switch_form(formname)
X char *formname; /* new form name */
{
X char name[1024], *p; /* capitalized formname */
X Arg args[5];
X int i;
X
X if (curr_card) {
X if (prev_form)
X free(prev_form);
X prev_form = 0;
X if (curr_card->form)
X prev_form = mystrdup(curr_card->form->name);
X destroy_card_menu(curr_card);
X if (curr_card->dbase) {
X if (curr_card->dbase->modified &&
X !curr_card->dbase->rdonly &&
X !curr_card->form->rdonly)
X if (!write_dbase(curr_card->dbase,
X curr_card->form))
X return;
X dbase_delete(curr_card->dbase);
X free((void *)curr_card->dbase);
X }
X if (curr_card->form) {
X form_delete(curr_card->form);
X free((void *)curr_card->form);
X }
X free((void *)curr_card);
X curr_card = 0;
X }
X if (formname && *formname) {
X FORM *form = form_create();
X DBASE *dbase = dbase_create();
X if (read_form(form, formname))
X (void)read_dbase(dbase, form,
X form->dbase ? form->dbase : formname);
X
X curr_card = create_card_menu(form, dbase, w_card);
X curr_card->form = form;
X curr_card->dbase = dbase;
X curr_card->row = 0;
X col_sorted_by = 0;
X for (i=0; i < form->nitems; i++)
X if (form->items[i]->defsort) {
X dbase_sort(curr_card, form->items[i]->column);
X break;
X }
X if (form->autoquery >= 0 && form->autoquery < form->nqueries)
X query_any(curr_card,
X form->query[form->autoquery].query);
X else
X query_all(curr_card);
X create_summary_menu(curr_card, w_summary, mainwindow);
X
X strcpy(name, formname);
X if (*name >= 'a' && *name <= 'z')
X *name += 'A' - 'a';
X if (p = strrchr(name, '.'))
X *p = 0;
X if (p = strrchr(name, '/'))
X p++;
X else
X p = name;
X if (toplevel) {
X XtVaSetValues(toplevel, XmNiconName, p, NULL);
X fillout_card(curr_card, FALSE);
X }
X } else
X if (toplevel)
X XtVaSetValues(toplevel, XmNiconName, "None", NULL);
X
X if (toplevel) {
X XtSetArg(args[0], XmNsensitive, formname != 0);
X XtSetValues(w_left, args, 1);
X XtSetValues(w_right, args, 1);
X XtSetValues(w_del, args, 1);
X XtSetValues(w_new, args, 1);
X
X remake_query_pulldown();
X remake_sort_pulldown();
X resize_mainwindow();
X if (curr_card && curr_card->dbase)
X curr_card->dbase->modified = FALSE;
X print_info_line();
X }
}
X
X
/*-------------------------------------------------- callbacks --------------*/
/*
X * some item in one of the menu bar pulldowns was pressed. All of these
X * routines are direct X callbacks.
X */
X
static void rambo_quit() { exit(0); }
X
/*ARGSUSED*/
static void file_pulldown(widget, item, data)
X Widget widget;
X int item;
X XmToggleButtonCallbackStruct *data;
{
X card_readback_texts(curr_card, -1);
X switch (item) {
X case 0: /* print */
X create_print_popup();
X break;
X
X case 1: /* preference*/
X create_preference_popup();
X break;
X
X case 3: /* about */
X create_about_popup();
X break;
X
X case 4: /* save */
X if (curr_card && curr_card->form && curr_card->dbase)
X if (curr_card->form->rdonly)
X create_error_popup(mainwindow, 0,
X "Database is marked read-only in the form");
X else
X (void)write_dbase(curr_card->dbase,
X curr_card->form);
X else
X create_error_popup(mainwindow,0,"No database to save");
X print_info_line();
X break;
X
X case 5: /* quit */
X if (curr_card && curr_card->dbase
X && curr_card->dbase->modified
X && !curr_card->form->rdonly
X && !write_dbase(curr_card->dbase,
X curr_card->form))
X break;
X exit(0);
X
X case 6: /* rambo quit*/
X if (curr_card && curr_card->dbase
X && !curr_card->dbase->rdonly
X && curr_card->dbase->modified
X && !curr_card->form->rdonly)
X create_query_popup(mainwindow, rambo_quit, "rambo",
X "OK to discard changes and quit?");
X else
X exit(0);
X }
}
X
X
/*ARGSUSED*/
static void newform_pulldown(widget, item, data)
X Widget widget;
X int item;
X XmToggleButtonCallbackStruct *data;
{
X card_readback_texts(curr_card, -1);
X switch (item) {
X case 0: /* current */
X if (curr_card && curr_card->form) {
X if (curr_card->dbase &&
X !curr_card->dbase->rdonly &&
X curr_card->dbase->modified &&
X !curr_card->form->rdonly &&
X !write_dbase(curr_card->dbase,
X curr_card->form))
X return;
X create_formedit_window(curr_card->form, FALSE, FALSE);
X } else
X create_error_popup(toplevel, 0,
X "Please choose database to edit\nfrom Database pulldown");
X break;
X
X case 1: /* new */
X switch_form(0);
X create_formedit_window(0, FALSE, TRUE);
X break;
X
X case 2: /* clone */
X if (curr_card && curr_card->form) {
X if (curr_card->dbase &&
X !curr_card->dbase->rdonly &&
X curr_card->dbase->modified &&
X !curr_card->form->rdonly &&
X !write_dbase(curr_card->dbase,
X curr_card->form))
X return;
X create_formedit_window(curr_card->form, TRUE, TRUE);
X } else
X create_error_popup(toplevel, 0,
X "Please choose database from Database pulldown first");
X break;
X }
}
X
X
/*ARGSUSED*/
static void help_pulldown(widget, item, data)
X Widget widget;
X int item;
X XmToggleButtonCallbackStruct *data;
{
X Cursor cursor;
X Widget w;
X
X switch (item) {
X case 0: /* context */
X cursor = XCreateFontCursor(display, XC_question_arrow);
X if (w = XmTrackingLocate(mainwindow, cursor, False)) {
X data->reason = XmCR_HELP;
X XtCallCallbacks(w, XmNhelpCallback, &data);
X }
X XFreeCursor(display, cursor);
X break;
X
X case 1: /* database */
X create_dbase_info_popup(curr_card);
X break;
X
X case 2: /* intro */
X help_callback(mainwindow, "intro");
X break;
X
X case 3: /* help */
X help_callback(mainwindow, "help");
X break;
X
X case 4: /* trouble */
X help_callback(mainwindow, "trouble");
X break;
X
X case 5: /* files */
X help_callback(mainwindow, "files");
X break;
X
X case 6: /* expr */
X help_callback(mainwindow, "grammar");
X break;
X }
}
X
X
/*ARGSUSED*/
static void dbase_pulldown(widget, item, data)
X Widget widget;
X int item;
X XmToggleButtonCallbackStruct *data;
{
X char path[1024];
X
X card_readback_texts(curr_card, -1);
X sprintf(path, "%s/%s.gf", dbpath[item], dbname[item]);
X switch_form(path);
X remake_dbase_pulldown();
}
X
X
/*ARGSUSED*/
static void query_pulldown(widget, item, data)
X Widget widget;
X int item;
X XmToggleButtonCallbackStruct *data;
{
X print_info_line();
X if (!curr_card || !curr_card->dbase || !curr_card->dbase->nrows)
X return;
X card_readback_texts(curr_card, -1);
X if (item == 0)
X query_all(curr_card);
X
X else if (*curr_card->form->query[item-1].query == '/') {
X char *query = curr_card->form->query[item-1].query;
X char *string = XtMalloc(strlen(query));
X strcpy(string, query+1);
X append_search_string(string);
X query_search(curr_card, query+1);
X } else {
X char *query = curr_card->form->query[item-1].query;
X if (pref.query2search) {
X char *string = XtMalloc(strlen(query)+1);
X strcpy(string, query);
X append_search_string(string);
X }
X query_eval(curr_card, query);
X }
X create_summary_menu(curr_card, w_summary, mainwindow);
X
X curr_card->row = curr_card->query ? curr_card->query[0]
X : curr_card->dbase->nrows;
X fillout_card(curr_card, FALSE);
}
X
X
/*ARGSUSED*/
static void sort_pulldown(widget, item, data)
X Widget widget;
X int item;
X XmToggleButtonCallbackStruct *data;
{
X card_readback_texts(curr_card, -1);
X dbase_sort(curr_card, item);
X create_summary_menu(curr_card, w_summary, mainwindow);
X curr_card->row = curr_card->query ? curr_card->query[0]
X : curr_card->dbase->nrows;
X fillout_card(curr_card, FALSE);
}
X
X
/*
X * search for a search string, or for matching expressions. Put matching
X * cards into the summary. The string is an expression if it begins with
X * '(' or '{', or a search string otherwise. This is called from the
X * switch statement in expressions too.
X */
X
/*ARGSUSED*/
search_cards(card, string)
X CARD *card;
X char *string;
{
X char *search_string;
X char *eval;
X
X if (!string || !*string)
X return;
X print_info_line();
X card_readback_texts(card, -1);
X if (!card || !card->dbase || !card->dbase->nrows)
X return;
X query_any(card, string);
X create_summary_menu(card, w_summary, mainwindow);
X card->row = card->query ? card->query[0] : card->dbase->nrows;
X fillout_card(card, FALSE);
}
X
X
/*
X * Searches. When a search string is entered, read it from the button and
X * search for it. The arrows put a string from the history array into the
X * button, where it can be searched for. The query pulldown can append a
X * string to the history if pref.query2search is on.
X */
X
static char *history[NHIST];
static int s_curr, s_offs;
X
/*ARGSUSED*/
static void search_callback(widget, inc, data)
X Widget widget;
X int inc;
X XmToggleButtonCallbackStruct *data;
{
X if (inc) {
X int o = s_offs + inc;
X if (o > -NHIST && o <= 0 && history[(s_curr + o) % NHIST]) {
X s_offs = o;
X print_text_button(w_search,
X history[(s_curr + o + NHIST) % NHIST]);
X }
X append_search_string(0);
X } else {
X char *string = XmTextGetString(w_search);
X search_cards(curr_card, string);
X append_search_string(string);
X }
}
X
append_search_string(text)
X XmString text;
{
X Arg arg;
X
X if (text) {
X print_text_button(w_search, text);
X s_offs = 0;
X if (history[s_curr] && *history[s_curr]
X && strcmp(history[s_curr], text))
X s_curr = (s_curr + 1) % NHIST;
X if (history[s_curr])
X XtFree(history[s_curr]);
X history[s_curr] = text;
X }
X XtSetArg(arg, XmNsensitive, s_offs < 0);
X XtSetValues(w_next, &arg, 1);
X XtSetArg(arg, XmNsensitive, s_offs > -NHIST+1 &&
X history[(s_curr + s_offs + NHIST -1) % NHIST]);
X XtSetValues(w_prev, &arg, 1);
}
X
X
/*
X * One of the letter buttons (a..z, misc, all) was pressed. Do the appropriate
X * search and display the result in the summary.
X */
X
/*ARGSUSED*/
static void letter_callback(widget, letter, cbs)
X Widget widget;
X int letter;
X XmToggleButtonCallbackStruct *cbs;
{
X if (!curr_card || !curr_card->dbase || !curr_card->dbase->nrows)
X return;
X card_readback_texts(curr_card, -1);
X query_letter(curr_card, letter);
X create_summary_menu(curr_card, w_summary, mainwindow);
X curr_card->row = curr_card->query ? curr_card->query[0]
X : curr_card->dbase->nrows;
X fillout_card(curr_card, FALSE);
}
X
X
/*
X * go forward or backward in the summary list if there is one. If there is
X * no summary, we must be adding cards and the user wants to see previously
X * added cards; step in the raw database in this case.
X */
X
/*ARGSUSED*/
static void pos_callback(widget, inc, data)
X Widget widget;
X int inc;
X XmToggleButtonCallbackStruct *data;
{
X register CARD *card = curr_card;
X
X card_readback_texts(curr_card, -1);
X if (card->qcurr + inc >= 0 &&
X card->qcurr + inc < card->nquery) {
X card->qcurr += inc;
X card->row = card->query[card->qcurr];
X fillout_card(card, FALSE);
X scroll_summary(card);
X
X } else if (card->nquery == 0 && card->row + inc >= 0
X && card->row + inc < card->dbase->nrows){
X card->row += inc;
X fillout_card(card, FALSE);
X }
}
X
X
/*
X * add a new card to the database. Since we don't know whether the new card
X * will be part of the summary when it is finished, remove the summary first.
X * When finished, find the first text input item and put the cursor into it.
X */
X
/*ARGSUSED*/
static void new_callback(widget, null, cbs)
X Widget widget;
X XtPointer null;
X XmToggleButtonCallbackStruct *cbs;
{
X register CARD *card = curr_card;
X register ITEM *item;
X register DBASE *dbase = card->dbase;
X register char **data;
X int i;
X
X card_readback_texts(card, -1);
X if (dbase_addrow(&card->row, dbase)) {
X if (!dbase_prune_columns(dbase, card->form)) {
X dbase_delrow(card->row, dbase);
X card->row = dbase->nrows;
X
X } else for (i=0; i < card->form->nitems; i++, item++) {
X item = card->form->items[i];
X if (IN_DBASE(item->type) && item->idefault) {
X data = &dbase->data[card->row * dbase->ncolumns
X + item->column];
X *data = evaluate(card, item->idefault);
SHAR_EOF
true || echo 'restore of mainwin.c failed'
fi
echo 'End of grok part 5'
echo 'File mainwin.c is continued in part 6'
echo 6 > _shar_seq_.tmp
exit 0
--
--
Thomas Driemeyer thomas@bitrot.in-berlin.de voice: +49 30 8924936
Schweidnitzer Str. 6, 10709 Berlin
