|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T x
Length: 3843 (0xf03) Types: TextFile Names: »xbox5.c«
└─⟦8648bda34⟧ Bits:30007244 EUUGD5_II: X11R5 └─⟦2ca9b63e1⟧ »./contrib-1/contrib-1.00« └─⟦a8392fb20⟧ └─⟦this⟧ »contrib/examples/OReilly/Vol4/ch03/xbox5.c«
/* * Copyright 1989 O'Reilly and Associates, Inc. * See ../Copyright for complete rights and liability information. */ /* * xbox5.c */ /* * So that we can use fprintf: */ #include <stdio.h> /* * Standard Toolkit include files: */ #include <X11/Intrinsic.h> #include <X11/StringDefs.h> #include <X11/Shell.h> /* * Public include files for widgets used in this file. */ #include <X11/Xaw/Command.h> #include <X11/Xaw/Box.h> #include <X11/Xaw/Dialog.h> /* * The popup shell ID is global because both dialog and pshell * are needed in the dialogDone callback, and both can't be * passed in without creating a structure. */ Widget pshell, pressme; /* * dialog button */ /*ARGSUSED*/ void PrepareDialog(w, client_data, call_data) Widget w; XtPointer client_data; XtPointer call_data; { Widget topLevel = (Widget) client_data; Position x, y; Dimension width, height; /* * get the coordinates of the middle of topLevel widget. */ XtVaGetValues(topLevel, XtNwidth, &width, XtNheight, &height, NULL); /* * translate coordinates in application top-level window * into coordinates from root window origin. */ XtTranslateCoords(topLevel, /* Widget */ (Position) width/2, /* x */ (Position) height/2, /* y */ &x, &y); /* coords on root window */ /* move popup shell to this position (it's not visible yet) */ XtVaSetValues(pshell, XtNx, x, XtNy, y, NULL); } /* * dialog done button */ /*ARGSUSED*/ void DialogDone(w, client_data, call_data) Widget w; XtPointer client_data; XtPointer call_data; { XtPopdown(pshell); XtSetSensitive(pressme, TRUE); /* * Here you would use public function provided by widget * class to get user's value typed. */ } /* * quit button callback function */ /*ARGSUSED*/ void Quit(w, client_data, call_data) Widget w; XtPointer client_data, call_data; { exit(0); } main(argc, argv) int argc; char **argv; { XtAppContext app_context; Widget box, quit, topLevel, dialog, dialogDone; topLevel = XtVaAppInitialize( &app_context, /* Application context */ "XBox5", /* application class name */ NULL, 0, /* command line option list */ &argc, argv, /* command line args */ NULL, /* for missing app-defaults file */ NULL); /* terminate varargs list */ box = XtVaCreateManagedWidget( "box", /* widget name */ boxWidgetClass, /* widget class */ topLevel, /* parent widget*/ NULL); /* terminate varargs list */ quit = XtVaCreateManagedWidget( "quit", /* widget name */ commandWidgetClass, /* widget class */ box, /* parent widget*/ NULL); /* terminate varargs list */ pressme = XtVaCreateManagedWidget( "pressme", /* widget name */ commandWidgetClass, /* widget class */ box, /* parent widget*/ NULL); /* terminate varargs list */ pshell = XtVaCreatePopupShell( "pshell", transientShellWidgetClass, topLevel, NULL); /* terminate varargs list */ dialog = XtVaCreateManagedWidget( "dialog", /* widget name */ dialogWidgetClass, /* widget class */ pshell, /* parent widget*/ NULL); /* terminate varargs list */ dialogDone = XtVaCreateManagedWidget( "dialogDone", /* widget name */ commandWidgetClass, /* widget class */ dialog, /* parent widget*/ NULL); /* terminate varargs list */ XtAddCallback(quit, XtNcallback, Quit, 0); XtAddCallback(dialogDone, XtNcallback, DialogDone, dialog); XtAddCallback(pressme, XtNcallback, PrepareDialog, topLevel); XtAddCallback(pressme, XtNcallback, XtCallbackExclusive, pshell); XtRealizeWidget(topLevel); XtAppMainLoop(app_context); }