src/xmgrace.c

   1 /*
   2  * Grace - GRaphing, Advanced Computation and Exploration of data
   3  *
   4  * Home page: http://plasma-gate.weizmann.ac.il/Grace/
   5  *
   6  * Copyright (c) 1991-1995 Paul J Turner, Portland, OR
   7  * Copyright (c) 1996-2005 Grace Development Team
   8  *
   9  * Maintained by Evgeny Stambulchik
  10  *
  11  *
  12  *                           All Rights Reserved
  13  *
  14  *    This program is free software; you can redistribute it and/or modify
  15  *    it under the terms of the GNU General Public License as published by
  16  *    the Free Software Foundation; either version 2 of the License, or
  17  *    (at your option) any later version.
  18  *
  19  *    This program is distributed in the hope that it will be useful,
  20  *    but WITHOUT ANY WARRANTY; without even the implied warranty of
  21  *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22  *    GNU General Public License for more details.
  23  *
  24  *    You should have received a copy of the GNU General Public License
  25  *    along with this program; if not, write to the Free Software
  26  *    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  27  */
  28
  29 /*
  30  *
  31  * Main Motif interface
  32  *
  33  */
  34
  35 #include <config.h>
  36
  37 #include <unistd.h>
  38
  39 #include <Xm/Xm.h>
  40 #include <Xm/MainW.h>
  41 #include <Xm/Form.h>
  42 #include <Xm/RowColumn.h>
  43 #include <Xm/ScrolledW.h>
  44 #include <Xm/DrawingA.h>
  45 #include <Xm/RepType.h>
  46
  47 #if defined(HAVE_XPM_H)
  48 #  include <xpm.h>
  49 #else
  50 #  include <X11/xpm.h>
  51 #endif
  52
  53 #ifdef WITH_EDITRES
  54 #  include <X11/Xmu/Editres.h>
  55 #endif
  56
  57 #include "globals.h"
  58 #include "bitmaps.h"
  59 #include "utils.h"
  60 #include "files.h"
  61 #include "core_utils.h"
  62 #include "events.h"
  63 #include "xprotos.h"
  64
  65 #include "motifinc.h"
  66
  67
  68 /* used globally */
  69 XtAppContext app_con;
  70 Widget app_shell;
  71
  72 /*
  73  * establish resource stuff
  74  */
  75 typedef struct {
  76     Boolean invert;
  77     Boolean toolbar;
  78     Boolean statusbar;
  79     Boolean locatorbar;
  80     Boolean instantupdate;
  81 } ApplicationData, *ApplicationDataPtr;
  82
  83 static XtResource resources[] =
  84 {
  85     {"invertDraw", "InvertDraw", XtRBoolean, sizeof(Boolean),
  86      XtOffset(ApplicationDataPtr, invert), XtRImmediate,
  87      (XtPointer) TRUE},
  88     {"toolBar", "ToolBar", XtRBoolean, sizeof(Boolean),
  89      XtOffset(ApplicationDataPtr, toolbar), XtRImmediate,
  90      (XtPointer) TRUE},
  91     {"statusBar", "StatusBar", XtRBoolean, sizeof(Boolean),
  92      XtOffset(ApplicationDataPtr, statusbar), XtRImmediate,
  93      (XtPointer) TRUE},
  94     {"locatorBar", "LocatorBar", XtRBoolean, sizeof(Boolean),
  95      XtOffset(ApplicationDataPtr, locatorbar), XtRImmediate,
  96      (XtPointer) TRUE},
  97     {"instantUpdate", "InstantUpdate", XtRBoolean, sizeof(Boolean),
  98      XtOffset(ApplicationDataPtr, instantupdate), XtRImmediate,
  99      (XtPointer) TRUE},
 100 };
 101
 102 String fallbackResourcesCommon[] = {
 103     "XmGrace.consoleDialog*text.columns: 72",
 104     "XmGrace.consoleDialog*text.rows: 5",
 105     "XmGrace*background: #e5e5e5",
 106     "XmGrace*foreground: #000000",
 107     "XmGrace*XbaeMatrix.allowColumnResize: False",
 108     "XmGrace*XbaeMatrix.allowRowResize: False",
 109     "XmGrace*XbaeMatrix.oddRowBackground: #cccccc",
 110     "XmGrace*XbaeMatrix.evenRowBackground: #cfe7e7",
 111     "XmGrace*XbaeMatrix.textBackground: #cfe7e7",
 112     "XmGrace*XbaeMatrix.selectedBackground: #e5ffff",
 113     "XmGrace*XbaeMatrix.selectedForeground: #000000",
 114     "XmGrace*fontTable.evenRowBackground: #e5e5e5",
 115     "XmGrace*SSD.evenRowBackground: #ffffff",
 116     "XmGrace*SSD.buttonLabelBackground: #cccccc",
 117     "XmGrace*XmPushButton.background: #b0c4de",
 118     "XmGrace*XmMenuShell*XmPushButton.background: #e5e5e5",
 119     "XmGrace*penButton.background: #e5e5e5",
 120     "XmGrace*XmText*background: #cfe7e7",
 121     "XmGrace*XmToggleButton.selectColor: #ff0000",
 122     "XmGrace*XmToggleButton.fillOnSelect: true",
 123     "XmGrace*XmSeparator.margin: 0",
 124     "XmGrace*XmSash.HighlightColor: #b0c4de",
 125 #ifdef WITH_XMHTML
 126     "XmGrace*XmHTML.background: #ffffff",
 127     "XmGrace*XmHTML.foreground: #000000",
 128     "XmGrace*XmHTML.width: 600",
 129     "XmGrace*XmHTML.height: 500",
 130 #endif
 131     "XmGrace*enableThinThickness: True",
 132     "XmGrace*mainWin.shadowThickness: 0",
 133     "XmGrace*XmMenuShell*shadowThickness: 2",
 134     "XmGrace*menuBar*tearOffModel: XmTEAR_OFF_ENABLED",
 135     NULL
 136 };
 137
 138 String fallbackResourcesHighRes[] = {
 139     "XmGrace*mainWin.width: 780",
 140     "XmGrace*mainWin.height: 660",
 141     "XmGrace*explorerDialog.form.width: 650",
 142     "XmGrace*explorerDialog.form.height: 600",
 143     "XmGrace*fontList:-*-helvetica-medium-r-normal-*-12-*-*-*-*-*-*-*",
 144     "XmGrace.consoleDialog*text.fontList:-*-courier-medium-r-normal-*-12-*-*-*-*-*-*-*",
 145     "XmGrace*ListTree.font:-*-helvetica-medium-r-normal-*-12-*-*-*-*-*-*-*",
 146     "XmGrace*HContainer.marginHeight: 3",
 147     "XmGrace*VContainer.marginHeight: 3",
 148     NULL
 149 };
 150
 151 String fallbackResourcesLowRes[] = {
 152     "XmGrace*mainWin.width: 600",
 153     "XmGrace*mainWin.height: 520",
 154     "XmGrace*explorerDialog.form.width: 530",
 155     "XmGrace*explorerDialog.form.height: 485",
 156     "XmGrace*fontList:-*-helvetica-medium-r-normal-*-8-*-*-*-*-*-*-*",
 157     "XmGrace.consoleDialog*text.fontList:-*-courier-medium-r-normal-*-8-*-*-*-*-*-*-*",
 158     "XmGrace*ListTree.font:-*-helvetica-medium-r-normal-*-8-*-*-*-*-*-*-*",
 159     "XmGrace*HContainer.marginHeight: 1",
 160     "XmGrace*VContainer.marginHeight: 1",
 161     NULL
 162 };
 163
 164 #ifdef HAVE__XMVERSIONSTRING
 165 extern const char _XmVersionString[];
 166 #endif
 167
 168 static int is_motif_compatible(void)
 169 {
 170     char buf[128];
 171     int bd_lesstif;
 172 #ifdef HAVE__XMVERSIONSTRING
 173     char *s;
 174     int rt_lesstif;
 175 #endif
 176
 177     /* First, check for compatible version */
 178     if (xmUseVersion < XmVersion) {
 179         sprintf(buf,
 180             "Run-time Motif library is older than the build, %d < %d",
 181             xmUseVersion, XmVersion);
 182         errmsg(buf);
 183         return FALSE;
 184     }
 185
 186     bd_lesstif = (strstr(bi_gui(), "Motif") == NULL);
 187
 188 #ifdef HAVE__XMVERSIONSTRING
 189     /* Then, check whether we are in the Motif/LessTif binary compatibility
 190        mode */
 191     /* strcpy is dangerous since the sizeof(_XmVersionString) may be different
 192        at run time! 13 chars should be safe, though, and enough to distinguish
 193        between Motif and LessTif :) */
 194     strncpy(buf, _XmVersionString, 13);
 195     buf[13] = '\0';
 196     rt_lesstif = (strstr(buf, "Motif") == NULL);
 197     if (bd_lesstif != rt_lesstif) {
 198         sprintf(buf, "The software was built with %s, but is running with %s!",
 199             bd_lesstif ? "LessTif":"Motif", rt_lesstif ? "LessTif":"Motif");
 200         errmsg(buf);
 201         errmsg("We don't support binary Motif/LessTif compatibility.");
 202         errmsg("Use a semistatic binary or compile Grace yourself!");
 203         return FALSE;
 204     }
 205
 206     /* Finally, if LessTif is used, check for a reasonably new release */
 207     if (rt_lesstif) {
 208         s = strstr(_XmVersionString, "Version");
 209         if (s == NULL || (strcmp(s, "Version 0.90.0") < 0)) {
 210             errmsg("An old version of LessTif, please upgrade to 0.90.0 at least");
 211         }
 212     }
 213 #endif
 214
 215 #if XbaeVersion >= 40800
 216     /* Now we should compare whether Xbae was built against the
 217        runtime version of M*tif/LessTif. */
 218     strncpy(buf, XbaeGetXmVersionTxt(), 13);
 219     buf[13] = '\0';
 220     rt_lesstif = (strstr(buf, "Motif") == NULL);
 221     if (bd_lesstif != rt_lesstif) {
 222         sprintf(buf, "libXbae was built with %s, but is running with %s!",
 223             bd_lesstif ? "LessTif":"Motif", rt_lesstif ? "LessTif":"Motif");
 224         errmsg(buf);
 225         errmsg("Use a semistatic binary or compile Grace/libXbae yourself!");
 226         return FALSE;
 227     }
 228     /* Now we check for consistency of the used M*tif version */
 229     if (XbaeGetXmVersionNum() != XmVersion) {
 230         sprintf(buf, "libXbae was built with Motif/LessTif %i, but is running with %i!",
 231             XbaeGetXmVersionNum(), XmVersion);
 232         errmsg(buf);
 233         errmsg("Use a semistatic binary or compile Grace/libXbae yourself!");
 234         return FALSE;
 235     }
 236 #endif /* XbaeVersion > 40800 */
 237
 238     return TRUE;
 239 }
 240
 241 int initialize_gui(int *argc, char **argv)
 242 {
 243     X11Stuff *xstuff;
 244     MainWinUI *mwui;
 245     Screen *screen;
 246     ApplicationData rd;
 247     String *allResources, *resolResources;
 248     int lowres = FALSE;
 249     unsigned int i, n_common, n_resol;
 250     char *display_name = NULL;
 251
 252     xstuff = xmalloc(sizeof(X11Stuff));
 253     memset(xstuff, 0, sizeof(X11Stuff));
 254     gapp->gui->xstuff = xstuff;
 255
 256     mwui = xmalloc(sizeof(MainWinUI));
 257     memset(mwui, 0, sizeof(MainWinUI));
 258     gapp->gui->mwui = mwui;
 259
 260     installXErrorHandler();
 261
 262     /* Locale settings for GUI */
 263     if (!is_locale_utf8()) {
 264         XtSetLanguageProc(NULL, NULL, NULL);
 265     }
 266
 267     XtToolkitInitialize();
 268     app_con = XtCreateApplicationContext();
 269
 270     /* Check if we're running in the low-resolution X */
 271     for (i = 1; i < *argc - 1; i++) {
 272         /* See if display name was specified in the args */
 273         char *pattern = "-display";
 274         if (strlen(argv[i]) > 1 && strstr(pattern, argv[i]) == pattern) {
 275             display_name = argv[i + 1];
 276         }
 277     }
 278     xstuff->disp = XOpenDisplay(display_name);
 279     if (xstuff->disp == NULL) {
 280         errmsg("Can't open display");
 281         return RETURN_FAILURE;
 282     }
 283
 284     screen = DefaultScreenOfDisplay(xstuff->disp);
 285     if (HeightOfScreen(screen) < 740) {
 286         lowres = TRUE;
 287     }
 288
 289     n_common = sizeof(fallbackResourcesCommon)/sizeof(String) - 1;
 290     if (lowres) {
 291         n_resol  = sizeof(fallbackResourcesLowRes)/sizeof(String) - 1;
 292         resolResources = fallbackResourcesLowRes;
 293     } else {
 294         n_resol  = sizeof(fallbackResourcesHighRes)/sizeof(String) - 1;
 295         resolResources = fallbackResourcesHighRes;
 296     }
 297     allResources = xmalloc((n_common + n_resol + 1)*sizeof(String));
 298     for (i = 0; i < n_common; i++) {
 299         allResources[i] = fallbackResourcesCommon[i];
 300     }
 301     for (i = 0; i < n_resol; i++) {
 302         allResources[n_common + i] = resolResources[i];
 303     }
 304     allResources[n_common + n_resol] = NULL;
 305     XtAppSetFallbackResources(app_con, allResources);
 306
 307     XtDisplayInitialize(app_con, xstuff->disp, "xmgrace", "XmGrace", NULL, 0, argc, argv);
 308
 309     /* Widget translations etc */
 310     InitWidgets();
 311
 312     app_shell = XtAppCreateShell(NULL, "XmGrace", applicationShellWidgetClass,
 313         xstuff->disp, NULL, 0);
 314
 315     if (is_motif_compatible() != TRUE) {
 316         return RETURN_FAILURE;
 317     }
 318
 319     XtGetApplicationResources(app_shell, &rd,
 320         resources, XtNumber(resources), NULL, 0);
 321
 322     gapp->gui->invert = rd.invert;
 323     gapp->gui->instant_update = rd.instantupdate;
 324     gapp->gui->toolbar = rd.toolbar;
 325     gapp->gui->statusbar = rd.statusbar;
 326     gapp->gui->locbar = rd.locatorbar;
 327
 328     x11_init(gapp);
 329
 330     /* initialize cursors */
 331     init_cursors(gapp->gui);
 332
 333     return RETURN_SUCCESS;
 334 }
 335
 336 /*
 337  * set visibility of the toolbars
 338  */
 339 void set_view_items(void)
 340 {
 341     MainWinUI *mwui = gapp->gui->mwui;
 342
 343     if (gapp->gui->statusbar) {
 344         SetToggleButtonState(mwui->windowbarw[1], TRUE);
 345         WidgetManage(mwui->frbot);
 346         XtVaSetValues(mwui->drawing_window,
 347                       XmNbottomAttachment, XmATTACH_WIDGET,
 348                       XmNbottomWidget, mwui->frbot,
 349                       NULL);
 350         if (gapp->gui->toolbar) {
 351             XtVaSetValues(mwui->frleft,
 352                           XmNbottomAttachment, XmATTACH_WIDGET,
 353                           XmNbottomWidget, mwui->frbot,
 354                           NULL);
 355         }
 356     } else {
 357         SetToggleButtonState(mwui->windowbarw[1], FALSE);
 358         XtVaSetValues(mwui->drawing_window,
 359                       XmNbottomAttachment, XmATTACH_FORM,
 360                       NULL);
 361         WidgetUnmanage(mwui->frbot);
 362         if (gapp->gui->toolbar) {
 363             XtVaSetValues(mwui->frleft,
 364                           XmNbottomAttachment, XmATTACH_FORM,
 365                           NULL);
 366         }
 367     }
 368     if (gapp->gui->toolbar) {
 369         SetToggleButtonState(mwui->windowbarw[2], TRUE);
 370         WidgetManage(mwui->frleft);
 371         if (gapp->gui->statusbar) {
 372             XtVaSetValues(mwui->frleft,
 373                           XmNbottomAttachment, XmATTACH_WIDGET,
 374                           XmNbottomWidget, mwui->frbot,
 375                           NULL);
 376         }
 377         if (gapp->gui->locbar) {
 378             XtVaSetValues(mwui->frleft,
 379                           XmNtopAttachment, XmATTACH_WIDGET,
 380                           XmNtopWidget, mwui->frtop,
 381                           NULL);
 382         }
 383         XtVaSetValues(mwui->drawing_window,
 384                       XmNleftAttachment, XmATTACH_WIDGET,
 385                       XmNleftWidget, mwui->frleft,
 386                       NULL);
 387     } else {
 388         SetToggleButtonState(mwui->windowbarw[2], FALSE);
 389         WidgetUnmanage(mwui->frleft);
 390         XtVaSetValues(mwui->drawing_window,
 391                       XmNleftAttachment, XmATTACH_FORM,
 392                       NULL);
 393     }
 394     if (gapp->gui->locbar) {
 395         SetToggleButtonState(mwui->windowbarw[0], TRUE);
 396         WidgetManage(mwui->frtop);
 397         XtVaSetValues(mwui->drawing_window,
 398                       XmNtopAttachment, XmATTACH_WIDGET,
 399                       XmNtopWidget, mwui->frtop,
 400                       NULL);
 401         if (gapp->gui->toolbar) {
 402             XtVaSetValues(mwui->frleft,
 403                           XmNtopAttachment, XmATTACH_WIDGET,
 404                           XmNtopWidget, mwui->frtop,
 405                           NULL);
 406         }
 407     } else {
 408         SetToggleButtonState(mwui->windowbarw[0], FALSE);
 409         WidgetUnmanage(mwui->frtop);
 410         XtVaSetValues(mwui->drawing_window,
 411                       XmNtopAttachment, XmATTACH_FORM,
 412                       NULL);
 413         if (gapp->gui->toolbar) {
 414             XtVaSetValues(mwui->frleft,
 415                           XmNtopAttachment, XmATTACH_FORM,
 416                           NULL);
 417         }
 418     }
 419 }
 420
 421 static void canvas_event_proc(Widget w, XtPointer data, XEvent *event, Boolean *cont)
 422 {
 423     CanvasEvent cevent;
 424     KeySym keybuf;
 425     XMotionEvent *xme;
 426     XButtonEvent *xbe;
 427     XKeyEvent    *xke;
 428
 429     cevent.modifiers = NO_MODIFIER;
 430     cevent.button    = NO_BUTTON;
 431     cevent.key       = KEY_NONE;
 432     cevent.x = event->xmotion.x;
 433     cevent.y = event->xmotion.y;
 434
 435     switch (event->type) {
 436     case MotionNotify:
 437         cevent.type = MOUSE_MOVE;
 438         xme = (XMotionEvent *) event;
 439         if (xme->state & Button1Mask) {
 440             cevent.button = cevent.button ^ LEFT_BUTTON;
 441         }
 442         if (xme->state & ControlMask) {
 443             cevent.modifiers = cevent.modifiers ^ CONTROL_MODIFIER;
 444         }
 445         break;
 446     case ButtonPress:
 447         cevent.type = MOUSE_PRESS;
 448         xbe = (XButtonEvent *) event;
 449         cevent.udata = xbe;
 450         cevent.x = event->xbutton.x;
 451         cevent.y = event->xbutton.y;
 452         switch (event->xbutton.button) {
 453         case Button1:
 454             cevent.button = cevent.button ^ LEFT_BUTTON;
 455             cevent.time = xbe->time;
 456             break;
 457         case Button2:
 458             cevent.button = cevent.button ^ MIDDLE_BUTTON;
 459             break;
 460         case Button3:
 461             cevent.button = cevent.button ^ RIGHT_BUTTON;
 462             break;
 463         case Button4:
 464             cevent.button = cevent.button ^ WHEEL_UP_BUTTON;
 465             break;
 466         case Button5:
 467             cevent.button = cevent.button ^ WHEEL_DOWN_BUTTON;
 468             break;
 469         }
 470         if (xbe->state & ControlMask) {
 471             cevent.modifiers = cevent.modifiers ^ CONTROL_MODIFIER;
 472         }
 473         break;
 474     case ButtonRelease:
 475         cevent.type = MOUSE_RELEASE;
 476         xbe = (XButtonEvent *) event;
 477         switch (event->xbutton.button) {
 478         case Button1:
 479             cevent.button = cevent.button ^ LEFT_BUTTON;
 480             break;
 481         }
 482         if (xbe->state & ControlMask) {
 483             cevent.modifiers = cevent.modifiers ^ CONTROL_MODIFIER;
 484         }
 485         break;
 486     case KeyPress:
 487         cevent.type = KEY_PRESS;
 488         xke = (XKeyEvent *) event;
 489         keybuf = XLookupKeysym(xke, 0);
 490         switch (keybuf) {
 491         case XK_Escape: /* Esc */
 492             cevent.key = KEY_ESCAPE;
 493             break;
 494         case XK_KP_Add: /* "Grey" plus */
 495             cevent.key = KEY_PLUS;
 496             break;
 497         case XK_KP_Subtract: /* "Grey" minus */
 498             cevent.key = KEY_MINUS;
 499             break;
 500         case XK_1:
 501             cevent.key = KEY_1;
 502             break;
 503         }
 504         if (xke->state & ControlMask) {
 505             cevent.modifiers = cevent.modifiers ^ CONTROL_MODIFIER;
 506         }
 507         break;
 508     case KeyRelease:
 509         cevent.type = KEY_RELEASE;
 510         xke = (XKeyEvent *) event;
 511         if (xke->state & ControlMask) {
 512             cevent.modifiers = cevent.modifiers ^ CONTROL_MODIFIER;
 513         }
 514         break;
 515     default:
 516         break;
 517     }
 518
 519     canvas_event(&cevent);
 520 }
 521
 522 /*
 523  * build the GUI
 524  */
 525 void startup_gui(GraceApp *gapp)
 526 {
 527     MainWinUI *mwui = gapp->gui->mwui;
 528     X11Stuff *xstuff = gapp->gui->xstuff;
 529     Widget main_frame, form, menu_bar, rcleft;
 530     Pixmap icon, shape;
 531
 532 /*
 533  * Allow users to change tear off menus with X resources
 534  */
 535     XmRepTypeInstallTearOffModelConverter();
 536
 537 #ifdef WITH_EDITRES
 538     XtAddEventHandler(app_shell, (EventMask) 0, True, _XEditResCheckMessages, NULL);
 539 #endif
 540
 541 /*
 542  * We handle important WM events ourselves
 543  */
 544     handle_close(app_shell);
 545
 546     XtVaSetValues(app_shell, XmNcolormap, xstuff->cmap, NULL);
 547
 548 /*
 549  * build the UI here
 550  */
 551     main_frame = XtVaCreateManagedWidget("mainWin",
 552         xmMainWindowWidgetClass, app_shell, NULL);
 553
 554     menu_bar = CreateMainMenuBar(main_frame);
 555     WidgetManage(menu_bar);
 556
 557     form = CreateForm(main_frame);
 558
 559     mwui->frleft = CreateFrame(form, NULL);
 560     rcleft = XtVaCreateManagedWidget("toolBar", xmRowColumnWidgetClass,
 561                                      mwui->frleft,
 562                                      XmNorientation, XmVERTICAL,
 563                                      XmNpacking, XmPACK_TIGHT,
 564                                      XmNspacing, 0,
 565                                      XmNentryBorder, 0,
 566                                      XmNmarginWidth, 0,
 567                                      XmNmarginHeight, 0,
 568                                      NULL);
 569
 570     mwui->frtop = CreateFrame(form, NULL);
 571     mwui->loclab = CreateLabel(mwui->frtop, NULL);
 572
 573     mwui->frbot = CreateFrame(form, NULL);
 574     mwui->statlab = CreateLabel(mwui->frbot, NULL);
 575
 576     if (!gui_is_page_free(gapp->gui)) {
 577         mwui->drawing_window = XtVaCreateManagedWidget("drawing_window",
 578                                      xmScrolledWindowWidgetClass, form,
 579                                      XmNscrollingPolicy, XmAUTOMATIC,
 580                                      XmNvisualPolicy, XmVARIABLE,
 581                                      NULL);
 582         xstuff->canvas = XtVaCreateManagedWidget("canvas",
 583                                      xmDrawingAreaWidgetClass,
 584                                      mwui->drawing_window,
 585                                      NULL);
 586     } else {
 587         xstuff->canvas = XtVaCreateManagedWidget("canvas",
 588                                      xmDrawingAreaWidgetClass, form,
 589                                      NULL);
 590         mwui->drawing_window = xstuff->canvas;
 591     }
 592
 593     XtAddCallback(xstuff->canvas, XmNexposeCallback, expose_resize, gapp);
 594     XtAddCallback(xstuff->canvas, XmNresizeCallback, expose_resize, gapp);
 595
 596     XtAddEventHandler(xstuff->canvas,
 597                       ButtonPressMask
 598                       | ButtonReleaseMask
 599                       | PointerMotionMask
 600                       | KeyPressMask
 601                       | KeyReleaseMask
 602                       | ColormapChangeMask,
 603                       False,
 604                       canvas_event_proc, gapp);
 605
 606     AddHelpCB(xstuff->canvas, "doc/UsersGuide.html#canvas");
 607
 608     XtVaSetValues(mwui->frtop,
 609                   XmNtopAttachment, XmATTACH_FORM,
 610                   XmNleftAttachment, XmATTACH_FORM,
 611                   XmNrightAttachment, XmATTACH_FORM,
 612                   NULL);
 613     XtVaSetValues(mwui->frbot,
 614                   XmNbottomAttachment, XmATTACH_FORM,
 615                   XmNrightAttachment, XmATTACH_FORM,
 616                   XmNleftAttachment, XmATTACH_FORM,
 617                   NULL);
 618     XtVaSetValues(mwui->frleft,
 619                   XmNtopAttachment, XmATTACH_WIDGET,
 620                   XmNtopWidget, mwui->frtop,
 621                   XmNbottomAttachment, XmATTACH_WIDGET,
 622                   XmNbottomWidget, mwui->frbot,
 623                   XmNleftAttachment, XmATTACH_FORM,
 624                   NULL);
 625     XtVaSetValues(mwui->drawing_window,
 626                   XmNtopAttachment, XmATTACH_WIDGET,
 627                   XmNtopWidget, mwui->frtop,
 628                   XmNbottomAttachment, XmATTACH_WIDGET,
 629                   XmNbottomWidget, mwui->frbot,
 630                   XmNleftAttachment, XmATTACH_WIDGET,
 631                   XmNleftWidget, mwui->frleft,
 632                   XmNrightAttachment, XmATTACH_FORM,
 633                   NULL);
 634
 635     WidgetManage(form);
 636
 637     XmMainWindowSetAreas(main_frame, menu_bar, NULL, NULL, NULL, form);
 638
 639     CreateToolBar(rcleft);
 640 /*
 641  * initialize some option menus
 642  */
 643     init_option_menus();
 644
 645 /*
 646  * initialize the tool bars
 647  */
 648     set_view_items();
 649
 650     set_tracker_string(NULL);
 651     set_left_footer(NULL);
 652
 653 /*
 654  * set icon
 655  */
 656     XpmCreatePixmapFromData(xstuff->disp, xstuff->root,
 657         gapp_icon_xpm, &icon, &shape, NULL);
 658     XtVaSetValues(app_shell, XtNiconPixmap, icon, XtNiconMask, shape, NULL);
 659
 660     XtRealizeWidget(app_shell);
 661
 662     XmProcessTraversal(xstuff->canvas, XmTRAVERSE_CURRENT);
 663
 664     xstuff->xwin = XtWindow(xstuff->canvas);
 665     gapp->gui->inwin = TRUE;
 666
 667 /*
 668  * set the title
 669  */
 670     update_app_title(gapp->gp);
 671
 672     XtAppMainLoop(app_con);
 673 }
 674