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 / xmenu5.c < prev    next >
C/C++ Source or Header  |  1992-08-18  |  7KB  |  259 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.  *  xmenu5.c - cascading 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, menubox, subshell, subbox;
  37.  
  38.  
  39. /*ARGSUSED*/
  40. void PlaceMenu(w, event, params, num_params)
  41. Widget w;
  42. XEvent *event;
  43. String *params;
  44. Cardinal *num_params;
  45. {
  46.     XButtonEvent *bevent = (XButtonEvent *) event;
  47.  
  48.     /* should make sure coordinates allow menu to fit on screen */
  49.  
  50.     /* move submenu shell to slightly left and above button
  51.      * press position */
  52.     XtVaSetValues(pshell, 
  53.             XtNx, bevent->x_root - 10,
  54.             XtNy, bevent->y_root - 10,
  55.             NULL);
  56. }
  57.  
  58. /*ARGSUSED*/
  59. void CheckRightAndPopupSubmenu(w, event, params, num_params)
  60. Widget w;
  61. XEvent *event;
  62. String *params;
  63. Cardinal *num_params;
  64. {
  65.     XLeaveWindowEvent *leave_event = (XLeaveWindowEvent *) event;
  66.     Dimension height, width;
  67.  
  68.     XtVaGetValues(w, 
  69.         XtNheight, &height,
  70.         XtNwidth, &width,
  71.         NULL);
  72.  
  73.     if ((leave_event->x > width) && (leave_event->y > 0) && (leave_event->y < height)) {
  74.         /* move submenu shell to start just right of pane,
  75.          * using an arbitrary offset to place pointer in 
  76.          * first item. */
  77.         XtVaSetValues(subshell, 
  78.             XtNx, leave_event->x_root,
  79.             XtNy, leave_event->y_root - 12,
  80.             NULL);
  81.         XtPopup(subshell, XtGrabNonexclusive);
  82.     }
  83. }
  84.  
  85. /*ARGSUSED*/
  86. void PopdownSubmenu(w, event, params, num_params)
  87. Widget w;
  88. XEvent *event;
  89. String *params;
  90. Cardinal *num_params;
  91. {
  92.     XtPopdown(subshell);
  93. }
  94.  
  95. /*
  96.  * quit button callback function
  97.  */
  98. /*ARGSUSED*/
  99. void Quit(w, client_data, call_data)
  100. Widget w;
  101. XtPointer client_data, call_data;
  102. { 
  103.     exit(0); 
  104. }
  105.  
  106. /*
  107.  * menu pane button callback function
  108.  */
  109. /*ARGSUSED*/
  110. void SubPaneChosen(w, client_data, call_data)
  111. Widget w;
  112. XtPointer client_data;  /* cast to pane_number */
  113. XtPointer call_data;
  114. { 
  115.     int pane_number = (int) client_data;
  116.     printf("SubPane %d chosen.\n", pane_number);
  117.     XtPopdown(subshell);
  118.     XtPopdown(pshell);
  119. }
  120.  
  121. /*
  122.  * menu pane button callback function
  123.  */
  124. /*ARGSUSED*/
  125. void MainPaneChosen(w, client_data, call_data)
  126. Widget w;
  127. XtPointer client_data;
  128. XtPointer call_data;
  129. { 
  130.     int pane_number = (int) client_data;
  131.     printf("Pane %d chosen.\n", pane_number);
  132.  
  133.     XtPopdown(pshell);
  134.     XtPopdown(subshell);
  135. }
  136.  
  137. main(argc, argv)
  138. int argc;
  139. char **argv;
  140. {
  141.     XtAppContext app_context;
  142.     Widget box, topLevel, quit, label, menulabel, menupane[10];
  143.     Widget sublabel, subpane[10];
  144.     int i;
  145.     String buf[50];
  146.  
  147.     static XtActionsRec trial_actions[] = {
  148.         {"checkRightAndPopupSubmenu", CheckRightAndPopupSubmenu},
  149.         {"popdownSubmenu", PopdownSubmenu},
  150.         {"placeMenu", PlaceMenu},
  151.     };
  152.  
  153.     topLevel = XtVaAppInitialize(
  154.         &app_context,       /* Application context */
  155.         "XMenu5",           /* application class name */
  156.         NULL, 0,            /* command line option list */
  157.         &argc, argv,        /* command line args */
  158.         NULL,               /* for missing app-defaults file */
  159.         NULL);              /* terminate varargs list */
  160.  
  161.     box = XtCreateManagedWidget(
  162.         "box",      /* widget name */
  163.         boxWidgetClass, /* widget class */
  164.         topLevel,       /* parent widget*/
  165.         NULL,       /* argument list*/
  166.         0           /* arglist size */
  167.         );
  168.  
  169.     quit = XtCreateManagedWidget(
  170.         "quit",         /* widget name */
  171.         commandWidgetClass,     /* widget class */
  172.         box,            /* parent widget*/
  173.         NULL,           /* argument list*/
  174.         0               /* arglist size */
  175.         );
  176.  
  177.     label = XtCreateManagedWidget(
  178.         "label",            /* widget name   */
  179.         labelWidgetClass,       /* widget class */
  180.         box,            /* parent widget*/
  181.         NULL,           /* argument list*/
  182.         0               /* arglist size */
  183.         );
  184.  
  185.     pshell = XtCreatePopupShell(
  186.         "pshell",        /* widget name */
  187.         transientShellWidgetClass, /* widget class */
  188.         topLevel,        /* parent widget */
  189.         NULL,            /* argument list */
  190.         0            /* arglist size */
  191.         );
  192.  
  193.     menubox = XtCreateManagedWidget(
  194.         "menubox",              /* widget name   */
  195.         boxWidgetClass,         /* widget class */
  196.         pshell,                 /* parent widget*/
  197.         NULL,                   /* argument list*/
  198.         0                   /* arglist size */
  199.         );
  200.     
  201.     menulabel = XtCreateManagedWidget(
  202.         "menulabel",            /* widget name   */
  203.         labelWidgetClass,       /* widget class */
  204.         menubox,                /* parent widget*/
  205.         NULL,                   /* argument list*/
  206.         0                   /* arglist size */
  207.         );
  208.  
  209.     XtAppAddActions(app_context, trial_actions, XtNumber(trial_actions));
  210.  
  211.     for (i = 0; i < 10; i++) {
  212.       sprintf(buf, "menupane%d", i);
  213.       menupane[i] = XtCreateManagedWidget(buf,   /* widget name   */
  214.                     commandWidgetClass, menubox, NULL, 0);
  215.  
  216.       XtAddCallback(menupane[i], XtNcallback, MainPaneChosen, i);
  217.     }
  218.  
  219.     subshell = XtCreatePopupShell(
  220.         "subshell",        /* widget name */
  221.         transientShellWidgetClass, /* widget class */
  222.     topLevel,        /* parent widget */
  223.         NULL,            /* argument list */
  224.         0            /* arglist size */
  225.         );
  226.  
  227.     subbox = XtCreateManagedWidget(
  228.         "subbox",               /* widget name   */
  229.         boxWidgetClass,         /* widget class */
  230.         subshell,               /* parent widget*/
  231.         NULL,                   /* argument list*/
  232.         0                   /* arglist size */
  233.         );
  234.  
  235.     sublabel = XtCreateManagedWidget(
  236.         "sublabel",              /* widget name   */
  237.         labelWidgetClass,        /* widget class */
  238.         subbox,                  /* parent widget*/
  239.         NULL,                    /* argument list*/
  240.         0                    /* arglist size */
  241.         );
  242.     
  243.     for (i = 0; i < 10; i++) {
  244.         sprintf(buf, "subpane%d", i);
  245.             subpane[i] = XtCreateManagedWidget(buf,   /* widget name   */
  246.                     commandWidgetClass, subbox, NULL, 0);
  247.  
  248.         XtAddCallback(subpane[i], XtNcallback, SubPaneChosen, i);
  249.     }
  250.  
  251.     XtAddCallback(quit, XtNcallback, Quit, NULL);
  252.  
  253.     XtAppAddActions(app_context, trial_actions, XtNumber(trial_actions));
  254.  
  255.     XtRealizeWidget(topLevel);
  256.  
  257.     XtAppMainLoop(app_context);
  258. }
  259.