+#include "wx/wxprec.h"
+
+#include "wx/utils.h"
+
+#ifndef WX_PRECOMP
+ #include "wx/intl.h"
+ #include "wx/app.h"
+ #if wxUSE_GUI
+ #include "wx/toplevel.h"
+ #include "wx/font.h"
+ #endif
+#endif
+
+#include "wx/apptrait.h"
+
+#if wxUSE_GUI
+ #include "wx/mac/uma.h"
+#endif
+
+#include <ctype.h>
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <stdarg.h>
+
+// #include "MoreFilesX.h"
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_5
+ #include <AudioToolbox/AudioServices.h>
+#endif
+
+#if wxUSE_GUI
+ #include <CoreServices/CoreServices.h>
+ #include <Carbon/Carbon.h>
+ #include "wx/mac/private/timer.h"
+#endif // wxUSE_GUI
+
+#include "wx/evtloop.h"
+#include "wx/mac/private.h"
+
+#if defined(__MWERKS__) && wxUSE_UNICODE
+#if __MWERKS__ < 0x4100
+ #include <wtime.h>
+#endif
+#endif
+
+#if wxUSE_BASE
+
+// our OS version is the same in non GUI and GUI cases
+wxOperatingSystemId wxGetOsVersion(int *majorVsn, int *minorVsn)
+{
+ SInt32 theSystem;
+ Gestalt(gestaltSystemVersion, &theSystem);
+
+ if ( majorVsn != NULL )
+ *majorVsn = (theSystem >> 8);
+
+ if ( minorVsn != NULL )
+ *minorVsn = (theSystem & 0xFF);
+
+#if defined( __DARWIN__ )
+ return wxOS_MAC_OSX_DARWIN;
+#else
+ return wxOS_MAC_OS;
+#endif
+}
+
+extern bool WXDLLEXPORT wxIsDebuggerRunning()
+{
+ // TODO : try to find out ...
+ return false;
+}
+
+// Emit a beeeeeep
+void wxBell()
+{
+#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_5
+ if ( AudioServicesPlayAlertSound )
+ AudioServicesPlayAlertSound(kUserPreferredAlert);
+ else
+#endif
+#if MAC_OS_X_VERSION_MIN_REQUIRED < MAC_OS_X_VERSION_10_5
+ SysBeep(30);
+#else
+ {
+ }
+#endif
+}
+
+
+#endif // wxUSE_BASE
+
+#if wxUSE_GUI
+
+wxPortId wxGUIAppTraits::GetToolkitVersion(int *verMaj, int *verMin) const
+{
+ // We suppose that toolkit version is the same as OS version under Mac
+ wxGetOsVersion(verMaj, verMin);
+
+ return wxPORT_MAC;
+}
+
+wxEventLoopBase* wxGUIAppTraits::CreateEventLoop()
+{
+ return new wxEventLoop;
+}
+
+wxTimerImpl* wxGUIAppTraits::CreateTimerImpl(wxTimer *timer)
+{
+ return new wxCarbonTimerImpl(timer);
+}
+
+int gs_wxBusyCursorCount = 0;
+extern wxCursor gMacCurrentCursor;
+wxCursor gMacStoredActiveCursor;
+
+// Set the cursor to the busy cursor for all windows
+void wxBeginBusyCursor(const wxCursor *cursor)
+{
+ if (gs_wxBusyCursorCount++ == 0)
+ {
+ gMacStoredActiveCursor = gMacCurrentCursor;
+ cursor->MacInstall();
+
+ wxSetCursor(*cursor);
+ }
+ //else: nothing to do, already set
+}
+
+// Restore cursor to normal
+void wxEndBusyCursor()
+{
+ wxCHECK_RET( gs_wxBusyCursorCount > 0,
+ wxT("no matching wxBeginBusyCursor() for wxEndBusyCursor()") );
+
+ if (--gs_wxBusyCursorCount == 0)
+ {
+ gMacStoredActiveCursor.MacInstall();
+ gMacStoredActiveCursor = wxNullCursor;
+
+ wxSetCursor(wxNullCursor);
+ }
+}
+
+// true if we're between the above two calls
+bool wxIsBusy()
+{
+ return (gs_wxBusyCursorCount > 0);
+}
+
+#endif // wxUSE_GUI
+
+#if wxUSE_BASE
+
+wxString wxMacFindFolderNoSeparator( short vol,
+ OSType folderType,
+ Boolean createFolder)
+{
+ FSRef fsRef;
+ wxString strDir;
+
+ if ( FSFindFolder( vol, folderType, createFolder, &fsRef) == noErr)
+ {
+ strDir = wxMacFSRefToPath( &fsRef );
+ }
+
+ return strDir;
+}
+
+wxString wxMacFindFolder( short vol,
+ OSType folderType,
+ Boolean createFolder)
+{
+ return wxMacFindFolderNoSeparator(vol, folderType, createFolder) + wxFILE_SEP_PATH;
+}
+
+#endif // wxUSE_BASE
+
+#if wxUSE_GUI
+
+// Check whether this window wants to process messages, e.g. Stop button
+// in long calculations.
+bool wxCheckForInterrupt(wxWindow *WXUNUSED(wnd))
+{
+ // TODO
+ return false;
+}
+
+void wxGetMousePosition( int* x, int* y )
+{
+#if wxMAC_USE_QUICKDRAW
+ Point pt;
+ GetGlobalMouse(&pt);
+ *x = pt.h;
+ *y = pt.v;
+#else
+ // TODO
+#endif
+};
+
+// Return true if we have a colour display
+bool wxColourDisplay()
+{
+ return true;
+}
+
+// Returns depth of screen
+int wxDisplayDepth()
+{
+#if wxMAC_USE_QUICKDRAW
+ int theDepth = (int) CGDisplayBitsPerPixel(CGMainDisplayID());
+ Rect globRect;
+ SetRect(&globRect, -32760, -32760, 32760, 32760);
+ GDHandle theMaxDevice;
+
+ theMaxDevice = GetMaxDevice(&globRect);
+ if (theMaxDevice != NULL)
+ theDepth = (**(**theMaxDevice).gdPMap).pixelSize;
+
+ return theDepth;
+#else
+ return 32; // TODO
+#endif
+}
+
+// Get size of display
+void wxDisplaySize(int *width, int *height)
+{
+ // TODO adapt for multi-displays
+ CGRect bounds = CGDisplayBounds(CGMainDisplayID());
+ if ( width )
+ *width = (int)bounds.size.width ;
+ if ( height )
+ *height = (int)bounds.size.height;
+}
+
+void wxDisplaySizeMM(int *width, int *height)
+{
+ wxDisplaySize(width, height);
+ // on mac 72 is fixed (at least now;-)
+ float cvPt2Mm = 25.4 / 72;
+
+ if (width != NULL)
+ *width = int( *width * cvPt2Mm );
+
+ if (height != NULL)
+ *height = int( *height * cvPt2Mm );
+}
+
+void wxClientDisplayRect(int *x, int *y, int *width, int *height)
+{
+#if MAC_OS_X_VERSION_MIN_REQUIRED >= MAC_OS_X_VERSION_10_5
+#if wxMAC_USE_QUICKDRAW
+
+ HIRect bounds ;
+ HIWindowGetAvailablePositioningBounds(kCGNullDirectDisplay,kHICoordSpace72DPIGlobal,
+ &bounds);
+ if ( x )
+ *x = bounds.origin.x;
+ if ( y )
+ *y = bounds.origin.y;
+ if ( width )
+ *width = bounds.size.width;
+ if ( height )
+ *height = bounds.size.height;
+#else
+ int w, h;
+ wxDisplaySize(&w,&h);
+ if ( x )
+ *x = 0;
+ if ( y )
+ *y = 24;
+ if ( width )
+ *width = w;
+ if ( height )
+ *height = h-24;
+#endif
+#else
+ Rect r;
+ GetAvailableWindowPositioningBounds( GetMainDevice() , &r );
+ if ( x )
+ *x = r.left;
+ if ( y )
+ *y = r.top;
+ if ( width )
+ *width = r.right - r.left;
+ if ( height )
+ *height = r.bottom - r.top;
+#endif
+}
+
+wxWindow* wxFindWindowAtPoint(const wxPoint& pt)
+{
+ return wxGenericFindWindowAtPoint(pt);
+}
+
+#endif // wxUSE_GUI
+
+#if wxUSE_BASE
+
+#include <sys/utsname.h>
+
+wxString wxGetOsDescription()
+{
+ char data[128];
+ struct utsname name;
+ uname(&name);
+ return wxString::Format(_T("Mac OS X (%s %s %s)"),
+ wxString::FromAscii(name.sysname).c_str(),
+ wxString::FromAscii(name.release).c_str(),
+ wxString::FromAscii(name.machine).c_str());
+}
+
+#ifndef __DARWIN__
+wxString wxGetUserHome (const wxString& user)
+{
+ // TODO
+ return wxString();
+}
+
+bool wxGetDiskSpace(const wxString& path, wxDiskspaceSize_t *pTotal, wxDiskspaceSize_t *pFree)
+{
+ if ( path.empty() )
+ return false;
+
+ wxString p = path;
+ if (p[0u] == ':' )
+ p = wxGetCwd() + p;
+
+ int pos = p.Find(':');
+ if ( pos != wxNOT_FOUND )
+ p = p.Mid(1,pos);
+
+ p = p + wxT(":");
+
+ OSErr err = noErr;
+
+ FSRef fsRef;
+ err = wxMacPathToFSRef( p , &fsRef );
+ if ( noErr == err )
+ {
+ FSVolumeRefNum vRefNum;
+ err = FSGetVRefNum( &fsRef , &vRefNum );
+ if ( noErr == err )
+ {
+ UInt64 freeBytes , totalBytes;
+ err = FSGetVInfo( vRefNum , NULL , &freeBytes , &totalBytes );
+ if ( noErr == err )
+ {
+ if ( pTotal )
+ *pTotal = wxDiskspaceSize_t( totalBytes );
+ if ( pFree )
+ *pFree = wxDiskspaceSize_t( freeBytes );
+ }
+ }
+ }
+
+ return err == noErr;
+}
+#endif // !__DARWIN__
+
+//---------------------------------------------------------------------------
+// wxMac Specific utility functions
+//---------------------------------------------------------------------------
+
+void wxMacStringToPascal( const wxString&from , StringPtr to )
+{
+ wxCharBuffer buf = from.mb_str( wxConvLocal );
+ int len = strlen(buf);
+
+ if ( len > 255 )
+ len = 255;
+ to[0] = len;
+ memcpy( (char*) &to[1] , buf , len );
+}
+
+wxString wxMacMakeStringFromPascal( ConstStringPtr from )
+{
+ return wxString( (char*) &from[1] , wxConvLocal , from[0] );
+}
+
+// ----------------------------------------------------------------------------
+// Common Event Support
+// ----------------------------------------------------------------------------
+
+void wxMacWakeUp()
+{
+ OSStatus err = noErr;
+
+#if 0
+ // lead sometimes to race conditions, although all calls used should be thread safe ...
+ static wxMacCarbonEvent s_wakeupEvent;
+ if ( !s_wakeupEvent.IsValid() )
+ {
+ err = s_wakeupEvent.Create( 'WXMC', 'WXMC', GetCurrentEventTime(),
+ kEventAttributeNone );
+ }
+ if ( err == noErr )
+ {
+
+ if ( IsEventInQueue( GetMainEventQueue() , s_wakeupEvent ) )
+ return;
+ s_wakeupEvent.SetCurrentTime();
+ err = PostEventToQueue(GetMainEventQueue(), s_wakeupEvent,
+ kEventPriorityHigh );
+ }
+#else
+ wxMacCarbonEvent wakeupEvent;
+ wakeupEvent.Create( 'WXMC', 'WXMC', GetCurrentEventTime(),
+ kEventAttributeNone );
+ err = PostEventToQueue(GetMainEventQueue(), wakeupEvent,
+ kEventPriorityHigh );
+#endif
+}
+
+#endif // wxUSE_BASE
+
+#if wxUSE_GUI
+
+// ----------------------------------------------------------------------------
+// Native Struct Conversions
+// ----------------------------------------------------------------------------
+
+void wxMacRectToNative( const wxRect *wx , Rect *n )
+{
+ n->left = wx->x;
+ n->top = wx->y;
+ n->right = wx->x + wx->width;
+ n->bottom = wx->y + wx->height;
+}
+
+void wxMacNativeToRect( const Rect *n , wxRect* wx )
+{
+ wx->x = n->left;
+ wx->y = n->top;
+ wx->width = n->right - n->left;
+ wx->height = n->bottom - n->top;
+}
+
+void wxMacPointToNative( const wxPoint* wx , Point *n )
+{
+ n->h = wx->x;
+ n->v = wx->y;
+}
+
+void wxMacNativeToPoint( const Point *n , wxPoint* wx )
+{
+ wx->x = n->h;
+ wx->y = n->v;
+}
+
+// ----------------------------------------------------------------------------
+// Carbon Event Support
+// ----------------------------------------------------------------------------
+
+OSStatus wxMacCarbonEvent::GetParameter(EventParamName inName, EventParamType inDesiredType, UInt32 inBufferSize, void * outData)
+{
+ return ::GetEventParameter( m_eventRef , inName , inDesiredType , NULL , inBufferSize , NULL , outData );
+}
+
+OSStatus wxMacCarbonEvent::SetParameter(EventParamName inName, EventParamType inType, UInt32 inBufferSize, const void * inData)
+{
+ return ::SetEventParameter( m_eventRef , inName , inType , inBufferSize , inData );
+}
+
+// ----------------------------------------------------------------------------
+// Control Access Support
+// ----------------------------------------------------------------------------
+
+#if wxMAC_USE_QUICKDRAW
+
+IMPLEMENT_DYNAMIC_CLASS( wxMacControl , wxObject )
+
+wxMacControl::wxMacControl()
+{
+ Init();
+}
+
+wxMacControl::wxMacControl(wxWindow* peer , bool isRootControl )
+{
+ Init();
+ m_peer = peer;
+ m_isRootControl = isRootControl;
+}
+
+wxMacControl::wxMacControl( wxWindow* peer , ControlRef control )
+{
+ Init();
+ m_peer = peer;
+ m_controlRef = control;
+}
+
+wxMacControl::wxMacControl( wxWindow* peer , WXWidget control )
+{
+ Init();
+ m_peer = peer;
+ m_controlRef = (ControlRef) control;
+}
+
+wxMacControl::~wxMacControl()
+{
+}
+
+void wxMacControl::Init()
+{
+ m_peer = NULL;
+ m_controlRef = NULL;
+ m_needsFocusRect = false;
+ m_isRootControl = false;
+}
+
+void wxMacControl::Dispose()
+{
+ wxASSERT_MSG( m_controlRef != NULL , wxT("Control Handle already NULL, Dispose called twice ?") );
+ wxASSERT_MSG( IsValidControlHandle(m_controlRef) , wxT("Invalid Control Handle (maybe already released) in Dispose") );
+
+ // we cannot check the ref count here anymore, as autorelease objects might delete their refs later
+ // we can have situations when being embedded, where the control gets deleted behind our back, so only
+ // CFRelease if we are safe
+ if ( IsValidControlHandle(m_controlRef) )
+ CFRelease(m_controlRef);
+ m_controlRef = NULL;
+}
+
+void wxMacControl::SetReference( URefCon data )
+{
+ SetControlReference( m_controlRef , data );
+}
+
+OSStatus wxMacControl::GetData(ControlPartCode inPartCode , ResType inTag , Size inBufferSize , void * inOutBuffer , Size * outActualSize ) const
+{
+ return ::GetControlData( m_controlRef , inPartCode , inTag , inBufferSize , inOutBuffer , outActualSize );
+}
+
+OSStatus wxMacControl::GetDataSize(ControlPartCode inPartCode , ResType inTag , Size * outActualSize ) const
+{
+ return ::GetControlDataSize( m_controlRef , inPartCode , inTag , outActualSize );
+}
+
+OSStatus wxMacControl::SetData(ControlPartCode inPartCode , ResType inTag , Size inSize , const void * inData)
+{
+ return ::SetControlData( m_controlRef , inPartCode , inTag , inSize , inData );
+}
+
+OSStatus wxMacControl::SendEvent( EventRef event , OptionBits inOptions )
+{
+ return SendEventToEventTargetWithOptions( event,
+ HIObjectGetEventTarget( (HIObjectRef) m_controlRef ), inOptions );
+}
+
+OSStatus wxMacControl::SendHICommand( HICommand &command , OptionBits inOptions )
+{
+ wxMacCarbonEvent event( kEventClassCommand , kEventCommandProcess );
+
+ event.SetParameter<HICommand>(kEventParamDirectObject,command);
+
+ return SendEvent( event , inOptions );
+}
+
+OSStatus wxMacControl::SendHICommand( UInt32 commandID , OptionBits inOptions )
+{
+ HICommand command;
+
+ memset( &command, 0 , sizeof(command) );
+ command.commandID = commandID;
+ return SendHICommand( command , inOptions );
+}
+
+void wxMacControl::Flash( ControlPartCode part , UInt32 ticks )
+{
+ unsigned long finalTicks;
+
+ HiliteControl( m_controlRef , part );
+ Delay( ticks , &finalTicks );
+ HiliteControl( m_controlRef , kControlNoPart );
+}
+
+SInt32 wxMacControl::GetValue() const
+{
+ return ::GetControl32BitValue( m_controlRef );
+}
+
+SInt32 wxMacControl::GetMaximum() const
+{
+ return ::GetControl32BitMaximum( m_controlRef );
+}
+
+SInt32 wxMacControl::GetMinimum() const
+{
+ return ::GetControl32BitMinimum( m_controlRef );
+}
+
+void wxMacControl::SetValue( SInt32 v )
+{
+ ::SetControl32BitValue( m_controlRef , v );
+}
+
+void wxMacControl::SetMinimum( SInt32 v )
+{
+ ::SetControl32BitMinimum( m_controlRef , v );
+}
+
+void wxMacControl::SetMaximum( SInt32 v )
+{
+ ::SetControl32BitMaximum( m_controlRef , v );
+}
+
+void wxMacControl::SetValueAndRange( SInt32 value , SInt32 minimum , SInt32 maximum )
+{
+ ::SetControl32BitMinimum( m_controlRef , minimum );
+ ::SetControl32BitMaximum( m_controlRef , maximum );
+ ::SetControl32BitValue( m_controlRef , value );
+}
+
+OSStatus wxMacControl::SetFocus( ControlFocusPart focusPart )
+{
+ return SetKeyboardFocus( GetControlOwner( m_controlRef ), m_controlRef, focusPart );
+}
+
+bool wxMacControl::HasFocus() const
+{
+ ControlRef control;
+ GetKeyboardFocus( GetUserFocusWindow() , &control );
+ return control == m_controlRef;
+}
+
+void wxMacControl::SetNeedsFocusRect( bool needs )
+{
+ m_needsFocusRect = needs;
+}
+
+bool wxMacControl::NeedsFocusRect() const
+{
+ return m_needsFocusRect;
+}
+
+void wxMacControl::VisibilityChanged(bool WXUNUSED(shown))
+{
+}
+
+void wxMacControl::SuperChangedPosition()
+{
+}
+
+void wxMacControl::SetFont( const wxFont & font , const wxColour& foreground , long windowStyle )
+{
+ m_font = font;
+#if wxMAC_USE_CORE_TEXT
+ if ( UMAGetSystemVersion() >= 0x1050 )
+ {
+ HIViewPartCode part = 0;
+ HIThemeTextHorizontalFlush flush = kHIThemeTextHorizontalFlushDefault;
+ if ( ( windowStyle & wxALIGN_MASK ) & wxALIGN_CENTER_HORIZONTAL )
+ flush = kHIThemeTextHorizontalFlushCenter;
+ else if ( ( windowStyle & wxALIGN_MASK ) & wxALIGN_RIGHT )
+ flush = kHIThemeTextHorizontalFlushRight;
+ HIViewSetTextFont( m_controlRef , part , (CTFontRef) font.MacGetCTFont() );
+ HIViewSetTextHorizontalFlush( m_controlRef, part, flush );
+
+ if ( foreground != *wxBLACK )
+ {
+ ControlFontStyleRec fontStyle;
+ foreground.GetRGBColor( &fontStyle.foreColor );
+ fontStyle.flags = kControlUseForeColorMask;
+ ::SetControlFontStyle( m_controlRef , &fontStyle );
+ }
+
+ }