// headers
// ----------------------------------------------------------------------------
+#ifdef __VMS
+#define XtDisplay XTDISPLAY
+#endif
#include "wx/setup.h"
#include "wx/utils.h"
#include "wx/app.h"
-#include "wx/msgdlg.h"
-#include "wx/cursor.h"
-#include "wx/window.h" // for wxTopLevelWindows
+#include "wx/dcmemory.h"
+#include "wx/bitmap.h"
+#include "wx/evtloop.h"
-#include <ctype.h>
-#include <stdarg.h>
-#include <dirent.h>
#include <string.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-#include <unistd.h>
-#include <sys/wait.h>
-#include <pwd.h>
-#include <errno.h>
-#include <netdb.h>
-#include <signal.h>
#if (defined(__SUNCC__) || defined(__CLCC__))
#include <sysent.h>
#endif
-#include <Xm/Xm.h>
+#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"
+#if wxUSE_RESOURCES
+#include "X11/Xresource.h"
+#endif
+
+#include "X11/Xutil.h"
+
+#ifdef __VMS__
+#pragma message enable nosimpint
+#endif
+
// ----------------------------------------------------------------------------
// private functions
// ----------------------------------------------------------------------------
#define DEFAULT_XRESOURCE_DIR "/usr/lib/X11/app-defaults"
#endif
+#if wxUSE_RESOURCES
static char *GetIniFile (char *dest, const char *filename);
+#endif
// ============================================================================
// implementation
// ----------------------------------------------------------------------------
// Consume all events until no more left
-void wxFlushEvents()
+void wxFlushEvents(WXDisplay* wxdisplay)
{
- Display *display = (Display*) wxGetDisplay();
+ Display *display = (Display*)wxdisplay;
+ wxEventLoop evtLoop;
XSync (display, FALSE);
- // XtAppPending returns availability of events AND timers/inputs, which
- // are processed via callbacks, so XtAppNextEvent will not return if
- // there are no events. So added '& XtIMXEvent' - Sergey.
- while (XtAppPending ((XtAppContext) wxTheApp->GetAppContext()) & XtIMXEvent)
- {
- XFlush (XtDisplay ((Widget) wxTheApp->GetTopLevelWidget()));
- // Jan Lessner: works better when events are non-X events
- XtAppProcessEvent((XtAppContext) wxTheApp->GetAppContext(), XtIMXEvent);
- }
-}
-
-// Check whether this window wants to process messages, e.g. Stop button
-// in long calculations.
-bool wxCheckForInterrupt(wxWindow *wnd)
-{
- wxCHECK_MSG( wnd, FALSE, "NULL window in wxCheckForInterrupt" );
-
- Display *dpy=(Display*) wnd->GetXDisplay();
- Window win=(Window) wnd->GetXWindow();
- XEvent event;
- XFlush(dpy);
- if (wnd->GetMainWidget())
+ while (evtLoop.Pending())
{
- XmUpdateDisplay((Widget)(wnd->GetMainWidget()));
+ XFlush (display);
+ evtLoop.Dispatch();
}
-
- bool hadEvents = FALSE;
- while( XCheckMaskEvent(dpy,
- ButtonPressMask|ButtonReleaseMask|ButtonMotionMask|
- PointerMotionMask|KeyPressMask|KeyReleaseMask,
- &event) )
- {
- if ( event.xany.window == win )
- {
- hadEvents = TRUE;
-
- XtDispatchEvent(&event);
- }
- }
-
- return hadEvents;
}
// ----------------------------------------------------------------------------
// wxExecute stuff
// ----------------------------------------------------------------------------
-static void xt_notify_end_process(XtPointer data, int *fid,
+static void xt_notify_end_process(XtPointer data, int *WXUNUSED(fid),
XtInputId *id)
{
wxEndProcessData *proc_data = (wxEndProcessData *)data;
void wxBell()
{
// Use current setting for the bell
- XBell ((Display*) wxGetDisplay(), 0);
+ XBell (wxGlobalDisplay(), 0);
}
int wxGetOsVersion(int *majorVsn, int *minorVsn)
// This code is WRONG!! Does NOT return the
// Motif version of the libs but the X protocol
// version!
- Display *display = XtDisplay ((Widget) wxTheApp->GetTopLevelWidget());
+ Display *display = wxGlobalDisplay();
if (majorVsn)
*majorVsn = ProtocolVersion (display);
if (minorVsn)
// Reading and writing resources (eg WIN.INI, .Xdefaults)
// ----------------------------------------------------------------------------
+#if wxUSE_RESOURCES
+
// Read $HOME for what it says is home, if not
// read $USER or $LOGNAME for user name else determine
// the Real User, then determine the Real home dir.
return dest;
}
-#if wxUSE_RESOURCES
-
static char *GetResourcePath(char *buf, const char *name, bool create = FALSE)
{
if (create && wxFileExists (name) ) {
// Put in standard place for resource files if not absolute
strcpy (buf, DEFAULT_XRESOURCE_DIR);
strcat (buf, "/");
- strcat (buf, (const char*) wxFileNameFromPath (name));
+ strcat (buf, wxFileNameFromPath (name).c_str());
}
if (create) {
}
char resName[300];
- strcpy (resName, (const char*) section);
+ strcpy (resName, section.c_str());
strcat (resName, ".");
- strcat (resName, (const char*) entry);
+ strcat (resName, entry.c_str());
XrmPutStringResource (&database, resName, value);
return TRUE;
{
if (!wxResourceDatabase)
{
- Display *display = (Display*) wxGetDisplay();
+ Display *display = wxGlobalDisplay();
wxXMergeDatabases (wxTheApp, display);
}
wxString classname = theApp->GetClassName();
char name[256];
(void) strcpy (name, "/usr/lib/X11/app-defaults/");
- (void) strcat (name, (const char*) classname);
+ (void) strcat (name, classname.c_str());
/* Get application defaults file, if any */
applicationDB = XrmGetFileDatabase (name);
#endif // wxUSE_RESOURCES
-// ----------------------------------------------------------------------------
-// busy cursor stuff
-// ----------------------------------------------------------------------------
-
-static int wxBusyCursorCount = 0;
-
-// Helper function
-static void
-wxXSetBusyCursor (wxWindow * win, wxCursor * cursor)
-{
- Display *display = (Display*) win->GetXDisplay();
-
- Window xwin = (Window) win->GetXWindow();
- if (!xwin)
- return;
-
- XSetWindowAttributes attrs;
-
- if (cursor)
- {
- attrs.cursor = (Cursor) cursor->GetXCursor(display);
- }
- else
- {
- // Restore old cursor
- if (win->GetCursor().Ok())
- attrs.cursor = (Cursor) win->GetCursor().GetXCursor(display);
- else
- attrs.cursor = None;
- }
- if (xwin)
- XChangeWindowAttributes (display, xwin, CWCursor, &attrs);
-
- XFlush (display);
-
- for(wxNode *node = win->GetChildren().First (); node; node = node->Next())
- {
- wxWindow *child = (wxWindow *) node->Data ();
- wxXSetBusyCursor (child, cursor);
- }
-}
-
-// Set the cursor to the busy cursor for all windows
-void wxBeginBusyCursor(wxCursor *cursor)
-{
- wxBusyCursorCount++;
- if (wxBusyCursorCount == 1)
- {
- for(wxNode *node = wxTopLevelWindows.First (); node; node = node->Next())
- {
- wxWindow *win = (wxWindow *) node->Data ();
- wxXSetBusyCursor (win, cursor);
- }
- }
-}
-
-// Restore cursor to normal
-void wxEndBusyCursor()
-{
- if (wxBusyCursorCount == 0)
- return;
-
- wxBusyCursorCount--;
- if (wxBusyCursorCount == 0)
- {
- for(wxNode *node = wxTopLevelWindows.First (); node; node = node->Next())
- {
- wxWindow *win = (wxWindow *) node->Data ();
- wxXSetBusyCursor (win, NULL);
- }
- }
-}
-
-// TRUE if we're between the above two calls
-bool wxIsBusy()
-{
- return (wxBusyCursorCount > 0);
-}
-
// ----------------------------------------------------------------------------
// display info
// ----------------------------------------------------------------------------
void wxGetMousePosition( int* x, int* y )
{
+#if wxUSE_NANOX
+ // TODO
+ *x = 0;
+ *y = 0;
+#else
XMotionEvent xev;
Window root, child;
- XQueryPointer((Display*) wxGetDisplay(),
- DefaultRootWindow((Display*) wxGetDisplay()),
+ 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
// Returns depth of screen
int wxDisplayDepth()
{
- Display *dpy = (Display*) wxGetDisplay();
+ Display *dpy = wxGlobalDisplay();
return DefaultDepth (dpy, DefaultScreen (dpy));
}
// Get size of display
void wxDisplaySize(int *width, int *height)
{
- Display *dpy = (Display*) wxGetDisplay();
+ Display *dpy = wxGlobalDisplay();
if ( width )
*width = DisplayWidth (dpy, DefaultScreen (dpy));
*height = DisplayHeight (dpy, DefaultScreen (dpy));
}
-// Configurable display in Motif
+void wxDisplaySizeMM(int *width, int *height)
+{
+ Display *dpy = wxGlobalDisplay();
+
+ if ( width )
+ *width = DisplayWidthMM(dpy, DefaultScreen (dpy));
+ if ( height )
+ *height = DisplayHeightMM(dpy, DefaultScreen (dpy));
+}
+
+void wxClientDisplayRect(int *x, int *y, int *width, int *height)
+{
+ // This is supposed to return desktop dimensions minus any window
+ // manager panels, menus, taskbars, etc. If there is a way to do that
+ // for this platform please fix this function, otherwise it defaults
+ // to the entire desktop.
+ if (x) *x = 0;
+ if (y) *y = 0;
+ wxDisplaySize(width, height);
+}
+
+
+// Configurable display in wxX11 and wxMotif
static WXDisplay *gs_currentDisplay = NULL;
static wxString gs_displayName;
{
if (gs_currentDisplay)
return gs_currentDisplay;
-
- if (wxTheApp && wxTheApp->GetTopLevelWidget())
- return XtDisplay ((Widget) wxTheApp->GetTopLevelWidget());
else if (wxTheApp)
return wxTheApp->GetInitialDisplay();
- else
- return (WXDisplay*) NULL;
+ return NULL;
}
bool wxSetDisplay(const wxString& display_name)
{
gs_displayName = display_name;
- if ( !display_name )
+ if ( display_name.IsEmpty() )
{
gs_currentDisplay = NULL;
Cardinal argc = 0;
Display *display = XtOpenDisplay((XtAppContext) wxTheApp->GetAppContext(),
- (const char*) display_name,
- (const char*) wxTheApp->GetAppName(),
- (const char*) wxTheApp->GetClassName(),
+ display_name.c_str(),
+ wxTheApp->GetAppName().c_str(),
+ wxTheApp->GetClassName().c_str(),
NULL,
#if XtSpecificationRelease < 5
0, &argc,
else
return FALSE;
}
-
- return FALSE;
}
wxString wxGetDisplayName()
return gs_displayName;
}
-// ----------------------------------------------------------------------------
-// accelerators
-// ----------------------------------------------------------------------------
-
-// Find the letter corresponding to the mnemonic, for Motif
-char wxFindMnemonic (const char *s)
+wxWindow* wxFindWindowAtPoint(const wxPoint& pt)
{
- char mnem = 0;
- int len = strlen (s);
- int i;
- for (i = 0; i < len; i++)
- {
- if (s[i] == '&')
- {
- // Carefully handle &&
- if ((i + 1) <= len && s[i + 1] == '&')
- i++;
- else
- {
- mnem = s[i + 1];
- break;
- }
- }
- }
- return mnem;
-}
-
-char * wxFindAccelerator (const char *s)
-{
- // VZ: this function returns incorrect keysym which completely breaks kbd
- // handling
- return NULL;
-
- // The accelerator text is after the \t char.
- while (*s && *s != '\t')
- s++;
- if (*s == '\0')
- return (NULL);
- s++;
- /*
- Now we need to format it as X standard:
-
- input output
-
- F7 --> <Key>F7
- Ctrl+N --> Ctrl<Key>N
- Alt+k --> Meta<Key>k
- Ctrl+Shift+A --> Ctrl Shift<Key>A
-
- */
-
- wxBuffer[0] = '\0';
- char *tmp = copystring (s);
- s = tmp;
- char *p = tmp;
-
- while (1)
- {
- while (*p && *p != '+')
- p++;
- if (*p)
- {
- *p = '\0';
- if (wxBuffer[0])
- strcat (wxBuffer, " ");
- if (strcmp (s, "Alt"))
- strcat (wxBuffer, s);
- else
- strcat (wxBuffer, "Meta");
- s = p++;
- }
- else
- {
- strcat (wxBuffer, "<Key>");
- strcat (wxBuffer, s);
- break;
- }
- }
- delete[]tmp;
- return wxBuffer;
-}
-
-XmString wxFindAcceleratorText (const char *s)
-{
- // VZ: this function returns incorrect keysym which completely breaks kbd
- // handling
- return NULL;
-
- // The accelerator text is after the \t char.
- while (*s && *s != '\t')
- s++;
- if (*s == '\0')
- return (NULL);
- s++;
- XmString text = XmStringCreateSimple ((char *)s);
- return text;
+ return wxGenericFindWindowAtPoint(pt);
}
// ----------------------------------------------------------------------------
int h = hsv->h;
int s = hsv->s;
int v = hsv->v;
- int r, g, b;
+ int r = 0, g = 0, b = 0;
int i, f;
int p, q, t;
s = (s * wxMAX_RGB) / wxMAX_SV;
int b = rgb->blue >> 8;
int maxv = wxMax3(r, g, b);
int minv = wxMin3(r, g, b);
- int h, s, v;
+ 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;
+ 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);
void wxAllocNearestColor(Display *d,Colormap cmp,XColor *xc)
{
+#if !wxUSE_NANOX
int llp;
int screen = DefaultScreen(d);
wxHSV hsv_defs, hsv;
wxXColorToHSV(&hsv,xc);
- int diff, min_diff, pixel = 0;
+ int diff, min_diff = 0, pixel = 0;
for(llp = 0;llp < num_colors;llp++)
{
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)
}
}
+#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[] = {
+ "", "unknown(-)", // 0-1
+ "KeyPress", "KeyRelease", "ButtonPress", "ButtonRelease", // 2-5
+ "MotionNotify", "EnterNotify", "LeaveNotify", "FocusIn", // 6-9
+ "FocusOut", "KeymapNotify", "Expose", "GraphicsExpose", // 10-13
+ "NoExpose", "VisibilityNotify", "CreateNotify", // 14-16
+ "DestroyNotify", "UnmapNotify", "MapNotify", "MapRequest",// 17-20
+ "ReparentNotify", "ConfigureNotify", "ConfigureRequest", // 21-23
+ "GravityNotify", "ResizeRequest", "CirculateNotify", // 24-26
+ "CirculateRequest", "PropertyNotify", "SelectionClear", // 27-29
+ "SelectionRequest", "SelectionNotify", "ColormapNotify", // 30-32
+ "ClientMessage", "MappingNotify", // 33-34
+ "unknown(+)"}; // 35
+ type = wxMin(35, type); type = wxMax(1, type);
+ wxString str(event_name[type]);
+ return str;
+#endif
+}
+#endif
+
+// ----------------------------------------------------------------------------
+// accelerators
+// ----------------------------------------------------------------------------
-// These functions duplicate those in wxWindow, but are needed
-// for use outside of wxWindow (e.g. wxMenu, wxMenuBar).
+// Find the letter corresponding to the mnemonic, for Motif
+char wxFindMnemonic (const char *s)
+{
+ char mnem = 0;
+ int len = strlen (s);
+ int i;
-// Change a widget's foreground and background colours.
+ for (i = 0; i < len; i++)
+ {
+ if (s[i] == '&')
+ {
+ // Carefully handle &&
+ if ((i + 1) <= len && s[i + 1] == '&')
+ i++;
+ else
+ {
+ mnem = s[i + 1];
+ break;
+ }
+ }
+ }
+ return mnem;
+}
+
+char* wxFindAccelerator( const char *s )
+{
+#if 1
+ // VZ: this function returns incorrect keysym which completely breaks kbd
+ // handling
+ return NULL;
+#else
+ // The accelerator text is after the \t char.
+ s = strchr( s, '\t' );
+
+ if( !s ) return NULL;
+
+ /*
+ Now we need to format it as X standard:
+
+ input output
+
+ F7 --> <Key>F7
+ Ctrl+N --> Ctrl<Key>N
+ Alt+k --> Meta<Key>k
+ Ctrl+Shift+A --> Ctrl Shift<Key>A
+
+ and handle Ctrl-N & similia
+ */
+ static char buf[256];
+
+ buf[0] = '\0';
+ wxString tmp = s + 1; // skip TAB
+ size_t index = 0;
+
+ while( index < tmp.length() )
+ {
+ size_t plus = tmp.find( '+', index );
+ size_t minus = tmp.find( '-', index );
+
+ // neither '+' nor '-', add <Key>
+ if( plus == wxString::npos && minus == wxString::npos )
+ {
+ strcat( buf, "<Key>" );
+ strcat( buf, tmp.c_str() + index );
+
+ return buf;
+ }
+
+ // OK: npos is big and positive
+ size_t sep = wxMin( plus, minus );
+ wxString mod = tmp.substr( index, sep - index );
+
+ // Ctrl -> Ctrl
+ // Shift -> Shift
+ // Alt -> Meta
+ if( mod == "Alt" )
+ mod = "Meta";
+
+ if( buf[0] )
+ strcat( buf, " " );
+
+ strcat( buf, mod.c_str() );
+
+ index = sep + 1;
+ }
+
+ return NULL;
+#endif
+}
+
+XmString wxFindAcceleratorText (const char *s)
+{
+#if 1
+ // VZ: this function returns incorrect keysym which completely breaks kbd
+ // handling
+ return NULL;
+#else
+ // The accelerator text is after the \t char.
+ s = strchr( s, '\t' );
+
+ if( !s ) return NULL;
+
+ return wxStringToXmString( s + 1 ); // skip TAB!
+#endif
+}
+
+// Change a widget's foreground and background colours.
void wxDoChangeForegroundColour(WXWidget widget, wxColour& foregroundColour)
{
// When should we specify the foreground, if it's calculated
NULL);
}
+extern void wxDoChangeFont(WXWidget widget, wxFont& font)
+{
+ // Lesstif 0.87 hangs here, but 0.93 does not
+#if !wxCHECK_LESSTIF() || wxCHECK_LESSTIF_VERSION( 0, 93 )
+ Widget w = (Widget)widget;
+ XtVaSetValues( w,
+ wxFont::GetFontTag(), font.GetFontType( XtDisplay(w) ),
+ NULL );
+#endif
+
+}
+
+wxString wxXmStringToString( const XmString& xmString )
+{
+ char *txt;
+ if( XmStringGetLtoR( xmString, XmSTRING_DEFAULT_CHARSET, &txt ) )
+ {
+ wxString str(txt);
+ XtFree (txt);
+ return str;
+ }
+
+ return wxEmptyString;
+}
+
+XmString wxStringToXmString( const wxString& str )
+{
+ return XmStringCreateLtoR((char *)str.c_str(), XmSTRING_DEFAULT_CHARSET);
+}
+
+XmString wxStringToXmString( const char* str )
+{
+ return XmStringCreateLtoR((char *)str, XmSTRING_DEFAULT_CHARSET);
+}
+
+// ----------------------------------------------------------------------------
+// wxBitmap utility functions
+// ----------------------------------------------------------------------------
+
+// Creates a bitmap with transparent areas drawn in
+// the given colour.
+wxBitmap wxCreateMaskedBitmap(const wxBitmap& bitmap, wxColour& colour)
+{
+ wxBitmap newBitmap(bitmap.GetWidth(),
+ bitmap.GetHeight(),
+ bitmap.GetDepth());
+ wxMemoryDC destDC;
+ wxMemoryDC srcDC;
+
+ srcDC.SelectObject(bitmap);
+ destDC.SelectObject(newBitmap);
+
+ wxBrush brush(colour, wxSOLID);
+ // destDC.SetOptimization(FALSE);
+ destDC.SetBackground(brush);
+ destDC.Clear();
+ destDC.Blit(0, 0, bitmap.GetWidth(), bitmap.GetHeight(),
+ &srcDC, 0, 0, wxCOPY, TRUE);
+
+ return newBitmap;
+}
+
+// ----------------------------------------------------------------------------
+// Miscellaneous functions
+// ----------------------------------------------------------------------------
+
+WXWidget wxCreateBorderWidget( WXWidget parent, long style )
+{
+ Widget borderWidget = (Widget)NULL, parentWidget = (Widget)parent;
+
+ if (style & wxSIMPLE_BORDER)
+ {
+ borderWidget = XtVaCreateManagedWidget
+ (
+ "simpleBorder",
+ xmFrameWidgetClass, parentWidget,
+ XmNshadowType, XmSHADOW_ETCHED_IN,
+ XmNshadowThickness, 1,
+ NULL
+ );
+ }
+ else if (style & wxSUNKEN_BORDER)
+ {
+ borderWidget = XtVaCreateManagedWidget
+ (
+ "sunkenBorder",
+ xmFrameWidgetClass, parentWidget,
+ XmNshadowType, XmSHADOW_IN,
+ NULL
+ );
+ }
+ else if (style & wxRAISED_BORDER)
+ {
+ borderWidget = XtVaCreateManagedWidget
+ (
+ "raisedBorder",
+ xmFrameWidgetClass, parentWidget,
+ XmNshadowType, XmSHADOW_OUT,
+ NULL
+ );
+ }
+
+ return borderWidget;
+}
projects / wxWidgets.git / blobdiff