home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume2 / xscope / part01 / InitStart.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-04-28  |  1.5 KB  |  48 lines
  1. #include "xsignal.h"
  2.  
  3. void init_start(pane)
  4.     sigbox *pane;
  5. {
  6.     static XtCallbackRec callback[2]; /* K&R: initialized to NULL */
  7.     static XtCallbackRec thumbcall[2]; /* K&R: initialized to NULL */
  8.     float shown,top;
  9.     Widget box;
  10.     int narg;
  11.     Arg arg[10];
  12.  
  13.     narg = 0;
  14.     box = XtCreateManagedWidget("bstart", boxWidgetClass, pane->box,
  15.                     arg, narg);
  16.  
  17.     narg = 0;
  18.     XtSetArg( arg[narg], XtNlabel, "Starting Sample:" ); narg++;
  19.     XtSetArg( arg[narg], XtNvalue, "0" ); narg++;
  20.     pane->dstart = XtCreateManagedWidget("start", dialogWidgetClass, box,
  21.                     arg, narg);
  22.     callback[0].callback = NewStart;
  23.     callback[0].closure = (caddr_t) pane;
  24.     narg = 0;
  25.     XtSetArg( arg[narg], XtNcallback, callback ); narg++;
  26.     XtSetArg( arg[narg], XtNlabel, "ok" ); narg++;
  27.     XtCreateManagedWidget("ok", commandWidgetClass,
  28.                     pane->dstart, arg, narg);
  29.  
  30.     narg = 0;
  31.     XtSetArg( arg[narg], XtNlabel, "0"); narg++;
  32.     pane->startval = XtCreateManagedWidget( "label", labelWidgetClass,
  33.                     box, arg, narg );
  34.     callback[0].callback = Scrolled;
  35.     callback[0].closure = (caddr_t) pane;
  36.     thumbcall[0].callback = Thumbed;
  37.     thumbcall[0].closure = (caddr_t) pane;
  38.     narg = 0;
  39.     XtSetArg( arg[narg], XtNlength, 200 ); narg++;
  40.     XtSetArg( arg[narg], XtNscrollProc, callback ); narg++;
  41.     XtSetArg( arg[narg], XtNthumbProc, thumbcall ); narg++;
  42.     XtSetArg( arg[narg], XtNorientation, XtorientHorizontal ); narg++;
  43.     XtSetArg( arg[narg], XtNsensitive, False ); narg++;
  44.     pane->sb_start = XtCreateManagedWidget("sb_start", scrollbarWidgetClass,
  45.                     box, arg,narg);
  46.  
  47. }
  48.