]> git.saurik.com Git - wxWidgets.git/blame - src/mac/carbon/toplevel.cpp
projects / wxWidgets.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
mac fixes
[wxWidgets.git] / src / mac / carbon / toplevel.cpp
CommitLineData
a15eb0a5
SC		 1///////////////////////////////////////////////////////////////////////////////
2// Name: mac/toplevel.cpp
d66c3960
SC		 3// Purpose: implements wxTopLevelWindow for Mac
4// Author: Stefan Csomor
a15eb0a5
SC		 5// Modified by:
6// Created: 24.09.01
7// RCS-ID: $Id$
d66c3960 8// Copyright: (c) 2001-2004 Stefan Csomor
6aa89a22 9// License: wxWindows licence
a15eb0a5
SC		 10///////////////////////////////////////////////////////////////////////////////
11
12// ============================================================================
13// declarations
14// ============================================================================
15
16// ----------------------------------------------------------------------------
17// headers
18// ----------------------------------------------------------------------------
19
20#ifdef __GNUG__
21 #pragma implementation "toplevel.h"
22#endif
23
24// For compilers that support precompilation, includes "wx.h".
25#include "wx/wxprec.h"
26
27#ifdef __BORLANDC__
28 #pragma hdrstop
29#endif
30
31#ifndef WX_PRECOMP
32 #include "wx/app.h"
33 #include "wx/toplevel.h"
422644a3 34 #include "wx/frame.h"
a15eb0a5
SC		 35 #include "wx/string.h"
36 #include "wx/log.h"
37 #include "wx/intl.h"
38#endif //WX_PRECOMP
39
5f0b2f22 40#include "wx/mac/uma.h"
422644a3 41#include "wx/mac/aga.h"
7c091673 42#include "wx/app.h"
5f0b2f22 43#include "wx/tooltip.h"
a07c1212 44#include "wx/dnd.h"
1f90939c
SC		 45#if wxUSE_SYSTEM_OPTIONS
46 #include "wx/sysopt.h"
47#endif
5f0b2f22 48
7f0c3a63 49#include <ToolUtils.h>
dd49c691
SC		 50
51
34dc8f91
SC		 52#define wxMAC_DEBUG_REDRAW 0
53#ifndef wxMAC_DEBUG_REDRAW
54#define wxMAC_DEBUG_REDRAW 0
55#endif
56
a15eb0a5
SC		 57// ----------------------------------------------------------------------------
58// globals
59// ----------------------------------------------------------------------------
60
61// list of all frames and modeless dialogs
32b5be3d
RR		 62wxWindowList wxModelessWindows;
63
64// double click testing
65static Point gs_lastWhere;
66static long gs_lastWhen = 0;
67
6a7e6411 68
45ff8005 69#if TARGET_CARBON
6a7e6411 70static pascal long wxShapedMacWindowDef(short varCode, WindowRef window, SInt16 message, SInt32 param);
45ff8005 71#endif
6a7e6411 72
a15eb0a5
SC		 73// ============================================================================
74// wxTopLevelWindowMac implementation
75// ============================================================================
76
851b3a88
SC		 77// ---------------------------------------------------------------------------
78// Carbon Events
79// ---------------------------------------------------------------------------
80
81#if TARGET_CARBON
82
83extern long wxMacTranslateKey(unsigned char key, unsigned char code) ;
84
1542ea39 85static const EventTypeSpec eventList[] =
851b3a88
SC		 86{
87 { kEventClassTextInput, kEventTextInputUnicodeForKeyEvent } ,
c5c9378c 88
e40298d5 89 { kEventClassKeyboard, kEventRawKeyDown } ,
c5c9378c
SC		 90 { kEventClassKeyboard, kEventRawKeyRepeat } ,
91 { kEventClassKeyboard, kEventRawKeyUp } ,
92 { kEventClassKeyboard, kEventRawKeyModifiersChanged } ,
93
16a76184 94 { kEventClassWindow , kEventWindowShown } ,
851b3a88
SC		 95 { kEventClassWindow , kEventWindowUpdate } ,
96 { kEventClassWindow , kEventWindowActivated } ,
97 { kEventClassWindow , kEventWindowDeactivated } ,
98 { kEventClassWindow , kEventWindowBoundsChanging } ,
99 { kEventClassWindow , kEventWindowBoundsChanged } ,
100 { kEventClassWindow , kEventWindowClose } ,
101
102 { kEventClassMouse , kEventMouseDown } ,
103 { kEventClassMouse , kEventMouseUp } ,
de127c69 104 { kEventClassMouse , kEventMouseWheelMoved } ,
851b3a88
SC		 105 { kEventClassMouse , kEventMouseMoved } ,
106 { kEventClassMouse , kEventMouseDragged } ,
107
108} ;
109
110static pascal OSStatus TextInputEventHandler( EventHandlerCallRef handler , EventRef event , void *data )
111{
112 OSStatus result = eventNotHandledErr ;
851b3a88 113
c5c9378c 114 wxWindow* focus = wxWindow::FindFocus() ;
e40298d5 115 char charCode ;
1542ea39 116 UInt32 keyCode ;
c5c9378c 117 UInt32 modifiers ;
e40298d5 118 Point point ;
c5c9378c
SC		 119
120 EventRef rawEvent ;
1542ea39 121
c5c9378c 122 GetEventParameter( event , kEventParamTextInputSendKeyboardEvent ,typeEventRef,NULL,sizeof(rawEvent),NULL,&rawEvent ) ;
1542ea39 123
e40298d5
JS		 124 GetEventParameter( rawEvent, kEventParamKeyMacCharCodes, typeChar, NULL,sizeof(char), NULL,&charCode );
125 GetEventParameter( rawEvent, kEventParamKeyCode, typeUInt32, NULL, sizeof(UInt32), NULL, &keyCode );
126 GetEventParameter( rawEvent, kEventParamKeyModifiers, typeUInt32, NULL, sizeof(UInt32), NULL, &modifiers);
127 GetEventParameter( rawEvent, kEventParamMouseLocation, typeQDPoint, NULL,
128 sizeof( Point ), NULL, &point );
129
e40298d5
JS		 130 switch ( GetEventKind( event ) )
131 {
132 case kEventTextInputUnicodeForKeyEvent :
ace07c80 133 // this is only called when no default handler has jumped in, eg a wxControl on a floater window does not
5d2e69e8 134 // get its own kEventTextInputUnicodeForKeyEvent, so we route back the
ace07c80
SC		 135 wxControl* control = wxDynamicCast( focus , wxControl ) ;
136 if ( control )
137 {
138 ControlHandle macControl = (ControlHandle) control->GetMacControl() ;
139 if ( macControl )
140 {
141 ::HandleControlKey( macControl , keyCode , charCode , modifiers ) ;
142 result = noErr ;
143 }
144 }
145 /*
146 // this may lead to double events sent to a window in case all handlers have skipped the key down event
77a4354e
VZ		 147 UInt32 when = EventTimeToTicks( GetEventTime( event ) ) ;
148 UInt32 message = (keyCode << 8) + charCode;
149
1542ea39 150 if ( (focus != NULL) && wxTheApp->MacSendKeyDownEvent(
e40298d5
JS		 151 focus , message , modifiers , when , point.h , point.v ) )
152 {
153 result = noErr ;
154 }
ace07c80 155 */
e40298d5
JS		 156 break ;
157 }
c5c9378c
SC		 158
159 return result ;
160}
161
162static pascal OSStatus KeyboardEventHandler( EventHandlerCallRef handler , EventRef event , void *data )
163{
164 OSStatus result = eventNotHandledErr ;
165
166 wxWindow* focus = wxWindow::FindFocus() ;
e40298d5 167 char charCode ;
1542ea39 168 UInt32 keyCode ;
c5c9378c 169 UInt32 modifiers ;
e40298d5
JS		 170 Point point ;
171 UInt32 when = EventTimeToTicks( GetEventTime( event ) ) ;
172
173 GetEventParameter( event, kEventParamKeyMacCharCodes, typeChar, NULL,sizeof(char), NULL,&charCode );
174 GetEventParameter( event, kEventParamKeyCode, typeUInt32, NULL, sizeof(UInt32), NULL, &keyCode );
175 GetEventParameter(event, kEventParamKeyModifiers, typeUInt32, NULL, sizeof(UInt32), NULL, &modifiers);
176 GetEventParameter( event, kEventParamMouseLocation, typeQDPoint, NULL,
177 sizeof( Point ), NULL, &point );
178
179 UInt32 message = (keyCode << 8) + charCode;
180 switch( GetEventKind( event ) )
181 {
182 case kEventRawKeyRepeat :
183 case kEventRawKeyDown :
e40298d5 184 {
404f1d80
SC		 185 WXEVENTREF formerEvent = wxTheApp->MacGetCurrentEvent() ;
186 WXEVENTHANDLERCALLREF formerHandler = wxTheApp->MacGetCurrentEventHandlerCallRef() ;
187 wxTheApp->MacSetCurrentEvent( event , handler ) ;
188 if ( (focus != NULL) && wxTheApp->MacSendKeyDownEvent(
189 focus , message , modifiers , when , point.h , point.v ) )
190 {
191 result = noErr ;
192 }
193 wxTheApp->MacSetCurrentEvent( formerEvent , formerHandler ) ;
e40298d5
JS		 194 }
195 break ;
196 case kEventRawKeyUp :
1542ea39 197 if ( (focus != NULL) && wxTheApp->MacSendKeyUpEvent(
e40298d5
JS		 198 focus , message , modifiers , when , point.h , point.v ) )
199 {
200 result = noErr ;
201 }
202 break ;
203 case kEventRawKeyModifiersChanged :
204 {
205 wxKeyEvent event(wxEVT_KEY_DOWN);
206
207 event.m_shiftDown = modifiers & shiftKey;
208 event.m_controlDown = modifiers & controlKey;
209 event.m_altDown = modifiers & optionKey;
210 event.m_metaDown = modifiers & cmdKey;
211
212 event.m_x = point.h;
213 event.m_y = point.v;
214 event.m_timeStamp = when;
215 wxWindow* focus = wxWindow::FindFocus() ;
216 event.SetEventObject(focus);
217
8d60dc8a 218 if ( focus && (modifiers ^ wxTheApp->s_lastModifiers ) & controlKey )
e40298d5
JS		 219 {
220 event.m_keyCode = WXK_CONTROL ;
221 event.SetEventType( ( modifiers & controlKey ) ? wxEVT_KEY_DOWN : wxEVT_KEY_UP ) ;
222 focus->GetEventHandler()->ProcessEvent( event ) ;
223 }
8d60dc8a 224 if ( focus && (modifiers ^ wxTheApp->s_lastModifiers ) & shiftKey )
e40298d5
JS		 225 {
226 event.m_keyCode = WXK_SHIFT ;
227 event.SetEventType( ( modifiers & shiftKey ) ? wxEVT_KEY_DOWN : wxEVT_KEY_UP ) ;
228 focus->GetEventHandler()->ProcessEvent( event ) ;
229 }
8d60dc8a 230 if ( focus && (modifiers ^ wxTheApp->s_lastModifiers ) & optionKey )
e40298d5
JS		 231 {
232 event.m_keyCode = WXK_ALT ;
233 event.SetEventType( ( modifiers & optionKey ) ? wxEVT_KEY_DOWN : wxEVT_KEY_UP ) ;
234 focus->GetEventHandler()->ProcessEvent( event ) ;
235 }
b7aec135
SC		 236 if ( focus && (modifiers ^ wxTheApp->s_lastModifiers ) & cmdKey )
237 {
238 event.m_keyCode = WXK_COMMAND ;
239 event.SetEventType( ( modifiers & cmdKey ) ? wxEVT_KEY_DOWN : wxEVT_KEY_UP ) ;
240 focus->GetEventHandler()->ProcessEvent( event ) ;
241 }
e40298d5
JS		 242 wxTheApp->s_lastModifiers = modifiers ;
243 }
244 break ;
245 }
851b3a88
SC		 246
247 return result ;
248}
249
67245665 250pascal OSStatus MouseEventHandler( EventHandlerCallRef handler , EventRef event , void *data )
851b3a88
SC		 251{
252 OSStatus result = eventNotHandledErr ;
253
e40298d5
JS		 254 wxTopLevelWindowMac* toplevelWindow = (wxTopLevelWindowMac*) data ;
255 Point point ;
256 UInt32 modifiers = 0;
257 EventMouseButton button = 0 ;
258 UInt32 click = 0 ;
1542ea39 259
e40298d5
JS		 260 GetEventParameter( event, kEventParamMouseLocation, typeQDPoint, NULL,
261 sizeof( Point ), NULL, &point );
262 GetEventParameter( event, kEventParamKeyModifiers, typeUInt32, NULL,
263 sizeof( UInt32 ), NULL, &modifiers );
264 GetEventParameter( event, kEventParamMouseButton, typeMouseButton, NULL,
265 sizeof( EventMouseButton ), NULL, &button );
266 GetEventParameter( event, kEventParamClickCount, typeUInt32, NULL,
267 sizeof( UInt32 ), NULL, &click );
1542ea39 268
e40298d5
JS		 269 if ( button == 0 || GetEventKind( event ) == kEventMouseUp )
270 modifiers += btnState ;
1542ea39 271
01c18566
SC		 272 // temporary hack to support true two button mouse
273 if ( button == kEventMouseButtonSecondary )
274 {
275 modifiers |= controlKey ;
276 }
e40298d5 277 WindowRef window ;
851b3a88 278 short windowPart = ::FindWindow(point, &window);
a3195b73 279
67245665
SC		 280 // either we really are active or we are capturing mouse events
281
282 if ( (IsWindowActive(window) && windowPart == inContent) ||
283 (wxTheApp->s_captureWindow && wxTheApp->s_captureWindow->MacGetTopLevelWindow() == toplevelWindow) )
851b3a88 284 {
e40298d5
JS		 285 switch ( GetEventKind( event ) )
286 {
287 case kEventMouseDown :
288 toplevelWindow->MacFireMouseEvent( mouseDown , point.h , point.v , modifiers , EventTimeToTicks( GetEventTime( event ) ) ) ;
289 result = noErr ;
290 break ;
291 case kEventMouseUp :
292 toplevelWindow->MacFireMouseEvent( mouseUp , point.h , point.v , modifiers , EventTimeToTicks( GetEventTime( event ) ) ) ;
293 result = noErr ;
294 break ;
295 case kEventMouseMoved :
3c589c7f 296 wxTheApp->MacHandleMouseMovedEvent( point.h , point.v , modifiers , EventTimeToTicks( GetEventTime( event ) ) ) ;
e40298d5
JS		 297 result = noErr ;
298 break ;
299 case kEventMouseDragged :
300 toplevelWindow->MacFireMouseEvent( nullEvent , point.h , point.v , modifiers , EventTimeToTicks( GetEventTime( event ) ) ) ;
301 result = noErr ;
302 break ;
de127c69
GD		 303 case kEventMouseWheelMoved :
304 {
305 //bClearTooltip = false;
306 EventMouseWheelAxis axis = kEventMouseWheelAxisY;
307 SInt32 delta = 0;
308 Point mouseLoc = {0, 0};
309 if (::GetEventParameter(event, kEventParamMouseWheelAxis, typeMouseWheelAxis,
310 NULL, sizeof(EventMouseWheelAxis), NULL, &axis) == noErr &&
311 ::GetEventParameter(event, kEventParamMouseWheelDelta, typeLongInteger,
312 NULL, sizeof(SInt32), NULL, &delta) == noErr &&
313 ::GetEventParameter(event, kEventParamMouseLocation, typeQDPoint,
314 NULL, sizeof(Point), NULL, &mouseLoc) == noErr)
315 {
316 wxMouseEvent wheelEvent(wxEVT_MOUSEWHEEL);
317
318 wheelEvent.m_x = mouseLoc.h;
319 wheelEvent.m_y = mouseLoc.v;
320
321 wheelEvent.m_wheelRotation = delta;
322 wheelEvent.m_wheelDelta = 1;
323 wheelEvent.m_linesPerAction = 1;
324
325 wxWindow* currentMouseWindow = NULL;
326 wxWindow::MacGetWindowFromPoint(wxPoint(mouseLoc.h, mouseLoc.v), &currentMouseWindow);
327
328 if (currentMouseWindow)
329 {
330 currentMouseWindow->GetEventHandler()->ProcessEvent(wheelEvent);
331 result = noErr;
332 }
333 }
334 }
335 break ;
e40298d5
JS		 336 default :
337 break ;
338 }
339 }
1542ea39 340
e40298d5 341 return result ;
1542ea39 342
851b3a88
SC		 343
344}
345static pascal OSStatus WindowEventHandler( EventHandlerCallRef handler , EventRef event , void *data )
346{
347 OSStatus result = eventNotHandledErr ;
348 OSStatus err = noErr ;
349
e40298d5
JS		 350 UInt32 attributes;
351 WindowRef windowRef ;
352 wxTopLevelWindowMac* toplevelWindow = (wxTopLevelWindowMac*) data ;
1542ea39 353
e40298d5
JS		 354 GetEventParameter( event, kEventParamDirectObject, typeWindowRef, NULL,
355 sizeof( WindowRef ), NULL, &windowRef );
1542ea39 356
e40298d5
JS		 357 switch( GetEventKind( event ) )
358 {
359 case kEventWindowUpdate :
360 if ( !wxPendingDelete.Member(toplevelWindow) )
361 toplevelWindow->MacUpdate( EventTimeToTicks( GetEventTime( event ) ) ) ;
362 result = noErr ;
363 break ;
364 case kEventWindowActivated :
365 toplevelWindow->MacActivate( EventTimeToTicks( GetEventTime( event ) ) , true) ;
366 result = noErr ;
367 break ;
368 case kEventWindowDeactivated :
369 toplevelWindow->MacActivate( EventTimeToTicks( GetEventTime( event ) ) , false) ;
370 result = noErr ;
371 break ;
16a76184
SC		 372 case kEventWindowShown :
373 toplevelWindow->Refresh() ;
374 result = noErr ;
375 break ;
e40298d5
JS		 376 case kEventWindowClose :
377 toplevelWindow->Close() ;
378 result = noErr ;
379 break ;
380 case kEventWindowBoundsChanged :
381 err = GetEventParameter( event, kEventParamAttributes, typeUInt32,
382 NULL, sizeof( UInt32 ), NULL, &attributes );
383 if ( err == noErr )
384 {
385 Rect newContentRect ;
386
387 GetEventParameter( event, kEventParamCurrentBounds, typeQDRectangle, NULL,
388 sizeof( newContentRect ), NULL, &newContentRect );
1542ea39
RD		 389
390 toplevelWindow->SetSize( newContentRect.left , newContentRect.top ,
391 newContentRect.right - newContentRect.left ,
851b3a88
SC		 392 newContentRect.bottom - newContentRect.top, wxSIZE_USE_EXISTING);
393
e40298d5
JS		 394 result = noErr;
395 }
396 break ;
f81bfef9
SC		 397 case kEventWindowBoundsChanging :
398 err = GetEventParameter( event, kEventParamAttributes, typeUInt32,
399 NULL, sizeof( UInt32 ), NULL, &attributes );
400 if ( err == noErr )
401 {
402 Rect newContentRect ;
403
404 GetEventParameter( event, kEventParamCurrentBounds, typeQDRectangle, NULL,
405 sizeof( newContentRect ), NULL, &newContentRect );
5d2e69e8 406
83901ec2
SC		 407 wxSize formerSize = toplevelWindow->GetSize() ;
408
409 if ( (attributes & kWindowBoundsChangeSizeChanged ) ||
410 ( attributes & kWindowBoundsChangeOriginChanged ) )
411 toplevelWindow->SetSize( newContentRect.left , newContentRect.top ,
412 newContentRect.right - newContentRect.left ,
413 newContentRect.bottom - newContentRect.top, wxSIZE_USE_EXISTING);
414
415 int x , y , w , h ;
416 toplevelWindow->GetPosition( &x , &y ) ;
417 toplevelWindow->GetSize( &w , &h ) ;
418 Rect adjustedRect = { y , x , y + h , x + w } ;
419
420 if ( !EqualRect( &newContentRect , &adjustedRect ) )
f81bfef9 421 {
83901ec2 422 SetEventParameter( event , kEventParamCurrentBounds , typeQDRectangle, sizeof( adjustedRect ) , &adjustedRect ) ;
f81bfef9 423 }
83901ec2
SC		 424
425 if ( toplevelWindow->GetSize() != formerSize )
426 toplevelWindow->Update() ;
427
f81bfef9
SC		 428 result = noErr ;
429 }
430 break ;
e40298d5
JS		 431 default :
432 break ;
433 }
434 return result ;
851b3a88
SC		 435}
436
437pascal OSStatus wxMacWindowEventHandler( EventHandlerCallRef handler , EventRef event , void *data )
438{
439 OSStatus result = eventNotHandledErr ;
440
441 switch ( GetEventClass( event ) )
442 {
c5c9378c 443 case kEventClassKeyboard :
e40298d5 444 result = KeyboardEventHandler( handler, event , data ) ;
c5c9378c 445 break ;
851b3a88 446 case kEventClassTextInput :
e40298d5 447 result = TextInputEventHandler( handler, event , data ) ;
851b3a88
SC		 448 break ;
449 case kEventClassWindow :
e40298d5
JS		 450 result = WindowEventHandler( handler, event , data ) ;
451 break ;
851b3a88 452 case kEventClassMouse :
e40298d5
JS		 453 result = MouseEventHandler( handler, event , data ) ;
454 break ;
851b3a88
SC		 455 default :
456 break ;
457 }
458 return result ;
459}
460
461DEFINE_ONE_SHOT_HANDLER_GETTER( wxMacWindowEventHandler )
462
463#endif
464
5f0b2f22
SC		 465// ---------------------------------------------------------------------------
466// wxWindowMac utility functions
467// ---------------------------------------------------------------------------
468
469// Find an item given the Macintosh Window Reference
470
471wxList *wxWinMacWindowList = NULL;
76a5e5d2 472wxTopLevelWindowMac *wxFindWinFromMacWindow(WXWindow inWindowRef)
5f0b2f22 473{
46d0c707
SC		 474 if ( wxWinMacWindowList == NULL )
475 return NULL ;
5f0b2f22
SC		 476 wxNode *node = wxWinMacWindowList->Find((long)inWindowRef);
477 if (!node)
478 return NULL;
eb22f2a6 479 return (wxTopLevelWindowMac *)node->GetData();
5f0b2f22
SC		 480}
481
76a5e5d2 482void wxAssociateWinWithMacWindow(WXWindow inWindowRef, wxTopLevelWindowMac *win)
5f0b2f22
SC		 483{
484 // adding NULL WindowRef is (first) surely a result of an error and
485 // (secondly) breaks menu command processing
427ff662 486 wxCHECK_RET( inWindowRef != (WindowRef) NULL, wxT("attempt to add a NULL WindowRef to window list") );
5f0b2f22
SC		 487
488 if ( !wxWinMacWindowList->Find((long)inWindowRef) )
489 wxWinMacWindowList->Append((long)inWindowRef, win);
490}
491
492void wxRemoveMacWindowAssociation(wxTopLevelWindowMac *win)
493{
494 wxWinMacWindowList->DeleteObject(win);
495}
496
497
a15eb0a5
SC		 498// ----------------------------------------------------------------------------
499// wxTopLevelWindowMac creation
500// ----------------------------------------------------------------------------
501
76a5e5d2 502WXHWND wxTopLevelWindowMac::s_macWindowInUpdate = NULL;
245f3581 503wxTopLevelWindowMac *wxTopLevelWindowMac::s_macDeactivateWindow = NULL;
1f90939c 504bool wxTopLevelWindowMac::s_macWindowCompositing = FALSE;
5f0b2f22 505
a15eb0a5
SC		 506void wxTopLevelWindowMac::Init()
507{
508 m_iconized =
509 m_maximizeOnShow = FALSE;
5f0b2f22
SC		 510 m_macNoEraseUpdateRgn = NewRgn() ;
511 m_macNeedsErasing = false ;
6a17ca35 512 m_macWindow = NULL ;
1f90939c 513 m_macUsesCompositing = FALSE ;
851b3a88 514#if TARGET_CARBON
7c091673 515 m_macEventHandler = NULL ;
851b3a88 516 #endif
a15eb0a5
SC		 517}
518
118f012e
SC		 519class wxMacDeferredWindowDeleter : public wxObject
520{
521public :
1542ea39
RD		 522 wxMacDeferredWindowDeleter( WindowRef windowRef )
523 {
524 m_macWindow = windowRef ;
118f012e 525 }
1542ea39
RD		 526 virtual ~wxMacDeferredWindowDeleter()
527 {
528 UMADisposeWindow( (WindowRef) m_macWindow ) ;
118f012e
SC		 529 }
530 protected :
531 WindowRef m_macWindow ;
532} ;
533
a15eb0a5
SC		 534bool wxTopLevelWindowMac::Create(wxWindow *parent,
535 wxWindowID id,
536 const wxString& title,
537 const wxPoint& pos,
538 const wxSize& size,
539 long style,
540 const wxString& name)
541{
542 // init our fields
543 Init();
544
545 m_windowStyle = style;
546
547 SetName(name);
548
549 m_windowId = id == -1 ? NewControlId() : id;
550
551 wxTopLevelWindows.Append(this);
552
553 if ( parent )
554 parent->AddChild(this);
555
556 return TRUE;
557}
558
559wxTopLevelWindowMac::~wxTopLevelWindowMac()
560{
6a17ca35
SC		 561 if ( m_macWindow )
562 {
563 wxToolTip::NotifyWindowDelete(m_macWindow) ;
118f012e 564 wxPendingDelete.Append( new wxMacDeferredWindowDeleter( (WindowRef) m_macWindow ) ) ;
6a17ca35 565 }
1542ea39 566
f75363ee 567#if TARGET_CARBON
7c091673
SC		 568 if ( m_macEventHandler )
569 {
570 ::RemoveEventHandler((EventHandlerRef) m_macEventHandler);
571 m_macEventHandler = NULL ;
572 }
1542ea39 573#endif
851b3a88 574
5f0b2f22
SC		 575 wxRemoveMacWindowAssociation( this ) ;
576
a15eb0a5
SC		 577 if ( wxModelessWindows.Find(this) )
578 wxModelessWindows.DeleteObject(this);
579
76a5e5d2 580 DisposeRgn( (RgnHandle) m_macNoEraseUpdateRgn ) ;
a15eb0a5
SC		 581}
582
583
584// ----------------------------------------------------------------------------
585// wxTopLevelWindowMac maximize/minimize
586// ----------------------------------------------------------------------------
587
588void wxTopLevelWindowMac::Maximize(bool maximize)
589{
1f90939c
SC		 590 wxMacPortStateHelper help( (GrafPtr) GetWindowPort( (WindowRef) m_macWindow) ) ;
591 wxMacWindowClipper clip (this);
b7aec135
SC		 592 ZoomWindow( (WindowRef)m_macWindow , maximize ? inZoomOut : inZoomIn , false ) ;
593
594 Rect tempRect ;
595 GrafPtr port ;
596 GetPort( &port ) ;
597 Point pt = { 0, 0 } ;
598 SetPortWindowPort((WindowRef)m_macWindow) ;
599 LocalToGlobal( &pt ) ;
600 SetPort( port ) ;
601
602 GetWindowPortBounds((WindowRef)m_macWindow, &tempRect ) ;
603 SetSize( pt.h , pt.v , tempRect.right-tempRect.left ,
604 tempRect.bottom-tempRect.top, wxSIZE_USE_EXISTING);
a15eb0a5
SC		 605}
606
607bool wxTopLevelWindowMac::IsMaximized() const
608{
b7aec135 609 return IsWindowInStandardState( (WindowRef)m_macWindow , NULL , NULL ) ;
a15eb0a5
SC		 610}
611
612void wxTopLevelWindowMac::Iconize(bool iconize)
613{
b7aec135
SC		 614 if ( IsWindowCollapsable((WindowRef)m_macWindow) )
615 CollapseWindow((WindowRef)m_macWindow , iconize ) ;
a15eb0a5
SC		 616}
617
618bool wxTopLevelWindowMac::IsIconized() const
619{
b7aec135 620 return IsWindowCollapsed((WindowRef)m_macWindow ) ;
a15eb0a5
SC		 621}
622
623void wxTopLevelWindowMac::Restore()
624{
625 // not available on mac
626}
627
628// ----------------------------------------------------------------------------
629// wxTopLevelWindowMac misc
630// ----------------------------------------------------------------------------
631
632void wxTopLevelWindowMac::SetIcon(const wxIcon& icon)
633{
634 // this sets m_icon
635 wxTopLevelWindowBase::SetIcon(icon);
636}
5f0b2f22
SC		 637
638void wxTopLevelWindowMac::MacCreateRealWindow( const wxString& title,
639 const wxPoint& pos,
640 const wxSize& size,
641 long style,
1542ea39 642 const wxString& name )
5f0b2f22 643{
47ac4f9b 644 OSStatus err = noErr ;
e40298d5
JS		 645 SetName(name);
646 m_windowStyle = style;
647 m_isShown = FALSE;
1542ea39 648
e40298d5 649 // create frame.
1542ea39 650
5f0b2f22 651 Rect theBoundsRect;
1542ea39 652
e40298d5
JS		 653 m_x = (int)pos.x;
654 m_y = (int)pos.y;
655 if ( m_y < 50 )
656 m_y = 50 ;
657 if ( m_x < 20 )
658 m_x = 20 ;
1542ea39 659
979fdc00
RD		 660 m_width = WidthDefault(size.x);
661 m_height = HeightDefault(size.y);
1542ea39 662
5f0b2f22 663 ::SetRect(&theBoundsRect, m_x, m_y , m_x + m_width, m_y + m_height);
1542ea39 664
5f0b2f22 665 // translate the window attributes in the appropriate window class and attributes
1542ea39 666
5f0b2f22
SC		 667 WindowClass wclass = 0;
668 WindowAttributes attr = kWindowNoAttributes ;
1542ea39 669
f5744893 670 if ( HasFlag( wxFRAME_TOOL_WINDOW) )
5f0b2f22 671 {
1542ea39 672 if (
f5744893
SC		 673 HasFlag( wxMINIMIZE_BOX ) || HasFlag( wxMAXIMIZE_BOX ) ||
674 HasFlag( wxSYSTEM_MENU ) || HasFlag( wxCAPTION ) ||
675 HasFlag(wxTINY_CAPTION_HORIZ) || HasFlag(wxTINY_CAPTION_VERT)
e40298d5 676 )
5f0b2f22 677 {
f5744893
SC		 678 wclass = kFloatingWindowClass ;
679 if ( HasFlag(wxTINY_CAPTION_VERT) )
680 {
681 attr |= kWindowSideTitlebarAttribute ;
682 }
683 }
684 else
685 {
2b5f62a0 686#if TARGET_CARBON
f5744893 687 wclass = kPlainWindowClass ;
2b5f62a0
VZ		 688#else
689 wclass = kFloatingWindowClass ;
690#endif
5f0b2f22
SC		 691 }
692 }
693 else if ( HasFlag( wxCAPTION ) )
694 {
1542ea39 695 wclass = kDocumentWindowClass ;
5f0b2f22
SC		 696 }
697 else
698 {
f5744893 699 if ( HasFlag( wxMINIMIZE_BOX ) || HasFlag( wxMAXIMIZE_BOX ) ||
47ac4f9b 700 HasFlag( wxCLOSE_BOX ) || HasFlag( wxSYSTEM_MENU ) )
f5744893
SC		 701 {
702 wclass = kDocumentWindowClass ;
703 }
704 else
705 {
2b5f62a0 706#if TARGET_CARBON
f5744893 707 wclass = kPlainWindowClass ;
2b5f62a0
VZ		 708#else
709 wclass = kModalWindowClass ;
710#endif
f5744893 711 }
5f0b2f22 712 }
1542ea39 713
47ac4f9b 714 if ( HasFlag( wxMINIMIZE_BOX ) )
5f0b2f22 715 {
5f0b2f22
SC		 716 attr |= kWindowCollapseBoxAttribute ;
717 }
47ac4f9b
SC		 718 if ( HasFlag( wxMAXIMIZE_BOX ) )
719 {
720 attr |= kWindowFullZoomAttribute ;
721 }
5f0b2f22
SC		 722 if ( HasFlag( wxRESIZE_BORDER ) )
723 {
724 attr |= kWindowResizableAttribute ;
725 }
47ac4f9b 726 if ( HasFlag( wxCLOSE_BOX) )
5f0b2f22
SC		 727 {
728 attr |= kWindowCloseBoxAttribute ;
729 }
1542ea39 730
eb630bf1
DS		 731 if (UMAGetSystemVersion() >= 0x1000)
732 {
733 //turn on live resizing (OS X only)
734 attr |= kWindowLiveResizeAttribute;
735 }
736
b9c10231
SC		 737#if TARGET_CARBON
738#if 0 // having problems right now with that
6a7e6411 739 if (HasFlag(wxSTAY_ON_TOP))
eb630bf1 740 wclass = kUtilityWindowClass;
b9c10231
SC		 741#endif
742#endif
6a7e6411 743
1f90939c
SC		 744 //this setup lets us have compositing and non-compositing
745 //windows in the same application.
d66c3960
SC		 746
747#if UNIVERSAL_INTERFACES_VERSION >= 0x0400
1f90939c
SC		 748 if ( wxTopLevelWindowMac::s_macWindowCompositing )
749 {
750 attr |= kWindowCompositingAttribute;
751 m_macUsesCompositing = TRUE;
752 }
753 else
d66c3960 754#endif
1f90939c
SC		 755 {
756 m_macUsesCompositing = FALSE;
757 }
758
45ff8005 759#if TARGET_CARBON
6a7e6411
RD		 760 if ( HasFlag(wxFRAME_SHAPED) )
761 {
762 WindowDefSpec customWindowDefSpec;
763 customWindowDefSpec.defType = kWindowDefProcPtr;
764 customWindowDefSpec.u.defProc = NewWindowDefUPP(wxShapedMacWindowDef);
765
47ac4f9b 766 err = ::CreateCustomWindow( &customWindowDefSpec, wclass,
6a7e6411
RD		 767 attr, &theBoundsRect,
768 (WindowRef*) &m_macWindow);
769 }
770 else
45ff8005 771#endif
6a7e6411 772 {
47ac4f9b 773 err = ::CreateNewWindow( wclass , attr , &theBoundsRect , (WindowRef*)&m_macWindow ) ;
6a7e6411
RD		 774 }
775
47ac4f9b 776 wxCHECK_RET( err == noErr, wxT("Mac OS error when trying to create new window") );
5f0b2f22 777 wxAssociateWinWithMacWindow( m_macWindow , this ) ;
16a76184 778 UMASetWTitle( (WindowRef)m_macWindow , title , m_font.GetEncoding() ) ;
1f90939c
SC		 779 if ( wxTopLevelWindowMac::s_macWindowCompositing )
780 {
781 ::GetRootControl( (WindowRef)m_macWindow, (ControlHandle*)&m_macRootControl ) ;
782 }
783 else
784 {
785 ::CreateRootControl( (WindowRef)m_macWindow , (ControlHandle*)&m_macRootControl ) ;
786 }
851b3a88 787#if TARGET_CARBON
e40298d5 788 InstallStandardEventHandler( GetWindowEventTarget(MAC_WXHWND(m_macWindow)) ) ;
1542ea39 789 InstallWindowEventHandler(MAC_WXHWND(m_macWindow), GetwxMacWindowEventHandlerUPP(),
73bdd73a 790 GetEventTypeCount(eventList), eventList, this, (EventHandlerRef *)&m_macEventHandler);
851b3a88 791#endif
5f0b2f22 792 m_macFocus = NULL ;
6a7e6411
RD		 793
794
45ff8005 795#if TARGET_CARBON
6a7e6411
RD		 796 if ( HasFlag(wxFRAME_SHAPED) )
797 {
798 // default shape matches the window size
799 wxRegion rgn(0, 0, m_width, m_height);
800 SetShape(rgn);
801 }
45ff8005 802#endif
3dfafdb9
RD		 803
804 wxWindowCreateEvent event(this);
805 GetEventHandler()->ProcessEvent(event);
5f0b2f22
SC		 806}
807
1f90939c
SC		 808bool wxTopLevelWindowMac::MacEnableCompositing( bool useCompositing )
809{
810 bool oldval = s_macWindowCompositing;
811 s_macWindowCompositing = useCompositing;
812 return oldval;
813}
814
1542ea39 815void wxTopLevelWindowMac::MacGetPortParams(WXPOINTPTR localOrigin, WXRECTPTR clipRect, WXHWND *window , wxWindowMac** rootwin)
5f0b2f22 816{
76a5e5d2
SC		 817 ((Point*)localOrigin)->h = 0;
818 ((Point*)localOrigin)->v = 0;
819 ((Rect*)clipRect)->left = 0;
820 ((Rect*)clipRect)->top = 0;
821 ((Rect*)clipRect)->right = m_width;
822 ((Rect*)clipRect)->bottom = m_height;
5f0b2f22
SC		 823 *window = m_macWindow ;
824 *rootwin = this ;
825}
826
5d2e69e8 827void wxTopLevelWindowMac::ClearBackground()
5f0b2f22 828{
5d2e69e8 829 wxWindow::ClearBackground() ;
5f0b2f22
SC		 830}
831
1542ea39 832WXWidget wxTopLevelWindowMac::MacGetContainerForEmbedding()
5f0b2f22
SC		 833{
834 return m_macRootControl ;
835}
836
837
838void wxTopLevelWindowMac::MacUpdate( long timestamp)
839{
66a09d47 840 wxMacPortStateHelper help( (GrafPtr) GetWindowPort( (WindowRef) m_macWindow) ) ;
76a5e5d2 841
1925be65
SC		 842 RgnHandle visRgn = NewRgn() ;
843 GetPortVisibleRegion( GetWindowPort( (WindowRef)m_macWindow ), visRgn );
76a5e5d2 844 BeginUpdate( (WindowRef)m_macWindow ) ;
5f0b2f22 845
1542ea39 846 RgnHandle updateRgn = NewRgn();
5f0b2f22 847 RgnHandle diffRgn = NewRgn() ;
1925be65 848
5f0b2f22
SC		 849 if ( updateRgn && diffRgn )
850 {
732b3a75
SC		 851#if 1
852 // macos internal control redraws clean up areas we'd like to redraw ourselves
853 // therefore we pick the boundary rect and make sure we can redraw it
1925be65
SC		 854 // this has to be intersected by the visRgn in order to avoid drawing over its own
855 // boundaries
732b3a75
SC		 856 RgnHandle trueUpdateRgn = NewRgn() ;
857 Rect trueUpdateRgnBoundary ;
858 GetPortVisibleRegion( GetWindowPort( (WindowRef)m_macWindow ), trueUpdateRgn );
859 GetRegionBounds( trueUpdateRgn , &trueUpdateRgnBoundary ) ;
1925be65
SC		 860 RectRgn( updateRgn , &trueUpdateRgnBoundary ) ;
861 SectRgn( updateRgn , visRgn , updateRgn ) ;
732b3a75
SC		 862 if ( trueUpdateRgn )
863 DisposeRgn( trueUpdateRgn ) ;
864 SetPortVisibleRegion( GetWindowPort( (WindowRef)m_macWindow ), updateRgn ) ;
865#else
76a5e5d2 866 GetPortVisibleRegion( GetWindowPort( (WindowRef)m_macWindow ), updateRgn );
732b3a75 867#endif
76a5e5d2 868 DiffRgn( updateRgn , (RgnHandle) m_macNoEraseUpdateRgn , diffRgn ) ;
5f0b2f22
SC		 869 if ( !EmptyRgn( updateRgn ) )
870 {
871 MacRedraw( updateRgn , timestamp , m_macNeedsErasing || !EmptyRgn( diffRgn ) ) ;
872 }
873 }
874 if ( updateRgn )
875 DisposeRgn( updateRgn );
876 if ( diffRgn )
877 DisposeRgn( diffRgn );
1925be65
SC		 878 if ( visRgn )
879 DisposeRgn( visRgn ) ;
5d2e69e8 880
76a5e5d2
SC		 881 EndUpdate( (WindowRef)m_macWindow ) ;
882 SetEmptyRgn( (RgnHandle) m_macNoEraseUpdateRgn ) ;
5f0b2f22
SC		 883 m_macNeedsErasing = false ;
884}
885
886
887// Raise the window to the top of the Z order
888void wxTopLevelWindowMac::Raise()
889{
7f3c339c 890 ::SelectWindow( (WindowRef)m_macWindow ) ;
5f0b2f22
SC		 891}
892
893// Lower the window to the bottom of the Z order
894void wxTopLevelWindowMac::Lower()
895{
76a5e5d2 896 ::SendBehind( (WindowRef)m_macWindow , NULL ) ;
5f0b2f22
SC		 897}
898
1542ea39 899void wxTopLevelWindowMac::MacFireMouseEvent(
e40298d5 900 wxUint16 kind , wxInt32 x , wxInt32 y ,wxUint32 modifiers , long timestamp )
5f0b2f22
SC		 901{
902 wxMouseEvent event(wxEVT_LEFT_DOWN);
851b3a88
SC		 903 bool isDown = !(modifiers & btnState) ; // 1 is for up
904 bool controlDown = modifiers & controlKey ; // for simulating right mouse
1542ea39 905
5f0b2f22 906 event.m_leftDown = isDown && !controlDown;
1542ea39 907
5f0b2f22
SC		 908 event.m_middleDown = FALSE;
909 event.m_rightDown = isDown && controlDown;
910
851b3a88 911 if ( kind == mouseDown )
5f0b2f22
SC		 912 {
913 if ( controlDown )
914 event.SetEventType(wxEVT_RIGHT_DOWN ) ;
915 else
916 event.SetEventType(wxEVT_LEFT_DOWN ) ;
917 }
851b3a88 918 else if ( kind == mouseUp )
5f0b2f22
SC		 919 {
920 if ( controlDown )
921 event.SetEventType(wxEVT_RIGHT_UP ) ;
922 else
923 event.SetEventType(wxEVT_LEFT_UP ) ;
924 }
925 else
926 {
927 event.SetEventType(wxEVT_MOTION ) ;
928 }
929
851b3a88
SC		 930 event.m_shiftDown = modifiers & shiftKey;
931 event.m_controlDown = modifiers & controlKey;
932 event.m_altDown = modifiers & optionKey;
933 event.m_metaDown = modifiers & cmdKey;
5f0b2f22 934
851b3a88
SC		 935 Point localwhere ;
936 localwhere.h = x ;
937 localwhere.v = y ;
1542ea39
RD		 938
939 GrafPtr port ;
5f0b2f22 940 ::GetPort( &port ) ;
76a5e5d2 941 ::SetPort( UMAGetWindowPort( (WindowRef)m_macWindow ) ) ;
5f0b2f22
SC		 942 ::GlobalToLocal( &localwhere ) ;
943 ::SetPort( port ) ;
944
851b3a88 945 if ( kind == mouseDown )
5f0b2f22 946 {
5be55d56 947 if ( timestamp - gs_lastWhen <= (long) GetDblTime() )
5f0b2f22 948 {
32b5be3d 949 if ( abs( localwhere.h - gs_lastWhere.h ) < 3 && abs( localwhere.v - gs_lastWhere.v ) < 3 )
5f0b2f22 950 {
32b5be3d
RR		 951 // This is not right if the second mouse down
952 // event occured in a differen window. We
953 // correct this in MacDispatchMouseEvent.
5f0b2f22
SC		 954 if ( controlDown )
955 event.SetEventType(wxEVT_RIGHT_DCLICK ) ;
956 else
957 event.SetEventType(wxEVT_LEFT_DCLICK ) ;
958 }
32b5be3d 959 gs_lastWhen = 0 ;
5f0b2f22
SC		 960 }
961 else
962 {
851b3a88 963 gs_lastWhen = timestamp ;
5f0b2f22 964 }
32b5be3d 965 gs_lastWhere = localwhere ;
5f0b2f22
SC		 966 }
967
968 event.m_x = localwhere.h;
969 event.m_y = localwhere.v;
970 event.m_x += m_x;
971 event.m_y += m_y;
972
851b3a88 973 event.m_timeStamp = timestamp;
5f0b2f22
SC		 974 event.SetEventObject(this);
975 if ( wxTheApp->s_captureWindow )
976 {
977 int x = event.m_x ;
978 int y = event.m_y ;
979 wxTheApp->s_captureWindow->ScreenToClient( &x , &y ) ;
980 event.m_x = x ;
981 event.m_y = y ;
2e6857fa 982 event.SetEventObject( wxTheApp->s_captureWindow ) ;
5f0b2f22 983 wxTheApp->s_captureWindow->GetEventHandler()->ProcessEvent( event ) ;
1542ea39 984
851b3a88 985 if ( kind == mouseUp )
5f0b2f22
SC		 986 {
987 wxTheApp->s_captureWindow = NULL ;
6b57b49a 988 if ( !wxIsBusy() )
5f0b2f22
SC		 989 {
990 m_cursor.MacInstall() ;
991 }
992 }
993 }
994 else
995 {
996 MacDispatchMouseEvent( event ) ;
997 }
998}
e40298d5 999
851b3a88 1000#if !TARGET_CARBON
5f0b2f22 1001
76a5e5d2 1002void wxTopLevelWindowMac::MacMouseDown( WXEVENTREF ev , short part)
5f0b2f22 1003{
1542ea39 1004 MacFireMouseEvent( mouseDown , ((EventRecord*)ev)->where.h , ((EventRecord*)ev)->where.v ,
e40298d5 1005 ((EventRecord*)ev)->modifiers , ((EventRecord*)ev)->when ) ;
5f0b2f22
SC		 1006}
1007
76a5e5d2 1008void wxTopLevelWindowMac::MacMouseUp( WXEVENTREF ev , short part)
5f0b2f22
SC		 1009{
1010 switch (part)
1011 {
1542ea39 1012 case inContent:
5f0b2f22 1013 {
1542ea39 1014 MacFireMouseEvent( mouseUp , ((EventRecord*)ev)->where.h , ((EventRecord*)ev)->where.v ,
e40298d5 1015 ((EventRecord*)ev)->modifiers , ((EventRecord*)ev)->when ) ;
5f0b2f22
SC		 1016 }
1017 break ;
1018 }
1019}
1020
76a5e5d2 1021void wxTopLevelWindowMac::MacMouseMoved( WXEVENTREF ev , short part)
5f0b2f22
SC		 1022{
1023 switch (part)
1024 {
1542ea39 1025 case inContent:
5f0b2f22 1026 {
1542ea39 1027 MacFireMouseEvent( nullEvent /*moved*/ , ((EventRecord*)ev)->where.h , ((EventRecord*)ev)->where.v ,
e40298d5 1028 ((EventRecord*)ev)->modifiers , ((EventRecord*)ev)->when ) ;
5f0b2f22
SC		 1029 }
1030 break ;
1031 }
1032}
851b3a88
SC		 1033
1034#endif
1035
245f3581
DE		 1036void wxTopLevelWindowMac::MacDelayedDeactivation(long timestamp)
1037{
1038 if(s_macDeactivateWindow)
1039 {
365796b1 1040 wxLogDebug(wxT("Doing delayed deactivation of %p"),s_macDeactivateWindow);
245f3581
DE		 1041 s_macDeactivateWindow->MacActivate(timestamp, false);
1042 }
1043}
1044
851b3a88 1045void wxTopLevelWindowMac::MacActivate( long timestamp , bool inIsActivating )
5f0b2f22 1046{
17f8d2a7
VZ		 1047 // wxLogDebug(wxT("TopLevel=%p::MacActivate"),this);
1048
245f3581
DE		 1049 if(s_macDeactivateWindow==this)
1050 s_macDeactivateWindow=NULL;
1051 MacDelayedDeactivation(timestamp);
5f0b2f22 1052 wxActivateEvent event(wxEVT_ACTIVATE, inIsActivating , m_windowId);
851b3a88 1053 event.m_timeStamp = timestamp ;
5f0b2f22 1054 event.SetEventObject(this);
1542ea39 1055
5f0b2f22 1056 GetEventHandler()->ProcessEvent(event);
1542ea39 1057
76a5e5d2 1058 UMAHighlightAndActivateWindow( (WindowRef)m_macWindow , inIsActivating ) ;
1542ea39 1059
a006e78b
JS		 1060 // Early versions of MacOS X don't refresh backgrounds properly,
1061 // so refresh the whole window on activation and deactivation.
1062 long osVersion = UMAGetSystemVersion();
1925be65 1063 if (osVersion >= 0x1000 && osVersion < 0x1020 )
732b3a75 1064 {
a006e78b 1065 Refresh(TRUE);
732b3a75 1066 }
a006e78b 1067 else
732b3a75
SC		 1068 {
1069 // for the moment we have to resolve some redrawing issues like this
1070 // the OS is stealing some redrawing areas as soon as it draws a control
1071 Refresh(TRUE);
1072 }
5f0b2f22
SC		 1073}
1074
851b3a88
SC		 1075#if !TARGET_CARBON
1076
1542ea39 1077void wxTopLevelWindowMac::MacKeyDown( WXEVENTREF ev )
5f0b2f22
SC		 1078{
1079}
1080
851b3a88
SC		 1081#endif
1082
5f0b2f22
SC		 1083void wxTopLevelWindowMac::SetTitle(const wxString& title)
1084{
1085 wxWindow::SetTitle( title ) ;
16a76184 1086 UMASetWTitle( (WindowRef)m_macWindow , title , m_font.GetEncoding() ) ;
5f0b2f22
SC		 1087}
1088
1089bool wxTopLevelWindowMac::Show(bool show)
1090{
1091 if ( !wxWindow::Show(show) )
1092 return FALSE;
1093
1094 if (show)
1542ea39 1095 {
1f90939c
SC		 1096 #if wxUSE_SYSTEM_OPTIONS //code contributed by Ryan Wilcox December 18, 2003
1097 if ( (wxSystemOptions::HasOption(wxMAC_WINDOW_PLAIN_TRANSITION) ) && ( wxSystemOptions::GetOptionInt( wxMAC_WINDOW_PLAIN_TRANSITION ) == 1) )
1098 {
1099 ::ShowWindow( (WindowRef)m_macWindow );
1100 }
1101 else
1102 #endif
1103 {
1104 ::TransitionWindow((WindowRef)m_macWindow,kWindowZoomTransitionEffect,kWindowShowTransitionAction,nil);
1105 }
1106 ::SelectWindow( (WindowRef)m_macWindow ) ;
1107 // no need to generate events here, they will get them triggered by macos
1108 // actually they should be , but apparently they are not
1109 wxSize size(m_width, m_height);
1110 wxSizeEvent event(size, m_windowId);
1111 event.SetEventObject(this);
1112 GetEventHandler()->ProcessEvent(event);
5f0b2f22
SC		 1113 }
1114 else
1115 {
1f90939c
SC		 1116 #if wxUSE_SYSTEM_OPTIONS
1117 if ( (wxSystemOptions::HasOption(wxMAC_WINDOW_PLAIN_TRANSITION) ) && ( wxSystemOptions::GetOptionInt( wxMAC_WINDOW_PLAIN_TRANSITION ) == 1) )
1118 {
1119 ::HideWindow((WindowRef) m_macWindow );
1120 }
1121 else
1122 #endif
1123 {
1124 ::TransitionWindow((WindowRef)m_macWindow,kWindowZoomTransitionEffect,kWindowHideTransitionAction,nil);
1125 }
5f0b2f22
SC		 1126 }
1127
1128 if ( !show )
1129 {
1130 }
1131 else
1132 {
1542ea39 1133 Refresh() ;
5f0b2f22
SC		 1134 }
1135
1136 return TRUE;
1137}
1138
1139void wxTopLevelWindowMac::DoMoveWindow(int x, int y, int width, int height)
1140{
1f90939c
SC		 1141 wxMacPortStateHelper help( (GrafPtr) GetWindowPort( (WindowRef) m_macWindow) ) ;
1142 wxMacWindowClipper clip (this);
1143
5f0b2f22
SC		 1144 int former_x = m_x ;
1145 int former_y = m_y ;
1146 int former_w = m_width ;
1147 int former_h = m_height ;
1542ea39 1148
e40298d5
JS		 1149 int actualWidth = width;
1150 int actualHeight = height;
1151 int actualX = x;
1152 int actualY = y;
1542ea39
RD		 1153
1154 if ((m_minWidth != -1) && (actualWidth < m_minWidth))
5f0b2f22 1155 actualWidth = m_minWidth;
1542ea39 1156 if ((m_minHeight != -1) && (actualHeight < m_minHeight))
5f0b2f22 1157 actualHeight = m_minHeight;
1542ea39 1158 if ((m_maxWidth != -1) && (actualWidth > m_maxWidth))
5f0b2f22 1159 actualWidth = m_maxWidth;
1542ea39 1160 if ((m_maxHeight != -1) && (actualHeight > m_maxHeight))
5f0b2f22
SC		 1161 actualHeight = m_maxHeight;
1162
1163 bool doMove = false ;
1164 bool doResize = false ;
1542ea39 1165
5f0b2f22
SC		 1166 if ( actualX != former_x || actualY != former_y )
1167 {
1168 doMove = true ;
1169 }
1170 if ( actualWidth != former_w || actualHeight != former_h )
1171 {
1172 doResize = true ;
1173 }
1174
1175 if ( doMove || doResize )
1176 {
1177 m_x = actualX ;
1178 m_y = actualY ;
5f0b2f22
SC		 1179
1180 if ( doMove )
76a5e5d2 1181 ::MoveWindow((WindowRef)m_macWindow, m_x, m_y , false); // don't make frontmost
1542ea39 1182
789a620a
SC		 1183 m_width = actualWidth ;
1184 m_height = actualHeight ;
1185
5f0b2f22 1186 if ( doResize )
1542ea39
RD		 1187 ::SizeWindow((WindowRef)m_macWindow, m_width, m_height , true);
1188
2b5f62a0
VZ		 1189 // the OS takes care of invalidating and erasing the new area so we only have to
1190 // take care of refreshing for full repaints
1191
e441e1f4 1192 if ( doResize && HasFlag(wxFULL_REPAINT_ON_RESIZE) )
2b5f62a0 1193 Refresh() ;
1542ea39
RD		 1194
1195
5f0b2f22
SC		 1196 if ( IsKindOf( CLASSINFO( wxFrame ) ) )
1197 {
1198 wxFrame* frame = (wxFrame*) this ;
1066fece 1199#if wxUSE_STATUSBAR
5f0b2f22 1200 frame->PositionStatusBar();
1066fece
JS		 1201#endif
1202#if wxUSE_TOOLBAR
5f0b2f22 1203 frame->PositionToolBar();
1066fece 1204#endif
5f0b2f22
SC		 1205 }
1206 if ( doMove )
1207 wxWindowMac::MacTopLevelWindowChangedPosition() ; // like this only children will be notified
1208
1209 MacRepositionScrollBars() ;
1210 if ( doMove )
1211 {
1212 wxPoint point(m_x, m_y);
1213 wxMoveEvent event(point, m_windowId);
1214 event.SetEventObject(this);
1215 GetEventHandler()->ProcessEvent(event) ;
1216 }
1217 if ( doResize )
1218 {
1219 MacRepositionScrollBars() ;
1220 wxSize size(m_width, m_height);
1221 wxSizeEvent event(size, m_windowId);
1222 event.SetEventObject(this);
1223 GetEventHandler()->ProcessEvent(event);
1224 }
1225 }
1542ea39 1226
5f0b2f22
SC		 1227}
1228
1229/*
1230 * Invalidation Mechanism
1231 *
1232 * The update mechanism reflects exactely the windows mechanism
1233 * the rect gets added to the window invalidate region, if the eraseBackground flag
1234 * has been true for any part of the update rgn the background is erased in the entire region
1235 * not just in the specified rect.
1236 *
1542ea39 1237 * In order to achive this, we also have an internal m_macNoEraseUpdateRgn, all rects that have
5f0b2f22
SC		 1238 * the eraseBackground flag set to false are also added to this rgn. upon receiving an update event
1239 * the update rgn is compared to the m_macNoEraseUpdateRgn and in case they differ, every window
1240 * will get the eraseBackground event first
1241 */
1542ea39
RD		 1242
1243void wxTopLevelWindowMac::MacInvalidate( const WXRECTPTR rect, bool eraseBackground )
5f0b2f22 1244{
e40298d5
JS		 1245 GrafPtr formerPort ;
1246 GetPort( &formerPort ) ;
1247 SetPortWindowPort( (WindowRef)m_macWindow ) ;
1542ea39 1248
e40298d5 1249 m_macNeedsErasing |= eraseBackground ;
1542ea39 1250
e40298d5
JS		 1251 // if we already know that we will have to erase, there's no need to track the rest
1252 if ( !m_macNeedsErasing)
5f0b2f22 1253 {
e40298d5
JS		 1254 // we end only here if eraseBackground is false
1255 // if we already have a difference between m_macNoEraseUpdateRgn and UpdateRgn
1256 // we will have to erase anyway
1542ea39
RD		 1257
1258 RgnHandle updateRgn = NewRgn();
e40298d5
JS		 1259 RgnHandle diffRgn = NewRgn() ;
1260 if ( updateRgn && diffRgn )
1261 {
1262 GetWindowUpdateRgn( (WindowRef)m_macWindow , updateRgn );
1263 Point pt = {0,0} ;
1264 LocalToGlobal( &pt ) ;
1265 OffsetRgn( updateRgn , -pt.h , -pt.v ) ;
1266 DiffRgn( updateRgn , (RgnHandle) m_macNoEraseUpdateRgn , diffRgn ) ;
1267 if ( !EmptyRgn( diffRgn ) )
1268 {
1269 m_macNeedsErasing = true ;
1270 }
1271 }
1272 if ( updateRgn )
1273 DisposeRgn( updateRgn );
1274 if ( diffRgn )
1275 DisposeRgn( diffRgn );
1542ea39 1276
e40298d5 1277 if ( !m_macNeedsErasing )
5f0b2f22 1278 {
e40298d5
JS		 1279 RgnHandle rectRgn = NewRgn() ;
1280 SetRectRgn( rectRgn , ((Rect*)rect)->left , ((Rect*)rect)->top , ((Rect*)rect)->right , ((Rect*)rect)->bottom ) ;
1281 UnionRgn( (RgnHandle) m_macNoEraseUpdateRgn , rectRgn , (RgnHandle) m_macNoEraseUpdateRgn ) ;
1282 DisposeRgn( rectRgn ) ;
5f0b2f22
SC		 1283 }
1284 }
e40298d5
JS		 1285 InvalWindowRect( (WindowRef)m_macWindow , (Rect*)rect ) ;
1286 // turn this on to debug the refreshing cycle
34dc8f91 1287#if wxMAC_DEBUG_REDRAW
e40298d5 1288 PaintRect( rect ) ;
5f0b2f22 1289#endif
e40298d5 1290 SetPort( formerPort ) ;
5f0b2f22 1291}
a07c1212 1292
6a7e6411 1293
1542ea39
RD		 1294bool wxTopLevelWindowMac::SetShape(const wxRegion& region)
1295{
6a7e6411
RD		 1296 wxCHECK_MSG( HasFlag(wxFRAME_SHAPED), FALSE,
1297 _T("Shaped windows must be created with the wxFRAME_SHAPED style."));
1298
45ff8005 1299#if TARGET_CARBON
6a7e6411
RD		 1300 // The empty region signifies that the shape should be removed from the
1301 // window.
1302 if ( region.IsEmpty() )
1303 {
1304 wxSize sz = GetClientSize();
1305 wxRegion rgn(0, 0, sz.x, sz.y);
1306 return SetShape(rgn);
1307 }
1308
1309 // Make a copy of the region
1310 RgnHandle shapeRegion = NewRgn();
1311 CopyRgn( (RgnHandle)region.GetWXHRGN(), shapeRegion );
1312
1313 // Dispose of any shape region we may already have
1314 RgnHandle oldRgn = (RgnHandle)GetWRefCon( (WindowRef)MacGetWindowRef() );
1315 if ( oldRgn )
1316 DisposeRgn(oldRgn);
1317
1318 // Save the region so we can use it later
1319 SetWRefCon((WindowRef)MacGetWindowRef(), (SInt32)shapeRegion);
1320
1321 // Tell the window manager that the window has changed shape
1322 ReshapeCustomWindow((WindowRef)MacGetWindowRef());
1323 return TRUE;
45ff8005
RD		 1324#else
1325 return FALSE;
1326#endif
6a7e6411
RD		 1327}
1328
6a7e6411
RD		 1329// ---------------------------------------------------------------------------
1330// Support functions for shaped windows, based on Apple's CustomWindow sample at
1331// http://developer.apple.com/samplecode/Sample_Code/Human_Interface_Toolbox/Mac_OS_High_Level_Toolbox/CustomWindow.htm
1332// ---------------------------------------------------------------------------
1333
45ff8005 1334#if TARGET_CARBON
1925be65 1335
6a7e6411
RD		 1336static void wxShapedMacWindowGetPos(WindowRef window, Rect* inRect)
1337{
1338 GetWindowPortBounds(window, inRect);
1339 Point pt = {inRect->left, inRect->top};
1340 SetPort((GrafPtr) GetWindowPort(window));
1341 LocalToGlobal(&pt);
1342 inRect->top = pt.v;
1343 inRect->left = pt.h;
1344 inRect->bottom += pt.v;
1345 inRect->right += pt.h;
1346}
1347
1348
1349static SInt32 wxShapedMacWindowGetFeatures(WindowRef window, SInt32 param)
1350{
1351 /*------------------------------------------------------
1352 Define which options your custom window supports.
1353 --------------------------------------------------------*/
1354 //just enable everything for our demo
1355 *(OptionBits*)param=//kWindowCanGrow|
1356 //kWindowCanZoom|
1357 //kWindowCanCollapse|
1358 //kWindowCanGetWindowRegion|
1359 //kWindowHasTitleBar|
1360 //kWindowSupportsDragHilite|
1361 kWindowCanDrawInCurrentPort|
1362 //kWindowCanMeasureTitle|
1363 kWindowWantsDisposeAtProcessDeath|
1364 kWindowSupportsSetGrowImageRegion|
1365 kWindowDefSupportsColorGrafPort;
1366 return 1;
1542ea39 1367}
6a7e6411
RD		 1368
1369// The content region is left as a rectangle matching the window size, this is
1370// so the origin in the paint event, and etc. still matches what the
1371// programmer expects.
1372static void wxShapedMacWindowContentRegion(WindowRef window, RgnHandle rgn)
1373{
1374 SetEmptyRgn(rgn);
1375 wxTopLevelWindowMac* win = wxFindWinFromMacWindow(window);
1376 if (win)
1377 {
1378 wxRect r = win->GetRect();
1379 SetRectRgn(rgn, r.GetLeft(), r.GetTop(), r.GetRight(), r.GetBottom());
1380 }
1381}
1382
1383// The structure region is set to the shape given to the SetShape method.
1384static void wxShapedMacWindowStructureRegion(WindowRef window, RgnHandle rgn)
1385{
1386 RgnHandle cachedRegion = (RgnHandle) GetWRefCon(window);
1387
1388 SetEmptyRgn(rgn);
1389 if (cachedRegion)
1390 {
1391 Rect windowRect;
1392 wxShapedMacWindowGetPos(window, &windowRect); //how big is the window
1393 CopyRgn(cachedRegion, rgn); //make a copy of our cached region
1394 OffsetRgn(rgn, windowRect.left, windowRect.top); // position it over window
1395 //MapRgn(rgn, &mMaskSize, &windowRect); //scale it to our actual window size
1396 }
1397}
1398
1399
1400
1401static SInt32 wxShapedMacWindowGetRegion(WindowRef window, SInt32 param)
1402{
1403 GetWindowRegionPtr rgnRec=(GetWindowRegionPtr)param;
1404
1405 switch(rgnRec->regionCode)
1406 {
1407 case kWindowStructureRgn:
1408 wxShapedMacWindowStructureRegion(window, rgnRec->winRgn);
1409 break;
1410 case kWindowContentRgn:
1411 wxShapedMacWindowContentRegion(window, rgnRec->winRgn);
1412 break;
1413 default:
1414 SetEmptyRgn(rgnRec->winRgn);
1415 } //switch
1416
1417 return noErr;
1418}
1419
1420
1421static SInt32 wxShapedMacWindowHitTest(WindowRef window,SInt32 param)
1422{
1423 /*------------------------------------------------------
1424 Determine the region of the window which was hit
1425 --------------------------------------------------------*/
1426 Point hitPoint;
1427 static RgnHandle tempRgn=nil;
1428
1429 if(!tempRgn)
1430 tempRgn=NewRgn();
1431
1432 SetPt(&hitPoint,LoWord(param),HiWord(param));//get the point clicked
1433
1434 //Mac OS 8.5 or later
1435 wxShapedMacWindowStructureRegion(window, tempRgn);
1436 if (PtInRgn(hitPoint, tempRgn)) //in window content region?
1437 return wInContent;
1438
1439 return wNoHit;//no significant area was hit.
1440}
1441
1442
1443static pascal long wxShapedMacWindowDef(short varCode, WindowRef window, SInt16 message, SInt32 param)
1444{
1445 switch(message)
1446 {
1447 case kWindowMsgHitTest:
1448 return wxShapedMacWindowHitTest(window,param);
1449
1450 case kWindowMsgGetFeatures:
1451 return wxShapedMacWindowGetFeatures(window,param);
1452
1453 // kWindowMsgGetRegion is sent during CreateCustomWindow and ReshapeCustomWindow
1454 case kWindowMsgGetRegion:
1455 return wxShapedMacWindowGetRegion(window,param);
1456 }
1457
1458 return 0;
1459}
1925be65 1460
45ff8005 1461#endif
6a7e6411 1462// ---------------------------------------------------------------------------
1925be65 1463
wxWidgets (Impactor)