home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / motifpg2.zip / ch03 / xmainwindow.c < prev    next >
C/C++ Source or Header  |  1992-07-08  |  6KB  |  195 lines
  1. /*
  2.  * Copyright 1989, 1992 O'Reilly and Associates, Inc.
  3.  * See ../Copyright for complete rights and liability information.
  4.  */
  5.  
  6. /* 
  7.  *  xmainwindow.c - main window with help and quit
  8.  */
  9.  
  10. /*
  11.  *  So that we can use fprintf:
  12.  */
  13. #include <stdio.h>
  14.  
  15. /* 
  16.  * Standard Toolkit include files:
  17.  */
  18. #include <X11/Intrinsic.h>
  19. #include <Xm/Xm.h>
  20. #include <Xm/RepType.h>
  21. /*
  22.  * Public include files for widgets used in this file.
  23.  */
  24. #include <Xm/PushB.h>
  25. #include <Xm/MainW.h>
  26. #include <Xm/RowColumn.h>
  27. #include <Xm/MessageB.h>
  28. #include <Xm/CascadeB.h>
  29. #include <Xm/Frame.h>
  30.  
  31. /* 
  32.  * callback to pop up help dialog widget 
  33.  */
  34. /*ARGSUSED*/
  35. void ShowHelp(w, client_data, call_data)
  36. Widget w;
  37. XtPointer client_data;
  38. XtPointer call_data;
  39. {
  40.     Widget dialog = (Widget) client_data;
  41.     XtManageChild(dialog);
  42. }
  43.  
  44. /*
  45.  * quit button callback function
  46.  */
  47. /*ARGSUSED*/
  48. void Quit(w, client_data, call_data)
  49. Widget w;
  50. XtPointer client_data, call_data;
  51. { 
  52.     exit(0); 
  53. }
  54.  
  55. main(argc, argv)
  56. int argc;
  57. char **argv;
  58. {
  59.     XtAppContext app_context;
  60.     Widget topLevel, mainWindow, menuBar, frame;
  61.     Widget fileButton, fileMenu, quit, helpButton, helpMenu, help, helpBox;
  62.     Widget temp;
  63.  
  64.     /*
  65.      * Register the default language procedure
  66.      */
  67.     XtSetLanguageProc(NULL, (XtLanguageProc)NULL, NULL);
  68.  
  69.     topLevel = XtVaAppInitialize(
  70.             &app_context,       /* Application context */
  71.             "XMainWindow",      /* application class name */
  72.             NULL, 0,            /* command line option list */
  73.             &argc, argv,        /* command line args */
  74.             NULL,               /* for missing app-defaults file */
  75.             NULL);              /* terminate varargs list */
  76.  
  77.     /* create main window */
  78.     mainWindow = XtVaCreateManagedWidget(
  79.             "mainWindow",               /* widget name */
  80.             xmMainWindowWidgetClass,    /* widget class */
  81.             topLevel,                   /* parent widget*/
  82.             NULL);                      /* terminate varargs list */
  83.  
  84.     /* register converter for tearoff menus */
  85.     XmRepTypeInstallTearOffModelConverter();
  86.  
  87.     /* create menu bar along top inside of main window */
  88.     menuBar = XmCreateMenuBar(
  89.             mainWindow, /* parent widget*/
  90.             "menuBar",  /* widget name */
  91.             NULL,       /* no arguments needed */
  92.             0);         /* no arguments needed */
  93.     XtManageChild(menuBar);
  94.  
  95.     frame = XtVaCreateManagedWidget(
  96.             "frame",            /* widget name */
  97.             xmFrameWidgetClass, /* widget class */
  98.             mainWindow,         /* parent widget*/
  99.             NULL);              /* terminate varargs list */
  100.  
  101.     /*  Set MainWindow areas */
  102.     XmMainWindowSetAreas (mainWindow, menuBar, NULL, NULL, NULL, frame);
  103.  
  104.     /*
  105.      *  CREATE FILE MENU AND CHILDREN
  106.      */
  107.  
  108.     /* create button that will pop up the menu */
  109.     fileButton = XtVaCreateManagedWidget(
  110.             "fileButton",               /* widget name */
  111.             xmCascadeButtonWidgetClass, /* widget class */
  112.             menuBar,                    /* parent widget*/
  113.             NULL);                      /* terminate varargs list */
  114.  
  115.     /* create menu (really a Shell widget and RowColumn widget combo) */
  116.     fileMenu = XmCreatePulldownMenu(
  117.             menuBar,    /* parent widget*/
  118.             "fileMenu", /* widget name */
  119.             NULL,       /* no argument list needed */
  120.             0);         /* no argument list needed */
  121.  
  122.     /* create the quit button up in the menu */
  123.     quit = XtVaCreateManagedWidget(
  124.             "quit",                     /* widget name */
  125.             xmPushButtonWidgetClass,    /* widget class */
  126.             fileMenu,                   /* parent widget*/
  127.             NULL);                      /* terminate varargs list */
  128.  
  129.     /* 
  130.      * Specify which menu fileButton will pop up.
  131.      */
  132.     XtVaSetValues(fileButton,
  133.           XmNsubMenuId, fileMenu,
  134.           NULL);
  135.  
  136.     /* arrange for quit button to call function that exits. */
  137.     XtAddCallback(quit, XmNactivateCallback, Quit, 0);
  138.  
  139.     /*
  140.      *  CREATE HELP BUTTON AND BOX
  141.      */
  142.  
  143.     /* create button that will bring up help menu */
  144.     helpButton = XtVaCreateManagedWidget(
  145.             "helpButton",               /* widget name */
  146.             xmCascadeButtonWidgetClass, /* widget class */
  147.             menuBar,                    /* parent widget*/
  148.             NULL);                      /* terminate varargs list */
  149.  
  150.     /* tell menuBar which is the help button (will be specially positioned) */
  151.     XtVaSetValues(menuBar,
  152.           XmNmenuHelpWidget, helpButton,
  153.           NULL);
  154.  
  155.     /* create menu (really a Shell widget and RowColumn widget combo) */
  156.     helpMenu = XmCreatePulldownMenu(
  157.             menuBar,    /* parent widget*/
  158.             "helpMenu", /* widget name */
  159.             NULL,       /* no argument list needed */
  160.             0);         /* no argument list needed */
  161.  
  162.     /* create the help button up in the menu */
  163.     help = XtVaCreateManagedWidget(
  164.             "help",                     /* widget name */
  165.             xmPushButtonWidgetClass,    /* widget class */
  166.             helpMenu,                   /* parent widget*/
  167.             NULL);                      /* terminate varargs list */
  168.  
  169.     /* 
  170.      * Specify which menu helpButton will pop up.
  171.      */
  172.     XtVaSetValues(helpButton,
  173.           XmNsubMenuId, helpMenu,
  174.           NULL);
  175.  
  176.     /* create popup that will contain help */
  177.     helpBox = XmCreateMessageDialog(
  178.         help,       /* parent widget*/
  179.             "helpBox",  /* widget name   */
  180.             NULL,       /* no arguments needed */
  181.             0);         /* no arguments needed */
  182.  
  183.     temp = XmMessageBoxGetChild (helpBox, XmDIALOG_CANCEL_BUTTON);
  184.     XtUnmanageChild (temp);
  185.     temp = XmMessageBoxGetChild (helpBox, XmDIALOG_HELP_BUTTON);
  186.     XtUnmanageChild (temp);
  187.  
  188.     /* arrange for getHelp button to pop up helpBox */
  189.     XtAddCallback(help, XmNactivateCallback, ShowHelp, helpBox);
  190.  
  191.     XtRealizeWidget(topLevel);
  192.  
  193.     XtAppMainLoop(app_context);
  194. }
  195.