src/motif/utils.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/motif/utils.cpp
   3 // Purpose:     Various utilities
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     17/09/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // ============================================================================
  13 // declarations
  14 // ============================================================================
  15
  16 // ----------------------------------------------------------------------------
  17 // headers
  18 // ----------------------------------------------------------------------------
  19
  20 // For compilers that support precompilation, includes "wx.h".
  21 #include "wx/wxprec.h"
  22
  23 #ifdef __VMS
  24 #define XtDisplay XTDISPLAY
  25 #endif
  26
  27 #include "wx/utils.h"
  28
  29 #ifndef WX_PRECOMP
  30     #include "wx/app.h"
  31     #include "wx/dcmemory.h"
  32 #endif
  33
  34 #include "wx/apptrait.h"
  35 #include "wx/bitmap.h"
  36 #include "wx/evtloop.h"
  37
  38 #include <string.h>
  39
  40 #if (defined(__SUNCC__) || defined(__CLCC__))
  41     #include <sysent.h>
  42 #endif
  43
  44 #ifdef __VMS__
  45 #pragma message disable nosimpint
  46 #endif
  47
  48 #include "wx/unix/execute.h"
  49
  50 #include <Xm/Xm.h>
  51 #include <Xm/Frame.h>
  52
  53 #include "wx/motif/private.h"
  54
  55 #if wxUSE_RESOURCES
  56 #include "X11/Xresource.h"
  57 #endif
  58
  59 #include "X11/Xutil.h"
  60
  61 #ifdef __VMS__
  62 #pragma message enable nosimpint
  63 #endif
  64
  65 // ----------------------------------------------------------------------------
  66 // private functions
  67 // ----------------------------------------------------------------------------
  68
  69 // Yuck this is really BOTH site and platform dependent
  70 // so we should use some other strategy!
  71 #ifdef sun
  72     #define DEFAULT_XRESOURCE_DIR "/usr/openwin/lib/app-defaults"
  73 #else
  74     #define DEFAULT_XRESOURCE_DIR "/usr/lib/X11/app-defaults"
  75 #endif
  76
  77 #if wxUSE_RESOURCES
  78 static char *GetIniFile (char *dest, const char *filename);
  79 #endif
  80
  81 // ============================================================================
  82 // implementation
  83 // ============================================================================
  84
  85 // ----------------------------------------------------------------------------
  86 // async event processing
  87 // ----------------------------------------------------------------------------
  88
  89 // Consume all events until no more left
  90 void wxFlushEvents(WXDisplay* wxdisplay)
  91 {
  92     Display *display = (Display*)wxdisplay;
  93     wxEventLoop evtLoop;
  94
  95     XSync (display, False);
  96
  97     while (evtLoop.Pending())
  98     {
  99         XFlush (display);
 100         evtLoop.Dispatch();
 101     }
 102 }
 103
 104 // ----------------------------------------------------------------------------
 105 // wxExecute stuff
 106 // ----------------------------------------------------------------------------
 107
 108 static void xt_notify_end_process(XtPointer data, int *WXUNUSED(fid),
 109                                   XtInputId *id)
 110 {
 111     wxEndProcessData *proc_data = (wxEndProcessData *)data;
 112
 113     wxHandleProcessTermination(proc_data);
 114
 115     // VZ: I think they should be the same...
 116     wxASSERT( (int)*id == proc_data->tag );
 117
 118     XtRemoveInput(*id);
 119 }
 120
 121 int wxAddProcessCallback(wxEndProcessData *proc_data, int fd)
 122 {
 123     XtInputId id = XtAppAddInput((XtAppContext) wxTheApp->GetAppContext(),
 124                                  fd,
 125                                  (XtPointer *) XtInputReadMask,
 126                                  (XtInputCallbackProc) xt_notify_end_process,
 127                                  (XtPointer) proc_data);
 128
 129     return (int)id;
 130 }
 131
 132 // ----------------------------------------------------------------------------
 133 // misc
 134 // ----------------------------------------------------------------------------
 135
 136 // Emit a beeeeeep
 137 #ifndef __EMX__
 138 // on OS/2, we use the wxBell from wxBase library (src/os2/utils.cpp)
 139 void wxBell()
 140 {
 141     // Use current setting for the bell
 142     XBell (wxGlobalDisplay(), 0);
 143 }
 144 #endif
 145
 146 wxToolkitInfo& wxGUIAppTraits::GetToolkitInfo()
 147 {
 148     static wxToolkitInfo info;
 149
 150     info.shortName = _T("motif");
 151     info.name = _T("wxMotif");
 152 #ifdef __WXUNIVERSAL__
 153     info.shortName << _T("univ");
 154     info.name << _T("/wxUniversal");
 155 #endif
 156     // FIXME TODO
 157     // This code is WRONG!! Does NOT return the
 158     // Motif version of the libs but the X protocol
 159     // version!
 160     Display *display = wxGlobalDisplay();
 161     if (display)
 162     {
 163         info.versionMajor = ProtocolVersion (display);
 164         info.versionMinor = ProtocolRevision (display);
 165     }
 166     info.os = wxMOTIF_X;
 167     return info;
 168 }
 169
 170 // ----------------------------------------------------------------------------
 171 // Reading and writing resources (eg WIN.INI, .Xdefaults)
 172 // ----------------------------------------------------------------------------
 173
 174 #if wxUSE_RESOURCES
 175
 176 // Read $HOME for what it says is home, if not
 177 // read $USER or $LOGNAME for user name else determine
 178 // the Real User, then determine the Real home dir.
 179 static char * GetIniFile (char *dest, const char *filename)
 180 {
 181     char *home = NULL;
 182     if (filename && wxIsAbsolutePath(filename))
 183     {
 184         strcpy(dest, filename);
 185     }
 186     else if ((home = wxGetUserHome()) != NULL)
 187     {
 188         strcpy(dest, home);
 189         if (dest[strlen(dest) - 1] != '/')
 190             strcat (dest, "/");
 191         if (filename == NULL)
 192         {
 193             if ((filename = getenv ("XENVIRONMENT")) == NULL)
 194                 filename = ".Xdefaults";
 195         }
 196         else if (*filename != '.')
 197             strcat (dest, ".");
 198         strcat (dest, filename);
 199     } else
 200     {
 201         dest[0] = '\0';
 202     }
 203     return dest;
 204 }
 205
 206 static char *GetResourcePath(char *buf, const char *name, bool create = false)
 207 {
 208     if (create && wxFileExists (name) ) {
 209         strcpy(buf, name);
 210         return buf; // Exists so ...
 211     }
 212
 213     if (*name == '/')
 214         strcpy(buf, name);
 215     else {
 216         // Put in standard place for resource files if not absolute
 217         strcpy (buf, DEFAULT_XRESOURCE_DIR);
 218         strcat (buf, "/");
 219         strcat (buf, wxFileNameFromPath (name).c_str());
 220     }
 221
 222     if (create) {
 223         // Touch the file to create it
 224         FILE *fd = fopen (buf, "w");
 225         if (fd) fclose (fd);
 226     }
 227     return buf;
 228 }
 229
 230 /*
 231 * We have a cache for writing different resource files,
 232 * which will only get flushed when we call wxFlushResources().
 233 * Build up a list of resource databases waiting to be written.
 234 *
 235 */
 236
 237 wxList wxResourceCache (wxKEY_STRING);
 238
 239 void
 240 wxFlushResources (void)
 241 {
 242     char nameBuffer[512];
 243
 244     wxNode *node = wxResourceCache.First ();
 245     while (node)
 246     {
 247         const char *file = node->GetKeyString();
 248         // If file doesn't exist, create it first.
 249         (void)GetResourcePath(nameBuffer, file, true);
 250
 251         XrmDatabase database = (XrmDatabase) node->Data ();
 252         XrmPutFileDatabase (database, nameBuffer);
 253         XrmDestroyDatabase (database);
 254         wxNode *next = node->Next ();
 255         delete node;
 256         node = next;
 257     }
 258 }
 259
 260 static XrmDatabase wxResourceDatabase = 0;
 261
 262 void wxXMergeDatabases (wxApp * theApp, Display * display);
 263
 264 bool wxWriteResource(const wxString& section, const wxString& entry, const wxString& value, const wxString& file)
 265 {
 266     char buffer[500];
 267
 268     (void) GetIniFile (buffer, file);
 269
 270     XrmDatabase database;
 271     wxNode *node = wxResourceCache.Find (buffer);
 272     if (node)
 273         database = (XrmDatabase) node->Data ();
 274     else
 275     {
 276         database = XrmGetFileDatabase (buffer);
 277         wxResourceCache.Append (buffer, (wxObject *) database);
 278     }
 279
 280     char resName[300];
 281     strcpy (resName, section.c_str());
 282     strcat (resName, ".");
 283     strcat (resName, entry.c_str());
 284
 285     XrmPutStringResource (&database, resName, value);
 286     return true;
 287 }
 288
 289 bool wxWriteResource(const wxString& section, const wxString& entry, float value, const wxString& file)
 290 {
 291     char buf[50];
 292     sprintf(buf, "%.4f", value);
 293     return wxWriteResource(section, entry, buf, file);
 294 }
 295
 296 bool wxWriteResource(const wxString& section, const wxString& entry, long value, const wxString& file)
 297 {
 298     char buf[50];
 299     sprintf(buf, "%ld", value);
 300     return wxWriteResource(section, entry, buf, file);
 301 }
 302
 303 bool wxWriteResource(const wxString& section, const wxString& entry, int value, const wxString& file)
 304 {
 305     char buf[50];
 306     sprintf(buf, "%d", value);
 307     return wxWriteResource(section, entry, buf, file);
 308 }
 309
 310 bool wxGetResource(const wxString& section, const wxString& entry, char **value, const wxString& file)
 311 {
 312     if (!wxResourceDatabase)
 313     {
 314         Display *display = wxGlobalDisplay();
 315         wxXMergeDatabases (wxTheApp, display);
 316     }
 317
 318     XrmDatabase database;
 319
 320     if (!file.empty())
 321     {
 322         char buffer[500];
 323
 324         // Is this right? Trying to get it to look in the user's
 325         // home directory instead of current directory -- JACS
 326         (void) GetIniFile (buffer, file);
 327
 328         wxNode *node = wxResourceCache.Find (buffer);
 329         if (node)
 330             database = (XrmDatabase) node->Data ();
 331         else
 332         {
 333             database = XrmGetFileDatabase (buffer);
 334             wxResourceCache.Append (buffer, (wxObject *) database);
 335         }
 336     }
 337     else
 338         database = wxResourceDatabase;
 339
 340     XrmValue xvalue;
 341     char *str_type[20];
 342     char buf[150];
 343     strcpy (buf, section);
 344     strcat (buf, ".");
 345     strcat (buf, entry);
 346
 347     Bool success = XrmGetResource (database, buf, "*", str_type,
 348         &xvalue);
 349     // Try different combinations of upper/lower case, just in case...
 350     if (!success)
 351     {
 352         buf[0] = (isupper (buf[0]) ? tolower (buf[0]) : toupper (buf[0]));
 353         success = XrmGetResource (database, buf, "*", str_type,
 354             &xvalue);
 355     }
 356     if (success)
 357     {
 358         if (*value)
 359             delete[] *value;
 360
 361         *value = new char[xvalue.size + 1];
 362         strncpy (*value, xvalue.addr, (int) xvalue.size);
 363         return true;
 364     }
 365     return false;
 366 }
 367
 368 bool wxGetResource(const wxString& section, const wxString& entry, float *value, const wxString& file)
 369 {
 370     char *s = NULL;
 371     bool succ = wxGetResource(section, entry, (char **)&s, file);
 372     if (succ)
 373     {
 374         *value = (float)strtod(s, NULL);
 375         delete[] s;
 376         return true;
 377     }
 378     else return false;
 379 }
 380
 381 bool wxGetResource(const wxString& section, const wxString& entry, long *value, const wxString& file)
 382 {
 383     char *s = NULL;
 384     bool succ = wxGetResource(section, entry, (char **)&s, file);
 385     if (succ)
 386     {
 387         *value = strtol(s, NULL, 10);
 388         delete[] s;
 389         return true;
 390     }
 391     else return false;
 392 }
 393
 394 bool wxGetResource(const wxString& section, const wxString& entry, int *value, const wxString& file)
 395 {
 396     char *s = NULL;
 397     bool succ = wxGetResource(section, entry, (char **)&s, file);
 398     if (succ)
 399     {
 400         // Handle True, False here
 401         // True, Yes, Enables, Set or  Activated
 402         if (*s == 'T' || *s == 'Y' || *s == 'E' || *s == 'S' || *s == 'A')
 403             *value = true;
 404         // False, No, Disabled, Reset, Cleared, Deactivated
 405         else if (*s == 'F' || *s == 'N' || *s == 'D' || *s == 'R' || *s == 'C')
 406             *value = false;
 407         // Handle as Integer
 408         else
 409             *value = (int) strtol (s, NULL, 10);
 410         delete[] s;
 411         return true;
 412     }
 413     else
 414         return false;
 415 }
 416
 417 void wxXMergeDatabases (wxApp * theApp, Display * display)
 418 {
 419     XrmDatabase homeDB, serverDB, applicationDB;
 420     char filenamebuf[1024];
 421
 422     char *filename = &filenamebuf[0];
 423     char *environment;
 424     wxString classname = theApp->GetClassName();
 425     char name[256];
 426     (void) strcpy (name, "/usr/lib/X11/app-defaults/");
 427     (void) strcat (name, classname.c_str());
 428
 429     /* Get application defaults file, if any */
 430     applicationDB = XrmGetFileDatabase (name);
 431     (void) XrmMergeDatabases (applicationDB, &wxResourceDatabase);
 432
 433     /* Merge server defaults, created by xrdb, loaded as a property of the root
 434     * window when the server initializes and loaded into the display
 435     * structure on XOpenDisplay;
 436     * if not defined, use .Xdefaults
 437     */
 438
 439     if (XResourceManagerString (display) != NULL)
 440     {
 441         serverDB = XrmGetStringDatabase (XResourceManagerString (display));
 442     }
 443     else
 444     {
 445         (void) GetIniFile (filename, NULL);
 446         serverDB = XrmGetFileDatabase (filename);
 447     }
 448     XrmMergeDatabases (serverDB, &wxResourceDatabase);
 449
 450     /* Open XENVIRONMENT file, or if not defined, the .Xdefaults,
 451     * and merge into existing database
 452     */
 453
 454     if ((environment = getenv ("XENVIRONMENT")) == NULL)
 455     {
 456         size_t len;
 457         environment = GetIniFile (filename, NULL);
 458         len = strlen (environment);
 459         wxString hostname = wxGetHostName();
 460         if ( !hostname.empty() )
 461             strncat(environment, hostname, 1024 - len);
 462     }
 463     homeDB = XrmGetFileDatabase (environment);
 464     XrmMergeDatabases (homeDB, &wxResourceDatabase);
 465 }
 466
 467 #if 0
 468
 469 /*
 470 * Not yet used but may be useful.
 471 *
 472 */
 473 void
 474 wxSetDefaultResources (const Widget w, const char **resourceSpec, const char *name)
 475 {
 476     int i;
 477     Display *dpy = XtDisplay (w);    // Retrieve the display pointer
 478
 479     XrmDatabase rdb = NULL;    // A resource data base
 480
 481     // Create an empty resource database
 482     rdb = XrmGetStringDatabase ("");
 483
 484     // Add the Component resources, prepending the name of the component
 485
 486     i = 0;
 487     while (resourceSpec[i] != NULL)
 488     {
 489         char buf[1000];
 490
 491         sprintf (buf, "*%s%s", name, resourceSpec[i++]);
 492         XrmPutLineResource (&rdb, buf);
 493     }
 494
 495     // Merge them into the Xt database, with lowest precendence
 496
 497     if (rdb)
 498     {
 499 #if (XlibSpecificationRelease>=5)
 500         XrmDatabase db = XtDatabase (dpy);
 501         XrmCombineDatabase (rdb, &db, False);
 502 #else
 503         XrmMergeDatabases (dpy->db, &rdb);
 504         dpy->db = rdb;
 505 #endif
 506     }
 507 }
 508 #endif
 509 // 0
 510
 511 #endif // wxUSE_RESOURCES
 512
 513 // ----------------------------------------------------------------------------
 514 // display info
 515 // ----------------------------------------------------------------------------
 516
 517 void wxGetMousePosition( int* x, int* y )
 518 {
 519 #if wxUSE_NANOX
 520     // TODO
 521     *x = 0;
 522     *y = 0;
 523 #else
 524     XMotionEvent xev;
 525     Window root, child;
 526     XQueryPointer(wxGlobalDisplay(),
 527                   DefaultRootWindow(wxGlobalDisplay()),
 528                   &root, &child,
 529                   &(xev.x_root), &(xev.y_root),
 530                   &(xev.x),      &(xev.y),
 531                   &(xev.state));
 532     *x = xev.x_root;
 533     *y = xev.y_root;
 534 #endif
 535 }
 536
 537 // Return true if we have a colour display
 538 bool wxColourDisplay()
 539 {
 540     return wxDisplayDepth() > 1;
 541 }
 542
 543 // Returns depth of screen
 544 int wxDisplayDepth()
 545 {
 546     Display *dpy = wxGlobalDisplay();
 547
 548     return DefaultDepth (dpy, DefaultScreen (dpy));
 549 }
 550
 551 // Get size of display
 552 void wxDisplaySize(int *width, int *height)
 553 {
 554     Display *dpy = wxGlobalDisplay();
 555
 556     if ( width )
 557         *width = DisplayWidth (dpy, DefaultScreen (dpy));
 558     if ( height )
 559         *height = DisplayHeight (dpy, DefaultScreen (dpy));
 560 }
 561
 562 void wxDisplaySizeMM(int *width, int *height)
 563 {
 564     Display *dpy = wxGlobalDisplay();
 565
 566     if ( width )
 567         *width = DisplayWidthMM(dpy, DefaultScreen (dpy));
 568     if ( height )
 569         *height = DisplayHeightMM(dpy, DefaultScreen (dpy));
 570 }
 571
 572 void wxClientDisplayRect(int *x, int *y, int *width, int *height)
 573 {
 574     // This is supposed to return desktop dimensions minus any window
 575     // manager panels, menus, taskbars, etc.  If there is a way to do that
 576     // for this platform please fix this function, otherwise it defaults
 577     // to the entire desktop.
 578     if (x) *x = 0;
 579     if (y) *y = 0;
 580     wxDisplaySize(width, height);
 581 }
 582
 583
 584 // Configurable display in wxX11 and wxMotif
 585 static WXDisplay *gs_currentDisplay = NULL;
 586 static wxString gs_displayName;
 587
 588 WXDisplay *wxGetDisplay()
 589 {
 590     if (gs_currentDisplay)
 591         return gs_currentDisplay;
 592     else if (wxTheApp)
 593         return wxTheApp->GetInitialDisplay();
 594     return NULL;
 595 }
 596
 597 bool wxSetDisplay(const wxString& display_name)
 598 {
 599     gs_displayName = display_name;
 600
 601     if ( display_name.empty() )
 602     {
 603         gs_currentDisplay = NULL;
 604
 605         return true;
 606     }
 607     else
 608     {
 609         Cardinal argc = 0;
 610
 611         Display *display = XtOpenDisplay((XtAppContext) wxTheApp->GetAppContext(),
 612             display_name.c_str(),
 613             wxTheApp->GetAppName().c_str(),
 614             wxTheApp->GetClassName().c_str(),
 615             NULL,
 616 #if XtSpecificationRelease < 5
 617             0, &argc,
 618 #else
 619             0, (int *)&argc,
 620 #endif
 621             NULL);
 622
 623         if (display)
 624         {
 625             gs_currentDisplay = (WXDisplay*) display;
 626             return true;
 627         }
 628         else
 629             return false;
 630     }
 631 }
 632
 633 wxString wxGetDisplayName()
 634 {
 635     return gs_displayName;
 636 }
 637
 638 wxWindow* wxFindWindowAtPoint(const wxPoint& pt)
 639 {
 640     return wxGenericFindWindowAtPoint(pt);
 641 }
 642
 643 // ----------------------------------------------------------------------------
 644 // Some colour manipulation routines
 645 // ----------------------------------------------------------------------------
 646
 647 void wxHSVToXColor(wxHSV *hsv,XColor *rgb)
 648 {
 649     int h = hsv->h;
 650     int s = hsv->s;
 651     int v = hsv->v;
 652     int r = 0, g = 0, b = 0;
 653     int i, f;
 654     int p, q, t;
 655     s = (s * wxMAX_RGB) / wxMAX_SV;
 656     v = (v * wxMAX_RGB) / wxMAX_SV;
 657     if (h == 360) h = 0;
 658     if (s == 0) { h = 0; r = g = b = v; }
 659     i = h / 60;
 660     f = h % 60;
 661     p = v * (wxMAX_RGB - s) / wxMAX_RGB;
 662     q = v * (wxMAX_RGB - s * f / 60) / wxMAX_RGB;
 663     t = v * (wxMAX_RGB - s * (60 - f) / 60) / wxMAX_RGB;
 664     switch (i)
 665     {
 666     case 0: r = v, g = t, b = p; break;
 667     case 1: r = q, g = v, b = p; break;
 668     case 2: r = p, g = v, b = t; break;
 669     case 3: r = p, g = q, b = v; break;
 670     case 4: r = t, g = p, b = v; break;
 671     case 5: r = v, g = p, b = q; break;
 672     }
 673     rgb->red = (unsigned short)(r << 8);
 674     rgb->green = (unsigned short)(g << 8);
 675     rgb->blue = (unsigned short)(b << 8);
 676 }
 677
 678 void wxXColorToHSV(wxHSV *hsv,XColor *rgb)
 679 {
 680     int r = rgb->red >> 8;
 681     int g = rgb->green >> 8;
 682     int b = rgb->blue >> 8;
 683     int maxv = wxMax3(r, g, b);
 684     int minv = wxMin3(r, g, b);
 685     int h = 0, s, v;
 686     v = maxv;
 687     if (maxv) s = (maxv - minv) * wxMAX_RGB / maxv;
 688     else s = 0;
 689     if (s == 0) h = 0;
 690     else
 691     {
 692         int rc, gc, bc, hex = 0;
 693         rc = (maxv - r) * wxMAX_RGB / (maxv - minv);
 694         gc = (maxv - g) * wxMAX_RGB / (maxv - minv);
 695         bc = (maxv - b) * wxMAX_RGB / (maxv - minv);
 696         if (r == maxv) { h = bc - gc, hex = 0; }
 697         else if (g == maxv) { h = rc - bc, hex = 2; }
 698         else if (b == maxv) { h = gc - rc, hex = 4; }
 699         h = hex * 60 + (h * 60 / wxMAX_RGB);
 700         if (h < 0) h += 360;
 701     }
 702     hsv->h = h;
 703     hsv->s = (s * wxMAX_SV) / wxMAX_RGB;
 704     hsv->v = (v * wxMAX_SV) / wxMAX_RGB;
 705 }
 706
 707 void wxAllocNearestColor(Display *d,Colormap cmp,XColor *xc)
 708 {
 709 #if !wxUSE_NANOX
 710     int llp;
 711
 712     int screen = DefaultScreen(d);
 713     int num_colors = DisplayCells(d,screen);
 714
 715     XColor *color_defs = new XColor[num_colors];
 716     for(llp = 0;llp < num_colors;llp++) color_defs[llp].pixel = llp;
 717     XQueryColors(d,cmp,color_defs,num_colors);
 718
 719     wxHSV hsv_defs, hsv;
 720     wxXColorToHSV(&hsv,xc);
 721
 722     int diff, min_diff = 0, pixel = 0;
 723
 724     for(llp = 0;llp < num_colors;llp++)
 725     {
 726         wxXColorToHSV(&hsv_defs,&color_defs[llp]);
 727         diff = wxSIGN(wxH_WEIGHT * (hsv.h - hsv_defs.h)) +
 728             wxSIGN(wxS_WEIGHT * (hsv.s - hsv_defs.s)) +
 729             wxSIGN(wxV_WEIGHT * (hsv.v - hsv_defs.v));
 730         if (llp == 0) min_diff = diff;
 731         if (min_diff > diff) { min_diff = diff; pixel = llp; }
 732         if (min_diff == 0) break;
 733     }
 734
 735     xc -> red = color_defs[pixel].red;
 736     xc -> green = color_defs[pixel].green;
 737     xc -> blue = color_defs[pixel].blue;
 738     xc -> flags = DoRed | DoGreen | DoBlue;
 739
 740 /*  FIXME, TODO
 741     if (!XAllocColor(d,cmp,xc))
 742         cout << "wxAllocNearestColor : Warning : Cannot find nearest color !\n";
 743 */
 744
 745     delete[] color_defs;
 746 #endif
 747 }
 748
 749 void wxAllocColor(Display *d,Colormap cmp,XColor *xc)
 750 {
 751     if (!XAllocColor(d,cmp,xc))
 752     {
 753         //          cout << "wxAllocColor : Warning : Can not allocate color, attempt find nearest !\n";
 754         wxAllocNearestColor(d,cmp,xc);
 755     }
 756 }
 757
 758 #ifdef __WXDEBUG__
 759 wxString wxGetXEventName(XEvent& event)
 760 {
 761 #if wxUSE_NANOX
 762     wxString str(wxT("(some event)"));
 763     return str;
 764 #else
 765     int type = event.xany.type;
 766     static char* event_name[] = {
 767         wxMOTIF_STR(""), wxMOTIF_STR("unknown(-)"),                                         // 0-1
 768         wxMOTIF_STR("KeyPress"), wxMOTIF_STR("KeyRelease"), wxMOTIF_STR("ButtonPress"), wxMOTIF_STR("ButtonRelease"), // 2-5
 769         wxMOTIF_STR("MotionNotify"), wxMOTIF_STR("EnterNotify"), wxMOTIF_STR("LeaveNotify"), wxMOTIF_STR("FocusIn"),  // 6-9
 770         wxMOTIF_STR("FocusOut"), wxMOTIF_STR("KeymapNotify"), wxMOTIF_STR("Expose"), wxMOTIF_STR("GraphicsExpose"),   // 10-13
 771         wxMOTIF_STR("NoExpose"), wxMOTIF_STR("VisibilityNotify"), wxMOTIF_STR("CreateNotify"),           // 14-16
 772         wxMOTIF_STR("DestroyNotify"), wxMOTIF_STR("UnmapNotify"), wxMOTIF_STR("MapNotify"), wxMOTIF_STR("MapRequest"),// 17-20
 773         wxMOTIF_STR("ReparentNotify"), wxMOTIF_STR("ConfigureNotify"), wxMOTIF_STR("ConfigureRequest"),  // 21-23
 774         wxMOTIF_STR("GravityNotify"), wxMOTIF_STR("ResizeRequest"), wxMOTIF_STR("CirculateNotify"),      // 24-26
 775         wxMOTIF_STR("CirculateRequest"), wxMOTIF_STR("PropertyNotify"), wxMOTIF_STR("SelectionClear"),   // 27-29
 776         wxMOTIF_STR("SelectionRequest"), wxMOTIF_STR("SelectionNotify"), wxMOTIF_STR("ColormapNotify"),  // 30-32
 777         wxMOTIF_STR("ClientMessage"), wxMOTIF_STR("MappingNotify"),                         // 33-34
 778         wxMOTIF_STR("unknown(+)")};                                            // 35
 779     type = wxMin(35, type); type = wxMax(1, type);
 780     wxString str(event_name[type]);
 781     return str;
 782 #endif
 783 }
 784 #endif
 785
 786 // ----------------------------------------------------------------------------
 787 // accelerators
 788 // ----------------------------------------------------------------------------
 789
 790 // Find the letter corresponding to the mnemonic, for Motif
 791 char wxFindMnemonic (const char *s)
 792 {
 793     char mnem = 0;
 794     int len = strlen (s);
 795     int i;
 796
 797     for (i = 0; i < len; i++)
 798     {
 799         if (s[i] == '&')
 800         {
 801             // Carefully handle &&
 802             if ((i + 1) <= len && s[i + 1] == '&')
 803                 i++;
 804             else
 805             {
 806                 mnem = s[i + 1];
 807                 break;
 808             }
 809         }
 810     }
 811     return mnem;
 812 }
 813
 814 char* wxFindAccelerator( const char *s )
 815 {
 816 #if 1
 817     wxUnusedVar(s);
 818     // VZ: this function returns incorrect keysym which completely breaks kbd
 819     //     handling
 820     return NULL;
 821 #else
 822     // The accelerator text is after the \t char.
 823     s = strchr( s, '\t' );
 824
 825     if( !s ) return NULL;
 826
 827     /*
 828     Now we need to format it as X standard:
 829
 830       input            output
 831
 832         F7           --> <Key>F7
 833         Ctrl+N       --> Ctrl<Key>N
 834         Alt+k        --> Meta<Key>k
 835         Ctrl+Shift+A --> Ctrl Shift<Key>A
 836
 837         and handle Ctrl-N & similia
 838     */
 839
 840     static char buf[256];
 841
 842     buf[0] = '\0';
 843     wxString tmp = s + 1; // skip TAB
 844     size_t index = 0;
 845
 846     while( index < tmp.length() )
 847     {
 848         size_t plus  = tmp.find( '+', index );
 849         size_t minus = tmp.find( '-', index );
 850
 851         // neither '+' nor '-', add <Key>
 852         if( plus == wxString::npos && minus == wxString::npos )
 853         {
 854             strcat( buf, "<Key>" );
 855             strcat( buf, tmp.c_str() + index );
 856
 857             return buf;
 858         }
 859
 860         // OK: npos is big and positive
 861         size_t sep = wxMin( plus, minus );
 862         wxString mod = tmp.substr( index, sep - index );
 863
 864         // Ctrl  -> Ctrl
 865         // Shift -> Shift
 866         // Alt   -> Meta
 867         if( mod == "Alt" )
 868             mod = "Meta";
 869
 870         if( buf[0] )
 871             strcat( buf, " " );
 872
 873         strcat( buf, mod.c_str() );
 874
 875         index = sep + 1;
 876     }
 877
 878     return NULL;
 879 #endif
 880 }
 881
 882 XmString wxFindAcceleratorText (const char *s)
 883 {
 884 #if 1
 885     wxUnusedVar(s);
 886     // VZ: this function returns incorrect keysym which completely breaks kbd
 887     //     handling
 888     return NULL;
 889 #else
 890     // The accelerator text is after the \t char.
 891     s = strchr( s, '\t' );
 892
 893     if( !s ) return NULL;
 894
 895     return wxStringToXmString( s + 1 ); // skip TAB!
 896 #endif
 897 }
 898
 899 // Change a widget's foreground and background colours.
 900 void wxDoChangeForegroundColour(WXWidget widget, wxColour& foregroundColour)
 901 {
 902     // When should we specify the foreground, if it's calculated
 903     // by wxComputeColours?
 904     // Solution: say we start with the default (computed) foreground colour.
 905     // If we call SetForegroundColour explicitly for a control or window,
 906     // then the foreground is changed.
 907     // Therefore SetBackgroundColour computes the foreground colour, and
 908     // SetForegroundColour changes the foreground colour. The ordering is
 909     // important.
 910
 911     XtVaSetValues ((Widget) widget,
 912         XmNforeground, foregroundColour.AllocColour(XtDisplay((Widget) widget)),
 913         NULL);
 914 }
 915
 916 void wxDoChangeBackgroundColour(WXWidget widget, const wxColour& backgroundColour, bool changeArmColour)
 917 {
 918     wxComputeColours (XtDisplay((Widget) widget), & backgroundColour,
 919         (wxColour*) NULL);
 920
 921     XtVaSetValues ((Widget) widget,
 922         XmNbackground, g_itemColors[wxBACK_INDEX].pixel,
 923         XmNtopShadowColor, g_itemColors[wxTOPS_INDEX].pixel,
 924         XmNbottomShadowColor, g_itemColors[wxBOTS_INDEX].pixel,
 925         XmNforeground, g_itemColors[wxFORE_INDEX].pixel,
 926         NULL);
 927
 928     if (changeArmColour)
 929         XtVaSetValues ((Widget) widget,
 930         XmNarmColor, g_itemColors[wxSELE_INDEX].pixel,
 931         NULL);
 932 }
 933
 934 extern void wxDoChangeFont(WXWidget widget, const wxFont& font)
 935 {
 936     // Lesstif 0.87 hangs here, but 0.93 does not; MBN: sometimes it does
 937 #if !wxCHECK_LESSTIF() // || wxCHECK_LESSTIF_VERSION( 0, 93 )
 938     Widget w = (Widget)widget;
 939     XtVaSetValues( w,
 940                    wxFont::GetFontTag(), font.GetFontTypeC( XtDisplay(w) ),
 941                    NULL );
 942 #else
 943     wxUnusedVar(widget);
 944     wxUnusedVar(font);
 945 #endif
 946
 947 }
 948
 949 wxString wxXmStringToString( const XmString& xmString )
 950 {
 951     char *txt;
 952     if( XmStringGetLtoR( xmString, XmSTRING_DEFAULT_CHARSET, &txt ) )
 953     {
 954         wxString str(txt);
 955         XtFree (txt);
 956         return str;
 957     }
 958
 959     return wxEmptyString;
 960 }
 961
 962 XmString wxStringToXmString( const wxString& str )
 963 {
 964     return XmStringCreateLtoR((char *)str.c_str(), XmSTRING_DEFAULT_CHARSET);
 965 }
 966
 967 XmString wxStringToXmString( const char* str )
 968 {
 969     return XmStringCreateLtoR((char *)str, XmSTRING_DEFAULT_CHARSET);
 970 }
 971
 972 // ----------------------------------------------------------------------------
 973 // wxBitmap utility functions
 974 // ----------------------------------------------------------------------------
 975
 976 // Creates a bitmap with transparent areas drawn in
 977 // the given colour.
 978 wxBitmap wxCreateMaskedBitmap(const wxBitmap& bitmap, const wxColour& colour)
 979 {
 980     wxBitmap newBitmap(bitmap.GetWidth(),
 981                        bitmap.GetHeight(),
 982                        bitmap.GetDepth());
 983     wxMemoryDC destDC;
 984     wxMemoryDC srcDC;
 985
 986     srcDC.SelectObject(bitmap);
 987     destDC.SelectObject(newBitmap);
 988
 989     wxBrush brush(colour, wxSOLID);
 990     destDC.SetBackground(brush);
 991     destDC.Clear();
 992     destDC.Blit(0, 0, bitmap.GetWidth(), bitmap.GetHeight(),
 993                 &srcDC, 0, 0, wxCOPY, true);
 994
 995     return newBitmap;
 996 }
 997
 998 // ----------------------------------------------------------------------------
 999 // Miscellaneous functions
