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 / xpopupcasc.c < prev   
C/C++ Source or Header  |  1992-08-18  |  3KB  |  135 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.  *  xpopupcasc.c - Motif popup menu with cascading submenu
  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 <Xm/Xm.h>
  20.  
  21. /*
  22.  * Public include files for widgets used in this file.
  23.  */
  24. #include <Xm/RowColumn.h>
  25. #include <Xm/PushB.h>
  26. #include <Xm/Label.h>
  27. #include <Xm/CascadeB.h>
  28.  
  29. /*
  30.  * quit button callback function
  31.  */
  32. /*ARGSUSED*/
  33. void Quit(w, client_data, call_data)
  34. Widget w;
  35. XtPointer client_data, call_data;
  36. { 
  37.     exit(0); 
  38. }
  39.  
  40. /*
  41.  * menu pane button callback function
  42.  */
  43. /*ARGSUSED*/
  44. void PaneChosen(w, client_data, call_data)
  45. Widget w;
  46. XtPointer client_data;   /* cast to pane_number */
  47. XtPointer call_data;
  48. { 
  49.     int pane_number = (int) client_data;
  50.     printf("Pane %d chosen.\n", pane_number);
  51. }
  52.  
  53. static void  
  54. PostMenu (w, client_data, event)
  55. Widget         w;
  56. XtPointer      client_data;
  57. XEvent  *event;
  58. {
  59.     Widget popup = (Widget) client_data;
  60.  
  61.     XmMenuPosition(popup, event);
  62.     XtManageChild (popup);
  63. }
  64.  
  65. main(argc, argv)
  66. int argc;
  67. char **argv;
  68. {
  69.     XtAppContext app_context;
  70.     Widget topLevel, box, quit, label, menupane[10];
  71.     Widget menu, cascade, submenu, subentry[10];
  72.     int i;
  73.     String buf[50];
  74.  
  75.     XtSetLanguageProc(NULL, (XtLanguageProc)NULL, NULL);
  76.  
  77.     topLevel = XtVaAppInitialize(
  78.         &app_context,       /* Application context */
  79.         "XPopup",           /* application class name */
  80.         NULL, 0,            /* command line option list */
  81.         &argc, argv,        /* command line args */
  82.         NULL,               /* for missing app-defaults file */
  83.         NULL);              /* terminate varargs list */
  84.  
  85.     box = XtVaCreateManagedWidget(
  86.         "box",          /* widget name */
  87.         xmRowColumnWidgetClass, /* widget class */
  88.         topLevel,           /* parent widget*/
  89.         NULL);           /* argument list*/
  90.  
  91.     label = XtVaCreateManagedWidget(
  92.         "label",            /* widget name */
  93.         xmLabelWidgetClass,       /* widget class */
  94.         box,            /* parent widget*/
  95.         NULL);           /* argument list*/
  96.  
  97.     quit = XtVaCreateManagedWidget(
  98.         "quit",         /* widget name */
  99.         xmPushButtonWidgetClass,/* widget class */
  100.         box,            /* parent widget*/
  101.         NULL);           /* argument list*/
  102.  
  103.     XtAddCallback(quit, XmNactivateCallback, Quit, NULL);
  104.  
  105.     menu = XmCreatePopupMenu(label, "menu", NULL, 0);
  106.  
  107.     XtAddEventHandler(label, ButtonPressMask, False, PostMenu, menu);
  108.  
  109.     for (i = 0; i < 10; i++) {
  110.       sprintf(buf, "entry%d", i);
  111.       menupane[i] = XtVaCreateManagedWidget(buf,   /* widget name   */
  112.                     xmPushButtonWidgetClass, menu, NULL, 0);
  113.  
  114.       XtAddCallback(menupane[i], XmNactivateCallback, PaneChosen, i);
  115.     }
  116.  
  117.     submenu = XmCreatePulldownMenu(menu, "submenu", NULL, 0);
  118.  
  119.     cascade = XtVaCreateManagedWidget("cascade", 
  120.                       xmCascadeButtonWidgetClass, menu, 
  121.                       XmNsubMenuId, submenu,
  122.                       NULL);
  123.  
  124.     for (i = 0; i < 10; i++) {
  125.       sprintf(buf, "subentry%d", i);
  126.       subentry[i] = XtVaCreateManagedWidget(buf,   /* widget name   */
  127.                     xmPushButtonWidgetClass, submenu, NULL);
  128.       XtAddCallback(subentry[i], XmNactivateCallback, PaneChosen, i);
  129.     }
  130.  
  131.     XtRealizeWidget(topLevel);
  132.  
  133.     XtAppMainLoop(app_context);
  134. }
  135.