home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / motifpg2.zip / ch13 / xmenu1.c < prev    next >
C/C++ Source or Header  |  1992-08-18  |  4KB  |  165 lines
  1. /*
  2.  * Copyright 1989, 1992 O'Reilly and Associates, Inc.
  3.  * See ../Copyright for complete rights and liability information.
  4.  */
  5.  
  6.  
  7. /* 
  8.  *  xmenu1.c - simple spring-loaded menu
  9.  */
  10.  
  11. /*
  12.  *  So that we can use fprintf:
  13.  */
  14. #include <stdio.h>
  15.  
  16. /* 
  17.  * Standard Toolkit include files:
  18.  */
  19. #include <X11/Intrinsic.h>
  20. #include <X11/StringDefs.h>
  21.  
  22. #include <X11/Shell.h>
  23.  
  24. /*
  25.  * Public include files for widgets used in this file.
  26.  */
  27. #include <X11/Xaw/Command.h>
  28. #include <X11/Xaw/Box.h>
  29. #include <X11/Xaw/Label.h>
  30.  
  31. /*
  32.  * The popup shell ID is global because both dialog and pshell
  33.  * are needed in the dialogDone callback, and both can't be
  34.  * passed in without creating a structure.
  35.  */
  36. Widget pshell;
  37.  
  38. /*ARGSUSED*/
  39. void PlaceMenu(w, event)
  40. Widget w;
  41. XButtonEvent *event;
  42. {
  43.     /* should make sure coordinates allow menu to fit on screen */
  44.     
  45.     /* move submenu shell to slightly left and above button 
  46.      * press position */
  47.     XtVaSetValues(pshell, 
  48.             XtNx, event->x_root - 10,
  49.             XtNy, event->y_root - 10,
  50.             NULL);
  51. }
  52.  
  53. /*
  54.  * quit button callback function
  55.  */
  56. /*ARGSUSED*/
  57. void Quit(w, client_data, call_data)
  58. Widget w;
  59. XtPointer client_data, call_data;
  60. { 
  61.     exit(0); 
  62. }
  63.  
  64. /*
  65.  * menu pane button callback function
  66.  */
  67. /*ARGSUSED*/
  68. void PaneChosen(w, client_data, call_data)
  69. Widget w;
  70. XtPointer client_data;   /* cast to pane_number */
  71. XtPointer call_data;
  72. { 
  73.     int pane_number = (int) client_data;
  74.     printf("Pane %d chosen.\n", pane_number);
  75.     XtPopdown(pshell);
  76. }
  77.  
  78. main(argc, argv)
  79. int argc;
  80. char **argv;
  81. {
  82.     XtAppContext app_context;
  83.     Widget topLevel, box, quit, label, menulabel, menubox, menupane[10];
  84.     int i;
  85.     String buf[50];
  86.  
  87.     static XtActionsRec trial_actions[] = {
  88.         {"placeMenu", PlaceMenu},
  89.     };
  90.  
  91.     XtSetLanguageProc(NULL, (XtLanguageProc)NULL, NULL);
  92.  
  93.     topLevel = XtVaAppInitialize(
  94.         &app_context,       /* Application context */
  95.         "XMenu1",           /* application class name */
  96.         NULL, 0,            /* command line option list */
  97.         &argc, argv,        /* command line args */
  98.         NULL,               /* for missing app-defaults file */
  99.         NULL);              /* terminate varargs list */
  100.  
  101.     box = XtCreateManagedWidget(
  102.         "box",      /* widget name */
  103.         boxWidgetClass, /* widget class */
  104.         topLevel,       /* parent widget*/
  105.         NULL,       /* argument list*/
  106.         0           /* arglist size */
  107.         );
  108.  
  109.     label = XtCreateManagedWidget(
  110.         "label",            /* widget name */
  111.         labelWidgetClass,       /* widget class */
  112.         box,            /* parent widget*/
  113.         NULL,           /* argument list*/
  114.         0               /* arglist size */
  115.         );
  116.  
  117.     quit = XtCreateManagedWidget(
  118.         "quit",         /* widget name */
  119.         commandWidgetClass,     /* widget class */
  120.         box,            /* parent widget*/
  121.         NULL,           /* argument list*/
  122.         0               /* arglist size */
  123.         );
  124.  
  125.     pshell = XtCreatePopupShell(
  126.     "pshell",        /* widget name */
  127.         transientShellWidgetClass, /* widget class */
  128.     topLevel,        /* parent widget */
  129.         NULL,            /* argument list */
  130.         0            /* arglist size */
  131.         );
  132.  
  133.     menubox = XtCreateManagedWidget(
  134.         "menubox",              /* widget name   */
  135.         boxWidgetClass,         /* widget class */
  136.         pshell,                 /* parent widget*/
  137.         NULL,                   /* argument list*/
  138.         0                   /* arglist size */
  139.         );
  140.     
  141.     menulabel = XtCreateManagedWidget(
  142.         "menulabel",            /* widget name   */
  143.         labelWidgetClass,       /* widget class */
  144.         menubox,                /* parent widget*/
  145.         NULL,                   /* argument list*/
  146.         0                   /* arglist size */
  147.         );
  148.  
  149.     for (i = 0; i < 10; i++) {
  150.       sprintf(buf, "menupane%d", i);
  151.       menupane[i] = XtCreateManagedWidget(buf,   /* widget name   */
  152.                     commandWidgetClass, menubox, NULL, 0);
  153.  
  154.       XtAddCallback(menupane[i], XtNcallback, PaneChosen, i);
  155.     }
  156.  
  157.     XtAppAddActions(app_context, trial_actions, XtNumber(trial_actions));
  158.  
  159.     XtAddCallback(quit, XtNcallback, Quit, NULL);
  160.  
  161.     XtRealizeWidget(topLevel);
  162.  
  163.     XtAppMainLoop(app_context);
  164. }
  165.