+// For compilers that support precompilation, includes "wx.h".
+#include "wx/wxprec.h"
+
+#include "wx/utils.h"
+
+#ifndef WX_PRECOMP
+ #include "wx/app.h"
+ #include "wx/dcmemory.h"
+ #include "wx/bitmap.h"
+#endif
+
+#include "wx/apptrait.h"
+#include "wx/evtloop.h"
+#include "wx/motif/private/timer.h"
+
+#include <string.h>
+
+#if (defined(__SUNCC__) || defined(__CLCC__))
+ #include <sysent.h>
+#endif
+
+#ifdef __VMS__
+#pragma message disable nosimpint
+#endif
+
+#include "wx/unix/execute.h"
+
+#include <Xm/Xm.h>
+#include <Xm/Frame.h>
+
+#include "wx/motif/private.h"
+
+#include "X11/Xutil.h"
+
+#ifdef __VMS__
+#pragma message enable nosimpint
+#endif
+
+
+// ============================================================================
+// implementation
+// ============================================================================
+
+// ----------------------------------------------------------------------------
+// async event processing
+// ----------------------------------------------------------------------------
+
+// Consume all events until no more left
+void wxFlushEvents(WXDisplay* wxdisplay)
+{
+ Display *display = (Display*)wxdisplay;
+ wxEventLoop evtLoop;
+
+ XSync (display, False);
+
+ while (evtLoop.Pending())
+ {
+ XFlush (display);
+ evtLoop.Dispatch();
+ }
+}
+
+// ----------------------------------------------------------------------------
+// wxExecute stuff
+// ----------------------------------------------------------------------------
+
+static void xt_notify_end_process(XtPointer data, int *WXUNUSED(fid),
+ XtInputId *id)
+{
+ wxEndProcessData *proc_data = (wxEndProcessData *)data;
+
+ wxHandleProcessTermination(proc_data);
+
+ // VZ: I think they should be the same...
+ wxASSERT( (int)*id == proc_data->tag );
+
+ XtRemoveInput(*id);
+}
+
+int wxGUIAppTraits::AddProcessCallback(wxEndProcessData *proc_data, int fd)
+{
+ XtInputId id = XtAppAddInput((XtAppContext) wxTheApp->GetAppContext(),
+ fd,
+ (XtPointer *) XtInputReadMask,
+ (XtInputCallbackProc) xt_notify_end_process,
+ (XtPointer) proc_data);
+
+ return (int)id;
+}
+
+// ----------------------------------------------------------------------------
+// misc
+// ----------------------------------------------------------------------------
+
+// Emit a beeeeeep
+#ifndef __EMX__
+// on OS/2, we use the wxBell from wxBase library (src/os2/utils.cpp)
+void wxBell()
+{
+ // Use current setting for the bell
+ XBell (wxGlobalDisplay(), 0);
+}
+#endif
+
+wxPortId wxGUIAppTraits::GetToolkitVersion(int *verMaj, int *verMin) const
+{
+ // XmVERSION and XmREVISION are defined in Xm/Xm.h
+ if ( verMaj )
+ *verMaj = XmVERSION;
+ if ( verMin )
+ *verMin = XmREVISION;
+
+ return wxPORT_MOTIF;
+}
+
+wxEventLoopBase* wxGUIAppTraits::CreateEventLoop()
+{
+ return new wxEventLoop;
+}
+
+wxTimerImpl* wxGUIAppTraits::CreateTimerImpl(wxTimer* timer)
+{
+ return new wxMotifTimerImpl(timer);
+}
+
+// ----------------------------------------------------------------------------
+// display info
+// ----------------------------------------------------------------------------
+
+void wxGetMousePosition( int* x, int* y )
+{
+#if wxUSE_NANOX
+ // TODO
+ *x = 0;
+ *y = 0;
+#else
+ XMotionEvent xev;
+ Window root, child;
+ XQueryPointer(wxGlobalDisplay(),
+ DefaultRootWindow(wxGlobalDisplay()),
+ &root, &child,
+ &(xev.x_root), &(xev.y_root),
+ &(xev.x), &(xev.y),
+ &(xev.state));
+ *x = xev.x_root;
+ *y = xev.y_root;
+#endif
+}
+
+// Return true if we have a colour display
+bool wxColourDisplay()
+{
+ return wxDisplayDepth() > 1;
+}
+
+// Returns depth of screen
+int wxDisplayDepth()
+{
+ Display *dpy = wxGlobalDisplay();
+
+ return DefaultDepth (dpy, DefaultScreen (dpy));
+}
+
+// Get size of display
+void wxDisplaySize(int *width, int *height)
+{
+ Display *dpy = wxGlobalDisplay();
+
+ if ( width )
+ *width = DisplayWidth (dpy, DefaultScreen (dpy));
+ if ( height )
+ *height = DisplayHeight (dpy, DefaultScreen (dpy));
+}
+
+void wxDisplaySizeMM(int *width, int *height)
+{
+ Display *dpy = wxGlobalDisplay();
+
+ if ( width )
+ *width = DisplayWidthMM(dpy, DefaultScreen (dpy));
+ if ( height )
+ *height = DisplayHeightMM(dpy, DefaultScreen (dpy));
+}
+
+// Configurable display in wxX11 and wxMotif
+static WXDisplay *gs_currentDisplay = NULL;
+static wxString gs_displayName;
+
+WXDisplay *wxGetDisplay()
+{
+ if (gs_currentDisplay)
+ return gs_currentDisplay;
+ else if (wxTheApp)
+ return wxTheApp->GetInitialDisplay();
+ return NULL;
+}
+
+bool wxSetDisplay(const wxString& display_name)
+{
+ gs_displayName = display_name;
+
+ if ( display_name.empty() )
+ {
+ gs_currentDisplay = NULL;
+
+ return true;
+ }
+ else
+ {
+ Cardinal argc = 0;
+
+ Display *display = XtOpenDisplay((XtAppContext) wxTheApp->GetAppContext(),
+ display_name.c_str(),
+ wxTheApp->GetAppName().c_str(),
+ wxTheApp->GetClassName().c_str(),
+ NULL,
+#if XtSpecificationRelease < 5
+ 0, &argc,
+#else
+ 0, (int *)&argc,
+#endif
+ NULL);
+
+ if (display)
+ {
+ gs_currentDisplay = (WXDisplay*) display;
+ return true;
+ }
+ else
+ return false;
+ }
+}
+
+wxString wxGetDisplayName()
+{
+ return gs_displayName;
+}
+
+wxWindow* wxFindWindowAtPoint(const wxPoint& pt)
+{
+ return wxGenericFindWindowAtPoint(pt);
+}
+
+// ----------------------------------------------------------------------------
+// Some colour manipulation routines
+// ----------------------------------------------------------------------------
+
+void wxHSVToXColor(wxHSV *hsv,XColor *rgb)
+{
+ int h = hsv->h;
+ int s = hsv->s;
+ int v = hsv->v;
+ int r = 0, g = 0, b = 0;
+ int i, f;
+ int p, q, t;
+ s = (s * wxMAX_RGB) / wxMAX_SV;
+ v = (v * wxMAX_RGB) / wxMAX_SV;
+ if (h == 360) h = 0;
+ if (s == 0) { h = 0; r = g = b = v; }
+ i = h / 60;
+ f = h % 60;
+ p = v * (wxMAX_RGB - s) / wxMAX_RGB;
+ q = v * (wxMAX_RGB - s * f / 60) / wxMAX_RGB;
+ t = v * (wxMAX_RGB - s * (60 - f) / 60) / wxMAX_RGB;
+ switch (i)
+ {
+ case 0: r = v, g = t, b = p; break;
+ case 1: r = q, g = v, b = p; break;
+ case 2: r = p, g = v, b = t; break;
+ case 3: r = p, g = q, b = v; break;
+ case 4: r = t, g = p, b = v; break;
+ case 5: r = v, g = p, b = q; break;
+ }
+ rgb->red = (unsigned short)(r << 8);
+ rgb->green = (unsigned short)(g << 8);
+ rgb->blue = (unsigned short)(b << 8);
+}
+
+void wxXColorToHSV(wxHSV *hsv,XColor *rgb)
+{
+ int r = rgb->red >> 8;
+ int g = rgb->green >> 8;
+ int b = rgb->blue >> 8;
+ int maxv = wxMax3(r, g, b);
+ int minv = wxMin3(r, g, b);
+ int h = 0, s, v;
+ v = maxv;
+ if (maxv) s = (maxv - minv) * wxMAX_RGB / maxv;
+ else s = 0;
+ if (s == 0) h = 0;
+ else
+ {
+ int rc, gc, bc, hex = 0;
+ rc = (maxv - r) * wxMAX_RGB / (maxv - minv);
+ gc = (maxv - g) * wxMAX_RGB / (maxv - minv);
+ bc = (maxv - b) * wxMAX_RGB / (maxv - minv);
+ if (r == maxv) { h = bc - gc, hex = 0; }
+ else if (g == maxv) { h = rc - bc, hex = 2; }
+ else if (b == maxv) { h = gc - rc, hex = 4; }
+ h = hex * 60 + (h * 60 / wxMAX_RGB);
+ if (h < 0) h += 360;
+ }
+ hsv->h = h;
+ hsv->s = (s * wxMAX_SV) / wxMAX_RGB;
+ hsv->v = (v * wxMAX_SV) / wxMAX_RGB;
+}
+
+void wxAllocNearestColor(Display *d,Colormap cmp,XColor *xc)
+{
+#if !wxUSE_NANOX
+ int llp;
+
+ int screen = DefaultScreen(d);
+ int num_colors = DisplayCells(d,screen);
+
+ XColor *color_defs = new XColor[num_colors];
+ for(llp = 0;llp < num_colors;llp++) color_defs[llp].pixel = llp;
+ XQueryColors(d,cmp,color_defs,num_colors);
+
+ wxHSV hsv_defs, hsv;
+ wxXColorToHSV(&hsv,xc);
+
+ int diff, min_diff = 0, pixel = 0;
+
+ for(llp = 0;llp < num_colors;llp++)
+ {
+ wxXColorToHSV(&hsv_defs,&color_defs[llp]);
+ diff = wxSIGN(wxH_WEIGHT * (hsv.h - hsv_defs.h)) +
+ wxSIGN(wxS_WEIGHT * (hsv.s - hsv_defs.s)) +
+ wxSIGN(wxV_WEIGHT * (hsv.v - hsv_defs.v));
+ if (llp == 0) min_diff = diff;
+ if (min_diff > diff) { min_diff = diff; pixel = llp; }
+ if (min_diff == 0) break;
+ }
+
+ xc -> red = color_defs[pixel].red;
+ xc -> green = color_defs[pixel].green;
+ xc -> blue = color_defs[pixel].blue;
+ xc -> flags = DoRed | DoGreen | DoBlue;
+
+/* FIXME, TODO
+ if (!XAllocColor(d,cmp,xc))
+ cout << "wxAllocNearestColor : Warning : Cannot find nearest color !\n";
+*/
+
+ delete[] color_defs;
+#endif
+}
+
+void wxAllocColor(Display *d,Colormap cmp,XColor *xc)
+{
+ if (!XAllocColor(d,cmp,xc))
+ {
+ // cout << "wxAllocColor : Warning : Can not allocate color, attempt find nearest !\n";
+ wxAllocNearestColor(d,cmp,xc);
+ }
+}
+
+#ifdef __WXDEBUG__
+wxString wxGetXEventName(XEvent& event)
+{
+#if wxUSE_NANOX
+ wxString str(wxT("(some event)"));
+ return str;
+#else
+ int type = event.xany.type;
+ static char* event_name[] = {
+ wxMOTIF_STR(""), wxMOTIF_STR("unknown(-)"), // 0-1
+ wxMOTIF_STR("KeyPress"), wxMOTIF_STR("KeyRelease"), wxMOTIF_STR("ButtonPress"), wxMOTIF_STR("ButtonRelease"), // 2-5
+ wxMOTIF_STR("MotionNotify"), wxMOTIF_STR("EnterNotify"), wxMOTIF_STR("LeaveNotify"), wxMOTIF_STR("FocusIn"), // 6-9
+ wxMOTIF_STR("FocusOut"), wxMOTIF_STR("KeymapNotify"), wxMOTIF_STR("Expose"), wxMOTIF_STR("GraphicsExpose"), // 10-13
+ wxMOTIF_STR("NoExpose"), wxMOTIF_STR("VisibilityNotify"), wxMOTIF_STR("CreateNotify"), // 14-16
+ wxMOTIF_STR("DestroyNotify"), wxMOTIF_STR("UnmapNotify"), wxMOTIF_STR("MapNotify"), wxMOTIF_STR("MapRequest"),// 17-20
+ wxMOTIF_STR("ReparentNotify"), wxMOTIF_STR("ConfigureNotify"), wxMOTIF_STR("ConfigureRequest"), // 21-23
+ wxMOTIF_STR("GravityNotify"), wxMOTIF_STR("ResizeRequest"), wxMOTIF_STR("CirculateNotify"), // 24-26
+ wxMOTIF_STR("CirculateRequest"), wxMOTIF_STR("PropertyNotify"), wxMOTIF_STR("SelectionClear"), // 27-29
+ wxMOTIF_STR("SelectionRequest"), wxMOTIF_STR("SelectionNotify"), wxMOTIF_STR("ColormapNotify"), // 30-32
+ wxMOTIF_STR("ClientMessage"), wxMOTIF_STR("MappingNotify"), // 33-34
+ wxMOTIF_STR("unknown(+)")}; // 35
+ type = wxMin(35, type); type = wxMax(1, type);
+ wxString str(event_name[type]);
+ return str;