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 / xpopup.c < prev    next >
C/C++ Source or Header  |  1992-08-18  |  3KB  |  120 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.  *  xpopup.c - basic Motif popup 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 <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.  
  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, menu, menupane[10];
  71.     int i;
  72.     String buf[50];
  73.  
  74.     XtSetLanguageProc(NULL, (XtLanguageProc)NULL, NULL);
  75.  
  76.     topLevel = XtVaAppInitialize(
  77.         &app_context,       /* Application context */
  78.         "XPopup",           /* application class name */
  79.         NULL, 0,            /* command line option list */
  80.         &argc, argv,        /* command line args */
  81.         NULL,               /* for missing app-defaults file */
  82.         NULL);              /* terminate varargs list */
  83.  
  84.     box = XtVaCreateManagedWidget(
  85.     "box",          /* widget name */
  86.         xmRowColumnWidgetClass, /* widget class */
  87.         topLevel,           /* parent widget*/
  88.         NULL);           /* terminate varargs list*/
  89.  
  90.     label = XtVaCreateManagedWidget(
  91.         "label",            /* widget name */
  92.         xmLabelWidgetClass,       /* widget class */
  93.         box,            /* parent widget*/
  94.         NULL);           /* terminate varargs list*/
  95.  
  96.     quit = XtVaCreateManagedWidget(
  97.         "quit",         /* widget name */
  98.         xmPushButtonWidgetClass,/* widget class */
  99.         box,            /* parent widget*/
  100.         NULL);           /* argument list*/
  101.  
  102.     XtAddCallback(quit, XmNactivateCallback, Quit, NULL);
  103.  
  104.     menu = XmCreatePopupMenu(label, "menu", NULL, 0);
  105.  
  106.     XtAddEventHandler(label, ButtonPressMask, False, PostMenu, menu);
  107.  
  108.     for (i = 0; i < 10; i++) {
  109.       sprintf(buf, "entry%d", i);
  110.       menupane[i] = XtVaCreateManagedWidget(buf,   /* widget name   */
  111.             xmPushButtonWidgetClass, menu, NULL);
  112.  
  113.       XtAddCallback(menupane[i], XmNactivateCallback, PaneChosen, i);
  114.     }
  115.  
  116.     XtRealizeWidget(topLevel);
  117.  
  118.     XtAppMainLoop(app_context);
  119. }
  120.