src/mac/classic/utils.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        utils.cpp
   3 // Purpose:     Various utilities
   4 // Author:      Stefan Csomor
   5 // Modified by:
   6 // Created:     1998-01-01
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Stefan Csomor
   9 // Licence:       wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #include "wx/setup.h"
  13 #include "wx/utils.h"
  14 #include "wx/app.h"
  15 #include "wx/apptrait.h"
  16
  17 #if wxUSE_GUI
  18     #include "wx/mac/uma.h"
  19     #include "wx/font.h"
  20 #else
  21     #include "wx/intl.h"
  22 #endif
  23
  24 #include <ctype.h>
  25
  26 #include <stdio.h>
  27 #include <stdlib.h>
  28 #include <string.h>
  29 #include <stdarg.h>
  30
  31 #ifdef __DARWIN__
  32 #  include "MoreFilesX.h"
  33 #else
  34 #  include "MoreFiles.h"
  35 #  include "MoreFilesExtras.h"
  36 #endif
  37
  38 #ifndef __DARWIN__
  39 #include <Threads.h>
  40 #include <Sound.h>
  41 #endif
  42
  43 #include <ATSUnicode.h>
  44 #include <TextCommon.h>
  45 #include <TextEncodingConverter.h>
  46
  47 #include  "wx/mac/private.h"  // includes mac headers
  48
  49 #if defined(__MWERKS__) && wxUSE_UNICODE
  50     #include <wtime.h>
  51 #endif
  52
  53 // ---------------------------------------------------------------------------
  54 // code used in both base and GUI compilation
  55 // ---------------------------------------------------------------------------
  56
  57 // our OS version is the same in non GUI and GUI cases
  58 static int DoGetOSVersion(int *majorVsn, int *minorVsn)
  59 {
  60     long theSystem ;
  61
  62     // are there x-platform conventions ?
  63
  64     Gestalt(gestaltSystemVersion, &theSystem) ;
  65     if (minorVsn != NULL) {
  66         *minorVsn = (theSystem & 0xFF ) ;
  67     }
  68     if (majorVsn != NULL) {
  69         *majorVsn = (theSystem >> 8 ) ;
  70     }
  71 #ifdef __DARWIN__
  72     return wxMAC_DARWIN;
  73 #else
  74     return wxMAC;
  75 #endif
  76 }
  77
  78 #if wxUSE_BASE
  79
  80 #ifndef __DARWIN__
  81 // defined in unix/utilsunx.cpp for Mac OS X
  82
  83 // get full hostname (with domain name if possible)
  84 bool wxGetFullHostName(wxChar *buf, int maxSize)
  85 {
  86     return wxGetHostName(buf, maxSize);
  87 }
  88
  89 // Get hostname only (without domain name)
  90 bool wxGetHostName(wxChar *buf, int maxSize)
  91 {
  92     // Gets Chooser name of user by examining a System resource.
  93
  94     const short kComputerNameID = -16413;
  95
  96     short oldResFile = CurResFile() ;
  97     UseResFile(0);
  98     StringHandle chooserName = (StringHandle)::GetString(kComputerNameID);
  99     UseResFile(oldResFile);
 100
 101     if (chooserName && *chooserName)
 102     {
 103         HLock( (Handle) chooserName ) ;
 104         wxString name = wxMacMakeStringFromPascal( *chooserName ) ;
 105         HUnlock( (Handle) chooserName ) ;
 106         ReleaseResource( (Handle) chooserName ) ;
 107         wxStrncpy( buf , name , maxSize - 1 ) ;
 108     }
 109     else
 110         buf[0] = 0 ;
 111
 112     return true;
 113 }
 114
 115 // Get user ID e.g. jacs
 116 bool wxGetUserId(wxChar *buf, int maxSize)
 117 {
 118   return wxGetUserName( buf , maxSize ) ;
 119 }
 120
 121 const wxChar* wxGetHomeDir(wxString *pstr)
 122 {
 123     *pstr = wxMacFindFolder(  (short) kOnSystemDisk, kPreferencesFolderType, kDontCreateFolder ) ;
 124     return pstr->c_str() ;
 125 }
 126
 127 // Get user name e.g. Stefan Csomor
 128 bool wxGetUserName(wxChar *buf, int maxSize)
 129 {
 130     // Gets Chooser name of user by examining a System resource.
 131
 132     const short kChooserNameID = -16096;
 133
 134     short oldResFile = CurResFile() ;
 135     UseResFile(0);
 136     StringHandle chooserName = (StringHandle)::GetString(kChooserNameID);
 137     UseResFile(oldResFile);
 138
 139     if (chooserName && *chooserName)
 140     {
 141         HLock( (Handle) chooserName ) ;
 142         wxString name = wxMacMakeStringFromPascal( *chooserName ) ;
 143         HUnlock( (Handle) chooserName ) ;
 144         ReleaseResource( (Handle) chooserName ) ;
 145         wxStrncpy( buf , name , maxSize - 1 ) ;
 146     }
 147     else
 148         buf[0] = 0 ;
 149
 150     return true;
 151 }
 152
 153 int wxKill(long pid, wxSignal sig , wxKillError *rc, int flags)
 154 {
 155     // TODO
 156     return 0;
 157 }
 158
 159 WXDLLEXPORT bool wxGetEnv(const wxString& var, wxString *value)
 160 {
 161     // TODO : under classic there is no environement support, under X yes
 162     return false ;
 163 }
 164
 165 // set the env var name to the given value, return true on success
 166 WXDLLEXPORT bool wxSetEnv(const wxString& var, const wxChar *value)
 167 {
 168     // TODO : under classic there is no environement support, under X yes
 169     return false ;
 170 }
 171
 172 //
 173 // Execute a program in an Interactive Shell
 174 //
 175 bool wxShell(const wxString& command)
 176 {
 177     // TODO
 178     return false;
 179 }
 180
 181 // Shutdown or reboot the PC
 182 bool wxShutdown(wxShutdownFlags wFlags)
 183 {
 184     // TODO
 185     return false;
 186 }
 187
 188 wxPowerType wxGetPowerType()
 189 {
 190     // TODO
 191     return wxPOWER_UNKNOWN;
 192 }
 193
 194 wxBatteryState wxGetBatteryState()
 195 {
 196     // TODO
 197     return wxBATTERY_UNKNOWN_STATE;
 198 }
 199
 200 // Get free memory in bytes, or -1 if cannot determine amount (e.g. on UNIX)
 201 wxMemorySize wxGetFreeMemory()
 202 {
 203     return (wxMemorySize)FreeMem() ;
 204 }
 205
 206 void wxUsleep(unsigned long milliseconds)
 207 {
 208     clock_t start = clock() ;
 209     do
 210     {
 211         YieldToAnyThread() ;
 212     } while( clock() - start < milliseconds /  1000.0 * CLOCKS_PER_SEC ) ;
 213 }
 214
 215 void wxSleep(int nSecs)
 216 {
 217     wxUsleep(1000*nSecs);
 218 }
 219
 220 // Consume all events until no more left
 221 void wxFlushEvents()
 222 {
 223 }
 224
 225 #endif // !__DARWIN__
 226
 227 // Emit a beeeeeep
 228 void wxBell()
 229 {
 230     SysBeep(30);
 231 }
 232
 233 wxToolkitInfo& wxConsoleAppTraits::GetToolkitInfo()
 234 {
 235     static wxToolkitInfo info;
 236     info.os = DoGetOSVersion(&info.versionMajor, &info.versionMinor);
 237     info.name = _T("wxBase");
 238     return info;
 239 }
 240
 241 #endif // wxUSE_BASE
 242
 243 #if wxUSE_GUI
 244
 245 wxToolkitInfo& wxGUIAppTraits::GetToolkitInfo()
 246 {
 247     static wxToolkitInfo info;
 248     info.os = DoGetOSVersion(&info.versionMajor, &info.versionMinor);
 249     info.shortName = _T("mac");
 250     info.name = _T("wxMac");
 251 #ifdef __WXUNIVERSAL__
 252     info.shortName << _T("univ");
 253     info.name << _T("/wxUniversal");
 254 #endif
 255     return info;
 256 }
 257
 258 // Reading and writing resources (eg WIN.INI, .Xdefaults)
 259 #if wxUSE_RESOURCES
 260 bool wxWriteResource(const wxString& section, const wxString& entry, const wxString& value, const wxString& file)
 261 {
 262     // TODO
 263     return false;
 264 }
 265
 266 bool wxWriteResource(const wxString& section, const wxString& entry, float value, const wxString& file)
 267 {
 268     wxString buf;
 269     buf.Printf(wxT("%.4f"), value);
 270
 271     return wxWriteResource(section, entry, buf, file);
 272 }
 273
 274 bool wxWriteResource(const wxString& section, const wxString& entry, long value, const wxString& file)
 275 {
 276     wxString buf;
 277     buf.Printf(wxT("%ld"), value);
 278
 279     return wxWriteResource(section, entry, buf, file);
 280 }
 281
 282 bool wxWriteResource(const wxString& section, const wxString& entry, int value, const wxString& file)
 283 {
 284     wxString buf;
 285     buf.Printf(wxT("%d"), value);
 286
 287     return wxWriteResource(section, entry, buf, file);
 288 }
 289
 290 bool wxGetResource(const wxString& section, const wxString& entry, char **value, const wxString& file)
 291 {
 292     // TODO
 293     return false;
 294 }
 295
 296 bool wxGetResource(const wxString& section, const wxString& entry, float *value, const wxString& file)
 297 {
 298     char *s = NULL;
 299     bool succ = wxGetResource(section, entry, (char **)&s, file);
 300     if (succ)
 301     {
 302         *value = (float)strtod(s, NULL);
 303         delete[] s;
 304         return true;
 305     }
 306     else return false;
 307 }
 308
 309 bool wxGetResource(const wxString& section, const wxString& entry, long *value, const wxString& file)
 310 {
 311     char *s = NULL;
 312     bool succ = wxGetResource(section, entry, (char **)&s, file);
 313     if (succ)
 314     {
 315         *value = strtol(s, NULL, 10);
 316         delete[] s;
 317         return true;
 318     }
 319     else return false;
 320 }
 321
 322 bool wxGetResource(const wxString& section, const wxString& entry, int *value, const wxString& file)
 323 {
 324     char *s = NULL;
 325     bool succ = wxGetResource(section, entry, (char **)&s, file);
 326     if (succ)
 327     {
 328         *value = (int)strtol(s, NULL, 10);
 329         delete[] s;
 330         return true;
 331     }
 332     else return false;
 333 }
 334 #endif // wxUSE_RESOURCES
 335
 336 int gs_wxBusyCursorCount = 0;
 337 extern wxCursor    gMacCurrentCursor ;
 338 wxCursor        gMacStoredActiveCursor ;
 339
 340 // Set the cursor to the busy cursor for all windows
 341 void wxBeginBusyCursor(wxCursor *cursor)
 342 {
 343     if (gs_wxBusyCursorCount++ == 0)
 344     {
 345         gMacStoredActiveCursor = gMacCurrentCursor ;
 346         cursor->MacInstall() ;
 347     }
 348     //else: nothing to do, already set
 349 }
 350
 351 // Restore cursor to normal
 352 void wxEndBusyCursor()
 353 {
 354     wxCHECK_RET( gs_wxBusyCursorCount > 0,
 355         wxT("no matching wxBeginBusyCursor() for wxEndBusyCursor()") );
 356
 357     if (--gs_wxBusyCursorCount == 0)
 358     {
 359         gMacStoredActiveCursor.MacInstall() ;
 360         gMacStoredActiveCursor = wxNullCursor ;
 361     }
 362 }
 363
 364 // true if we're between the above two calls
 365 bool wxIsBusy()
 366 {
 367     return (gs_wxBusyCursorCount > 0);
 368 }
 369
 370 #endif // wxUSE_GUI
 371
 372 #if wxUSE_BASE
 373
 374 wxString wxMacFindFolder( short        vol,
 375               OSType       folderType,
 376               Boolean      createFolder)
 377 {
 378     short    vRefNum  ;
 379     long     dirID ;
 380     wxString strDir ;
 381
 382     if ( FindFolder( vol, folderType, createFolder, &vRefNum, &dirID) == noErr)
 383     {
 384         FSSpec file ;
 385         if ( FSMakeFSSpec( vRefNum , dirID , "\p" , &file ) == noErr )
 386         {
 387             strDir = wxMacFSSpec2MacFilename( &file ) + wxFILE_SEP_PATH ;
 388         }
 389     }
 390     return strDir ;
 391 }
 392
 393 #endif // wxUSE_BASE
 394
 395 #if wxUSE_GUI
 396
 397 // Check whether this window wants to process messages, e.g. Stop button
 398 // in long calculations.
 399 bool wxCheckForInterrupt(wxWindow *wnd)
 400 {
 401     // TODO
 402     return false;
 403 }
 404
 405 void wxGetMousePosition( int* x, int* y )
 406 {
 407     Point pt ;
 408
 409     GetMouse( &pt ) ;
 410     LocalToGlobal( &pt ) ;
 411     *x = pt.h ;
 412     *y = pt.v ;
 413 };
 414
 415 // Return true if we have a colour display
 416 bool wxColourDisplay()
 417 {
 418     return true;
 419 }
 420
 421 // Returns depth of screen
 422 int wxDisplayDepth()
 423 {
 424     Rect globRect ;
 425     SetRect(&globRect, -32760, -32760, 32760, 32760);
 426     GDHandle    theMaxDevice;
 427
 428     int theDepth = 8;
 429     theMaxDevice = GetMaxDevice(&globRect);
 430     if (theMaxDevice != nil)
 431         theDepth = (**(**theMaxDevice).gdPMap).pixelSize;
 432
 433     return theDepth ;
 434 }
 435
 436 // Get size of display
 437 void wxDisplaySize(int *width, int *height)
 438 {
 439     BitMap screenBits;
 440     GetQDGlobalsScreenBits( &screenBits );
 441
 442     if (width != NULL) {
 443         *width = screenBits.bounds.right - screenBits.bounds.left  ;
 444     }
 445     if (height != NULL) {
 446         *height = screenBits.bounds.bottom - screenBits.bounds.top ;
 447     }
 448 }
 449
 450 void wxDisplaySizeMM(int *width, int *height)
 451 {
 452     wxDisplaySize(width, height);
 453     // on mac 72 is fixed (at least now ;-)
 454     float cvPt2Mm = 25.4 / 72;
 455
 456     if (width != NULL) {
 457         *width = int( *width * cvPt2Mm );
 458     }
 459     if (height != NULL) {
 460         *height = int( *height * cvPt2Mm );
 461     }
 462 }
 463
 464 void wxClientDisplayRect(int *x, int *y, int *width, int *height)
 465 {
 466 #if TARGET_CARBON
 467     Rect r ;
 468     GetAvailableWindowPositioningBounds( GetMainDevice() , &r ) ;
 469     if ( x )
 470         *x = r.left ;
 471     if ( y )
 472         *y = r.top ;
 473     if ( width )
 474         *width = r.right - r.left ;
 475     if ( height )
 476         *height = r.bottom - r.top ;
 477 #else
 478     BitMap screenBits;
 479     GetQDGlobalsScreenBits( &screenBits );
 480
 481     if (x) *x = 0;
 482     if (y) *y = 0;
 483
 484     if (width != NULL) {
 485         *width = screenBits.bounds.right - screenBits.bounds.left  ;
 486     }
 487     if (height != NULL) {
 488         *height = screenBits.bounds.bottom - screenBits.bounds.top ;
 489     }
 490
 491     SInt16 mheight ;
 492 #if TARGET_CARBON
 493     GetThemeMenuBarHeight( &mheight ) ;
 494 #else
 495     mheight = LMGetMBarHeight() ;
 496 #endif
 497     if (height != NULL) {
 498         *height -= mheight ;
 499     }
 500     if (y)
 501         *y = mheight ;
 502 #endif
 503 }
 504
 505 wxWindow* wxFindWindowAtPoint(const wxPoint& pt)
 506 {
 507     return wxGenericFindWindowAtPoint(pt);
 508 }
 509
 510 #endif // wxUSE_GUI
 511
 512 #if wxUSE_BASE
 513
 514 wxString wxGetOsDescription()
 515 {
 516 #ifdef WXWIN_OS_DESCRIPTION
 517     // use configure generated description if available
 518     return wxString(wxT("MacOS (")) + wxT(WXWIN_OS_DESCRIPTION) + wxString(wxT(")"));
 519 #else
 520     return wxT("MacOS") ; //TODO:define further
 521 #endif
 522 }
 523
 524 #ifndef __DARWIN__
 525 wxChar *wxGetUserHome (const wxString& user)
 526 {
 527     // TODO
 528     return NULL;
 529 }
 530
 531 bool wxGetDiskSpace(const wxString& path, wxLongLong *pTotal, wxLongLong *pFree)
 532 {
 533     if ( path.empty() )
 534         return false;
 535
 536     wxString p = path ;
 537     if (p[0u] == ':' ) {
 538       p = wxGetCwd() + p ;
 539     }
 540
 541     int pos = p.Find(':') ;
 542     if ( pos != wxNOT_FOUND ) {
 543       p = p.Mid(1,pos) ;
 544     }
 545
 546     p = p + wxT(":") ;
 547
 548     Str255 volumeName ;
 549     XVolumeParam pb ;
 550
 551     wxMacStringToPascal( p  , volumeName ) ;
 552     OSErr err = XGetVolumeInfoNoName( volumeName , 0 , &pb ) ;
 553     if ( err == noErr ) {
 554       if ( pTotal ) {
 555         (*pTotal) = wxLongLong( pb.ioVTotalBytes ) ;
 556       }
 557       if ( pFree ) {
 558         (*pFree) = wxLongLong( pb.ioVFreeBytes ) ;
 559       }
 560     }
 561
 562     return err == noErr ;
 563 }
 564 #endif // !__DARWIN__
 565
 566 //---------------------------------------------------------------------------
 567 // wxMac Specific utility functions
 568 //---------------------------------------------------------------------------
 569
 570 void wxMacStringToPascal( const wxString&from , StringPtr to )
 571 {
 572     wxCharBuffer buf = from.mb_str( wxConvLocal ) ;
 573     int len = strlen(buf) ;
 574
 575     if ( len > 255 )
 576         len = 255 ;
 577     to[0] = len ;
 578     memcpy( (char*) &to[1] , buf , len ) ;
 579 }
 580
 581 wxString wxMacMakeStringFromPascal( ConstStringPtr from )
 582 {
 583     return wxString( (char*) &from[1] , wxConvLocal , from[0] ) ;
 584 }
 585
 586
 587 wxUint32 wxMacGetSystemEncFromFontEnc(wxFontEncoding encoding)
 588 {
 589     TextEncodingBase enc = 0 ;
 590     if ( encoding == wxFONTENCODING_DEFAULT )
 591     {
 592 #if wxUSE_GUI
 593         encoding = wxFont::GetDefaultEncoding() ;
 594 #else
 595         encoding = wxLocale::GetSystemEncoding() ;
 596 #endif
 597     }
 598
 599     switch( encoding)
 600     {
 601         case wxFONTENCODING_ISO8859_1 :
 602             enc = kTextEncodingISOLatin1 ;
 603             break ;
 604         case wxFONTENCODING_ISO8859_2 :
 605             enc = kTextEncodingISOLatin2;
 606             break ;
 607         case wxFONTENCODING_ISO8859_3 :
 608             enc = kTextEncodingISOLatin3 ;
 609             break ;
 610         case wxFONTENCODING_ISO8859_4 :
 611             enc = kTextEncodingISOLatin4;
 612             break ;
 613         case wxFONTENCODING_ISO8859_5 :
 614             enc = kTextEncodingISOLatinCyrillic;
 615             break ;
 616         case wxFONTENCODING_ISO8859_6 :
 617             enc = kTextEncodingISOLatinArabic;
 618             break ;
 619         case wxFONTENCODING_ISO8859_7 :
 620             enc = kTextEncodingISOLatinGreek;
 621             break ;
 622         case wxFONTENCODING_ISO8859_8 :
 623             enc = kTextEncodingISOLatinHebrew;
 624             break ;
 625         case wxFONTENCODING_ISO8859_9 :
 626             enc = kTextEncodingISOLatin5;
 627             break ;
 628         case wxFONTENCODING_ISO8859_10 :
 629             enc = kTextEncodingISOLatin6;
 630             break ;
 631         case wxFONTENCODING_ISO8859_13 :
 632             enc = kTextEncodingISOLatin7;
 633             break ;
 634         case wxFONTENCODING_ISO8859_14 :
 635             enc = kTextEncodingISOLatin8;
 636             break ;
 637         case wxFONTENCODING_ISO8859_15 :
 638             enc = kTextEncodingISOLatin9;
 639             break ;
 640
 641         case wxFONTENCODING_KOI8 :
 642             enc = kTextEncodingKOI8_R;
 643             break ;
 644         case wxFONTENCODING_ALTERNATIVE : // MS-DOS CP866
 645             enc = kTextEncodingDOSRussian;
 646             break ;
 647 /*
 648         case wxFONTENCODING_BULGARIAN :
 649             enc = ;
 650             break ;
 651 */
 652         case wxFONTENCODING_CP437 :
 653             enc =kTextEncodingDOSLatinUS ;
 654             break ;
 655         case wxFONTENCODING_CP850 :
 656             enc = kTextEncodingDOSLatin1;
 657             break ;
 658         case wxFONTENCODING_CP852 :
 659             enc = kTextEncodingDOSLatin2;
 660             break ;
 661         case wxFONTENCODING_CP855 :
 662             enc = kTextEncodingDOSCyrillic;
 663             break ;
 664         case wxFONTENCODING_CP866 :
 665             enc =kTextEncodingDOSRussian ;
 666             break ;
 667         case wxFONTENCODING_CP874 :
 668             enc = kTextEncodingDOSThai;
 669             break ;
 670         case wxFONTENCODING_CP932 :
 671             enc = kTextEncodingDOSJapanese;
 672             break ;
 673         case wxFONTENCODING_CP936 :
 674             enc =kTextEncodingDOSChineseSimplif ;
 675             break ;
 676         case wxFONTENCODING_CP949 :
 677             enc = kTextEncodingDOSKorean;
 678             break ;
 679         case wxFONTENCODING_CP950 :
 680             enc = kTextEncodingDOSChineseTrad;
 681             break ;
 682
 683         case wxFONTENCODING_CP1250 :
 684             enc = kTextEncodingWindowsLatin2;
 685             break ;
 686         case wxFONTENCODING_CP1251 :
 687             enc =kTextEncodingWindowsCyrillic ;
 688             break ;
 689         case wxFONTENCODING_CP1252 :
 690             enc =kTextEncodingWindowsLatin1 ;
 691             break ;
 692         case wxFONTENCODING_CP1253 :
 693             enc = kTextEncodingWindowsGreek;
 694             break ;
 695         case wxFONTENCODING_CP1254 :
 696             enc = kTextEncodingWindowsLatin5;
 697             break ;
 698         case wxFONTENCODING_CP1255 :
 699             enc =kTextEncodingWindowsHebrew ;
 700             break ;
 701         case wxFONTENCODING_CP1256 :
 702             enc =kTextEncodingWindowsArabic ;
 703             break ;
 704         case wxFONTENCODING_CP1257 :
 705             enc = kTextEncodingWindowsBalticRim;
 706             break ;
 707
 708         case wxFONTENCODING_UTF7 :
 709             enc = CreateTextEncoding(kTextEncodingUnicodeDefault,0,kUnicodeUTF7Format) ;
 710             break ;
 711         case wxFONTENCODING_UTF8 :
 712             enc = CreateTextEncoding(kTextEncodingUnicodeDefault,0,kUnicodeUTF8Format) ;
 713             break ;
 714         case wxFONTENCODING_EUC_JP :
 715             enc = kTextEncodingEUC_JP;
 716             break ;
 717         case wxFONTENCODING_UTF16BE :
 718             enc = CreateTextEncoding(kTextEncodingUnicodeDefault,0,kUnicode16BitFormat) ;
 719             break ;
 720         case wxFONTENCODING_UTF16LE :
 721             enc = CreateTextEncoding(kTextEncodingUnicodeDefault,0,kUnicode16BitFormat) ;
 722             break ;
 723         case wxFONTENCODING_UTF32BE :
 724             enc = CreateTextEncoding(kTextEncodingUnicodeDefault,0,kUnicode32BitFormat) ;
 725             break ;
 726         case wxFONTENCODING_UTF32LE :
 727             enc = CreateTextEncoding(kTextEncodingUnicodeDefault,0,kUnicode32BitFormat) ;
 728             break ;
 729
 730         case wxFONTENCODING_MACROMAN :
 731             enc = kTextEncodingMacRoman ;
 732             break ;
 733         case wxFONTENCODING_MACJAPANESE :
 734             enc = kTextEncodingMacJapanese ;
 735             break ;
 736         case wxFONTENCODING_MACCHINESETRAD :
 737             enc = kTextEncodingMacChineseTrad ;
 738             break ;
 739         case wxFONTENCODING_MACKOREAN :
 740             enc = kTextEncodingMacKorean ;
 741             break ;
 742         case wxFONTENCODING_MACARABIC :
 743             enc = kTextEncodingMacArabic ;
 744             break ;
 745         case wxFONTENCODING_MACHEBREW :
 746             enc = kTextEncodingMacHebrew ;
 747             break ;
 748         case wxFONTENCODING_MACGREEK :
 749             enc = kTextEncodingMacGreek ;
 750             break ;
 751         case wxFONTENCODING_MACCYRILLIC :
 752             enc = kTextEncodingMacCyrillic ;
 753             break ;
 754         case wxFONTENCODING_MACDEVANAGARI :
 755             enc = kTextEncodingMacDevanagari ;
 756             break ;
 757         case wxFONTENCODING_MACGURMUKHI :
 758             enc = kTextEncodingMacGurmukhi ;
 759             break ;
 760         case wxFONTENCODING_MACGUJARATI :
 761             enc = kTextEncodingMacGujarati ;
 762             break ;
 763         case wxFONTENCODING_MACORIYA :
 764             enc = kTextEncodingMacOriya ;
 765             break ;
 766         case wxFONTENCODING_MACBENGALI :
 767             enc = kTextEncodingMacBengali ;
 768             break ;
 769         case wxFONTENCODING_MACTAMIL :
 770             enc = kTextEncodingMacTamil ;
 771             break ;
 772         case wxFONTENCODING_MACTELUGU :
 773             enc = kTextEncodingMacTelugu ;
 774             break ;
 775         case wxFONTENCODING_MACKANNADA :
 776             enc = kTextEncodingMacKannada ;
 777             break ;
 778         case wxFONTENCODING_MACMALAJALAM :
 779             enc = kTextEncodingMacMalayalam ;
 780             break ;
 781         case wxFONTENCODING_MACSINHALESE :
 782             enc = kTextEncodingMacSinhalese ;
 783             break ;
 784         case wxFONTENCODING_MACBURMESE :
 785             enc = kTextEncodingMacBurmese ;
 786             break ;
 787         case wxFONTENCODING_MACKHMER :
 788             enc = kTextEncodingMacKhmer ;
 789             break ;
 790         case wxFONTENCODING_MACTHAI :
 791             enc = kTextEncodingMacThai ;
 792             break ;
 793         case wxFONTENCODING_MACLAOTIAN :
 794             enc = kTextEncodingMacLaotian ;
 795             break ;
 796         case wxFONTENCODING_MACGEORGIAN :
 797             enc = kTextEncodingMacGeorgian ;
 798             break ;
 799         case wxFONTENCODING_MACARMENIAN :
 800             enc = kTextEncodingMacArmenian ;
 801             break ;
 802         case wxFONTENCODING_MACCHINESESIMP :
 803             enc = kTextEncodingMacChineseSimp ;
 804             break ;
 805         case wxFONTENCODING_MACTIBETAN :
 806             enc = kTextEncodingMacTibetan ;
 807             break ;
 808         case wxFONTENCODING_MACMONGOLIAN :
 809             enc = kTextEncodingMacMongolian ;
 810             break ;
 811         case wxFONTENCODING_MACETHIOPIC :
 812             enc = kTextEncodingMacEthiopic ;
 813             break ;
 814         case wxFONTENCODING_MACCENTRALEUR :
 815             enc = kTextEncodingMacCentralEurRoman ;
 816             break ;
 817         case wxFONTENCODING_MACVIATNAMESE :
 818             enc = kTextEncodingMacVietnamese ;
 819             break ;
 820         case wxFONTENCODING_MACARABICEXT :
 821             enc = kTextEncodingMacExtArabic ;
 822             break ;
 823         case wxFONTENCODING_MACSYMBOL :
 824             enc = kTextEncodingMacSymbol ;
 825             break ;
 826         case wxFONTENCODING_MACDINGBATS :
 827             enc = kTextEncodingMacDingbats ;
 828             break ;
 829         case wxFONTENCODING_MACTURKISH :
 830             enc = kTextEncodingMacTurkish ;
 831             break ;
 832         case wxFONTENCODING_MACCROATIAN :
 833             enc = kTextEncodingMacCroatian ;
 834             break ;
 835         case wxFONTENCODING_MACICELANDIC :
 836             enc = kTextEncodingMacIcelandic ;
 837             break ;
 838         case wxFONTENCODING_MACROMANIAN :
 839             enc = kTextEncodingMacRomanian ;
 840             break ;
 841         case wxFONTENCODING_MACCELTIC :
 842             enc = kTextEncodingMacCeltic ;
 843             break ;
 844         case wxFONTENCODING_MACGAELIC :
 845             enc = kTextEncodingMacGaelic ;
 846             break ;
 847         case wxFONTENCODING_MACKEYBOARD :
 848             enc = kTextEncodingMacKeyboardGlyphs ;
 849             break ;
 850         default :
 851             // to make gcc happy
 852             break ;
 853     } ;
 854     return enc ;
 855 }
 856
 857 wxFontEncoding wxMacGetFontEncFromSystemEnc(wxUint32 encoding)
 858 {
 859     wxFontEncoding enc = wxFONTENCODING_DEFAULT ;
 860
 861     switch( encoding)
 862     {
 863         case kTextEncodingISOLatin1  :
 864             enc = wxFONTENCODING_ISO8859_1 ;
 865             break ;
 866         case kTextEncodingISOLatin2 :
 867             enc = wxFONTENCODING_ISO8859_2;
 868             break ;
 869         case kTextEncodingISOLatin3 :
 870             enc = wxFONTENCODING_ISO8859_3 ;
 871             break ;
 872         case kTextEncodingISOLatin4 :
 873             enc = wxFONTENCODING_ISO8859_4;
 874             break ;
 875         case kTextEncodingISOLatinCyrillic :
 876             enc = wxFONTENCODING_ISO8859_5;
 877             break ;
 878         case kTextEncodingISOLatinArabic :
 879             enc = wxFONTENCODING_ISO8859_6;
 880             break ;
 881         case kTextEncodingISOLatinGreek :
 882             enc = wxFONTENCODING_ISO8859_7;
 883             break ;
 884         case kTextEncodingISOLatinHebrew :
 885             enc = wxFONTENCODING_ISO8859_8;
 886             break ;
 887         case kTextEncodingISOLatin5 :
 888             enc = wxFONTENCODING_ISO8859_9;
 889             break ;
 890         case kTextEncodingISOLatin6 :
 891             enc = wxFONTENCODING_ISO8859_10;
 892             break ;
 893         case kTextEncodingISOLatin7 :
 894             enc = wxFONTENCODING_ISO8859_13;
 895             break ;
 896         case kTextEncodingISOLatin8 :
 897             enc = wxFONTENCODING_ISO8859_14;
 898             break ;
 899         case kTextEncodingISOLatin9 :
 900             enc =wxFONTENCODING_ISO8859_15 ;
 901             break ;
 902
 903         case kTextEncodingKOI8_R :
 904             enc = wxFONTENCODING_KOI8;
 905             break ;
 906 /*
 907         case  :
 908             enc = wxFONTENCODING_BULGARIAN;
 909             break ;
 910 */
 911         case kTextEncodingDOSLatinUS :
 912             enc = wxFONTENCODING_CP437;
 913             break ;
 914         case kTextEncodingDOSLatin1 :
 915             enc = wxFONTENCODING_CP850;
 916             break ;
 917         case kTextEncodingDOSLatin2 :
 918             enc =wxFONTENCODING_CP852 ;
 919             break ;
 920         case kTextEncodingDOSCyrillic :
 921             enc = wxFONTENCODING_CP855;
 922             break ;
 923         case kTextEncodingDOSRussian :
 924             enc = wxFONTENCODING_CP866;
 925             break ;
 926         case kTextEncodingDOSThai :
 927             enc =wxFONTENCODING_CP874 ;
 928             break ;
 929         case kTextEncodingDOSJapanese :
 930             enc = wxFONTENCODING_CP932;
 931             break ;
 932         case kTextEncodingDOSChineseSimplif :
 933             enc = wxFONTENCODING_CP936;
 934             break ;
 935         case kTextEncodingDOSKorean :
 936             enc = wxFONTENCODING_CP949;
 937             break ;
 938         case kTextEncodingDOSChineseTrad :
 939             enc = wxFONTENCODING_CP950;
 940             break ;
 941
 942         case kTextEncodingWindowsLatin2 :
 943             enc = wxFONTENCODING_CP1250;
 944             break ;
 945         case kTextEncodingWindowsCyrillic :
 946             enc = wxFONTENCODING_CP1251;
 947             break ;
 948         case kTextEncodingWindowsLatin1 :
 949             enc = wxFONTENCODING_CP1252;
 950             break ;
 951         case kTextEncodingWindowsGreek :
 952             enc = wxFONTENCODING_CP1253;
 953             break ;
 954         case kTextEncodingWindowsLatin5 :
 955             enc = wxFONTENCODING_CP1254;
 956             break ;
 957         case kTextEncodingWindowsHebrew :
 958             enc = wxFONTENCODING_CP1255;
 959             break ;
 960         case kTextEncodingWindowsArabic :
 961             enc = wxFONTENCODING_CP1256;
 962             break ;
 963         case kTextEncodingWindowsBalticRim :
 964             enc =wxFONTENCODING_CP1257 ;
 965             break ;
 966         case kTextEncodingEUC_JP :
 967             enc = wxFONTENCODING_EUC_JP;
 968             break ;
 969             /*
 970         case wxFONTENCODING_UTF7 :
 971             enc = CreateTextEncoding(kTextEncodingUnicodeDefault,0,kUnicodeUTF7Format) ;
 972             break ;
 973         case wxFONTENCODING_UTF8 :
 974             enc = CreateTextEncoding(kTextEncodingUnicodeDefault,0,kUnicodeUTF8Format) ;
 975             break ;
 976         case wxFONTENCODING_UTF16BE :
 977             enc = CreateTextEncoding(kTextEncodingUnicodeDefault,0,kUnicode16BitFormat) ;
 978             break ;
 979         case wxFONTENCODING_UTF16LE :
 980             enc = CreateTextEncoding(kTextEncodingUnicodeDefault,0,kUnicode16BitFormat) ;
 981             break ;
 982         case wxFONTENCODING_UTF32BE :
 983             enc = CreateTextEncoding(kTextEncodingUnicodeDefault,0,kUnicode32BitFormat) ;
 984             break ;
 985         case wxFONTENCODING_UTF32LE :
 986             enc = CreateTextEncoding(kTextEncodingUnicodeDefault,0,kUnicode32BitFormat) ;
 987             break ;
 988         */
 989         case kTextEncodingMacRoman :
 990             enc = wxFONTENCODING_MACROMAN ;
 991             break ;
 992         case kTextEncodingMacJapanese :
 993             enc = wxFONTENCODING_MACJAPANESE ;
 994             break ;
 995         case kTextEncodingMacChineseTrad :
 996             enc = wxFONTENCODING_MACCHINESETRAD ;
 997             break ;
 998         case kTextEncodingMacKorean :
 999             enc = wxFONTENCODING_MACKOREAN ;
1000             break ;
1001         case kTextEncodingMacArabic :
1002             enc =wxFONTENCODING_MACARABIC ;
1003             break ;
1004         case kTextEncodingMacHebrew :
1005             enc = wxFONTENCODING_MACHEBREW ;
1006             break ;
1007         case kTextEncodingMacGreek :
1008             enc = wxFONTENCODING_MACGREEK ;
1009             break ;
1010         case kTextEncodingMacCyrillic :
1011             enc = wxFONTENCODING_MACCYRILLIC ;
1012             break ;
1013         case kTextEncodingMacDevanagari :
1014             enc = wxFONTENCODING_MACDEVANAGARI ;
1015             break ;
1016         case kTextEncodingMacGurmukhi :
1017             enc = wxFONTENCODING_MACGURMUKHI ;
1018             break ;
1019         case kTextEncodingMacGujarati :
1020             enc = wxFONTENCODING_MACGUJARATI ;
1021             break ;
1022         case kTextEncodingMacOriya :
1023             enc =wxFONTENCODING_MACORIYA ;
1024             break ;
1025         case kTextEncodingMacBengali :
1026             enc =wxFONTENCODING_MACBENGALI ;
1027             break ;
1028         case kTextEncodingMacTamil :
1029             enc = wxFONTENCODING_MACTAMIL ;
1030             break ;
1031         case kTextEncodingMacTelugu :
1032             enc = wxFONTENCODING_MACTELUGU ;
1033             break ;
1034         case kTextEncodingMacKannada :
1035             enc = wxFONTENCODING_MACKANNADA ;
1036             break ;
1037         case kTextEncodingMacMalayalam :
1038             enc = wxFONTENCODING_MACMALAJALAM ;
1039             break ;
1040         case kTextEncodingMacSinhalese :
1041             enc = wxFONTENCODING_MACSINHALESE ;
1042             break ;
1043         case kTextEncodingMacBurmese :
1044             enc = wxFONTENCODING_MACBURMESE ;
1045             break ;
1046         case kTextEncodingMacKhmer :
1047             enc = wxFONTENCODING_MACKHMER ;
1048             break ;
1049         case kTextEncodingMacThai :
1050             enc = wxFONTENCODING_MACTHAI ;
1051             break ;
1052         case kTextEncodingMacLaotian :
1053             enc = wxFONTENCODING_MACLAOTIAN ;
1054             break ;
1055         case kTextEncodingMacGeorgian :
1056             enc = wxFONTENCODING_MACGEORGIAN ;
1057             break ;
1058         case kTextEncodingMacArmenian :
1059             enc = wxFONTENCODING_MACARMENIAN ;
1060             break ;
1061         case kTextEncodingMacChineseSimp :
1062             enc = wxFONTENCODING_MACCHINESESIMP ;
1063             break ;
1064         case kTextEncodingMacTibetan :
1065             enc = wxFONTENCODING_MACTIBETAN ;
1066             break ;
1067         case kTextEncodingMacMongolian :
1068             enc = wxFONTENCODING_MACMONGOLIAN ;
1069             break ;
1070         case kTextEncodingMacEthiopic :
1071             enc = wxFONTENCODING_MACETHIOPIC ;
1072             break ;
1073         case kTextEncodingMacCentralEurRoman:
1074             enc = wxFONTENCODING_MACCENTRALEUR  ;
1075             break ;
1076         case kTextEncodingMacVietnamese:
1077             enc = wxFONTENCODING_MACVIATNAMESE  ;
1078             break ;
1079         case kTextEncodingMacExtArabic :
1080             enc = wxFONTENCODING_MACARABICEXT ;
1081             break ;
1082         case kTextEncodingMacSymbol :
1083             enc = wxFONTENCODING_MACSYMBOL ;
1084             break ;
1085         case kTextEncodingMacDingbats :
1086             enc = wxFONTENCODING_MACDINGBATS ;
1087             break ;
1088         case kTextEncodingMacTurkish :
1089             enc = wxFONTENCODING_MACTURKISH ;
1090             break ;
1091         case kTextEncodingMacCroatian :
1092             enc = wxFONTENCODING_MACCROATIAN ;
1093             break ;
1094         case kTextEncodingMacIcelandic :
1095             enc = wxFONTENCODING_MACICELANDIC ;
1096             break ;
1097         case kTextEncodingMacRomanian :
1098             enc = wxFONTENCODING_MACROMANIAN ;
1099             break ;
1100         case kTextEncodingMacCeltic :
1101             enc = wxFONTENCODING_MACCELTIC ;
1102             break ;
1103         case kTextEncodingMacGaelic :
1104             enc = wxFONTENCODING_MACGAELIC ;
1105             break ;
1106         case kTextEncodingMacKeyboardGlyphs :
1107             enc = wxFONTENCODING_MACKEYBOARD ;
1108             break ;
1109     } ;
1110     return enc ;
1111 }
1112
1113 #endif // wxUSE_BASE
1114
1115 #if wxUSE_GUI
1116
1117
1118 //
1119 // CFStringRefs (Carbon only)
1120 //
1121
1122 #if TARGET_CARBON
1123
1124 // converts this string into a carbon foundation string with optional pc 2 mac encoding
1125 void wxMacCFStringHolder::Assign( const wxString &st , wxFontEncoding encoding )
1126 {
1127     Release() ;
1128
1129     wxString str = st ;
1130     wxMacConvertNewlines13To10( &str ) ;
1131 #if wxUSE_UNICODE
1132 #if SIZEOF_WCHAR_T == 2
1133     m_cfs = CFStringCreateWithCharacters( kCFAllocatorDefault,
1134             (UniChar*)str.wc_str() , str.Len() );
1135 #else
1136     wxMBConvUTF16BE converter ;
1137     size_t unicharlen = converter.WC2MB( NULL , str.wc_str() , 0 ) ;
1138     UniChar *unibuf = new UniChar[ unicharlen / sizeof(UniChar) + 1 ] ;
1139     converter.WC2MB( (char*)unibuf , str.wc_str() , unicharlen ) ;
1140     m_cfs = CFStringCreateWithCharacters( kCFAllocatorDefault ,
1141         unibuf , unicharlen / sizeof(UniChar) ) ;
1142     delete[] unibuf ;
1143 #endif
1144 #else // not wxUSE_UNICODE
1145     m_cfs = CFStringCreateWithCString( kCFAllocatorSystemDefault , str.c_str() ,
1146         wxMacGetSystemEncFromFontEnc( encoding ) ) ;
1147 #endif
1148     m_release = true ;
1149 }
1150
1151 wxString wxMacCFStringHolder::AsString(wxFontEncoding encoding)
1152 {
1153     Size cflen = CFStringGetLength( m_cfs )  ;
1154     size_t noChars ;
1155     wxChar* buf = NULL ;
1156
1157 #if wxUSE_UNICODE
1158 #if SIZEOF_WCHAR_T == 2
1159     buf = new wxChar[ cflen + 1 ] ;
1160     CFStringGetCharacters( m_cfs , CFRangeMake( 0 , cflen ) , (UniChar*) buf ) ;
1161     noChars = cflen ;
1162 #else
1163     UniChar* unibuf = new UniChar[ cflen + 1 ] ;
1164     CFStringGetCharacters( m_cfs , CFRangeMake( 0 , cflen ) , (UniChar*) unibuf ) ;
1165     unibuf[cflen] = 0 ;
1166     wxMBConvUTF16BE converter ;
1167     noChars = converter.MB2WC( NULL , (const char*)unibuf , 0 ) ;
1168     buf = new wxChar[ noChars + 1 ] ;
1169     converter.MB2WC( buf , (const char*)unibuf , noChars ) ;
1170     delete[] unibuf ;
1171 #endif
1172 #else
1173     CFIndex cStrLen ;
1174     CFStringGetBytes( m_cfs , CFRangeMake(0, cflen) , wxMacGetSystemEncFromFontEnc( encoding ) ,
1175         '?' , false , NULL , 0 , &cStrLen ) ;
1176     buf = new wxChar[ cStrLen + 1 ] ;
1177     CFStringGetBytes( m_cfs , CFRangeMake(0, cflen) , wxMacGetSystemEncFromFontEnc( encoding ) ,
1178         '?' , false , (unsigned char*) buf , cStrLen , &cStrLen) ;
1179     noChars = cStrLen ;
1180 #endif
1181
1182     buf[noChars] = 0 ;
1183     wxMacConvertNewlines10To13( buf ) ;
1184     wxString result(buf) ;
1185     delete[] buf ;
1186     return result ;
1187 }
1188
1189 #endif //TARGET_CARBON
1190
1191 void wxMacConvertNewlines13To10( char * data )
1192 {
1193     char * buf = data ;
1194     while( (buf=strchr(buf,0x0d)) != NULL )
1195     {
1196         *buf = 0x0a ;
1197         buf++ ;
1198     }
1199 }
1200
1201 void wxMacConvertNewlines10To13( char * data )
1202 {
1203     char * buf = data ;
1204     while( (buf=strchr(buf,0x0a)) != NULL )
1205     {
1206         *buf = 0x0d ;
1207         buf++ ;
1208     }
1209 }
1210
1211 void wxMacConvertNewlines13To10( wxString * data )
1212 {
1213     size_t len = data->Length() ;
1214
1215     if ( len == 0 || wxStrchr(data->c_str(),0x0d)==NULL)
1216         return ;
1217
1218     wxString temp(*data) ;
1219     wxStringBuffer buf(*data,len ) ;
1220     memcpy( buf , temp.c_str() , (len+1)*sizeof(wxChar) ) ;
1221
1222     wxMacConvertNewlines13To10( buf ) ;
1223 }
1224
1225 void wxMacConvertNewlines10To13( wxString * data )
1226 {
1227     size_t len = data->Length() ;
1228
1229     if ( data->Length() == 0 || wxStrchr(data->c_str(),0x0a)==NULL)
1230         return ;
1231
1232     wxString temp(*data) ;
1233     wxStringBuffer buf(*data,len ) ;
1234     memcpy( buf , temp.c_str() , (len+1)*sizeof(wxChar) ) ;
1235     wxMacConvertNewlines10To13( buf ) ;
1236 }
1237
1238
1239 #if wxUSE_UNICODE
1240 void wxMacConvertNewlines13To10( wxChar * data )
1241 {
1242     wxChar * buf = data ;
1243     while( (buf=wxStrchr(buf,0x0d)) != NULL )
1244     {
1245         *buf = 0x0a ;
1246         buf++ ;
1247     }
1248 }
1249
1250 void wxMacConvertNewlines10To13( wxChar * data )
1251 {
1252     wxChar * buf =  data ;
1253     while( (buf=wxStrchr(buf,0x0a)) != NULL )
1254     {
1255         *buf = 0x0d ;
1256         buf++ ;
1257     }
1258 }
1259 #endif
1260
1261 // ----------------------------------------------------------------------------
1262 // debugging support
1263 // ----------------------------------------------------------------------------
1264
1265 #if defined(__WXMAC__) && !defined(__DARWIN__) && defined(__MWERKS__) && (__MWERKS__ >= 0x2400)
1266
1267 // MetroNub stuff doesn't seem to work in CodeWarrior 5.3 Carbon builds...
1268
1269 #ifndef __MetroNubUtils__
1270 #include "MetroNubUtils.h"
1271 #endif
1272
1273 #ifndef __GESTALT__
1274 #include <Gestalt.h>
1275 #endif
1276
1277 #if TARGET_API_MAC_CARBON
1278
1279     #include <CodeFragments.h>
1280
1281     extern "C" long CallUniversalProc(UniversalProcPtr theProcPtr, ProcInfoType procInfo, ...);
1282
1283     ProcPtr gCallUniversalProc_Proc = NULL;
1284
1285 #endif
1286
1287 static MetroNubUserEntryBlock*    gMetroNubEntry = NULL;
1288
1289 static long fRunOnce = false;
1290
1291 /* ---------------------------------------------------------------------------
1292         IsMetroNubInstalled
1293    --------------------------------------------------------------------------- */
1294
1295 Boolean IsMetroNubInstalled()
1296 {
1297     if (!fRunOnce)
1298     {
1299         long result, value;
1300
1301         fRunOnce = true;
1302         gMetroNubEntry = NULL;
1303
1304         if (Gestalt(gestaltSystemVersion, &value) == noErr && value < 0x1000)
1305         {
1306             /* look for MetroNub's Gestalt selector */
1307             if (Gestalt(kMetroNubUserSignature, &result) == noErr)
1308             {
1309
1310             #if TARGET_API_MAC_CARBON
1311                 if (gCallUniversalProc_Proc == NULL)
1312                 {
1313                     CFragConnectionID   connectionID;
1314                     Ptr                 mainAddress;
1315                     Str255              errorString;
1316                     ProcPtr             symbolAddress;
1317                     OSErr               err;
1318                     CFragSymbolClass    symbolClass;
1319
1320                     symbolAddress = NULL;
1321                     err = GetSharedLibrary("\pInterfaceLib", kPowerPCCFragArch, kFindCFrag,
1322                                            &connectionID, &mainAddress, errorString);
1323
1324                     if (err != noErr)
1325                     {
1326                         gCallUniversalProc_Proc = NULL;
1327                         goto end;
1328                     }
1329
1330                     err = FindSymbol(connectionID, "\pCallUniversalProc",
1331                                     (Ptr *) &gCallUniversalProc_Proc, &symbolClass);
1332
1333                     if (err != noErr)
1334                     {
1335                         gCallUniversalProc_Proc = NULL;
1336                         goto end;
1337                     }
1338                 }
1339             #endif
1340
1341                 {
1342                     MetroNubUserEntryBlock* block = (MetroNubUserEntryBlock *)result;
1343
1344                     /* make sure the version of the API is compatible */
1345                     if (block->apiLowVersion <= kMetroNubUserAPIVersion &&
1346                         kMetroNubUserAPIVersion <= block->apiHiVersion)
1347                         gMetroNubEntry = block;        /* success! */
1348                 }
1349
1350             }
1351         }
1352     }
1353
1354 end:
1355
1356 #if TARGET_API_MAC_CARBON
1357     return (gMetroNubEntry != NULL && gCallUniversalProc_Proc != NULL);
1358 #else
1359     return (gMetroNubEntry != NULL);
1360 #endif
1361 }
1362
1363 /* ---------------------------------------------------------------------------
1364         IsMWDebuggerRunning                                            [v1 API]
1365    --------------------------------------------------------------------------- */
1366
1367 Boolean IsMWDebuggerRunning()
1368 {
1369     if (IsMetroNubInstalled())
1370         return CallIsDebuggerRunningProc(gMetroNubEntry->isDebuggerRunning);
1371     else
1372         return false;
1373 }
1374
1375 /* ---------------------------------------------------------------------------
1376         AmIBeingMWDebugged                                            [v1 API]
1377    --------------------------------------------------------------------------- */
1378
1379 Boolean AmIBeingMWDebugged()
1380 {
1381     if (IsMetroNubInstalled())
1382         return CallAmIBeingDebuggedProc(gMetroNubEntry->amIBeingDebugged);
1383     else
1384         return false;
1385 }
1386
1387 extern bool WXDLLEXPORT wxIsDebuggerRunning()
1388 {
1389     return IsMWDebuggerRunning() && AmIBeingMWDebugged();
1390 }
1391
1392 #else
1393
1394 extern bool WXDLLEXPORT wxIsDebuggerRunning()
1395 {
1396     return false;
1397 }
1398
1399 #endif // defined(__WXMAC__) && !defined(__DARWIN__) && (__MWERKS__ >= 0x2400)
1400
1401 #endif // wxUSE_GUI
1402