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