1000 // ----------------------------------------------------------------------------
1001
1002 WXWidget wxCreateBorderWidget( WXWidget parent, long style )
1003 {
1004     Widget borderWidget = (Widget)NULL, parentWidget = (Widget)parent;
1005
1006     if (style & wxSIMPLE_BORDER)
1007     {
1008         borderWidget = XtVaCreateManagedWidget
1009                                    (
1010                                     "simpleBorder",
1011                                     xmFrameWidgetClass, parentWidget,
1012                                     XmNshadowType, XmSHADOW_ETCHED_IN,
1013                                     XmNshadowThickness, 1,
1014                                     NULL
1015                                    );
1016     }
1017     else if (style & wxSUNKEN_BORDER)
1018     {
1019         borderWidget = XtVaCreateManagedWidget
1020                                    (
1021                                     "sunkenBorder",
1022                                     xmFrameWidgetClass, parentWidget,
1023                                     XmNshadowType, XmSHADOW_IN,
1024                                     NULL
1025                                    );
1026     }
1027     else if (style & wxRAISED_BORDER)
1028     {
1029         borderWidget = XtVaCreateManagedWidget
1030                                    (
1031                                     "raisedBorder",
1032                                     xmFrameWidgetClass, parentWidget,
1033                                     XmNshadowType, XmSHADOW_OUT,
1034                                     NULL
1035                                    );
1036     }
1037
1038     return borderWidget;
1039 }