src/XawInit.c

   1 /*
   2  *
   3 Copyright 1989, 1998  The Open Group
   4 Copyright 2003-2004 Roland Mainz <roland.mainz@nrubsig.org>
   5
   6 Permission to use, copy, modify, distribute, and sell this software and its
   7 documentation for any purpose is hereby granted without fee, provided that
   8 the above copyright notice appear in all copies and that both that
   9 copyright notice and this permission notice appear in supporting
  10 documentation.
  11
  12 The above copyright notice and this permission notice shall be included in
  13 all copies or substantial portions of the Software.
  14
  15 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  16 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  17 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
  18 OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
  19 AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  20 CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  21
  22 Except as contained in this notice, the name of The Open Group shall not be
  23 used in advertising or otherwise to promote the sale, use or other dealings
  24 in this Software without prior written authorization from The Open Group.
  25  *
  26  *
  27  *                          XawInitializeWidgetSet
  28  *
  29  * This routine forces a reference to vendor shell so that the one in this
  30  * widget is installed.  Any other cross-widget set initialization should be
  31  * done here as well.  All Athena widgets should include "XawInit.h" and
  32  * call this routine from their ClassInitialize procs (this routine may be
  33  * used as the class init proc).
  34  */
  35 #ifdef HAVE_CONFIG_H
  36 #include <config.h>
  37 #endif
  38 #include <X11/Intrinsic.h>
  39 #include <X11/Vendor.h>
  40 #include <X11/Xaw/XawInit.h>
  41 #include <X11/IntrinsicP.h>
  42 #include <X11/StringDefs.h>
  43 #include "Private.h"
  44
  45 void
  46 XawInitializeWidgetSet(void)
  47 {
  48     static Boolean firsttime = True;
  49
  50     if (firsttime) {
  51         firsttime = False;
  52 #ifndef OLDXAW
  53         XawPixmapsInitialize();
  54         XawInitializeDefaultConverters();
  55 #endif
  56         XtInitializeWidgetClass(vendorShellWidgetClass);
  57     }
  58 }
  59
  60 /* XawOpenApplication() - mainly identical to XtOpenApplication() but
  61  * takes a |Display *| and |Screen *| as arguments, too... */
  62 Widget XawOpenApplication(XtAppContext *app_context_return,
  63                           Display      *dpy,
  64                           Screen       *screen,
  65                           String        application_name,
  66                           String        application_class,
  67                           WidgetClass   widget_class,
  68                           int          *argc,
  69                           String       *argv)
  70 {
  71     Widget   toplevel;
  72     Cardinal n;
  73     Arg      args[2];
  74
  75     XtToolkitInitialize();
  76     *app_context_return = XtCreateApplicationContext();
  77     if( *app_context_return == NULL )
  78         return NULL;
  79
  80     XtDisplayInitialize(*app_context_return, dpy,
  81                         application_name, application_class,
  82                         NULL, 0,
  83                         argc, argv);
  84
  85     n = 0;
  86     if (screen) {
  87         XtSetArg(args[n], XtNscreen, screen); n++;
  88     }
  89     toplevel = XtAppCreateShell(application_name,
  90                                 application_class,
  91                                 widget_class,
  92                                 dpy,
  93                                 args, n);
  94
  95     return toplevel;
  96 }
  97