src/motif/utils.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        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 #include "wx/setup.h"
  21 #include "wx/utils.h"
  22 #include "wx/app.h"
  23 #include "wx/msgdlg.h"
  24 #include "wx/cursor.h"
  25 #include "wx/window.h" // for wxTopLevelWindows
  26
  27 #include <ctype.h>
  28 #include <stdarg.h>
  29 #include <dirent.h>
  30 #include <string.h>
  31 #include <sys/stat.h>
  32 #include <sys/types.h>
  33 #include <unistd.h>
  34 #include <sys/wait.h>
  35 #include <pwd.h>
  36 #include <errno.h>
  37 #include <netdb.h>
  38 #include <signal.h>
  39
  40 #if (defined(__SUNCC__) || defined(__CLCC__))
  41     #include <sysent.h>
  42 #endif
  43
  44 #include <Xm/Xm.h>
  45
  46 #include "wx/unix/execute.h"
  47
  48 #include "wx/motif/private.h"
  49
  50 // ----------------------------------------------------------------------------
  51 // private functions
  52 // ----------------------------------------------------------------------------
  53
  54 // Yuck this is really BOTH site and platform dependent
  55 // so we should use some other strategy!
  56 #ifdef sun
  57     #define DEFAULT_XRESOURCE_DIR "/usr/openwin/lib/app-defaults"
  58 #else
  59     #define DEFAULT_XRESOURCE_DIR "/usr/lib/X11/app-defaults"
  60 #endif
  61
  62 static char *GetIniFile (char *dest, const char *filename);
  63
  64 // ============================================================================
  65 // implementation
  66 // ============================================================================
  67
  68 // ----------------------------------------------------------------------------
  69 // async event processing
  70 // ----------------------------------------------------------------------------
  71
  72 // Consume all events until no more left
  73 void wxFlushEvents()
  74 {
  75     Display *display = (Display*) wxGetDisplay();
  76
  77     XSync (display, FALSE);
  78     XEvent event;
  79     // XtAppPending returns availability of events AND timers/inputs, which
  80     // are processed via callbacks, so XtAppNextEvent will not return if
  81     // there are no events. So added '& XtIMXEvent' - Sergey.
  82     while (XtAppPending ((XtAppContext) wxTheApp->GetAppContext()) & XtIMXEvent)
  83     {
  84         XFlush (XtDisplay ((Widget) wxTheApp->GetTopLevelWidget()));
  85         // Jan Lessner: works better when events are non-X events
  86         XtAppProcessEvent((XtAppContext) wxTheApp->GetAppContext(), XtIMXEvent);
  87     }
  88 }
  89
  90 // Check whether this window wants to process messages, e.g. Stop button
  91 // in long calculations.
  92 bool wxCheckForInterrupt(wxWindow *wnd)
  93 {
  94     wxCHECK_MSG( wnd, FALSE, "NULL window in wxCheckForInterrupt" );
  95
  96     Display *dpy=(Display*) wnd->GetXDisplay();
  97     Window win=(Window) wnd->GetXWindow();
  98     XEvent event;
  99     XFlush(dpy);
 100     if (wnd->GetMainWidget())
 101     {
 102         XmUpdateDisplay((Widget)(wnd->GetMainWidget()));
 103     }
 104
 105     bool hadEvents = FALSE;
 106     while( XCheckMaskEvent(dpy,
 107                            ButtonPressMask|ButtonReleaseMask|ButtonMotionMask|
 108                            PointerMotionMask|KeyPressMask|KeyReleaseMask,
 109                            &event) )
 110     {
 111         if ( event.xany.window == win )
 112         {
 113             hadEvents = TRUE;
 114
 115             XtDispatchEvent(&event);
 116         }
 117     }
 118
 119     return hadEvents;
 120 }
 121
 122 // ----------------------------------------------------------------------------
 123 // wxExecute stuff
 124 // ----------------------------------------------------------------------------
 125
 126 static void xt_notify_end_process(XtPointer data, int *fid,
 127                                   XtInputId *id)
 128 {
 129     wxEndProcessData *proc_data = (wxEndProcessData *)data;
 130
 131     wxHandleProcessTermination(proc_data);
 132
 133     // VZ: I think they should be the same...
 134     wxASSERT( (int)*id == proc_data->tag );
 135
 136     XtRemoveInput(*id);
 137 }
 138
 139 int wxAddProcessCallback(wxEndProcessData *proc_data, int fd)
 140 {
 141     XtInputId id = XtAppAddInput((XtAppContext) wxTheApp->GetAppContext(),
 142                                  fd,
 143                                  (XtPointer *) XtInputReadMask,
 144                                  (XtInputCallbackProc) xt_notify_end_process,
 145                                  (XtPointer) proc_data);
 146
 147     return (int)id;
 148 }
 149
 150 // ----------------------------------------------------------------------------
 151 // misc
 152 // ----------------------------------------------------------------------------
 153
 154 // Emit a beeeeeep
 155 void wxBell()
 156 {
 157     // Use current setting for the bell
 158     XBell ((Display*) wxGetDisplay(), 0);
 159 }
 160
 161 int wxGetOsVersion(int *majorVsn, int *minorVsn)
 162 {
 163     // FIXME TODO
 164     // This code is WRONG!! Does NOT return the
 165     // Motif version of the libs but the X protocol
 166     // version!
 167     Display *display = XtDisplay ((Widget) wxTheApp->GetTopLevelWidget());
 168     if (majorVsn)
 169         *majorVsn = ProtocolVersion (display);
 170     if (minorVsn)
 171         *minorVsn = ProtocolRevision (display);
 172
 173     return wxMOTIF_X;
 174 }
 175
 176 // ----------------------------------------------------------------------------
 177 // Reading and writing resources (eg WIN.INI, .Xdefaults)
 178 // ----------------------------------------------------------------------------
 179
 180 // Read $HOME for what it says is home, if not
 181 // read $USER or $LOGNAME for user name else determine
 182 // the Real User, then determine the Real home dir.
 183 static char * GetIniFile (char *dest, const char *filename)
 184 {
 185     char *home = NULL;
 186     if (filename && wxIsAbsolutePath(filename))
 187     {
 188         strcpy(dest, filename);
 189     }
 190     else if ((home = wxGetUserHome("")) != NULL)
 191     {
 192         strcpy(dest, home);
 193         if (dest[strlen(dest) - 1] != '/')
 194             strcat (dest, "/");
 195         if (filename == NULL)
 196         {
 197             if ((filename = getenv ("XENVIRONMENT")) == NULL)
 198                 filename = ".Xdefaults";
 199         }
 200         else if (*filename != '.')
 201             strcat (dest, ".");
 202         strcat (dest, filename);
 203     } else
 204     {
 205         dest[0] = '\0';
 206     }
 207     return dest;
 208 }
 209
 210 #if wxUSE_RESOURCES
 211
 212 static char *GetResourcePath(char *buf, const char *name, bool create = FALSE)
 213 {
 214     if (create && wxFileExists (name) ) {
 215         strcpy(buf, name);
 216         return buf; // Exists so ...
 217     }
 218
 219     if (*name == '/')
 220         strcpy(buf, name);
 221     else {
 222         // Put in standard place for resource files if not absolute
 223         strcpy (buf, DEFAULT_XRESOURCE_DIR);
 224         strcat (buf, "/");
 225         strcat (buf, (const char*) wxFileNameFromPath (name));
 226     }
 227
 228     if (create) {
 229         // Touch the file to create it
 230         FILE *fd = fopen (buf, "w");
 231         if (fd) fclose (fd);
 232     }
 233     return buf;
 234 }
 235
 236 /*
 237 * We have a cache for writing different resource files,
 238 * which will only get flushed when we call wxFlushResources().
 239 * Build up a list of resource databases waiting to be written.
 240 *
 241 */
 242
 243 wxList wxResourceCache (wxKEY_STRING);
 244
 245 void
 246 wxFlushResources (void)
 247 {
 248     char nameBuffer[512];
 249
 250     wxNode *node = wxResourceCache.First ();
 251     while (node)
 252     {
 253         const char *file = node->GetKeyString();
 254         // If file doesn't exist, create it first.
 255         (void)GetResourcePath(nameBuffer, file, TRUE);
 256
 257         XrmDatabase database = (XrmDatabase) node->Data ();
 258         XrmPutFileDatabase (database, nameBuffer);
 259         XrmDestroyDatabase (database);
 260         wxNode *next = node->Next ();
 261         delete node;
 262         node = next;
 263     }
 264 }
 265
 266 static XrmDatabase wxResourceDatabase = 0;
 267
 268 void wxXMergeDatabases (wxApp * theApp, Display * display);
 269
 270 bool wxWriteResource(const wxString& section, const wxString& entry, const wxString& value, const wxString& file)
 271 {
 272     char buffer[500];
 273
 274     (void) GetIniFile (buffer, file);
 275
 276     XrmDatabase database;
 277     wxNode *node = wxResourceCache.Find (buffer);
 278     if (node)
 279         database = (XrmDatabase) node->Data ();
 280     else
 281     {
 282         database = XrmGetFileDatabase (buffer);
 283         wxResourceCache.Append (buffer, (wxObject *) database);
 284     }
 285
 286     char resName[300];
 287     strcpy (resName, (const char*) section);
 288     strcat (resName, ".");
 289     strcat (resName, (const char*) entry);
 290
 291     XrmPutStringResource (&database, resName, value);
 292     return TRUE;
 293 }
 294
 295 bool wxWriteResource(const wxString& section, const wxString& entry, float value, const wxString& file)
 296 {
 297     char buf[50];
 298     sprintf(buf, "%.4f", value);
 299     return wxWriteResource(section, entry, buf, file);
 300 }
 301
 302 bool wxWriteResource(const wxString& section, const wxString& entry, long value, const wxString& file)
 303 {
 304     char buf[50];
 305     sprintf(buf, "%ld", value);
 306     return wxWriteResource(section, entry, buf, file);
 307 }
 308
 309 bool wxWriteResource(const wxString& section, const wxString& entry, int value, const wxString& file)
 310 {
 311     char buf[50];
 312     sprintf(buf, "%d", value);
 313     return wxWriteResource(section, entry, buf, file);
 314 }
 315
 316 bool wxGetResource(const wxString& section, const wxString& entry, char **value, const wxString& file)
 317 {
 318     if (!wxResourceDatabase)
 319     {
 320         Display *display = (Display*) wxGetDisplay();
 321         wxXMergeDatabases (wxTheApp, display);
 322     }
 323
 324     XrmDatabase database;
 325
 326     if (file != "")
 327     {
 328         char buffer[500];
 329
 330         // Is this right? Trying to get it to look in the user's
 331         // home directory instead of current directory -- JACS
 332         (void) GetIniFile (buffer, file);
 333
 334         wxNode *node = wxResourceCache.Find (buffer);
 335         if (node)
 336             database = (XrmDatabase) node->Data ();
 337         else
 338         {
 339             database = XrmGetFileDatabase (buffer);
 340             wxResourceCache.Append (buffer, (wxObject *) database);
 341         }
 342     }
 343     else
 344         database = wxResourceDatabase;
 345
 346     XrmValue xvalue;
 347     char *str_type[20];
 348     char buf[150];
 349     strcpy (buf, section);
 350     strcat (buf, ".");
 351     strcat (buf, entry);
 352
 353     Bool success = XrmGetResource (database, buf, "*", str_type,
 354         &xvalue);
 355     // Try different combinations of upper/lower case, just in case...
 356     if (!success)
 357     {
 358         buf[0] = (isupper (buf[0]) ? tolower (buf[0]) : toupper (buf[0]));
 359         success = XrmGetResource (database, buf, "*", str_type,
 360             &xvalue);
 361     }
 362     if (success)
 363     {
 364         if (*value)
 365             delete[] *value;
 366
 367         *value = new char[xvalue.size + 1];
 368         strncpy (*value, xvalue.addr, (int) xvalue.size);
 369         return TRUE;
 370     }
 371     return FALSE;
 372 }
 373
 374 bool wxGetResource(const wxString& section, const wxString& entry, float *value, const wxString& file)
 375 {
 376     char *s = NULL;
 377     bool succ = wxGetResource(section, entry, (char **)&s, file);
 378     if (succ)
 379     {
 380         *value = (float)strtod(s, NULL);
 381         delete[] s;
 382         return TRUE;
 383     }
 384     else return FALSE;
 385 }
 386
 387 bool wxGetResource(const wxString& section, const wxString& entry, long *value, const wxString& file)
 388 {
 389     char *s = NULL;
 390     bool succ = wxGetResource(section, entry, (char **)&s, file);
 391     if (succ)
 392     {
 393         *value = strtol(s, NULL, 10);
 394         delete[] s;
 395         return TRUE;
 396     }
 397     else return FALSE;
 398 }
 399
 400 bool wxGetResource(const wxString& section, const wxString& entry, int *value, const wxString& file)
 401 {
 402     char *s = NULL;
 403     bool succ = wxGetResource(section, entry, (char **)&s, file);
 404     if (succ)
 405     {
 406         // Handle True, False here
 407         // True, Yes, Enables, Set or  Activated
 408         if (*s == 'T' || *s == 'Y' || *s == 'E' || *s == 'S' || *s == 'A')
 409             *value = TRUE;
 410         // False, No, Disabled, Reset, Cleared, Deactivated
 411         else if (*s == 'F' || *s == 'N' || *s == 'D' || *s == 'R' || *s == 'C')
 412             *value = FALSE;
 413         // Handle as Integer
 414         else
 415             *value = (int) strtol (s, NULL, 10);
 416         delete[] s;
 417         return TRUE;
 418     }
 419     else
 420         return FALSE;
 421 }
 422
 423 void wxXMergeDatabases (wxApp * theApp, Display * display)
 424 {
 425     XrmDatabase homeDB, serverDB, applicationDB;
 426     char filenamebuf[1024];
 427
 428     char *filename = &filenamebuf[0];
 429     char *environment;
 430     wxString classname = theApp->GetClassName();
 431     char name[256];
 432     (void) strcpy (name, "/usr/lib/X11/app-defaults/");
 433     (void) strcat (name, (const char*) classname);
 434
 435     /* Get application defaults file, if any */
 436     applicationDB = XrmGetFileDatabase (name);
 437     (void) XrmMergeDatabases (applicationDB, &wxResourceDatabase);
 438
 439     /* Merge server defaults, created by xrdb, loaded as a property of the root
 440     * window when the server initializes and loaded into the display
 441     * structure on XOpenDisplay;
 442     * if not defined, use .Xdefaults
 443     */
 444
 445     if (XResourceManagerString (display) != NULL)
 446     {
 447         serverDB = XrmGetStringDatabase (XResourceManagerString (display));
 448     }
 449     else
 450     {
 451         (void) GetIniFile (filename, NULL);
 452         serverDB = XrmGetFileDatabase (filename);
 453     }
 454     XrmMergeDatabases (serverDB, &wxResourceDatabase);
 455
 456     /* Open XENVIRONMENT file, or if not defined, the .Xdefaults,
 457     * and merge into existing database
 458     */
 459
 460     if ((environment = getenv ("XENVIRONMENT")) == NULL)
 461     {
 462         size_t len;
 463         environment = GetIniFile (filename, NULL);
 464         len = strlen (environment);
 465         wxString hostname = wxGetHostName();
 466         if ( !!hostname )
 467             strncat(environment, hostname, 1024 - len);
 468     }
 469     homeDB = XrmGetFileDatabase (environment);
 470     XrmMergeDatabases (homeDB, &wxResourceDatabase);
 471 }
 472
 473 #if 0
 474
 475 /*
 476 * Not yet used but may be useful.
 477 *
 478 */
 479 void
 480 wxSetDefaultResources (const Widget w, const char **resourceSpec, const char *name)
 481 {
 482     int i;
 483     Display *dpy = XtDisplay (w);    // Retrieve the display pointer
 484
 485     XrmDatabase rdb = NULL;    // A resource data base
 486
 487     // Create an empty resource database
 488     rdb = XrmGetStringDatabase ("");
 489
 490     // Add the Component resources, prepending the name of the component
 491
 492     i = 0;
 493     while (resourceSpec[i] != NULL)
 494     {
 495         char buf[1000];
 496
 497         sprintf (buf, "*%s%s", name, resourceSpec[i++]);
 498         XrmPutLineResource (&rdb, buf);
 499     }
 500
 501     // Merge them into the Xt database, with lowest precendence
 502
 503     if (rdb)
 504     {
 505 #if (XlibSpecificationRelease>=5)
 506         XrmDatabase db = XtDatabase (dpy);
 507         XrmCombineDatabase (rdb, &db, FALSE);
 508 #else
 509         XrmMergeDatabases (dpy->db, &rdb);
 510         dpy->db = rdb;
 511 #endif
 512     }
 513 }
 514 #endif
 515 // 0
 516
 517 #endif // wxUSE_RESOURCES
 518
 519 // ----------------------------------------------------------------------------
 520 // busy cursor stuff
 521 // ----------------------------------------------------------------------------
 522
 523 static int wxBusyCursorCount = 0;
 524
 525 // Helper function
 526 static void
 527 wxXSetBusyCursor (wxWindow * win, wxCursor * cursor)
 528 {
 529     Display *display = (Display*) win->GetXDisplay();
 530
 531     Window xwin = (Window) win->GetXWindow();
 532     if (!xwin)
 533        return;
 534
 535     XSetWindowAttributes attrs;
 536
 537     if (cursor)
 538     {
 539         attrs.cursor = (Cursor) cursor->GetXCursor(display);
 540     }
 541     else
 542     {
 543         // Restore old cursor
 544         if (win->GetCursor()->Ok())
 545             attrs.cursor = (Cursor) win->GetCursor()->GetXCursor(display);
 546         else
 547             attrs.cursor = None;
 548     }
 549     if (xwin)
 550         XChangeWindowAttributes (display, xwin, CWCursor, &attrs);
 551
 552     XFlush (display);
 553
 554     for(wxNode *node = win->GetChildren().First (); node; node = node->Next())
 555     {
 556         wxWindow *child = (wxWindow *) node->Data ();
 557         wxXSetBusyCursor (child, cursor);
 558     }
 559 }
 560
 561 // Set the cursor to the busy cursor for all windows
 562 void wxBeginBusyCursor(wxCursor *cursor)
 563 {
 564     wxBusyCursorCount++;
 565     if (wxBusyCursorCount == 1)
 566     {
 567         for(wxNode *node = wxTopLevelWindows.First (); node; node = node->Next())
 568         {
 569             wxWindow *win = (wxWindow *) node->Data ();
 570             wxXSetBusyCursor (win, cursor);
 571         }
 572     }
 573 }
 574
 575 // Restore cursor to normal
 576 void wxEndBusyCursor()
 577 {
 578     if (wxBusyCursorCount == 0)
 579         return;
 580
 581     wxBusyCursorCount--;
 582     if (wxBusyCursorCount == 0)
 583     {
 584         for(wxNode *node = wxTopLevelWindows.First (); node; node = node->Next())
 585         {
 586             wxWindow *win = (wxWindow *) node->Data ();
 587             wxXSetBusyCursor (win, NULL);
 588         }
 589     }
 590 }
 591
 592 // TRUE if we're between the above two calls
 593 bool wxIsBusy()
 594 {
 595     return (wxBusyCursorCount > 0);
 596 }
 597
 598 // ----------------------------------------------------------------------------
 599 // display info
 600 // ----------------------------------------------------------------------------
 601
 602 void wxGetMousePosition( int* x, int* y )
 603 {
 604     XMotionEvent xev;
 605     Window root, child;
 606     XQueryPointer((Display*) wxGetDisplay(),
 607                   DefaultRootWindow((Display*) wxGetDisplay()),
 608                   &root, &child,
 609                   &(xev.x_root), &(xev.y_root),
 610                   &(xev.x),      &(xev.y),
 611                   &(xev.state));
 612     *x = xev.x_root;
 613     *y = xev.y_root;
 614 };
 615
 616 // Return TRUE if we have a colour display
 617 bool wxColourDisplay()
 618 {
 619     return wxDisplayDepth() > 1;
 620 }
 621
 622 // Returns depth of screen
 623 int wxDisplayDepth()
 624 {
 625     Display *dpy = (Display*) wxGetDisplay();
 626
 627     return DefaultDepth (dpy, DefaultScreen (dpy));
 628 }
 629
 630 // Get size of display
 631 void wxDisplaySize(int *width, int *height)
 632 {
 633     Display *dpy = (Display*) wxGetDisplay();
 634
 635     if ( width )
 636         *width = DisplayWidth (dpy, DefaultScreen (dpy));
 637     if ( height )
 638         *height = DisplayHeight (dpy, DefaultScreen (dpy));
 639 }
 640
 641 // Configurable display in Motif
 642 static WXDisplay *gs_currentDisplay = NULL;
 643 static wxString gs_displayName;
 644
 645 WXDisplay *wxGetDisplay()
 646 {
 647     if (gs_currentDisplay)
 648         return gs_currentDisplay;
 649
 650     if (wxTheApp && wxTheApp->GetTopLevelWidget())
 651         return XtDisplay ((Widget) wxTheApp->GetTopLevelWidget());
 652     else if (wxTheApp)
 653         return wxTheApp->GetInitialDisplay();
 654     else
 655         return (WXDisplay*) NULL;
 656 }
 657
 658 bool wxSetDisplay(const wxString& display_name)
 659 {
 660     gs_displayName = display_name;
 661
 662     if ( !display_name )
 663     {
 664         gs_currentDisplay = NULL;
 665
 666         return TRUE;
 667     }
 668     else
 669     {
 670         Cardinal argc = 0;
 671
 672         Display *display = XtOpenDisplay((XtAppContext) wxTheApp->GetAppContext(),
 673             (const char*) display_name,
 674             (const char*) wxTheApp->GetAppName(),
 675             (const char*) wxTheApp->GetClassName(),
 676             NULL,
 677 #if XtSpecificationRelease < 5
 678             0, &argc,
 679 #else
 680             0, (int *)&argc,
 681 #endif
 682             NULL);
 683
 684         if (display)
 685         {
 686             gs_currentDisplay = (WXDisplay*) display;
 687             return TRUE;
 688         }
 689         else
 690             return FALSE;
 691     }
 692
 693     return FALSE;
 694 }
 695
 696 wxString wxGetDisplayName()
 697 {
 698     return gs_displayName;
 699 }
 700
 701 // ----------------------------------------------------------------------------
 702 // accelerators
 703 // ----------------------------------------------------------------------------
 704
 705 // Find the letter corresponding to the mnemonic, for Motif
 706 char wxFindMnemonic (const char *s)
 707 {
 708     char mnem = 0;
 709     int len = strlen (s);
 710     int i;
 711     for (i = 0; i < len; i++)
 712     {
 713         if (s[i] == '&')
 714         {
 715             // Carefully handle &&
 716             if ((i + 1) <= len && s[i + 1] == '&')
 717                 i++;
 718             else
 719             {
 720                 mnem = s[i + 1];
 721                 break;
 722             }
 723         }
 724     }
 725     return mnem;
 726 }
 727
 728 char * wxFindAccelerator (char *s)
 729 {
 730     // The accelerator text is after the \t char.
 731     while (*s && *s != '\t')
 732         s++;
 733     if (*s == '\0')
 734         return (NULL);
 735     s++;
 736     /*
 737     Now we need to format it as X standard:
 738
 739       input            output
 740
 741         F7           --> <Key>F7
 742         Ctrl+N       --> Ctrl<Key>N
 743         Alt+k        --> Meta<Key>k
 744         Ctrl+Shift+A --> Ctrl Shift<Key>A
 745
 746     */
 747
 748     wxBuffer[0] = '\0';
 749     char *tmp = copystring (s);
 750     s = tmp;
 751     char *p = s;
 752
 753     while (1)
 754     {
 755         while (*p && *p != '+')
 756             p++;
 757         if (*p)
 758         {
 759             *p = '\0';
 760             if (wxBuffer[0])
 761                 strcat (wxBuffer, " ");
 762             if (strcmp (s, "Alt"))
 763                 strcat (wxBuffer, s);
 764             else
 765                 strcat (wxBuffer, "Meta");
 766             s = p + 1;
 767             p = s;
 768         }
 769         else
 770         {
 771             strcat (wxBuffer, "<Key>");
 772             strcat (wxBuffer, s);
 773             break;
 774         }
 775     }
 776     delete[]tmp;
 777     return wxBuffer;
 778 }
 779
 780 XmString wxFindAcceleratorText (char *s)
 781 {
 782     // The accelerator text is after the \t char.
 783     while (*s && *s != '\t')
 784         s++;
 785     if (*s == '\0')
 786         return (NULL);
 787     s++;
 788     XmString text = XmStringCreateSimple (s);
 789     return text;
 790 }
 791
 792 // ----------------------------------------------------------------------------
 793 // keycode translations
 794 // ----------------------------------------------------------------------------
 795
 796 #include <X11/keysym.h>
 797
 798 // FIXME what about tables??
 799
 800 int wxCharCodeXToWX(KeySym keySym)
 801 {
 802     int id;
 803     switch (keySym)
 804     {
 805         case XK_Shift_L:
 806         case XK_Shift_R:
 807             id = WXK_SHIFT; break;
 808         case XK_Control_L:
 809         case XK_Control_R:
 810             id = WXK_CONTROL; break;
 811         case XK_BackSpace:
 812             id = WXK_BACK; break;
 813         case XK_Delete:
 814             id = WXK_DELETE; break;
 815         case XK_Clear:
 816             id = WXK_CLEAR; break;
 817         case XK_Tab:
 818             id = WXK_TAB; break;
 819         case XK_numbersign:
 820             id = '#'; break;
 821         case XK_Return:
 822             id = WXK_RETURN; break;
 823         case XK_Escape:
 824             id = WXK_ESCAPE; break;
 825         case XK_Pause:
 826         case XK_Break:
 827             id = WXK_PAUSE; break;
 828         case XK_Num_Lock:
 829             id = WXK_NUMLOCK; break;
 830         case XK_Scroll_Lock:
 831             id = WXK_SCROLL; break;
 832
 833         case XK_Home:
 834             id = WXK_HOME; break;
 835         case XK_End:
 836             id = WXK_END; break;
 837         case XK_Left:
 838             id = WXK_LEFT; break;
 839         case XK_Right:
 840             id = WXK_RIGHT; break;
 841         case XK_Up:
 842             id = WXK_UP; break;
 843         case XK_Down:
 844             id = WXK_DOWN; break;
 845         case XK_Next:
 846             id = WXK_NEXT; break;
 847         case XK_Prior:
 848             id = WXK_PRIOR; break;
 849         case XK_Menu:
 850             id = WXK_MENU; break;
 851         case XK_Select:
 852             id = WXK_SELECT; break;
 853         case XK_Cancel:
 854             id = WXK_CANCEL; break;
 855         case XK_Print:
 856             id = WXK_PRINT; break;
 857         case XK_Execute:
 858             id = WXK_EXECUTE; break;
 859         case XK_Insert:
 860             id = WXK_INSERT; break;
 861         case XK_Help:
 862             id = WXK_HELP; break;
 863
 864         case XK_KP_Multiply:
 865             id = WXK_MULTIPLY; break;
 866         case XK_KP_Add:
 867             id = WXK_ADD; break;
 868         case XK_KP_Subtract:
 869             id = WXK_SUBTRACT; break;
 870         case XK_KP_Divide:
 871             id = WXK_DIVIDE; break;
 872         case XK_KP_Decimal:
 873             id = WXK_DECIMAL; break;
 874         case XK_KP_Equal:
 875             id = '='; break;
 876         case XK_KP_Space:
 877             id = ' '; break;
 878         case XK_KP_Tab:
 879             id = WXK_TAB; break;
 880         case XK_KP_Enter:
 881             id = WXK_RETURN; break;
 882         case XK_KP_0:
 883             id = WXK_NUMPAD0; break;
 884         case XK_KP_1:
 885             id = WXK_NUMPAD1; break;
 886         case XK_KP_2:
 887             id = WXK_NUMPAD2; break;
 888         case XK_KP_3:
 889             id = WXK_NUMPAD3; break;
 890         case XK_KP_4:
 891             id = WXK_NUMPAD4; break;
 892         case XK_KP_5:
 893             id = WXK_NUMPAD5; break;
 894         case XK_KP_6:
 895             id = WXK_NUMPAD6; break;
 896         case XK_KP_7:
 897             id = WXK_NUMPAD7; break;
 898         case XK_KP_8:
 899             id = WXK_NUMPAD8; break;
 900         case XK_KP_9:
 901             id = WXK_NUMPAD9; break;
 902         case XK_F1:
 903             id = WXK_F1; break;
 904         case XK_F2:
 905             id = WXK_F2; break;
 906         case XK_F3:
 907             id = WXK_F3; break;
 908         case XK_F4:
 909             id = WXK_F4; break;
 910         case XK_F5:
 911             id = WXK_F5; break;
 912         case XK_F6:
 913             id = WXK_F6; break;
 914         case XK_F7:
 915             id = WXK_F7; break;
 916         case XK_F8:
 917             id = WXK_F8; break;
 918         case XK_F9:
 919             id = WXK_F9; break;
 920         case XK_F10:
 921             id = WXK_F10; break;
 922         case XK_F11:
 923             id = WXK_F11; break;
 924         case XK_F12:
 925             id = WXK_F12; break;
 926         case XK_F13:
 927             id = WXK_F13; break;
 928         case XK_F14:
 929             id = WXK_F14; break;
 930         case XK_F15:
 931             id = WXK_F15; break;
 932         case XK_F16:
 933             id = WXK_F16; break;
 934         case XK_F17:
 935             id = WXK_F17; break;
 936         case XK_F18:
 937             id = WXK_F18; break;
 938         case XK_F19:
 939             id = WXK_F19; break;
 940         case XK_F20:
 941             id = WXK_F20; break;
 942         case XK_F21:
 943             id = WXK_F21; break;
 944         case XK_F22:
 945             id = WXK_F22; break;
 946         case XK_F23:
 947             id = WXK_F23; break;
 948         case XK_F24:
 949             id = WXK_F24; break;
 950         default:
 951             id = (keySym <= 255) ? (int)keySym : -1;
 952     }
 953
 954     return id;
 955 }
 956
 957 KeySym wxCharCodeWXToX(int id)
 958 {
 959     KeySym keySym;
 960
 961     switch (id)
 962     {
 963         case WXK_CANCEL:            keySym = XK_Cancel; break;
 964         case WXK_BACK:              keySym = XK_BackSpace; break;
 965         case WXK_TAB:            keySym = XK_Tab; break;
 966         case WXK_CLEAR:        keySym = XK_Clear; break;
 967         case WXK_RETURN:        keySym = XK_Return; break;
 968         case WXK_SHIFT:        keySym = XK_Shift_L; break;
 969         case WXK_CONTROL:        keySym = XK_Control_L; break;
 970         case WXK_MENU :        keySym = XK_Menu; break;
 971         case WXK_PAUSE:        keySym = XK_Pause; break;
 972         case WXK_ESCAPE:        keySym = XK_Escape; break;
 973         case WXK_SPACE:        keySym = ' '; break;
 974         case WXK_PRIOR:        keySym = XK_Prior; break;
 975         case WXK_NEXT :        keySym = XK_Next; break;
 976         case WXK_END:        keySym = XK_End; break;
 977         case WXK_HOME :        keySym = XK_Home; break;
 978         case WXK_LEFT :        keySym = XK_Left; break;
 979         case WXK_UP:        keySym = XK_Up; break;
 980         case WXK_RIGHT:        keySym = XK_Right; break;
 981         case WXK_DOWN :        keySym = XK_Down; break;
 982         case WXK_SELECT:        keySym = XK_Select; break;
 983         case WXK_PRINT:        keySym = XK_Print; break;
 984         case WXK_EXECUTE:        keySym = XK_Execute; break;
 985         case WXK_INSERT:        keySym = XK_Insert; break;
 986         case WXK_DELETE:        keySym = XK_Delete; break;
 987         case WXK_HELP :        keySym = XK_Help; break;
 988         case WXK_NUMPAD0:        keySym = XK_KP_0; break;
 989         case WXK_NUMPAD1:        keySym = XK_KP_1; break;
 990         case WXK_NUMPAD2:        keySym = XK_KP_2; break;
 991         case WXK_NUMPAD3:        keySym = XK_KP_3; break;
 992         case WXK_NUMPAD4:        keySym = XK_KP_4; break;
 993         case WXK_NUMPAD5:        keySym = XK_KP_5; break;
 994         case WXK_NUMPAD6:        keySym = XK_KP_6; break;
 995         case WXK_NUMPAD7:        keySym = XK_KP_7; break;
 996         case WXK_NUMPAD8:        keySym = XK_KP_8; break;
 997         case WXK_NUMPAD9:        keySym = XK_KP_9; break;
 998         case WXK_MULTIPLY:        keySym = XK_KP_Multiply; break;
 999         case WXK_ADD:        keySym = XK_KP_Add; break;
1000         case WXK_SUBTRACT:        keySym = XK_KP_Subtract; break;
1001         case WXK_DECIMAL:        keySym = XK_KP_Decimal; break;
1002         case WXK_DIVIDE:        keySym = XK_KP_Divide; break;
1003         case WXK_F1:        keySym = XK_F1; break;
1004         case WXK_F2:        keySym = XK_F2; break;
1005         case WXK_F3:        keySym = XK_F3; break;
1006         case WXK_F4:        keySym = XK_F4; break;
1007         case WXK_F5:        keySym = XK_F5; break;
1008         case WXK_F6:        keySym = XK_F6; break;
1009         case WXK_F7:        keySym = XK_F7; break;
1010         case WXK_F8:        keySym = XK_F8; break;
1011         case WXK_F9:        keySym = XK_F9; break;
1012         case WXK_F10:        keySym = XK_F10; break;
1013         case WXK_F11:        keySym = XK_F11; break;
1014         case WXK_F12:        keySym = XK_F12; break;
1015         case WXK_F13:        keySym = XK_F13; break;
1016         case WXK_F14:        keySym = XK_F14; break;
1017         case WXK_F15:        keySym = XK_F15; break;
1018         case WXK_F16:        keySym = XK_F16; break;
1019         case WXK_F17:        keySym = XK_F17; break;
1020         case WXK_F18:        keySym = XK_F18; break;
1021         case WXK_F19:        keySym = XK_F19; break;
1022         case WXK_F20:        keySym = XK_F20; break;
1023         case WXK_F21:        keySym = XK_F21; break;
1024         case WXK_F22:        keySym = XK_F22; break;
1025         case WXK_F23:        keySym = XK_F23; break;
1026         case WXK_F24:        keySym = XK_F24; break;
1027         case WXK_NUMLOCK:    keySym = XK_Num_Lock; break;
1028         case WXK_SCROLL:     keySym = XK_Scroll_Lock; break;
1029         default:             keySym = id <= 255 ? (KeySym)id : 0;
1030     }
1031
1032     return keySym;
1033 }
1034
1035 // ----------------------------------------------------------------------------
1036 // Some colour manipulation routines
1037 // ----------------------------------------------------------------------------
1038
1039 void wxHSVToXColor(wxHSV *hsv,XColor *rgb)
1040 {
1041     int h = hsv->h;
1042     int s = hsv->s;
1043     int v = hsv->v;
1044     int r, g, b;
1045     int i, f;
1046     int p, q, t;
1047     s = (s * wxMAX_RGB) / wxMAX_SV;
1048     v = (v * wxMAX_RGB) / wxMAX_SV;
1049     if (h == 360) h = 0;
1050     if (s == 0) { h = 0; r = g = b = v; }
1051     i = h / 60;
1052     f = h % 60;
1053     p = v * (wxMAX_RGB - s) / wxMAX_RGB;
1054     q = v * (wxMAX_RGB - s * f / 60) / wxMAX_RGB;
1055     t = v * (wxMAX_RGB - s * (60 - f) / 60) / wxMAX_RGB;
1056     switch (i)
1057     {
1058     case 0: r = v, g = t, b = p; break;
1059     case 1: r = q, g = v, b = p; break;
1060     case 2: r = p, g = v, b = t; break;
1061     case 3: r = p, g = q, b = v; break;
1062     case 4: r = t, g = p, b = v; break;
1063     case 5: r = v, g = p, b = q; break;
1064     }
1065     rgb->red = r << 8;
1066     rgb->green = g << 8;
1067     rgb->blue = b << 8;
1068 }
1069
1070 void wxXColorToHSV(wxHSV *hsv,XColor *rgb)
1071 {
1072     int r = rgb->red >> 8;
1073     int g = rgb->green >> 8;
1074     int b = rgb->blue >> 8;
1075     int maxv = wxMax3(r, g, b);
1076     int minv = wxMin3(r, g, b);
1077     int h, s, v;
1078     v = maxv;
1079     if (maxv) s = (maxv - minv) * wxMAX_RGB / maxv;
1080     else s = 0;
1081     if (s == 0) h = 0;
1082     else
1083     {
1084         int rc, gc, bc, hex;
1085         rc = (maxv - r) * wxMAX_RGB / (maxv - minv);
1086         gc = (maxv - g) * wxMAX_RGB / (maxv - minv);
1087         bc = (maxv - b) * wxMAX_RGB / (maxv - minv);
1088         if (r == maxv) { h = bc - gc, hex = 0; }
1089         else if (g == maxv) { h = rc - bc, hex = 2; }
1090         else if (b == maxv) { h = gc - rc, hex = 4; }
1091         h = hex * 60 + (h * 60 / wxMAX_RGB);
1092         if (h < 0) h += 360;
1093     }
1094     hsv->h = h;
1095     hsv->s = (s * wxMAX_SV) / wxMAX_RGB;
1096     hsv->v = (v * wxMAX_SV) / wxMAX_RGB;
1097 }
1098
1099 void wxAllocNearestColor(Display *d,Colormap cmp,XColor *xc)
1100 {
1101     int llp;
1102
1103     int screen = DefaultScreen(d);
1104     int num_colors = DisplayCells(d,screen);
1105
1106     XColor *color_defs = new XColor[num_colors];
1107     for(llp = 0;llp < num_colors;llp++) color_defs[llp].pixel = llp;
1108     XQueryColors(d,cmp,color_defs,num_colors);
1109
1110     wxHSV hsv_defs, hsv;
1111     wxXColorToHSV(&hsv,xc);
1112
1113     int diff, min_diff, pixel = 0;
1114
1115     for(llp = 0;llp < num_colors;llp++)
1116     {
1117         wxXColorToHSV(&hsv_defs,&color_defs[llp]);
1118         diff = wxSIGN(wxH_WEIGHT * (hsv.h - hsv_defs.h)) +
1119             wxSIGN(wxS_WEIGHT * (hsv.s - hsv_defs.s)) +
1120             wxSIGN(wxV_WEIGHT * (hsv.v - hsv_defs.v));
1121         if (llp == 0) min_diff = diff;
1122         if (min_diff > diff) { min_diff = diff; pixel = llp; }
1123         if (min_diff == 0) break;
1124     }
1125
1126     xc -> red = color_defs[pixel].red;
1127     xc -> green = color_defs[pixel].green;
1128     xc -> blue = color_defs[pixel].blue;
1129     xc -> flags = DoRed | DoGreen | DoBlue;
1130     if (!XAllocColor(d,cmp,xc))
1131         cout << "wxAllocNearestColor : Warning : Cannot find nearest color !\n";
1132
1133     delete[] color_defs;
1134 }
1135
1136 void wxAllocColor(Display *d,Colormap cmp,XColor *xc)
1137 {
1138     if (!XAllocColor(d,cmp,xc))
1139     {
1140         //          cout << "wxAllocColor : Warning : Can not allocate color, attempt find nearest !\n";
1141         wxAllocNearestColor(d,cmp,xc);
1142     }
1143 }
1144
1145
1146 // These functions duplicate those in wxWindow, but are needed
1147 // for use outside of wxWindow (e.g. wxMenu, wxMenuBar).
1148
1149 // Change a widget's foreground and background colours.
1150
1151 void wxDoChangeForegroundColour(WXWidget widget, wxColour& foregroundColour)
1152 {
1153     // When should we specify the foreground, if it's calculated
1154     // by wxComputeColours?
1155     // Solution: say we start with the default (computed) foreground colour.
1156     // If we call SetForegroundColour explicitly for a control or window,
1157     // then the foreground is changed.
1158     // Therefore SetBackgroundColour computes the foreground colour, and
1159     // SetForegroundColour changes the foreground colour. The ordering is
1160     // important.
1161
1162     XtVaSetValues ((Widget) widget,
1163         XmNforeground, foregroundColour.AllocColour(XtDisplay((Widget) widget)),
1164         NULL);
1165 }
1166
1167 void wxDoChangeBackgroundColour(WXWidget widget, wxColour& backgroundColour, bool changeArmColour)
1168 {
1169     wxComputeColours (XtDisplay((Widget) widget), & backgroundColour,
1170         (wxColour*) NULL);
1171
1172     XtVaSetValues ((Widget) widget,
1173         XmNbackground, g_itemColors[wxBACK_INDEX].pixel,
1174         XmNtopShadowColor, g_itemColors[wxTOPS_INDEX].pixel,
1175         XmNbottomShadowColor, g_itemColors[wxBOTS_INDEX].pixel,
1176         XmNforeground, g_itemColors[wxFORE_INDEX].pixel,
1177         NULL);
1178
1179     if (changeArmColour)
1180         XtVaSetValues ((Widget) widget,
1181         XmNarmColor, g_itemColors[wxSELE_INDEX].pixel,
1182         NULL);
1183 }
1184