]> git.saurik.com Git - wxWidgets.git/blame - src/mac/classic/utils.cpp
changed background color reference from light gray to assigned bkgd color
[wxWidgets.git] / src / mac / classic / utils.cpp
CommitLineData
2646f485
SC
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
65571936 9// Licence: wxWindows licence
2646f485
SC
10/////////////////////////////////////////////////////////////////////////////
11
2646f485
SC
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"
9d8aca48 19 #include "wx/font.h"
2646f485 20#else
9d8aca48 21 #include "wx/intl.h"
2646f485
SC
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
58static 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)
84bool wxGetFullHostName(wxChar *buf, int maxSize)
85{
86 return wxGetHostName(buf, maxSize);
87}
88
89// Get hostname only (without domain name)
90bool 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
9d8aca48 112 return true;
2646f485
SC
113}
114
115// Get user ID e.g. jacs
116bool wxGetUserId(wxChar *buf, int maxSize)
117{
118 return wxGetUserName( buf , maxSize ) ;
119}
120
121const 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
128bool 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
9d8aca48 150 return true;
2646f485
SC
151}
152
e0f6b731 153int wxKill(long pid, wxSignal sig , wxKillError *rc, int flags)
2646f485
SC
154{
155 // TODO
156 return 0;
157}
158
159WXDLLEXPORT 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
9d8aca48 165// set the env var name to the given value, return true on success
2646f485
SC
166WXDLLEXPORT 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//
175bool wxShell(const wxString& command)
176{
177 // TODO
9d8aca48 178 return false;
2646f485
SC
179}
180
181// Shutdown or reboot the PC
182bool wxShutdown(wxShutdownFlags wFlags)
183{
184 // TODO
9d8aca48 185 return false;
2646f485
SC
186}
187
8ea92b4d
WS
188wxPowerType wxGetPowerType()
189{
190 // TODO
191 return wxPOWER_UNKNOWN;
192}
193
194wxBatteryState wxGetBatteryState()
195{
196 // TODO
197 return wxBATTERY_UNKNOWN_STATE;
198}
199
2646f485 200// Get free memory in bytes, or -1 if cannot determine amount (e.g. on UNIX)
9d8aca48 201wxMemorySize wxGetFreeMemory()
2646f485 202{
9d8aca48 203 return (wxMemorySize)FreeMem() ;
2646f485
SC
204}
205
206void 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
215void wxSleep(int nSecs)
216{
217 wxUsleep(1000*nSecs);
218}
219
220// Consume all events until no more left
221void wxFlushEvents()
222{
223}
224
225#endif // !__DARWIN__
226
227// Emit a beeeeeep
228void wxBell()
229{
230 SysBeep(30);
231}
232
233wxToolkitInfo& 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
245wxToolkitInfo& 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
260bool wxWriteResource(const wxString& section, const wxString& entry, const wxString& value, const wxString& file)
261{
262 // TODO
9d8aca48 263 return false;
2646f485
SC
264}
265
266bool 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
274bool 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
282bool 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
290bool wxGetResource(const wxString& section, const wxString& entry, char **value, const wxString& file)
291{
292 // TODO
9d8aca48 293 return false;
2646f485
SC
294}
295
296bool 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;
9d8aca48 304 return true;
2646f485 305 }
9d8aca48 306 else return false;
2646f485
SC
307}
308
309bool 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;
9d8aca48 317 return true;
2646f485 318 }
9d8aca48 319 else return false;
2646f485
SC
320}
321
322bool 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;
9d8aca48 330 return true;
2646f485 331 }
9d8aca48 332 else return false;
2646f485
SC
333}
334#endif // wxUSE_RESOURCES
335
336int gs_wxBusyCursorCount = 0;
337extern wxCursor gMacCurrentCursor ;
338wxCursor gMacStoredActiveCursor ;
339
340// Set the cursor to the busy cursor for all windows
341void 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
352void 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
9d8aca48 364// true if we're between the above two calls
2646f485
SC
365bool wxIsBusy()
366{
367 return (gs_wxBusyCursorCount > 0);
368}
369
370#endif // wxUSE_GUI
371
372#if wxUSE_BASE
373
374wxString 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.
399bool wxCheckForInterrupt(wxWindow *wnd)
400{
401 // TODO
9d8aca48 402 return false;
2646f485
SC
403}
404
405void 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
9d8aca48 415// Return true if we have a colour display
2646f485
SC
416bool wxColourDisplay()
417{
9d8aca48 418 return true;
2646f485
SC
419}
420
421// Returns depth of screen
422int 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
437void 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
450void 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
464void 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
505wxWindow* wxFindWindowAtPoint(const wxPoint& pt)
506{
507 return wxGenericFindWindowAtPoint(pt);
508}
509
510#endif // wxUSE_GUI
511
512#if wxUSE_BASE
513
514wxString 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__
525wxChar *wxGetUserHome (const wxString& user)
526{
527 // TODO
528 return NULL;
529}
530
531bool wxGetDiskSpace(const wxString& path, wxLongLong *pTotal, wxLongLong *pFree)
532{
533 if ( path.empty() )
9d8aca48 534 return false;
2646f485
SC
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
570void 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
581wxString wxMacMakeStringFromPascal( ConstStringPtr from )
582{
583 return wxString( (char*) &from[1] , wxConvLocal , from[0] ) ;
584}
585
586
587wxUint32 wxMacGetSystemEncFromFontEnc(wxFontEncoding encoding)
9d8aca48
WS
588{
589 TextEncodingBase enc = 0 ;
590 if ( encoding == wxFONTENCODING_DEFAULT )
591 {
2646f485 592#if wxUSE_GUI
9d8aca48 593 encoding = wxFont::GetDefaultEncoding() ;
2646f485 594#else
9d8aca48 595 encoding = wxLocale::GetSystemEncoding() ;
2646f485 596#endif
9d8aca48
WS
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 ;
2646f485 647/*
9d8aca48
WS
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 ;
2646f485
SC
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 ;
9d8aca48
WS
849 break ;
850 default :
851 // to make gcc happy
852 break ;
853 } ;
854 return enc ;
2646f485
SC
855}
856
857wxFontEncoding wxMacGetFontEncFromSystemEnc(wxUint32 encoding)
9d8aca48
WS
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 ;
2646f485 906/*
9d8aca48
WS
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 ;
2646f485
SC
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 ;
9d8aca48
WS
1108 break ;
1109 } ;
1110 return enc ;
2646f485
SC
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
1125void wxMacCFStringHolder::Assign( const wxString &st , wxFontEncoding encoding )
1126{
9d8aca48 1127 Release() ;
2646f485 1128
9d8aca48 1129 wxString str = st ;
2646f485
SC
1130 wxMacConvertNewlines13To10( &str ) ;
1131#if wxUSE_UNICODE
1132#if SIZEOF_WCHAR_T == 2
9d8aca48
WS
1133 m_cfs = CFStringCreateWithCharacters( kCFAllocatorDefault,
1134 (UniChar*)str.wc_str() , str.Len() );
2646f485 1135#else
9d8aca48 1136 wxMBConvUTF16BE converter ;
2646f485
SC
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
1151wxString wxMacCFStringHolder::AsString(wxFontEncoding encoding)
1152{
1153 Size cflen = CFStringGetLength( m_cfs ) ;
1154 size_t noChars ;
1155 wxChar* buf = NULL ;
9d8aca48 1156
2646f485
SC
1157#if wxUSE_UNICODE
1158#if SIZEOF_WCHAR_T == 2
9d8aca48 1159 buf = new wxChar[ cflen + 1 ] ;
2646f485
SC
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 ;
9d8aca48
WS
1166 wxMBConvUTF16BE converter ;
1167 noChars = converter.MB2WC( NULL , (const char*)unibuf , 0 ) ;
2646f485
SC
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 ) ;
9d8aca48 1176 buf = new wxChar[ cStrLen + 1 ] ;
2646f485
SC
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
9d8aca48
WS
1191void wxMacConvertNewlines13To10( char * data )
1192{
1193 char * buf = data ;
2646f485
SC
1194 while( (buf=strchr(buf,0x0d)) != NULL )
1195 {
1196 *buf = 0x0a ;
1197 buf++ ;
1198 }
1199}
1200
1201void wxMacConvertNewlines10To13( char * data )
9d8aca48
WS
1202{
1203 char * buf = data ;
2646f485
SC
1204 while( (buf=strchr(buf,0x0a)) != NULL )
1205 {
1206 *buf = 0x0d ;
1207 buf++ ;
1208 }
1209}
1210
9d8aca48
WS
1211void wxMacConvertNewlines13To10( wxString * data )
1212{
2646f485
SC
1213 size_t len = data->Length() ;
1214
1215 if ( len == 0 || wxStrchr(data->c_str(),0x0d)==NULL)
1216 return ;
9d8aca48 1217
2646f485
SC
1218 wxString temp(*data) ;
1219 wxStringBuffer buf(*data,len ) ;
9d8aca48 1220 memcpy( buf , temp.c_str() , (len+1)*sizeof(wxChar) ) ;
2646f485 1221
9d8aca48 1222 wxMacConvertNewlines13To10( buf ) ;
2646f485
SC
1223}
1224
1225void wxMacConvertNewlines10To13( wxString * data )
9d8aca48 1226{
2646f485
SC
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 ) ;
9d8aca48
WS
1234 memcpy( buf , temp.c_str() , (len+1)*sizeof(wxChar) ) ;
1235 wxMacConvertNewlines10To13( buf ) ;
2646f485
SC
1236}
1237
1238
1239#if wxUSE_UNICODE
9d8aca48
WS
1240void wxMacConvertNewlines13To10( wxChar * data )
1241{
1242 wxChar * buf = data ;
2646f485
SC
1243 while( (buf=wxStrchr(buf,0x0d)) != NULL )
1244 {
1245 *buf = 0x0a ;
1246 buf++ ;
1247 }
1248}
1249
1250void wxMacConvertNewlines10To13( wxChar * data )
9d8aca48
WS
1251{
1252 wxChar * buf = data ;
2646f485
SC
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
1287static MetroNubUserEntryBlock* gMetroNubEntry = NULL;
1288
1289static long fRunOnce = false;
1290
1291/* ---------------------------------------------------------------------------
1292 IsMetroNubInstalled
1293 --------------------------------------------------------------------------- */
1294
1295Boolean 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
1354end:
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
1367Boolean IsMWDebuggerRunning()
1368{
1369 if (IsMetroNubInstalled())
1370 return CallIsDebuggerRunningProc(gMetroNubEntry->isDebuggerRunning);
1371 else
1372 return false;
1373}
1374
1375/* ---------------------------------------------------------------------------
1376 AmIBeingMWDebugged [v1 API]
1377 --------------------------------------------------------------------------- */
1378
1379Boolean AmIBeingMWDebugged()
1380{
1381 if (IsMetroNubInstalled())
1382 return CallAmIBeingDebuggedProc(gMetroNubEntry->amIBeingDebugged);
1383 else
1384 return false;
1385}
1386
1387extern bool WXDLLEXPORT wxIsDebuggerRunning()
1388{
1389 return IsMWDebuggerRunning() && AmIBeingMWDebugged();
1390}
1391
1392#else
1393
1394extern bool WXDLLEXPORT wxIsDebuggerRunning()
1395{
1396 return false;
1397}
1398
1399#endif // defined(__WXMAC__) && !defined(__DARWIN__) && (__MWERKS__ >= 0x2400)
1400
1401#endif // wxUSE_GUI
1402