1 ///////////////////////////////////////////////////////////////////////////////
2 // Name: mac/toplevel.cpp
3 // Purpose: implements wxTopLevelWindow for MSW
4 // Author: Vadim Zeitlin
8 // Copyright: (c) 2001 SciTech Software, Inc. (www.scitechsoft.com)
9 // License: wxWindows licence
10 ///////////////////////////////////////////////////////////////////////////////
12 // ============================================================================
14 // ============================================================================
16 // ----------------------------------------------------------------------------
18 // ----------------------------------------------------------------------------
21 #pragma implementation "toplevel.h"
24 // For compilers that support precompilation, includes "wx.h".
25 #include "wx/wxprec.h"
33 #include "wx/toplevel.h"
35 #include "wx/string.h"
40 #include "wx/mac/uma.h"
41 #include "wx/mac/aga.h"
43 #include "wx/tooltip.h"
46 #include "ToolUtils.h"
49 #define wxMAC_DEBUG_REDRAW 0
50 #ifndef wxMAC_DEBUG_REDRAW
51 #define wxMAC_DEBUG_REDRAW 0
54 // ----------------------------------------------------------------------------
56 // ----------------------------------------------------------------------------
58 // list of all frames and modeless dialogs
59 wxWindowList wxModelessWindows
;
61 // double click testing
62 static Point gs_lastWhere
;
63 static long gs_lastWhen
= 0;
67 static pascal long wxShapedMacWindowDef(short varCode
, WindowRef window
, SInt16 message
, SInt32 param
);
70 // ============================================================================
71 // wxTopLevelWindowMac implementation
72 // ============================================================================
74 // ---------------------------------------------------------------------------
76 // ---------------------------------------------------------------------------
80 extern long wxMacTranslateKey(unsigned char key
, unsigned char code
) ;
82 static const EventTypeSpec eventList
[] =
84 { kEventClassTextInput
, kEventTextInputUnicodeForKeyEvent
} ,
86 { kEventClassKeyboard
, kEventRawKeyDown
} ,
87 { kEventClassKeyboard
, kEventRawKeyRepeat
} ,
88 { kEventClassKeyboard
, kEventRawKeyUp
} ,
89 { kEventClassKeyboard
, kEventRawKeyModifiersChanged
} ,
91 { kEventClassWindow
, kEventWindowUpdate
} ,
92 { kEventClassWindow
, kEventWindowActivated
} ,
93 { kEventClassWindow
, kEventWindowDeactivated
} ,
94 { kEventClassWindow
, kEventWindowBoundsChanging
} ,
95 { kEventClassWindow
, kEventWindowBoundsChanged
} ,
96 { kEventClassWindow
, kEventWindowClose
} ,
98 { kEventClassMouse
, kEventMouseDown
} ,
99 { kEventClassMouse
, kEventMouseUp
} ,
100 { kEventClassMouse
, kEventMouseMoved
} ,
101 { kEventClassMouse
, kEventMouseDragged
} ,
105 static pascal OSStatus
TextInputEventHandler( EventHandlerCallRef handler
, EventRef event
, void *data
)
107 OSStatus result
= eventNotHandledErr
;
109 wxWindow
* focus
= wxWindow::FindFocus() ;
117 GetEventParameter( event
, kEventParamTextInputSendKeyboardEvent
,typeEventRef
,NULL
,sizeof(rawEvent
),NULL
,&rawEvent
) ;
119 GetEventParameter( rawEvent
, kEventParamKeyMacCharCodes
, typeChar
, NULL
,sizeof(char), NULL
,&charCode
);
120 GetEventParameter( rawEvent
, kEventParamKeyCode
, typeUInt32
, NULL
, sizeof(UInt32
), NULL
, &keyCode
);
121 GetEventParameter( rawEvent
, kEventParamKeyModifiers
, typeUInt32
, NULL
, sizeof(UInt32
), NULL
, &modifiers
);
122 GetEventParameter( rawEvent
, kEventParamMouseLocation
, typeQDPoint
, NULL
,
123 sizeof( Point
), NULL
, &point
);
125 switch ( GetEventKind( event
) )
127 case kEventTextInputUnicodeForKeyEvent
:
128 // this is only called when no default handler has jumped in, eg a wxControl on a floater window does not
129 // get its own kEventTextInputUnicodeForKeyEvent, so we route back the
130 wxControl
* control
= wxDynamicCast( focus
, wxControl
) ;
133 ControlHandle macControl
= (ControlHandle
) control
->GetMacControl() ;
136 ::HandleControlKey( macControl
, keyCode
, charCode
, modifiers
) ;
141 // this may lead to double events sent to a window in case all handlers have skipped the key down event
142 UInt32 when = EventTimeToTicks( GetEventTime( event ) ) ;
143 UInt32 message = (keyCode << 8) + charCode;
145 if ( (focus != NULL) && wxTheApp->MacSendKeyDownEvent(
146 focus , message , modifiers , when , point.h , point.v ) )
157 static pascal OSStatus
KeyboardEventHandler( EventHandlerCallRef handler
, EventRef event
, void *data
)
159 OSStatus result
= eventNotHandledErr
;
161 wxWindow
* focus
= wxWindow::FindFocus() ;
166 UInt32 when
= EventTimeToTicks( GetEventTime( event
) ) ;
168 GetEventParameter( event
, kEventParamKeyMacCharCodes
, typeChar
, NULL
,sizeof(char), NULL
,&charCode
);
169 GetEventParameter( event
, kEventParamKeyCode
, typeUInt32
, NULL
, sizeof(UInt32
), NULL
, &keyCode
);
170 GetEventParameter(event
, kEventParamKeyModifiers
, typeUInt32
, NULL
, sizeof(UInt32
), NULL
, &modifiers
);
171 GetEventParameter( event
, kEventParamMouseLocation
, typeQDPoint
, NULL
,
172 sizeof( Point
), NULL
, &point
);
174 UInt32 message
= (keyCode
<< 8) + charCode
;
175 switch( GetEventKind( event
) )
177 case kEventRawKeyRepeat
:
178 case kEventRawKeyDown
:
180 WXEVENTREF formerEvent
= wxTheApp
->MacGetCurrentEvent() ;
181 WXEVENTHANDLERCALLREF formerHandler
= wxTheApp
->MacGetCurrentEventHandlerCallRef() ;
182 wxTheApp
->MacSetCurrentEvent( event
, handler
) ;
183 if ( (focus
!= NULL
) && wxTheApp
->MacSendKeyDownEvent(
184 focus
, message
, modifiers
, when
, point
.h
, point
.v
) )
188 wxTheApp
->MacSetCurrentEvent( formerEvent
, formerHandler
) ;
191 case kEventRawKeyUp
:
192 if ( (focus
!= NULL
) && wxTheApp
->MacSendKeyUpEvent(
193 focus
, message
, modifiers
, when
, point
.h
, point
.v
) )
198 case kEventRawKeyModifiersChanged
:
200 wxKeyEvent
event(wxEVT_KEY_DOWN
);
202 event
.m_shiftDown
= modifiers
& shiftKey
;
203 event
.m_controlDown
= modifiers
& controlKey
;
204 event
.m_altDown
= modifiers
& optionKey
;
205 event
.m_metaDown
= modifiers
& cmdKey
;
209 event
.m_timeStamp
= when
;
210 wxWindow
* focus
= wxWindow::FindFocus() ;
211 event
.SetEventObject(focus
);
213 if ( focus
&& (modifiers
^ wxTheApp
->s_lastModifiers
) & controlKey
)
215 event
.m_keyCode
= WXK_CONTROL
;
216 event
.SetEventType( ( modifiers
& controlKey
) ? wxEVT_KEY_DOWN
: wxEVT_KEY_UP
) ;
217 focus
->GetEventHandler()->ProcessEvent( event
) ;
219 if ( focus
&& (modifiers
^ wxTheApp
->s_lastModifiers
) & shiftKey
)
221 event
.m_keyCode
= WXK_SHIFT
;
222 event
.SetEventType( ( modifiers
& shiftKey
) ? wxEVT_KEY_DOWN
: wxEVT_KEY_UP
) ;
223 focus
->GetEventHandler()->ProcessEvent( event
) ;
225 if ( focus
&& (modifiers
^ wxTheApp
->s_lastModifiers
) & optionKey
)
227 event
.m_keyCode
= WXK_ALT
;
228 event
.SetEventType( ( modifiers
& optionKey
) ? wxEVT_KEY_DOWN
: wxEVT_KEY_UP
) ;
229 focus
->GetEventHandler()->ProcessEvent( event
) ;
231 if ( focus
&& (modifiers
^ wxTheApp
->s_lastModifiers
) & cmdKey
)
233 event
.m_keyCode
= WXK_COMMAND
;
234 event
.SetEventType( ( modifiers
& cmdKey
) ? wxEVT_KEY_DOWN
: wxEVT_KEY_UP
) ;
235 focus
->GetEventHandler()->ProcessEvent( event
) ;
237 wxTheApp
->s_lastModifiers
= modifiers
;
245 pascal OSStatus
MouseEventHandler( EventHandlerCallRef handler
, EventRef event
, void *data
)
247 OSStatus result
= eventNotHandledErr
;
249 wxTopLevelWindowMac
* toplevelWindow
= (wxTopLevelWindowMac
*) data
;
251 UInt32 modifiers
= 0;
252 EventMouseButton button
= 0 ;
255 GetEventParameter( event
, kEventParamMouseLocation
, typeQDPoint
, NULL
,
256 sizeof( Point
), NULL
, &point
);
257 GetEventParameter( event
, kEventParamKeyModifiers
, typeUInt32
, NULL
,
258 sizeof( UInt32
), NULL
, &modifiers
);
259 GetEventParameter( event
, kEventParamMouseButton
, typeMouseButton
, NULL
,
260 sizeof( EventMouseButton
), NULL
, &button
);
261 GetEventParameter( event
, kEventParamClickCount
, typeUInt32
, NULL
,
262 sizeof( UInt32
), NULL
, &click
);
264 if ( button
== 0 || GetEventKind( event
) == kEventMouseUp
)
265 modifiers
+= btnState
;
267 // temporary hack to support true two button mouse
268 if ( button
== kEventMouseButtonSecondary
)
270 modifiers
|= controlKey
;
273 short windowPart
= ::FindWindow(point
, &window
);
275 // either we really are active or we are capturing mouse events
277 if ( (IsWindowActive(window
) && windowPart
== inContent
) ||
278 (wxTheApp
->s_captureWindow
&& wxTheApp
->s_captureWindow
->MacGetTopLevelWindow() == toplevelWindow
) )
280 switch ( GetEventKind( event
) )
282 case kEventMouseDown
:
283 toplevelWindow
->MacFireMouseEvent( mouseDown
, point
.h
, point
.v
, modifiers
, EventTimeToTicks( GetEventTime( event
) ) ) ;
287 toplevelWindow
->MacFireMouseEvent( mouseUp
, point
.h
, point
.v
, modifiers
, EventTimeToTicks( GetEventTime( event
) ) ) ;
290 case kEventMouseMoved
:
291 wxTheApp
->MacHandleMouseMovedEvent( point
.h
, point
.v
, modifiers
, EventTimeToTicks( GetEventTime( event
) ) ) ;
294 case kEventMouseDragged
:
295 toplevelWindow
->MacFireMouseEvent( nullEvent
, point
.h
, point
.v
, modifiers
, EventTimeToTicks( GetEventTime( event
) ) ) ;
307 static pascal OSStatus
WindowEventHandler( EventHandlerCallRef handler
, EventRef event
, void *data
)
309 OSStatus result
= eventNotHandledErr
;
310 OSStatus err
= noErr
;
313 WindowRef windowRef
;
314 wxTopLevelWindowMac
* toplevelWindow
= (wxTopLevelWindowMac
*) data
;
316 GetEventParameter( event
, kEventParamDirectObject
, typeWindowRef
, NULL
,
317 sizeof( WindowRef
), NULL
, &windowRef
);
319 switch( GetEventKind( event
) )
321 case kEventWindowUpdate
:
322 if ( !wxPendingDelete
.Member(toplevelWindow
) )
323 toplevelWindow
->MacUpdate( EventTimeToTicks( GetEventTime( event
) ) ) ;
326 case kEventWindowActivated
:
327 toplevelWindow
->MacActivate( EventTimeToTicks( GetEventTime( event
) ) , true) ;
330 case kEventWindowDeactivated
:
331 toplevelWindow
->MacActivate( EventTimeToTicks( GetEventTime( event
) ) , false) ;
334 case kEventWindowClose
:
335 toplevelWindow
->Close() ;
338 case kEventWindowBoundsChanged
:
339 err
= GetEventParameter( event
, kEventParamAttributes
, typeUInt32
,
340 NULL
, sizeof( UInt32
), NULL
, &attributes
);
343 Rect newContentRect
;
345 GetEventParameter( event
, kEventParamCurrentBounds
, typeQDRectangle
, NULL
,
346 sizeof( newContentRect
), NULL
, &newContentRect
);
348 toplevelWindow
->SetSize( newContentRect
.left
, newContentRect
.top
,
349 newContentRect
.right
- newContentRect
.left
,
350 newContentRect
.bottom
- newContentRect
.top
, wxSIZE_USE_EXISTING
);
355 case kEventWindowBoundsChanging
:
356 err
= GetEventParameter( event
, kEventParamAttributes
, typeUInt32
,
357 NULL
, sizeof( UInt32
), NULL
, &attributes
);
360 Rect newContentRect
;
362 GetEventParameter( event
, kEventParamCurrentBounds
, typeQDRectangle
, NULL
,
363 sizeof( newContentRect
), NULL
, &newContentRect
);
365 wxSize formerSize
= toplevelWindow
->GetSize() ;
367 if ( (attributes
& kWindowBoundsChangeSizeChanged
) ||
368 ( attributes
& kWindowBoundsChangeOriginChanged
) )
369 toplevelWindow
->SetSize( newContentRect
.left
, newContentRect
.top
,
370 newContentRect
.right
- newContentRect
.left
,
371 newContentRect
.bottom
- newContentRect
.top
, wxSIZE_USE_EXISTING
);
374 toplevelWindow
->GetPosition( &x
, &y
) ;
375 toplevelWindow
->GetSize( &w
, &h
) ;
376 Rect adjustedRect
= { y
, x
, y
+ h
, x
+ w
} ;
378 if ( !EqualRect( &newContentRect
, &adjustedRect
) )
380 SetEventParameter( event
, kEventParamCurrentBounds
, typeQDRectangle
, sizeof( adjustedRect
) , &adjustedRect
) ;
383 if ( toplevelWindow
->GetSize() != formerSize
)
384 toplevelWindow
->Update() ;
395 pascal OSStatus
wxMacWindowEventHandler( EventHandlerCallRef handler
, EventRef event
, void *data
)
397 OSStatus result
= eventNotHandledErr
;
399 switch ( GetEventClass( event
) )
401 case kEventClassKeyboard
:
402 result
= KeyboardEventHandler( handler
, event
, data
) ;
404 case kEventClassTextInput
:
405 result
= TextInputEventHandler( handler
, event
, data
) ;
407 case kEventClassWindow
:
408 result
= WindowEventHandler( handler
, event
, data
) ;
410 case kEventClassMouse
:
411 result
= MouseEventHandler( handler
, event
, data
) ;
419 DEFINE_ONE_SHOT_HANDLER_GETTER( wxMacWindowEventHandler
)
423 // ---------------------------------------------------------------------------
424 // wxWindowMac utility functions
425 // ---------------------------------------------------------------------------
427 // Find an item given the Macintosh Window Reference
429 wxList
*wxWinMacWindowList
= NULL
;
430 wxTopLevelWindowMac
*wxFindWinFromMacWindow(WXWindow inWindowRef
)
432 if ( wxWinMacWindowList
== NULL
)
434 wxNode
*node
= wxWinMacWindowList
->Find((long)inWindowRef
);
437 return (wxTopLevelWindowMac
*)node
->GetData();
440 void wxAssociateWinWithMacWindow(WXWindow inWindowRef
, wxTopLevelWindowMac
*win
)
442 // adding NULL WindowRef is (first) surely a result of an error and
443 // (secondly) breaks menu command processing
444 wxCHECK_RET( inWindowRef
!= (WindowRef
) NULL
, wxT("attempt to add a NULL WindowRef to window list") );
446 if ( !wxWinMacWindowList
->Find((long)inWindowRef
) )
447 wxWinMacWindowList
->Append((long)inWindowRef
, win
);
450 void wxRemoveMacWindowAssociation(wxTopLevelWindowMac
*win
)
452 wxWinMacWindowList
->DeleteObject(win
);
456 // ----------------------------------------------------------------------------
457 // wxTopLevelWindowMac creation
458 // ----------------------------------------------------------------------------
460 WXHWND
wxTopLevelWindowMac::s_macWindowInUpdate
= NULL
;
461 wxTopLevelWindowMac
*wxTopLevelWindowMac::s_macDeactivateWindow
= NULL
;
463 void wxTopLevelWindowMac::Init()
466 m_maximizeOnShow
= FALSE
;
467 m_macNoEraseUpdateRgn
= NewRgn() ;
468 m_macNeedsErasing
= false ;
471 m_macEventHandler
= NULL
;
475 class wxMacDeferredWindowDeleter
: public wxObject
478 wxMacDeferredWindowDeleter( WindowRef windowRef
)
480 m_macWindow
= windowRef
;
482 virtual ~wxMacDeferredWindowDeleter()
484 UMADisposeWindow( (WindowRef
) m_macWindow
) ;
487 WindowRef m_macWindow
;
490 bool wxTopLevelWindowMac::Create(wxWindow
*parent
,
492 const wxString
& title
,
496 const wxString
& name
)
501 m_windowStyle
= style
;
505 m_windowId
= id
== -1 ? NewControlId() : id
;
507 wxTopLevelWindows
.Append(this);
510 parent
->AddChild(this);
515 wxTopLevelWindowMac::~wxTopLevelWindowMac()
519 wxToolTip::NotifyWindowDelete(m_macWindow
) ;
520 wxPendingDelete
.Append( new wxMacDeferredWindowDeleter( (WindowRef
) m_macWindow
) ) ;
524 if ( m_macEventHandler
)
526 ::RemoveEventHandler((EventHandlerRef
) m_macEventHandler
);
527 m_macEventHandler
= NULL
;
531 wxRemoveMacWindowAssociation( this ) ;
533 if ( wxModelessWindows
.Find(this) )
534 wxModelessWindows
.DeleteObject(this);
536 DisposeRgn( (RgnHandle
) m_macNoEraseUpdateRgn
) ;
540 // ----------------------------------------------------------------------------
541 // wxTopLevelWindowMac maximize/minimize
542 // ----------------------------------------------------------------------------
544 void wxTopLevelWindowMac::Maximize(bool maximize
)
546 ZoomWindow( (WindowRef
)m_macWindow
, maximize
? inZoomOut
: inZoomIn
, false ) ;
551 Point pt
= { 0, 0 } ;
552 SetPortWindowPort((WindowRef
)m_macWindow
) ;
553 LocalToGlobal( &pt
) ;
556 GetWindowPortBounds((WindowRef
)m_macWindow
, &tempRect
) ;
557 SetSize( pt
.h
, pt
.v
, tempRect
.right
-tempRect
.left
,
558 tempRect
.bottom
-tempRect
.top
, wxSIZE_USE_EXISTING
);
561 bool wxTopLevelWindowMac::IsMaximized() const
563 return IsWindowInStandardState( (WindowRef
)m_macWindow
, NULL
, NULL
) ;
566 void wxTopLevelWindowMac::Iconize(bool iconize
)
568 if ( IsWindowCollapsable((WindowRef
)m_macWindow
) )
569 CollapseWindow((WindowRef
)m_macWindow
, iconize
) ;
572 bool wxTopLevelWindowMac::IsIconized() const
574 return IsWindowCollapsed((WindowRef
)m_macWindow
) ;
577 void wxTopLevelWindowMac::Restore()
579 // not available on mac
582 // ----------------------------------------------------------------------------
583 // wxTopLevelWindowMac misc
584 // ----------------------------------------------------------------------------
586 void wxTopLevelWindowMac::SetIcon(const wxIcon
& icon
)
589 wxTopLevelWindowBase::SetIcon(icon
);
592 void wxTopLevelWindowMac::MacCreateRealWindow( const wxString
& title
,
596 const wxString
& name
)
598 OSStatus err
= noErr
;
600 m_windowStyle
= style
;
621 ::SetRect(&theBoundsRect
, m_x
, m_y
, m_x
+ m_width
, m_y
+ m_height
);
623 // translate the window attributes in the appropriate window class and attributes
625 WindowClass wclass
= 0;
626 WindowAttributes attr
= kWindowNoAttributes
;
628 if ( HasFlag( wxFRAME_TOOL_WINDOW
) )
631 HasFlag( wxMINIMIZE_BOX
) || HasFlag( wxMAXIMIZE_BOX
) ||
632 HasFlag( wxSYSTEM_MENU
) || HasFlag( wxCAPTION
) ||
633 HasFlag(wxTINY_CAPTION_HORIZ
) || HasFlag(wxTINY_CAPTION_VERT
)
636 wclass
= kFloatingWindowClass
;
637 if ( HasFlag(wxTINY_CAPTION_VERT
) )
639 attr
|= kWindowSideTitlebarAttribute
;
645 wclass
= kPlainWindowClass
;
647 wclass
= kFloatingWindowClass
;
651 else if ( HasFlag( wxCAPTION
) )
653 wclass
= kDocumentWindowClass
;
657 if ( HasFlag( wxMINIMIZE_BOX
) || HasFlag( wxMAXIMIZE_BOX
) ||
658 HasFlag( wxCLOSE_BOX
) || HasFlag( wxSYSTEM_MENU
) )
660 wclass
= kDocumentWindowClass
;
665 wclass
= kPlainWindowClass
;
667 wclass
= kModalWindowClass
;
672 if ( HasFlag( wxMINIMIZE_BOX
) )
674 attr
|= kWindowCollapseBoxAttribute
;
676 if ( HasFlag( wxMAXIMIZE_BOX
) )
678 attr
|= kWindowFullZoomAttribute
;
680 if ( HasFlag( wxRESIZE_BORDER
) )
682 attr
|= kWindowResizableAttribute
;
684 if ( HasFlag( wxCLOSE_BOX
) )
686 attr
|= kWindowCloseBoxAttribute
;
690 #if 0 // having problems right now with that
691 if (HasFlag(wxSTAY_ON_TOP
))
692 wclass
= kUtilityWindowClass
;
697 if ( HasFlag(wxFRAME_SHAPED
) )
699 WindowDefSpec customWindowDefSpec
;
700 customWindowDefSpec
.defType
= kWindowDefProcPtr
;
701 customWindowDefSpec
.u
.defProc
= NewWindowDefUPP(wxShapedMacWindowDef
);
703 err
= ::CreateCustomWindow( &customWindowDefSpec
, wclass
,
704 attr
, &theBoundsRect
,
705 (WindowRef
*) &m_macWindow
);
710 err
= ::CreateNewWindow( wclass
, attr
, &theBoundsRect
, (WindowRef
*)&m_macWindow
) ;
713 wxCHECK_RET( err
== noErr
, wxT("Mac OS error when trying to create new window") );
714 wxAssociateWinWithMacWindow( m_macWindow
, this ) ;
715 UMASetWTitle( (WindowRef
)m_macWindow
, title
) ;
716 ::CreateRootControl( (WindowRef
)m_macWindow
, (ControlHandle
*)&m_macRootControl
) ;
718 InstallStandardEventHandler( GetWindowEventTarget(MAC_WXHWND(m_macWindow
)) ) ;
719 InstallWindowEventHandler(MAC_WXHWND(m_macWindow
), GetwxMacWindowEventHandlerUPP(),
720 GetEventTypeCount(eventList
), eventList
, this, (EventHandlerRef
*)&m_macEventHandler
);
726 if ( HasFlag(wxFRAME_SHAPED
) )
728 // default shape matches the window size
729 wxRegion
rgn(0, 0, m_width
, m_height
);
735 void wxTopLevelWindowMac::MacGetPortParams(WXPOINTPTR localOrigin
, WXRECTPTR clipRect
, WXHWND
*window
, wxWindowMac
** rootwin
)
737 ((Point
*)localOrigin
)->h
= 0;
738 ((Point
*)localOrigin
)->v
= 0;
739 ((Rect
*)clipRect
)->left
= 0;
740 ((Rect
*)clipRect
)->top
= 0;
741 ((Rect
*)clipRect
)->right
= m_width
;
742 ((Rect
*)clipRect
)->bottom
= m_height
;
743 *window
= m_macWindow
;
747 void wxTopLevelWindowMac::ClearBackground()
749 wxWindow::ClearBackground() ;
752 WXWidget
wxTopLevelWindowMac::MacGetContainerForEmbedding()
754 return m_macRootControl
;
758 void wxTopLevelWindowMac::MacUpdate( long timestamp
)
760 wxMacPortStateHelper
help( (GrafPtr
) GetWindowPort( (WindowRef
) m_macWindow
) ) ;
762 RgnHandle visRgn
= NewRgn() ;
763 GetPortVisibleRegion( GetWindowPort( (WindowRef
)m_macWindow
), visRgn
);
764 BeginUpdate( (WindowRef
)m_macWindow
) ;
766 RgnHandle updateRgn
= NewRgn();
767 RgnHandle diffRgn
= NewRgn() ;
769 if ( updateRgn
&& diffRgn
)
772 // macos internal control redraws clean up areas we'd like to redraw ourselves
773 // therefore we pick the boundary rect and make sure we can redraw it
774 // this has to be intersected by the visRgn in order to avoid drawing over its own
776 RgnHandle trueUpdateRgn
= NewRgn() ;
777 Rect trueUpdateRgnBoundary
;
778 GetPortVisibleRegion( GetWindowPort( (WindowRef
)m_macWindow
), trueUpdateRgn
);
779 GetRegionBounds( trueUpdateRgn
, &trueUpdateRgnBoundary
) ;
780 RectRgn( updateRgn
, &trueUpdateRgnBoundary
) ;
781 SectRgn( updateRgn
, visRgn
, updateRgn
) ;
783 DisposeRgn( trueUpdateRgn
) ;
784 SetPortVisibleRegion( GetWindowPort( (WindowRef
)m_macWindow
), updateRgn
) ;
786 GetPortVisibleRegion( GetWindowPort( (WindowRef
)m_macWindow
), updateRgn
);
788 DiffRgn( updateRgn
, (RgnHandle
) m_macNoEraseUpdateRgn
, diffRgn
) ;
789 if ( !EmptyRgn( updateRgn
) )
791 MacRedraw( updateRgn
, timestamp
, m_macNeedsErasing
|| !EmptyRgn( diffRgn
) ) ;
795 DisposeRgn( updateRgn
);
797 DisposeRgn( diffRgn
);
799 DisposeRgn( visRgn
) ;
801 EndUpdate( (WindowRef
)m_macWindow
) ;
802 SetEmptyRgn( (RgnHandle
) m_macNoEraseUpdateRgn
) ;
803 m_macNeedsErasing
= false ;
807 // Raise the window to the top of the Z order
808 void wxTopLevelWindowMac::Raise()
810 ::SelectWindow( (WindowRef
)m_macWindow
) ;
813 // Lower the window to the bottom of the Z order
814 void wxTopLevelWindowMac::Lower()
816 ::SendBehind( (WindowRef
)m_macWindow
, NULL
) ;
819 void wxTopLevelWindowMac::MacFireMouseEvent(
820 wxUint16 kind
, wxInt32 x
, wxInt32 y
,wxUint32 modifiers
, long timestamp
)
822 wxMouseEvent
event(wxEVT_LEFT_DOWN
);
823 bool isDown
= !(modifiers
& btnState
) ; // 1 is for up
824 bool controlDown
= modifiers
& controlKey
; // for simulating right mouse
826 event
.m_leftDown
= isDown
&& !controlDown
;
828 event
.m_middleDown
= FALSE
;
829 event
.m_rightDown
= isDown
&& controlDown
;
831 if ( kind
== mouseDown
)
834 event
.SetEventType(wxEVT_RIGHT_DOWN
) ;
836 event
.SetEventType(wxEVT_LEFT_DOWN
) ;
838 else if ( kind
== mouseUp
)
841 event
.SetEventType(wxEVT_RIGHT_UP
) ;
843 event
.SetEventType(wxEVT_LEFT_UP
) ;
847 event
.SetEventType(wxEVT_MOTION
) ;
850 event
.m_shiftDown
= modifiers
& shiftKey
;
851 event
.m_controlDown
= modifiers
& controlKey
;
852 event
.m_altDown
= modifiers
& optionKey
;
853 event
.m_metaDown
= modifiers
& cmdKey
;
861 ::SetPort( UMAGetWindowPort( (WindowRef
)m_macWindow
) ) ;
862 ::GlobalToLocal( &localwhere
) ;
865 if ( kind
== mouseDown
)
867 if ( timestamp
- gs_lastWhen
<= (long) GetDblTime() )
869 if ( abs( localwhere
.h
- gs_lastWhere
.h
) < 3 && abs( localwhere
.v
- gs_lastWhere
.v
) < 3 )
871 // This is not right if the second mouse down
872 // event occured in a differen window. We
873 // correct this in MacDispatchMouseEvent.
875 event
.SetEventType(wxEVT_RIGHT_DCLICK
) ;
877 event
.SetEventType(wxEVT_LEFT_DCLICK
) ;
883 gs_lastWhen
= timestamp
;
885 gs_lastWhere
= localwhere
;
888 event
.m_x
= localwhere
.h
;
889 event
.m_y
= localwhere
.v
;
893 event
.m_timeStamp
= timestamp
;
894 event
.SetEventObject(this);
895 if ( wxTheApp
->s_captureWindow
)
899 wxTheApp
->s_captureWindow
->ScreenToClient( &x
, &y
) ;
902 event
.SetEventObject( wxTheApp
->s_captureWindow
) ;
903 wxTheApp
->s_captureWindow
->GetEventHandler()->ProcessEvent( event
) ;
905 if ( kind
== mouseUp
)
907 wxTheApp
->s_captureWindow
= NULL
;
910 m_cursor
.MacInstall() ;
916 MacDispatchMouseEvent( event
) ;
922 void wxTopLevelWindowMac::MacMouseDown( WXEVENTREF ev
, short part
)
924 MacFireMouseEvent( mouseDown
, ((EventRecord
*)ev
)->where
.h
, ((EventRecord
*)ev
)->where
.v
,
925 ((EventRecord
*)ev
)->modifiers
, ((EventRecord
*)ev
)->when
) ;
928 void wxTopLevelWindowMac::MacMouseUp( WXEVENTREF ev
, short part
)
934 MacFireMouseEvent( mouseUp
, ((EventRecord
*)ev
)->where
.h
, ((EventRecord
*)ev
)->where
.v
,
935 ((EventRecord
*)ev
)->modifiers
, ((EventRecord
*)ev
)->when
) ;
941 void wxTopLevelWindowMac::MacMouseMoved( WXEVENTREF ev
, short part
)
947 MacFireMouseEvent( nullEvent
/*moved*/ , ((EventRecord
*)ev
)->where
.h
, ((EventRecord
*)ev
)->where
.v
,
948 ((EventRecord
*)ev
)->modifiers
, ((EventRecord
*)ev
)->when
) ;
956 void wxTopLevelWindowMac::MacDelayedDeactivation(long timestamp
)
958 if(s_macDeactivateWindow
)
960 wxLogDebug(wxT("Doing delayed deactivation of %p"),s_macDeactivateWindow
);
961 s_macDeactivateWindow
->MacActivate(timestamp
, false);
965 void wxTopLevelWindowMac::MacActivate( long timestamp
, bool inIsActivating
)
967 // wxLogDebug(wxT("TopLevel=%p::MacActivate"),this);
969 if(s_macDeactivateWindow
==this)
970 s_macDeactivateWindow
=NULL
;
971 MacDelayedDeactivation(timestamp
);
972 wxActivateEvent
event(wxEVT_ACTIVATE
, inIsActivating
, m_windowId
);
973 event
.m_timeStamp
= timestamp
;
974 event
.SetEventObject(this);
976 GetEventHandler()->ProcessEvent(event
);
978 UMAHighlightAndActivateWindow( (WindowRef
)m_macWindow
, inIsActivating
) ;
980 // Early versions of MacOS X don't refresh backgrounds properly,
981 // so refresh the whole window on activation and deactivation.
982 long osVersion
= UMAGetSystemVersion();
983 if (osVersion
>= 0x1000 && osVersion
< 0x1020 )
989 // for the moment we have to resolve some redrawing issues like this
990 // the OS is stealing some redrawing areas as soon as it draws a control
997 void wxTopLevelWindowMac::MacKeyDown( WXEVENTREF ev
)
1003 void wxTopLevelWindowMac::SetTitle(const wxString
& title
)
1005 wxWindow::SetTitle( title
) ;
1006 UMASetWTitle( (WindowRef
)m_macWindow
, title
) ;
1009 bool wxTopLevelWindowMac::Show(bool show
)
1011 if ( !wxWindow::Show(show
) )
1016 ::TransitionWindow((WindowRef
)m_macWindow
,kWindowZoomTransitionEffect
,kWindowShowTransitionAction
,nil
);
1017 ::SelectWindow( (WindowRef
)m_macWindow
) ;
1018 // no need to generate events here, they will get them triggered by macos
1019 // actually they should be , but apparently they are not
1020 wxSize
size(m_width
, m_height
);
1021 wxSizeEvent
event(size
, m_windowId
);
1022 event
.SetEventObject(this);
1023 GetEventHandler()->ProcessEvent(event
);
1027 ::TransitionWindow((WindowRef
)m_macWindow
,kWindowZoomTransitionEffect
,kWindowHideTransitionAction
,nil
);
1041 void wxTopLevelWindowMac::DoMoveWindow(int x
, int y
, int width
, int height
)
1043 int former_x
= m_x
;
1044 int former_y
= m_y
;
1045 int former_w
= m_width
;
1046 int former_h
= m_height
;
1048 int actualWidth
= width
;
1049 int actualHeight
= height
;
1053 if ((m_minWidth
!= -1) && (actualWidth
< m_minWidth
))
1054 actualWidth
= m_minWidth
;
1055 if ((m_minHeight
!= -1) && (actualHeight
< m_minHeight
))
1056 actualHeight
= m_minHeight
;
1057 if ((m_maxWidth
!= -1) && (actualWidth
> m_maxWidth
))
1058 actualWidth
= m_maxWidth
;
1059 if ((m_maxHeight
!= -1) && (actualHeight
> m_maxHeight
))
1060 actualHeight
= m_maxHeight
;
1062 bool doMove
= false ;
1063 bool doResize
= false ;
1065 if ( actualX
!= former_x
|| actualY
!= former_y
)
1069 if ( actualWidth
!= former_w
|| actualHeight
!= former_h
)
1074 if ( doMove
|| doResize
)
1080 ::MoveWindow((WindowRef
)m_macWindow
, m_x
, m_y
, false); // don't make frontmost
1082 m_width
= actualWidth
;
1083 m_height
= actualHeight
;
1086 ::SizeWindow((WindowRef
)m_macWindow
, m_width
, m_height
, true);
1088 // the OS takes care of invalidating and erasing the new area so we only have to
1089 // take care of refreshing for full repaints
1091 if ( doResize
&& !HasFlag(wxNO_FULL_REPAINT_ON_RESIZE
) )
1095 if ( IsKindOf( CLASSINFO( wxFrame
) ) )
1097 wxFrame
* frame
= (wxFrame
*) this ;
1098 frame
->PositionStatusBar();
1099 frame
->PositionToolBar();
1102 wxWindowMac::MacTopLevelWindowChangedPosition() ; // like this only children will be notified
1104 MacRepositionScrollBars() ;
1107 wxPoint
point(m_x
, m_y
);
1108 wxMoveEvent
event(point
, m_windowId
);
1109 event
.SetEventObject(this);
1110 GetEventHandler()->ProcessEvent(event
) ;
1114 MacRepositionScrollBars() ;
1115 wxSize
size(m_width
, m_height
);
1116 wxSizeEvent
event(size
, m_windowId
);
1117 event
.SetEventObject(this);
1118 GetEventHandler()->ProcessEvent(event
);
1125 * Invalidation Mechanism
1127 * The update mechanism reflects exactely the windows mechanism
1128 * the rect gets added to the window invalidate region, if the eraseBackground flag
1129 * has been true for any part of the update rgn the background is erased in the entire region
1130 * not just in the specified rect.
1132 * In order to achive this, we also have an internal m_macNoEraseUpdateRgn, all rects that have
1133 * the eraseBackground flag set to false are also added to this rgn. upon receiving an update event
1134 * the update rgn is compared to the m_macNoEraseUpdateRgn and in case they differ, every window
1135 * will get the eraseBackground event first
1138 void wxTopLevelWindowMac::MacInvalidate( const WXRECTPTR rect
, bool eraseBackground
)
1140 GrafPtr formerPort
;
1141 GetPort( &formerPort
) ;
1142 SetPortWindowPort( (WindowRef
)m_macWindow
) ;
1144 m_macNeedsErasing
|= eraseBackground
;
1146 // if we already know that we will have to erase, there's no need to track the rest
1147 if ( !m_macNeedsErasing
)
1149 // we end only here if eraseBackground is false
1150 // if we already have a difference between m_macNoEraseUpdateRgn and UpdateRgn
1151 // we will have to erase anyway
1153 RgnHandle updateRgn
= NewRgn();
1154 RgnHandle diffRgn
= NewRgn() ;
1155 if ( updateRgn
&& diffRgn
)
1157 GetWindowUpdateRgn( (WindowRef
)m_macWindow
, updateRgn
);
1159 LocalToGlobal( &pt
) ;
1160 OffsetRgn( updateRgn
, -pt
.h
, -pt
.v
) ;
1161 DiffRgn( updateRgn
, (RgnHandle
) m_macNoEraseUpdateRgn
, diffRgn
) ;
1162 if ( !EmptyRgn( diffRgn
) )
1164 m_macNeedsErasing
= true ;
1168 DisposeRgn( updateRgn
);
1170 DisposeRgn( diffRgn
);
1172 if ( !m_macNeedsErasing
)
1174 RgnHandle rectRgn
= NewRgn() ;
1175 SetRectRgn( rectRgn
, ((Rect
*)rect
)->left
, ((Rect
*)rect
)->top
, ((Rect
*)rect
)->right
, ((Rect
*)rect
)->bottom
) ;
1176 UnionRgn( (RgnHandle
) m_macNoEraseUpdateRgn
, rectRgn
, (RgnHandle
) m_macNoEraseUpdateRgn
) ;
1177 DisposeRgn( rectRgn
) ;
1180 InvalWindowRect( (WindowRef
)m_macWindow
, (Rect
*)rect
) ;
1181 // turn this on to debug the refreshing cycle
1182 #if wxMAC_DEBUG_REDRAW
1185 SetPort( formerPort
) ;
1189 bool wxTopLevelWindowMac::SetShape(const wxRegion
& region
)
1191 wxCHECK_MSG( HasFlag(wxFRAME_SHAPED
), FALSE
,
1192 _T("Shaped windows must be created with the wxFRAME_SHAPED style."));
1195 // The empty region signifies that the shape should be removed from the
1197 if ( region
.IsEmpty() )
1199 wxSize sz
= GetClientSize();
1200 wxRegion
rgn(0, 0, sz
.x
, sz
.y
);
1201 return SetShape(rgn
);
1204 // Make a copy of the region
1205 RgnHandle shapeRegion
= NewRgn();
1206 CopyRgn( (RgnHandle
)region
.GetWXHRGN(), shapeRegion
);
1208 // Dispose of any shape region we may already have
1209 RgnHandle oldRgn
= (RgnHandle
)GetWRefCon( (WindowRef
)MacGetWindowRef() );
1213 // Save the region so we can use it later
1214 SetWRefCon((WindowRef
)MacGetWindowRef(), (SInt32
)shapeRegion
);
1216 // Tell the window manager that the window has changed shape
1217 ReshapeCustomWindow((WindowRef
)MacGetWindowRef());
1224 // ---------------------------------------------------------------------------
1225 // Support functions for shaped windows, based on Apple's CustomWindow sample at
1226 // http://developer.apple.com/samplecode/Sample_Code/Human_Interface_Toolbox/Mac_OS_High_Level_Toolbox/CustomWindow.htm
1227 // ---------------------------------------------------------------------------
1231 static void wxShapedMacWindowGetPos(WindowRef window
, Rect
* inRect
)
1233 GetWindowPortBounds(window
, inRect
);
1234 Point pt
= {inRect
->left
, inRect
->top
};
1235 SetPort((GrafPtr
) GetWindowPort(window
));
1238 inRect
->left
= pt
.h
;
1239 inRect
->bottom
+= pt
.v
;
1240 inRect
->right
+= pt
.h
;
1244 static SInt32
wxShapedMacWindowGetFeatures(WindowRef window
, SInt32 param
)
1246 /*------------------------------------------------------
1247 Define which options your custom window supports.
1248 --------------------------------------------------------*/
1249 //just enable everything for our demo
1250 *(OptionBits
*)param
=//kWindowCanGrow|
1252 //kWindowCanCollapse|
1253 //kWindowCanGetWindowRegion|
1254 //kWindowHasTitleBar|
1255 //kWindowSupportsDragHilite|
1256 kWindowCanDrawInCurrentPort
|
1257 //kWindowCanMeasureTitle|
1258 kWindowWantsDisposeAtProcessDeath
|
1259 kWindowSupportsSetGrowImageRegion
|
1260 kWindowDefSupportsColorGrafPort
;
1264 // The content region is left as a rectangle matching the window size, this is
1265 // so the origin in the paint event, and etc. still matches what the
1266 // programmer expects.
1267 static void wxShapedMacWindowContentRegion(WindowRef window
, RgnHandle rgn
)
1270 wxTopLevelWindowMac
* win
= wxFindWinFromMacWindow(window
);
1273 wxRect r
= win
->GetRect();
1274 SetRectRgn(rgn
, r
.GetLeft(), r
.GetTop(), r
.GetRight(), r
.GetBottom());
1278 // The structure region is set to the shape given to the SetShape method.
1279 static void wxShapedMacWindowStructureRegion(WindowRef window
, RgnHandle rgn
)
1281 RgnHandle cachedRegion
= (RgnHandle
) GetWRefCon(window
);
1287 wxShapedMacWindowGetPos(window
, &windowRect
); //how big is the window
1288 CopyRgn(cachedRegion
, rgn
); //make a copy of our cached region
1289 OffsetRgn(rgn
, windowRect
.left
, windowRect
.top
); // position it over window
1290 //MapRgn(rgn, &mMaskSize, &windowRect); //scale it to our actual window size
1296 static SInt32
wxShapedMacWindowGetRegion(WindowRef window
, SInt32 param
)
1298 GetWindowRegionPtr rgnRec
=(GetWindowRegionPtr
)param
;
1300 switch(rgnRec
->regionCode
)
1302 case kWindowStructureRgn
:
1303 wxShapedMacWindowStructureRegion(window
, rgnRec
->winRgn
);
1305 case kWindowContentRgn
:
1306 wxShapedMacWindowContentRegion(window
, rgnRec
->winRgn
);
1309 SetEmptyRgn(rgnRec
->winRgn
);
1316 static SInt32
wxShapedMacWindowHitTest(WindowRef window
,SInt32 param
)
1318 /*------------------------------------------------------
1319 Determine the region of the window which was hit
1320 --------------------------------------------------------*/
1322 static RgnHandle tempRgn
=nil
;
1327 SetPt(&hitPoint
,LoWord(param
),HiWord(param
));//get the point clicked
1329 //Mac OS 8.5 or later
1330 wxShapedMacWindowStructureRegion(window
, tempRgn
);
1331 if (PtInRgn(hitPoint
, tempRgn
)) //in window content region?
1334 return wNoHit
;//no significant area was hit.
1338 static pascal long wxShapedMacWindowDef(short varCode
, WindowRef window
, SInt16 message
, SInt32 param
)
1342 case kWindowMsgHitTest
:
1343 return wxShapedMacWindowHitTest(window
,param
);
1345 case kWindowMsgGetFeatures
:
1346 return wxShapedMacWindowGetFeatures(window
,param
);
1348 // kWindowMsgGetRegion is sent during CreateCustomWindow and ReshapeCustomWindow
1349 case kWindowMsgGetRegion
:
1350 return wxShapedMacWindowGetRegion(window
,param
);
1357 // ---------------------------------------------------------------------------