]> git.saurik.com Git - wxWidgets.git/blame - src/mac/carbon/app.cpp
fixed zlib watcom makefile
[wxWidgets.git] / src / mac / carbon / app.cpp
CommitLineData
e9576ca5
SC
1/////////////////////////////////////////////////////////////////////////////
2// Name: app.cpp
3// Purpose: wxApp
4// Author: AUTHOR
5// Modified by:
6// Created: ??/??/98
7// RCS-ID: $Id$
8// Copyright: (c) AUTHOR
8461e4c2 9// Licence: wxWindows licence
e9576ca5
SC
10/////////////////////////////////////////////////////////////////////////////
11
12#ifdef __GNUG__
13#pragma implementation "app.h"
14#endif
15
03e11df5 16#include "wx/window.h"
e9576ca5 17#include "wx/frame.h"
e8566d35 18#include "wx/button.h"
e9576ca5
SC
19#include "wx/app.h"
20#include "wx/utils.h"
21#include "wx/gdicmn.h"
22#include "wx/pen.h"
23#include "wx/brush.h"
24#include "wx/cursor.h"
ed5b9811 25#include "wx/intl.h"
e9576ca5
SC
26#include "wx/icon.h"
27#include "wx/palette.h"
28#include "wx/dc.h"
29#include "wx/dialog.h"
30#include "wx/msgdlg.h"
31#include "wx/log.h"
32#include "wx/module.h"
33#include "wx/memory.h"
2f1ae414 34#include "wx/tooltip.h"
b3c406a5 35#include "wx/textctrl.h"
03e11df5 36#include "wx/menu.h"
e9576ca5
SC
37#if wxUSE_WX_RESOURCES
38#include "wx/resource.h"
39#endif
40
41#include <string.h>
42
8be97d65
SC
43// mac
44
f5c6eb5c 45#ifndef __DARWIN__
03e11df5 46 #if __option(profile)
8461e4c2 47 #include <profiler.h>
03e11df5 48 #endif
9779893b 49#endif
519cb848 50
8be97d65
SC
51#include "apprsrc.h"
52
03e11df5
GD
53#include "wx/mac/uma.h"
54#include "wx/mac/macnotfy.h"
2f1ae414
SC
55
56#if wxUSE_SOCKETS
f5c6eb5c 57 #ifdef __DARWIN__
5fde6fcc 58 #include <CoreServices/CoreServices.h>
03e11df5
GD
59 #else
60 #include <OpenTransport.h>
61 #include <OpenTptInternet.h>
62 #endif
2f1ae414 63#endif
519cb848 64
e9576ca5
SC
65extern char *wxBuffer;
66extern wxList wxPendingDelete;
519cb848
SC
67extern wxList *wxWinMacWindowList;
68extern wxList *wxWinMacControlList;
e9576ca5 69
6418cb93 70wxApp *wxTheApp = NULL;
e9576ca5 71
2f1ae414 72#if !USE_SHARED_LIBRARY
e9576ca5
SC
73IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler)
74BEGIN_EVENT_TABLE(wxApp, wxEvtHandler)
75 EVT_IDLE(wxApp::OnIdle)
2f1ae414
SC
76 EVT_END_SESSION(wxApp::OnEndSession)
77 EVT_QUERY_END_SESSION(wxApp::OnQueryEndSession)
e9576ca5 78END_EVENT_TABLE()
2f1ae414 79#endif
e9576ca5 80
169935ad 81
8461e4c2 82const short kMacMinHeap = (29 * 1024) ;
8be97d65 83// platform specific static variables
169935ad 84
519cb848
SC
85const short kwxMacMenuBarResource = 1 ;
86const short kwxMacAppleMenuId = 1 ;
87
8461e4c2
VZ
88RgnHandle wxApp::s_macCursorRgn = NULL;
89wxWindow* wxApp::s_captureWindow = NULL ;
90int wxApp::s_lastMouseDown = 0 ;
91long wxApp::sm_lastMessageTime = 0;
519cb848 92
8461e4c2 93bool wxApp::s_macDefaultEncodingIsPC = true ;
519cb848
SC
94bool wxApp::s_macSupportPCMenuShortcuts = true ;
95long wxApp::s_macAboutMenuItemId = wxID_ABOUT ;
96wxString wxApp::s_macHelpMenuTitleName = "&Help" ;
97
72055702
SC
98pascal OSErr AEHandleODoc( const AppleEvent *event , AppleEvent *reply , long refcon ) ;
99pascal OSErr AEHandleOApp( const AppleEvent *event , AppleEvent *reply , long refcon ) ;
100pascal OSErr AEHandlePDoc( const AppleEvent *event , AppleEvent *reply , long refcon ) ;
101pascal OSErr AEHandleQuit( const AppleEvent *event , AppleEvent *reply , long refcon ) ;
102
103
007ae8d0 104pascal OSErr AEHandleODoc( const AppleEvent *event , AppleEvent *reply , long refcon )
519cb848 105{
8461e4c2
VZ
106 wxApp* app = (wxApp*) refcon ;
107 return wxTheApp->MacHandleAEODoc( (AppleEvent*) event , reply) ;
519cb848
SC
108}
109
007ae8d0 110pascal OSErr AEHandleOApp( const AppleEvent *event , AppleEvent *reply , long refcon )
519cb848 111{
8461e4c2
VZ
112 wxApp* app = (wxApp*) refcon ;
113 return wxTheApp->MacHandleAEOApp( (AppleEvent*) event , reply ) ;
519cb848
SC
114}
115
007ae8d0 116pascal OSErr AEHandlePDoc( const AppleEvent *event , AppleEvent *reply , long refcon )
519cb848 117{
8461e4c2
VZ
118 wxApp* app = (wxApp*) refcon ;
119 return wxTheApp->MacHandleAEPDoc( (AppleEvent*) event , reply ) ;
519cb848
SC
120}
121
007ae8d0 122pascal OSErr AEHandleQuit( const AppleEvent *event , AppleEvent *reply , long refcon )
519cb848 123{
8461e4c2
VZ
124 wxApp* app = (wxApp*) refcon ;
125 return wxTheApp->MacHandleAEQuit( (AppleEvent*) event , reply) ;
519cb848
SC
126}
127
5b781a67 128OSErr wxApp::MacHandleAEODoc(const AppleEvent *event , AppleEvent *reply)
519cb848 129{
c1fb8167 130 SysBeep(40) ;
8461e4c2
VZ
131 ProcessSerialNumber PSN ;
132 PSN.highLongOfPSN = 0 ;
133 PSN.lowLongOfPSN = kCurrentProcess ;
134 SetFrontProcess( &PSN ) ;
135 return noErr ;
519cb848
SC
136}
137
5b781a67 138OSErr wxApp::MacHandleAEPDoc(const AppleEvent *event , AppleEvent *reply)
519cb848 139{
8461e4c2 140 return noErr ;
519cb848
SC
141}
142
5b781a67 143OSErr wxApp::MacHandleAEOApp(const AppleEvent *event , AppleEvent *reply)
519cb848 144{
8461e4c2 145 return noErr ;
519cb848
SC
146}
147
5b781a67 148OSErr wxApp::MacHandleAEQuit(const AppleEvent *event , AppleEvent *reply)
519cb848 149{
8461e4c2
VZ
150 wxWindow* win = GetTopWindow() ;
151 if ( win )
152 {
153 win->Close(TRUE ) ;
154 }
155 else
156 {
157 ExitMainLoop() ;
158 }
159 return noErr ;
519cb848
SC
160}
161
8461e4c2
VZ
162char StringMac[] = "\x0d\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8a\x8b\x8c\x8d\x8e\x8f"
163 "\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9a\x9b\x9c\x9d\x9e\x9f"
164 "\xa0\xa1\xa2\xa3\xa4\xa5\xa6\xa7\xa8\xa9\xaa\xab\xac\xae\xaf"
165 "\xb1\xb4\xb5\xb6\xbb\xbc\xbe\xbf"
166 "\xc0\xc1\xc2\xc4\xc7\xc8\xc9\xcb\xcc\xcd\xce\xcf"
167 "\xd0\xd1\xd2\xd3\xd4\xd5\xd6\xd8\xca\xdb" ;
519cb848 168
2f1ae414 169char StringANSI[] = "\x0a\xC4\xC5\xC7\xC9\xD1\xD6\xDC\xE1\xE0\xE2\xE4\xE3\xE5\xE7\xE9\xE8"
8461e4c2
VZ
170 "\xEA\xEB\xED\xEC\xEE\xEF\xF1\xF3\xF2\xF4\xF6\xF5\xFA\xF9\xFB\xFC"
171 "\x86\xBA\xA2\xA3\xA7\x95\xB6\xDF\xAE\xA9\x99\xB4\xA8\xC6\xD8"
172 "\xB1\xA5\xB5\xF0\xAA\xBA\xE6\xF8"
173 "\xBF\xA1\xAC\x83\xAB\xBB\x85\xC0\xC3\xD5\x8C\x9C"
174 "\x96\x97\x93\x94\x91\x92\xF7\xFF\xA0\x80" ;
519cb848
SC
175
176void wxMacConvertFromPC( const char *from , char *to , int len )
177{
8461e4c2
VZ
178 char *c ;
179 if ( from == to )
180 {
181 for( int i = 0 ; i < len ; ++ i )
182 {
183 c = strchr( StringANSI , *from ) ;
184 if ( c != NULL )
185 {
186 *to = StringMac[ c - StringANSI] ;
187 }
188 ++to ;
189 ++from ;
190 }
191 }
192 else
193 {
194 for( int i = 0 ; i < len ; ++ i )
195 {
196 c = strchr( StringANSI , *from ) ;
197 if ( c != NULL )
198 {
199 *to = StringMac[ c - StringANSI] ;
200 }
201 else
202 {
203 *to = *from ;
204 }
205 ++to ;
206 ++from ;
207 }
208 }
519cb848
SC
209}
210
211void wxMacConvertToPC( const char *from , char *to , int len )
212{
8461e4c2
VZ
213 char *c ;
214 if ( from == to )
215 {
216 for( int i = 0 ; i < len ; ++ i )
217 {
218 c = strchr( StringMac , *from ) ;
219 if ( c != NULL )
220 {
221 *to = StringANSI[ c - StringMac] ;
222 }
223 ++to ;
224 ++from ;
225 }
226 }
227 else
228 {
229 for( int i = 0 ; i < len ; ++ i )
230 {
231 c = strchr( StringMac , *from ) ;
232 if ( c != NULL )
233 {
234 *to = StringANSI[ c - StringMac] ;
235 }
236 else
237 {
238 *to = *from ;
239 }
240 ++to ;
241 ++from ;
242 }
243 }
519cb848
SC
244}
245
9779893b 246void wxMacConvertFromPC( char * p )
519cb848 247{
8461e4c2
VZ
248 char *ptr = p ;
249 int len = strlen ( p ) ;
9779893b 250
8461e4c2 251 wxMacConvertFromPC( ptr , ptr , len ) ;
519cb848
SC
252}
253
9779893b 254void wxMacConvertFromPCForControls( char * p )
519cb848 255{
8461e4c2
VZ
256 char *ptr = p ;
257 int len = strlen ( p ) ;
258
259 wxMacConvertFromPC( ptr , ptr , len ) ;
260 for ( int i = 0 ; i < strlen ( ptr ) ; i++ )
261 {
262 if ( ptr[i] == '&' && ptr[i]+1 != ' ' )
263 {
264 memmove( &ptr[i] , &ptr[i+1] , strlen( &ptr[i+1] ) + 1) ;
265 }
266 }
519cb848
SC
267}
268
9779893b 269void wxMacConvertFromPC( unsigned char *p )
519cb848 270{
8461e4c2
VZ
271 char *ptr = (char*) p + 1 ;
272 int len = p[0] ;
9779893b 273
8461e4c2 274 wxMacConvertFromPC( ptr , ptr , len ) ;
519cb848
SC
275}
276
277extern char *wxBuffer ;
278
9779893b 279wxString wxMacMakeMacStringFromPC( const char * p )
519cb848 280{
8461e4c2
VZ
281 const char *ptr = p ;
282 int len = strlen ( p ) ;
283 char *buf = wxBuffer ;
284
285 if ( len >= BUFSIZ + 512 )
286 {
287 buf = new char [len+1] ;
288 }
289
290 wxMacConvertFromPC( ptr , buf , len ) ;
291 buf[len] = 0 ;
292 wxString result( buf ) ;
293 if ( buf != wxBuffer )
294 delete buf ;
295 return result ;
519cb848
SC
296}
297
298
9779893b 299void wxMacConvertToPC( char * p )
519cb848 300{
8461e4c2
VZ
301 char *ptr = p ;
302 int len = strlen ( p ) ;
9779893b 303
8461e4c2 304 wxMacConvertToPC( ptr , ptr , len ) ;
519cb848
SC
305}
306
9779893b 307void wxMacConvertToPC( unsigned char *p )
519cb848 308{
8461e4c2
VZ
309 char *ptr = (char*) p + 1 ;
310 int len = p[0] ;
9779893b 311
8461e4c2 312 wxMacConvertToPC( ptr , ptr , len ) ;
519cb848
SC
313}
314
9779893b 315wxString wxMacMakePCStringFromMac( const char * p )
519cb848 316{
8461e4c2
VZ
317 const char *ptr = p ;
318 int len = strlen ( p ) ;
319 char *buf = wxBuffer ;
320
321 if ( len >= BUFSIZ + 512 )
322 {
323 buf = new char [len+1] ;
324 }
325
326 wxMacConvertToPC( ptr , buf , len ) ;
327 buf[len] = 0 ;
328
329 wxString result( buf ) ;
330 if ( buf != wxBuffer )
331 delete buf ;
332 return result ;
519cb848 333}
169935ad 334
8461e4c2 335wxString wxMacMakeStringFromMacString( const char* from , bool mac2pcEncoding )
3d2791f1 336{
8461e4c2
VZ
337 if (mac2pcEncoding)
338 {
339 return wxMacMakePCStringFromMac( from ) ;
340 }
341 else
342 {
343 return wxString( from ) ;
344 }
3d2791f1
SC
345}
346
8461e4c2 347wxString wxMacMakeStringFromPascal( StringPtr from , bool mac2pcEncoding )
3d2791f1
SC
348{
349 // this is safe since a pascal string can never be larger than 256 bytes
350 char s[256] ;
351 CopyPascalStringToC( from , s ) ;
8461e4c2
VZ
352 if (mac2pcEncoding)
353 {
354 return wxMacMakePCStringFromMac( s ) ;
355 }
356 else
357 {
358 return wxString( s ) ;
359 }
3d2791f1
SC
360}
361
8461e4c2 362void wxMacStringToPascal( const char * from , StringPtr to , bool pc2macEncoding )
3d2791f1 363{
8461e4c2
VZ
364 if (pc2macEncoding)
365 {
366 CopyCStringToPascal( wxMacMakeMacStringFromPC( from ) , to ) ;
367 }
368 else
369 {
370 CopyCStringToPascal( from , to ) ;
371 }
3d2791f1 372}
e9576ca5
SC
373
374bool wxApp::Initialize()
375{
169935ad 376 int error = 0 ;
9779893b 377
8be97d65 378 // Mac-specific
9779893b 379
519cb848 380 UMAInitToolbox( 4 ) ;
0a67a93b 381 SetEventMask( everyEvent ) ;
8461e4c2 382 UMAShowWatchCursor() ;
8be97d65 383
4114d0af
GD
384#if defined(UNIVERSAL_INTERFACES_VERSION) && (UNIVERSAL_INTERFACES_VERSION >= 0x0340)
385 AEInstallEventHandler( kCoreEventClass , kAEOpenDocuments , NewAEEventHandlerUPP(AEHandleODoc) ,
03e11df5 386 (long) wxTheApp , FALSE ) ;
4114d0af 387 AEInstallEventHandler( kCoreEventClass , kAEOpenApplication , NewAEEventHandlerUPP(AEHandleOApp) ,
03e11df5 388 (long) wxTheApp , FALSE ) ;
4114d0af 389 AEInstallEventHandler( kCoreEventClass , kAEPrintDocuments , NewAEEventHandlerUPP(AEHandlePDoc) ,
03e11df5 390 (long) wxTheApp , FALSE ) ;
4114d0af 391 AEInstallEventHandler( kCoreEventClass , kAEQuitApplication , NewAEEventHandlerUPP(AEHandleQuit) ,
03e11df5
GD
392 (long) wxTheApp , FALSE ) ;
393#else
8461e4c2
VZ
394 AEInstallEventHandler( kCoreEventClass , kAEOpenDocuments , NewAEEventHandlerProc(AEHandleODoc) ,
395 (long) wxTheApp , FALSE ) ;
396 AEInstallEventHandler( kCoreEventClass , kAEOpenApplication , NewAEEventHandlerProc(AEHandleOApp) ,
397 (long) wxTheApp , FALSE ) ;
398 AEInstallEventHandler( kCoreEventClass , kAEPrintDocuments , NewAEEventHandlerProc(AEHandlePDoc) ,
399 (long) wxTheApp , FALSE ) ;
400 AEInstallEventHandler( kCoreEventClass , kAEQuitApplication , NewAEEventHandlerProc(AEHandleQuit) ,
401 (long) wxTheApp , FALSE ) ;
03e11df5 402#endif
8be97d65 403
9779893b 404
f5c6eb5c 405#ifndef __DARWIN__
8be97d65
SC
406 // test the minimal configuration necessary
407
8461e4c2
VZ
408 #if !TARGET_CARBON
409 long theSystem ;
410 long theMachine;
411
412 if (Gestalt(gestaltMachineType, &theMachine) != noErr)
413 {
414 error = kMacSTRWrongMachine;
415 }
416 else if (theMachine < gestaltMacPlus)
417 {
418 error = kMacSTRWrongMachine;
419 }
420 else if (Gestalt(gestaltSystemVersion, &theSystem) != noErr )
421 {
422 error = kMacSTROldSystem ;
423 }
72055702 424 else if ( theSystem < 0x0860 )
8461e4c2
VZ
425 {
426 error = kMacSTROldSystem ;
427 }
428 else if ((long)GetApplLimit() - (long)ApplicationZone() < kMacMinHeap)
429 {
430 error = kMacSTRSmallSize;
431 }
432 #endif
433 /*
434 else
435 {
436 if ( !UMAHasAppearance() )
437 {
438 error = kMacSTRNoPre8Yet ;
439 }
440 }
441 */
ed5b9811 442#endif
8be97d65 443
8461e4c2 444 // if we encountered any problems so far, give the error code and exit immediately
9779893b 445
169935ad 446 if ( error )
9779893b 447 {
8461e4c2
VZ
448 short itemHit;
449 Str255 message;
450
451 GetIndString(message, 128, error);
452 UMAShowArrowCursor() ;
453 ParamText("\pFatal Error", message, (ConstStr255Param)"\p", (ConstStr255Param)"\p");
454 itemHit = Alert(128, nil);
455 return FALSE ;
9779893b 456 }
519cb848 457
f5c6eb5c 458#ifndef __DARWIN__
03e11df5 459 #if __option(profile)
8461e4c2 460 ProfilerInit( collectDetailed, bestTimeBase , 20000 , 40 ) ;
03e11df5 461 #endif
9779893b 462#endif
519cb848 463
8be97d65 464 // now avoid exceptions thrown for new (bad_alloc)
9779893b 465
f5c6eb5c 466#ifndef __DARWIN__
8be97d65 467 std::__throws_bad_alloc = FALSE ;
03e11df5 468#endif
9779893b 469
8461e4c2 470 s_macCursorRgn = ::NewRgn() ;
8be97d65 471
e9576ca5
SC
472#ifdef __WXMSW__
473 wxBuffer = new char[1500];
474#else
475 wxBuffer = new char[BUFSIZ + 512];
476#endif
477
2f1ae414 478 wxClassInfo::InitializeClasses();
e9576ca5 479
2f1ae414
SC
480#if wxUSE_RESOURCES
481// wxGetResource(wxT("wxWindows"), wxT("OsVersion"), &wxOsVersion);
e9576ca5 482#endif
e9576ca5 483
2f1ae414
SC
484#if wxUSE_THREADS
485 wxPendingEventsLocker = new wxCriticalSection;
486#endif
e9576ca5
SC
487 wxTheColourDatabase = new wxColourDatabase(wxKEY_STRING);
488 wxTheColourDatabase->Initialize();
489
fc0daf84 490#ifdef __WXDEBUG__
0a67a93b
SC
491#if wxUSE_LOG
492 // flush the logged messages if any and install a 'safer' log target: the
493 // default one (wxLogGui) can't be used after the resources are freed just
494 // below and the user suppliedo ne might be even more unsafe (using any
495 // wxWindows GUI function is unsafe starting from now)
496 wxLog::DontCreateOnDemand();
497
498 // this will flush the old messages if any
499 delete wxLog::SetActiveTarget(new wxLogStderr);
500#endif // wxUSE_LOG
fc0daf84 501#endif
0a67a93b 502
e9576ca5
SC
503 wxInitializeStockLists();
504 wxInitializeStockObjects();
505
506#if wxUSE_WX_RESOURCES
507 wxInitializeResourceSystem();
508#endif
509
510 wxBitmap::InitStandardHandlers();
511
512 wxModule::RegisterModules();
03e11df5 513 if (!wxModule::InitializeModules()) {
519cb848 514 return FALSE;
03e11df5 515 }
e9576ca5 516
519cb848
SC
517 wxWinMacWindowList = new wxList(wxKEY_INTEGER);
518 wxWinMacControlList = new wxList(wxKEY_INTEGER);
519
2f1ae414 520 wxMacCreateNotifierTable() ;
9779893b 521
2f1ae414 522 UMAShowArrowCursor() ;
8461e4c2 523
e9576ca5
SC
524 return TRUE;
525}
526
527void wxApp::CleanUp()
528{
2f1ae414
SC
529#if wxUSE_LOG
530 // flush the logged messages if any and install a 'safer' log target: the
531 // default one (wxLogGui) can't be used after the resources are freed just
532 // below and the user suppliedo ne might be even more unsafe (using any
533 // wxWindows GUI function is unsafe starting from now)
534 wxLog::DontCreateOnDemand();
535
536 // this will flush the old messages if any
537 delete wxLog::SetActiveTarget(new wxLogStderr);
538#endif // wxUSE_LOG
539
540 // One last chance for pending objects to be cleaned up
541 wxTheApp->DeletePendingObjects();
542
e9576ca5
SC
543 wxModule::CleanUpModules();
544
545#if wxUSE_WX_RESOURCES
546 wxCleanUpResourceSystem();
547#endif
548
549 wxDeleteStockObjects() ;
550
2f1ae414
SC
551 // Destroy all GDI lists, etc.
552 wxDeleteStockLists();
e9576ca5
SC
553
554 delete wxTheColourDatabase;
555 wxTheColourDatabase = NULL;
556
557 wxBitmap::CleanUpHandlers();
558
559 delete[] wxBuffer;
560 wxBuffer = NULL;
561
2f1ae414 562 wxMacDestroyNotifierTable() ;
519cb848
SC
563 if (wxWinMacWindowList)
564 delete wxWinMacWindowList ;
565
2f1ae414
SC
566 delete wxPendingEvents;
567#if wxUSE_THREADS
568 delete wxPendingEventsLocker;
569 // If we don't do the following, we get an apparent memory leak.
570 ((wxEvtHandler&) wxDefaultValidator).ClearEventLocker();
571#endif
572
e9576ca5
SC
573 wxClassInfo::CleanUpClasses();
574
f5c6eb5c 575#ifndef __DARWIN__
03e11df5
GD
576 #if __option(profile)
577 ProfilerDump( "\papp.prof" ) ;
578 ProfilerTerm() ;
579 #endif
9779893b 580#endif
519cb848 581
e9576ca5
SC
582 delete wxTheApp;
583 wxTheApp = NULL;
9779893b 584
e9576ca5 585#if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
2f1ae414
SC
586 // At this point we want to check if there are any memory
587 // blocks that aren't part of the wxDebugContext itself,
588 // as a special case. Then when dumping we need to ignore
589 // wxDebugContext, too.
590 if (wxDebugContext::CountObjectsLeft(TRUE) > 0)
591 {
592 wxLogDebug(wxT("There were memory leaks."));
593 wxDebugContext::Dump();
594 wxDebugContext::PrintStatistics();
595 }
596 // wxDebugContext::SetStream(NULL, NULL);
e9576ca5 597#endif
9779893b 598
2f1ae414
SC
599#if wxUSE_LOG
600 // do it as the very last thing because everything else can log messages
601 delete wxLog::SetActiveTarget(NULL);
602#endif // wxUSE_LOG
169935ad 603
8461e4c2
VZ
604 UMACleanupToolbox() ;
605 if (s_macCursorRgn)
606 ::DisposeRgn(s_macCursorRgn);
2f1ae414 607
8461e4c2
VZ
608 #if 0
609 TerminateAE() ;
610 #endif
e9576ca5
SC
611}
612
92b002a4
RD
613//----------------------------------------------------------------------
614// wxEntry
615//----------------------------------------------------------------------
616
617int wxEntryStart( int argc, char *argv[] )
618{
619 return wxApp::Initialize();
620}
621
622
623int wxEntryInitGui()
624{
625 return wxTheApp->OnInitGui();
626}
627
628
629void wxEntryCleanup()
630{
631 wxApp::CleanUp();
632}
633
634
2f1ae414 635int wxEntry( int argc, char *argv[] , bool enterLoop )
e9576ca5 636{
7c551d95
SC
637#ifdef __MWERKS__
638#if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
639 // This seems to be necessary since there are 'rogue'
640 // objects present at this point (perhaps global objects?)
641 // Setting a checkpoint will ignore them as far as the
642 // memory checking facility is concerned.
643 // Of course you may argue that memory allocated in globals should be
644 // checked, but this is a reasonable compromise.
645 wxDebugContext::SetCheckpoint();
646#endif
647#endif
92b002a4 648 if (!wxEntryStart(argc, argv)) {
2f1ae414 649 return 0;
03e11df5 650 }
2f1ae414
SC
651 // create the application object or ensure that one already exists
652 if (!wxTheApp)
e9576ca5 653 {
2f1ae414
SC
654 // The app may have declared a global application object, but we recommend
655 // the IMPLEMENT_APP macro is used instead, which sets an initializer
656 // function for delayed, dynamic app object construction.
657 wxCHECK_MSG( wxApp::GetInitializerFunction(), 0,
658 wxT("No initializer - use IMPLEMENT_APP macro.") );
9779893b 659
2f1ae414
SC
660 wxTheApp = (wxApp*) (*wxApp::GetInitializerFunction()) ();
661 }
9779893b 662
2f1ae414 663 wxCHECK_MSG( wxTheApp, 0, wxT("You have to define an instance of wxApp!") );
e9576ca5 664
89ebf1c9
RR
665#ifndef __DARWIN__
666 argc = 0 ; // currently we don't support files as parameters
519cb848 667#endif
89ebf1c9 668 // we could try to get the open apple events here to adjust argc and argv better
519cb848 669
89ebf1c9
RR
670 wxTheApp->argc = argc;
671 wxTheApp->argv = argv;
9779893b 672
89ebf1c9
RR
673 // GUI-specific initialization, such as creating an app context.
674 wxEntryInitGui();
9779893b 675
e9576ca5 676
89ebf1c9
RR
677 // Here frames insert themselves automatically
678 // into wxTopLevelWindows by getting created
679 // in OnInit().
9779893b 680
89ebf1c9 681 int retValue = 0;
9779893b 682
8461e4c2
VZ
683 if ( wxTheApp->OnInit() )
684 {
685 if ( enterLoop )
686 {
687 retValue = wxTheApp->OnRun();
688 }
689 else
690 // We want to initialize, but not run or exit immediately.
691 return 1;
692 }
693 //else: app initialization failed, so we skipped OnRun()
694
695 wxWindow *topWindow = wxTheApp->GetTopWindow();
696 if ( topWindow )
697 {
698 // Forcibly delete the window.
699 if ( topWindow->IsKindOf(CLASSINFO(wxFrame)) ||
700 topWindow->IsKindOf(CLASSINFO(wxDialog)) )
701 {
702 topWindow->Close(TRUE);
703 wxTheApp->DeletePendingObjects();
704 }
705 else
706 {
707 delete topWindow;
708 wxTheApp->SetTopWindow(NULL);
709 }
710 }
711
712 wxTheApp->OnExit();
713
92b002a4 714 wxEntryCleanup();
8461e4c2
VZ
715
716 return retValue;
03e11df5 717}
e9576ca5
SC
718
719// Static member initialization
2f1ae414 720wxAppInitializerFunction wxAppBase::m_appInitFn = (wxAppInitializerFunction) NULL;
e9576ca5
SC
721
722wxApp::wxApp()
723{
724 m_topWindow = NULL;
725 wxTheApp = this;
2f1ae414 726
e9576ca5 727 m_wantDebugOutput = TRUE ;
2f1ae414 728
e9576ca5
SC
729 argc = 0;
730 argv = NULL;
519cb848 731
e9576ca5 732 m_printMode = wxPRINT_WINDOWS;
e9576ca5
SC
733 m_exitOnFrameDelete = TRUE;
734 m_auto3D = TRUE;
735}
736
737bool wxApp::Initialized()
738{
519cb848 739 if (GetTopWindow())
e9576ca5 740 return TRUE;
519cb848
SC
741 else
742 return FALSE;
e9576ca5
SC
743}
744
745int wxApp::MainLoop()
746{
747 m_keepGoing = TRUE;
748
e9576ca5
SC
749 while (m_keepGoing)
750 {
8461e4c2 751 MacDoOneEvent() ;
e9576ca5 752 }
e9576ca5
SC
753
754 return 0;
755}
756
757// Returns TRUE if more time is needed.
758bool wxApp::ProcessIdle()
759{
760 wxIdleEvent event;
761 event.SetEventObject(this);
762 ProcessEvent(event);
763
764 return event.MoreRequested();
765}
766
767void wxApp::ExitMainLoop()
768{
769 m_keepGoing = FALSE;
770}
771
772// Is a message/event pending?
773bool wxApp::Pending()
774{
8461e4c2 775 EventRecord event ;
519cb848
SC
776
777 return EventAvail( everyEvent , &event ) ;
e9576ca5
SC
778}
779
780// Dispatch a message.
781void wxApp::Dispatch()
782{
8461e4c2 783 MacDoOneEvent() ;
e9576ca5
SC
784}
785
786void wxApp::OnIdle(wxIdleEvent& event)
787{
2f1ae414 788 static bool s_inOnIdle = FALSE;
e9576ca5 789
2f1ae414
SC
790 // Avoid recursion (via ProcessEvent default case)
791 if ( s_inOnIdle )
792 return;
e9576ca5 793
2f1ae414
SC
794
795 s_inOnIdle = TRUE;
e9576ca5
SC
796
797 // 'Garbage' collection of windows deleted with Close().
798 DeletePendingObjects();
799
800 // flush the logged messages if any
801 wxLog *pLog = wxLog::GetActiveTarget();
802 if ( pLog != NULL && pLog->HasPendingMessages() )
803 pLog->Flush();
804
805 // Send OnIdle events to all windows
806 bool needMore = SendIdleEvents();
807
808 if (needMore)
809 event.RequestMore(TRUE);
810
2f1ae414
SC
811 // If they are pending events, we must process them: pending events are
812 // either events to the threads other than main or events posted with
813 // wxPostEvent() functions
814 wxMacProcessNotifierAndPendingEvents();
815
816 s_inOnIdle = FALSE;
e9576ca5
SC
817}
818
9779893b
RD
819void wxWakeUpIdle()
820{
8461e4c2 821 wxMacWakeUp() ;
9779893b
RD
822}
823
e9576ca5
SC
824// Send idle event to all top-level windows
825bool wxApp::SendIdleEvents()
826{
827 bool needMore = FALSE;
8461e4c2
VZ
828 wxNode* node = wxTopLevelWindows.First();
829 while (node)
830 {
831 wxWindow* win = (wxWindow*) node->Data();
832 if (SendIdleEvents(win))
e9576ca5
SC
833 needMore = TRUE;
834
8461e4c2
VZ
835 node = node->Next();
836 }
e9576ca5
SC
837 return needMore;
838}
839
840// Send idle event to window and all subwindows
841bool wxApp::SendIdleEvents(wxWindow* win)
842{
843 bool needMore = FALSE;
844
8461e4c2
VZ
845 wxIdleEvent event;
846 event.SetEventObject(win);
847 win->ProcessEvent(event);
e9576ca5
SC
848
849 if (event.MoreRequested())
850 needMore = TRUE;
851
8461e4c2
VZ
852 wxNode* node = win->GetChildren().First();
853 while (node)
854 {
855 wxWindow* win = (wxWindow*) node->Data();
856 if (SendIdleEvents(win))
e9576ca5
SC
857 needMore = TRUE;
858
8461e4c2
VZ
859 node = node->Next();
860 }
e9576ca5
SC
861 return needMore ;
862}
863
864void wxApp::DeletePendingObjects()
865{
866 wxNode *node = wxPendingDelete.First();
867 while (node)
868 {
869 wxObject *obj = (wxObject *)node->Data();
9779893b 870
e9576ca5
SC
871 delete obj;
872
873 if (wxPendingDelete.Member(obj))
874 delete node;
875
876 // Deleting one object may have deleted other pending
877 // objects, so start from beginning of list again.
878 node = wxPendingDelete.First();
879 }
880}
881
2f1ae414
SC
882wxIcon
883wxApp::GetStdIcon(int which) const
e9576ca5 884{
2f1ae414
SC
885 switch(which)
886 {
887 case wxICON_INFORMATION:
888 return wxIcon("wxICON_INFO");
e9576ca5 889
2f1ae414
SC
890 case wxICON_QUESTION:
891 return wxIcon("wxICON_QUESTION");
892
893 case wxICON_EXCLAMATION:
894 return wxIcon("wxICON_WARNING");
895
896 default:
897 wxFAIL_MSG(wxT("requested non existent standard icon"));
898 // still fall through
899
900 case wxICON_HAND:
901 return wxIcon("wxICON_ERROR");
902 }
e9576ca5
SC
903}
904
905void wxExit()
906{
2f1ae414
SC
907 wxLogError(_("Fatal error: exiting"));
908
909 wxApp::CleanUp();
8461e4c2 910 ::ExitToShell() ;
e9576ca5
SC
911}
912
2f1ae414
SC
913void wxApp::OnEndSession(wxCloseEvent& WXUNUSED(event))
914{
915 if (GetTopWindow())
916 GetTopWindow()->Close(TRUE);
917}
918
919// Default behaviour: close the application with prompts. The
920// user can veto the close, and therefore the end session.
921void wxApp::OnQueryEndSession(wxCloseEvent& event)
922{
923 if (GetTopWindow())
924 {
925 if (!GetTopWindow()->Close(!event.CanVeto()))
926 event.Veto(TRUE);
927 }
928}
929
930extern "C" void wxCYield() ;
931void wxCYield()
932{
8461e4c2 933 wxYield() ;
2f1ae414
SC
934}
935
e9576ca5 936// Yield to other processes
cb2713bf 937
8461e4c2 938bool wxApp::Yield(bool onlyIfNeeded)
e9576ca5 939{
8461e4c2
VZ
940 static bool s_inYield = FALSE;
941
942 if (s_inYield)
943 {
944 if ( !onlyIfNeeded )
945 {
946 wxFAIL_MSG( wxT("wxYield called recursively" ) );
947 }
948
949 return FALSE;
950 }
951
952 s_inYield = TRUE;
cb2713bf 953
2f1ae414 954#if wxUSE_THREADS
cb2713bf 955 YieldToAnyThread() ;
2f1ae414 956#endif
cb2713bf 957 EventRecord event ;
2f1ae414 958
8461e4c2 959 long sleepTime = 1 ; //::GetCaretTime();
2f1ae414 960
8461e4c2
VZ
961 while ( !wxTheApp->IsExiting() && WaitNextEvent(everyEvent, &event,sleepTime, wxApp::s_macCursorRgn))
962 {
963 wxTheApp->MacHandleOneEvent( &event );
964 if ( event.what != kHighLevelEvent )
965 SetRectRgn( wxApp::s_macCursorRgn , event.where.h , event.where.v , event.where.h + 1 , event.where.v + 1 ) ;
966 }
2f1ae414 967
8461e4c2 968 wxMacProcessNotifierAndPendingEvents() ;
cb2713bf 969
8461e4c2 970 s_inYield = FALSE;
cb2713bf 971
8461e4c2 972 return TRUE;
169935ad
SC
973}
974
9779893b 975// platform specifics
169935ad 976
519cb848
SC
977void wxApp::MacSuspend( bool convertClipboard )
978{
8461e4c2
VZ
979 // we have to deactive the window manually
980
981 wxWindow* window = GetTopWindow() ;
982 if ( window )
983 window->MacActivate( MacGetCurrentEvent() , false ) ;
984
985 s_lastMouseDown = 0 ;
986 if( convertClipboard )
987 {
988 MacConvertPrivateToPublicScrap() ;
989 }
990
72055702 991 ::HideFloatingWindows() ;
519cb848
SC
992}
993
994void wxApp::MacResume( bool convertClipboard )
995{
8461e4c2
VZ
996 s_lastMouseDown = 0 ;
997 if( convertClipboard )
998 {
999 MacConvertPublicToPrivateScrap() ;
1000 }
9779893b 1001
72055702 1002 ::ShowFloatingWindows() ;
519cb848
SC
1003}
1004
1005void wxApp::MacConvertPrivateToPublicScrap()
1006{
519cb848
SC
1007}
1008
1009void wxApp::MacConvertPublicToPrivateScrap()
1010{
519cb848
SC
1011}
1012
9779893b 1013void wxApp::MacDoOneEvent()
169935ad
SC
1014{
1015 EventRecord event ;
1016
6264b550 1017 long sleepTime = 1; // GetCaretTime() / 4 ;
169935ad 1018
6264b550 1019 if (WaitNextEvent(everyEvent, &event, sleepTime, s_macCursorRgn))
8461e4c2 1020 {
6264b550 1021 MacHandleOneEvent( &event );
8461e4c2
VZ
1022 }
1023 else
1024 {
1025 // idlers
72055702 1026 WindowPtr window = ::FrontWindow() ;
8461e4c2 1027 if ( window )
72055702 1028 ::IdleControls( window ) ;
9779893b 1029
8461e4c2
VZ
1030 wxTheApp->ProcessIdle() ;
1031 }
1032 if ( event.what != kHighLevelEvent )
1033 SetRectRgn( s_macCursorRgn , event.where.h , event.where.v , event.where.h + 1 , event.where.v + 1 ) ;
519cb848 1034
8461e4c2 1035 // repeaters
519cb848 1036
6264b550 1037 DeletePendingObjects() ;
8461e4c2 1038 wxMacProcessNotifierAndPendingEvents() ;
169935ad
SC
1039}
1040
9779893b 1041void wxApp::MacHandleOneEvent( EventRecord *ev )
169935ad 1042{
8461e4c2
VZ
1043 m_macCurrentEvent = ev ;
1044
1045 wxApp::sm_lastMessageTime = ev->when ;
1046
1047 switch (ev->what)
1048 {
1049 case mouseDown:
1050 MacHandleMouseDownEvent( ev ) ;
1051 if ( ev->modifiers & controlKey )
1052 s_lastMouseDown = 2;
1053 else
1054 s_lastMouseDown = 1;
1055 break;
1056 case mouseUp:
1057 if ( s_lastMouseDown == 2 )
1058 {
1059 ev->modifiers |= controlKey ;
1060 }
1061 else
1062 {
1063 ev->modifiers &= ~controlKey ;
1064 }
1065 MacHandleMouseUpEvent( ev ) ;
1066 s_lastMouseDown = 0;
1067 break;
1068 case activateEvt:
1069 MacHandleActivateEvent( ev ) ;
1070 break;
1071 case updateEvt:
1072 MacHandleUpdateEvent( ev ) ;
1073 break;
1074 case keyDown:
1075 case autoKey:
1076 MacHandleKeyDownEvent( ev ) ;
1077 break;
1078 case keyUp:
1079 MacHandleKeyUpEvent( ev ) ;
1080 break;
1081 case diskEvt:
1082 MacHandleDiskEvent( ev ) ;
1083 break;
1084 case osEvt:
1085 MacHandleOSEvent( ev ) ;
1086 break;
1087 case kHighLevelEvent:
1088 MacHandleHighLevelEvent( ev ) ;
1089 break;
1090 default:
1091 break;
1092 }
1093 wxMacProcessNotifierAndPendingEvents() ;
169935ad
SC
1094}
1095
8be97d65 1096void wxApp::MacHandleHighLevelEvent( EventRecord *ev )
169935ad 1097{
8461e4c2 1098 ::AEProcessAppleEvent( ev ) ;
169935ad
SC
1099}
1100
519cb848
SC
1101bool s_macIsInModalLoop = false ;
1102
8be97d65 1103void wxApp::MacHandleMouseDownEvent( EventRecord *ev )
169935ad 1104{
8461e4c2 1105 wxToolTip::RemoveToolTips() ;
2f1ae414 1106
8461e4c2 1107 WindowRef window;
72055702 1108 WindowRef frontWindow = ::FrontNonFloatingWindow() ;
8461e4c2
VZ
1109 WindowAttributes frontWindowAttributes = NULL ;
1110 if ( frontWindow )
72055702 1111 ::GetWindowAttributes( frontWindow , &frontWindowAttributes ) ;
9779893b 1112
8461e4c2
VZ
1113 short windowPart = ::FindWindow(ev->where, &window);
1114 wxWindow* win = wxFindWinFromMacWindow( window ) ;
0a67a93b
SC
1115 if ( wxPendingDelete.Member(win) )
1116 return ;
9779893b 1117
8461e4c2
VZ
1118 BitMap screenBits;
1119 GetQDGlobalsScreenBits( &screenBits );
1120
1121 switch (windowPart)
1122 {
1123 case inMenuBar :
1124 if ( s_macIsInModalLoop )
1125 {
1126 SysBeep ( 30 ) ;
1127 }
1128 else
1129 {
1130 UInt32 menuresult = MenuSelect(ev->where) ;
1131 MacHandleMenuSelect( HiWord( menuresult ) , LoWord( menuresult ) );
1132 s_lastMouseDown = 0;
1133 }
1134 break ;
2f1ae414 1135#if !TARGET_CARBON
8461e4c2
VZ
1136 case inSysWindow :
1137 SystemClick( ev , window ) ;
1138 s_lastMouseDown = 0;
1139 break ;
2f1ae414 1140#endif
8461e4c2
VZ
1141 case inDrag :
1142 if ( window != frontWindow && s_macIsInModalLoop && !(ev->modifiers & cmdKey ) )
1143 {
1144 SysBeep ( 30 ) ;
1145 }
1146 else
1147 {
1148 DragWindow(window, ev->where, &screenBits.bounds);
1149 if (win)
1150 {
1151 GrafPtr port ;
1152 GetPort( &port ) ;
1153 Point pt = { 0, 0 } ;
1154 #if TARGET_CARBON
1155 SetPort( GetWindowPort(window) ) ;
1156 #else
1157 SetPort( (window) ) ;
1158 #endif
1159 SetOrigin( 0 , 0 ) ;
1160 LocalToGlobal( &pt ) ;
1161 SetPort( port ) ;
1162 win->SetSize( pt.h , pt.v , -1 ,
1163 -1 , wxSIZE_USE_EXISTING);
1164 }
1165 s_lastMouseDown = 0;
1166 }
1167 break ;
1168 case inGoAway:
1169 if (TrackGoAway(window, ev->where))
1170 {
1171 if ( win )
1172 win->Close() ;
1173 }
1174 s_lastMouseDown = 0;
1175 break;
1176 case inGrow:
1177 {
1178 int growResult = GrowWindow(window , ev->where, &screenBits.bounds);
1179 if (growResult != 0)
1180 {
1181 int newWidth = LoWord(growResult);
1182 int newHeight = HiWord(growResult);
1183 int oldWidth, oldHeight;
1184
1185
1186 if (win)
1187 {
1188 win->GetSize(&oldWidth, &oldHeight);
1189 if (newWidth == 0)
1190 newWidth = oldWidth;
1191 if (newHeight == 0)
1192 newHeight = oldHeight;
1193 win->SetSize( -1, -1, newWidth, newHeight, wxSIZE_USE_EXISTING);
1194 }
1195 }
1196 s_lastMouseDown = 0;
1197 }
1198 break;
1199 case inZoomIn:
1200 case inZoomOut:
1201 if (TrackBox(window, ev->where, windowPart))
1202 {
1203 // TODO setup size event
1204 ZoomWindow( window , windowPart , false ) ;
1205 if (win)
1206 {
1207 Rect tempRect ;
1208
1209 GetWindowPortBounds(window, &tempRect ) ;
1210 win->SetSize( -1, -1, tempRect.right-tempRect.left ,
1211 tempRect.bottom-tempRect.top, wxSIZE_USE_EXISTING);
1212 }
1213 }
1214 s_lastMouseDown = 0;
1215 break;
1216 case inCollapseBox :
1217 // TODO setup size event
1218 s_lastMouseDown = 0;
1219 break ;
1220
1221 case inContent :
1222 {
1223 GrafPtr port ;
1224 GetPort( &port ) ;
1225 #if TARGET_CARBON
1226 SetPort( GetWindowPort(window) ) ;
1227 #else
1228 SetPort( (window) ) ;
1229 #endif
1230 SetOrigin( 0 , 0 ) ;
1231 SetPort( port ) ;
1232 }
1233 if ( window != frontWindow && wxTheApp->s_captureWindow == NULL )
1234 {
1235 if ( s_macIsInModalLoop )
1236 {
1237 SysBeep ( 30 ) ;
1238 }
1239 else if ( UMAIsWindowFloating( window ) )
1240 {
1241 if ( win )
1242 win->MacMouseDown( ev , windowPart ) ;
1243 }
1244 else
1245 {
1246 if ( win )
1247 win->MacMouseDown( ev , windowPart ) ;
72055702 1248 ::SelectWindow( window ) ;
8461e4c2
VZ
1249 }
1250 }
1251 else
1252 {
1253 if ( win )
1254 win->MacMouseDown( ev , windowPart ) ;
1255 }
1256 break ;
1257
1258 default:
1259 break;
1260 }
169935ad
SC
1261}
1262
519cb848 1263void wxApp::MacHandleMouseUpEvent( EventRecord *ev )
169935ad 1264{
8461e4c2
VZ
1265 WindowRef window;
1266
1267 short windowPart = ::FindWindow(ev->where, &window);
1268
1269 switch (windowPart)
1270 {
1271 case inMenuBar :
1272 break ;
1273 case inSysWindow :
1274 break ;
1275 default:
1276 {
1277 wxWindow* win = wxFindWinFromMacWindow( window ) ;
1278 if ( win )
1279 win->MacMouseUp( ev , windowPart ) ;
1280 }
1281 break;
1282 }
169935ad
SC
1283}
1284
72055702 1285long wxMacTranslateKey(unsigned char key, unsigned char code) ;
7c551d95 1286long wxMacTranslateKey(unsigned char key, unsigned char code)
9779893b 1287{
8461e4c2 1288 long retval = key ;
9779893b 1289 switch (key)
519cb848 1290 {
8461e4c2
VZ
1291 case 0x01 :
1292 retval = WXK_HOME;
1293 break;
1294 case 0x03 :
1295 retval = WXK_RETURN;
1296 break;
1297 case 0x04 :
1298 retval = WXK_END;
1299 break;
1300 case 0x05 :
1301 retval = WXK_HELP;
1302 break;
1303 case 0x08 :
1304 retval = WXK_BACK;
1305 break;
1306 case 0x09 :
1307 retval = WXK_TAB;
1308 break;
1309 case 0x0b :
1310 retval = WXK_PAGEUP;
1311 break;
1312 case 0x0c :
1313 retval = WXK_PAGEDOWN;
1314 break;
1315 case 0x0d :
1316 retval = WXK_RETURN;
1317 break;
1318 case 0x10 :
1319 {
1320 switch( code )
1321 {
1322 case 0x7a :
1323 retval = WXK_F1 ;
1324 break;
1325 case 0x78 :
1326 retval = WXK_F2 ;
1327 break;
1328 case 0x63 :
1329 retval = WXK_F3 ;
1330 break;
1331 case 0x76 :
1332 retval = WXK_F4 ;
1333 break;
1334 case 0x60 :
1335 retval = WXK_F5 ;
1336 break;
1337 case 0x61 :
1338 retval = WXK_F6 ;
1339 break;
1340 case 0x62:
1341 retval = WXK_F7 ;
1342 break;
1343 case 0x64 :
1344 retval = WXK_F8 ;
1345 break;
1346 case 0x65 :
1347 retval = WXK_F9 ;
1348 break;
1349 case 0x6D :
1350 retval = WXK_F10 ;
1351 break;
1352 case 0x67 :
1353 retval = WXK_F11 ;
1354 break;
1355 case 0x6F :
1356 retval = WXK_F12 ;
1357 break;
1358 case 0x69 :
1359 retval = WXK_F13 ;
1360 break;
1361 case 0x6B :
1362 retval = WXK_F14 ;
1363 break;
1364 case 0x71 :
1365 retval = WXK_F15 ;
1366 break;
1367 }
1368 }
1369 break ;
1370 case 0x1b :
1371 retval = WXK_ESCAPE ;
1372 break ;
1373 case 0x1c :
1374 retval = WXK_LEFT ;
1375 break ;
1376 case 0x1d :
1377 retval = WXK_RIGHT ;
1378 break ;
1379 case 0x1e :
1380 retval = WXK_UP ;
1381 break ;
1382 case 0x1f :
1383 retval = WXK_DOWN ;
1384 break ;
1385 case 0x7F :
1386 retval = WXK_DELETE ;
1387 default:
1388 break ;
1389 } // end switch
1390
1391 return retval;
169935ad
SC
1392}
1393
519cb848 1394void wxApp::MacHandleKeyDownEvent( EventRecord *ev )
169935ad 1395{
8461e4c2
VZ
1396 wxToolTip::RemoveToolTips() ;
1397
1398 UInt32 menuresult = UMAMenuEvent(ev) ;
1399 if ( HiWord( menuresult ) )
1400 {
1401 if ( !s_macIsInModalLoop )
1402 MacHandleMenuSelect( HiWord( menuresult ) , LoWord( menuresult ) ) ;
1403 }
1404 else
1405 {
1406 short keycode ;
1407 short keychar ;
1408 keychar = short(ev->message & charCodeMask);
1409 keycode = short(ev->message & keyCodeMask) >> 8 ;
e562df9b
SC
1410 long keyval = wxMacTranslateKey(keychar, keycode) ;
1411 bool handled = false ;
8461e4c2
VZ
1412 wxWindow* focus = wxWindow::FindFocus() ;
1413 if ( focus )
1414 {
8461e4c2
VZ
1415
1416 wxKeyEvent event(wxEVT_KEY_DOWN);
1417 event.m_shiftDown = ev->modifiers & shiftKey;
1418 event.m_controlDown = ev->modifiers & controlKey;
1419 event.m_altDown = ev->modifiers & optionKey;
1420 event.m_metaDown = ev->modifiers & cmdKey;
1421 event.m_keyCode = keyval;
1422 event.m_x = ev->where.h;
1423 event.m_y = ev->where.v;
1424 event.m_timeStamp = ev->when;
1425 event.SetEventObject(focus);
e562df9b 1426 handled = focus->GetEventHandler()->ProcessEvent( event ) ;
8461e4c2
VZ
1427 if ( !handled )
1428 {
1429 #if wxUSE_ACCEL
1430 if (!handled)
1431 {
1432 wxWindow *ancestor = focus;
1433 /*
1434 while (ancestor)
1435 {
1436 int command = ancestor->GetAcceleratorTable()->GetCommand( event );
1437 if (command != -1)
1438 {
1439 wxCommandEvent command_event( wxEVT_COMMAND_MENU_SELECTED, command );
1440 handled = ancestor->GetEventHandler()->ProcessEvent( command_event );
1441 break;
1442 }
1443 if (ancestor->m_isFrame)
1444 break;
1445 ancestor = ancestor->GetParent();
1446 }
1447 */
1448 }
1449 #endif // wxUSE_ACCEL
1450 }
1451 if (!handled)
1452 {
1453 wxKeyEvent event(wxEVT_CHAR);
1454 event.m_shiftDown = ev->modifiers & shiftKey;
1455 event.m_controlDown = ev->modifiers & controlKey;
1456 event.m_altDown = ev->modifiers & optionKey;
1457 event.m_metaDown = ev->modifiers & cmdKey;
1458 event.m_keyCode = keyval;
1459 event.m_x = ev->where.h;
1460 event.m_y = ev->where.v;
1461 event.m_timeStamp = ev->when;
1462 event.SetEventObject(focus);
1463 handled = focus->GetEventHandler()->ProcessEvent( event ) ;
1464 }
1465 if ( !handled &&
1466 (keyval == WXK_TAB) &&
1467 (!focus->HasFlag(wxTE_PROCESS_TAB)) &&
1468 (focus->GetParent()) &&
1469 (focus->GetParent()->HasFlag( wxTAB_TRAVERSAL)) )
1470 {
1471 wxNavigationKeyEvent new_event;
1472 new_event.SetEventObject( focus );
1473 new_event.SetDirection( !event.ShiftDown() );
1474 /* CTRL-TAB changes the (parent) window, i.e. switch notebook page */
1475 new_event.SetWindowChange( event.ControlDown() );
1476 new_event.SetCurrentFocus( focus );
1477 handled = focus->GetEventHandler()->ProcessEvent( new_event );
1478 }
e562df9b
SC
1479 }
1480 if ( !handled )
1481 {
1482 // if window is not having a focus still testing for default enter or cancel
1483 // TODO add the UMA version for ActiveNonFloatingWindow
1484 focus = wxFindWinFromMacWindow( FrontWindow() ) ;
1485 if ( focus )
1486 {
1487 if ( keyval == WXK_RETURN )
1488 {
1489 wxButton *def = wxDynamicCast(focus->GetDefaultItem(),
1490 wxButton);
1491 if ( def && def->IsEnabled() )
1492 {
1493 wxCommandEvent event(wxEVT_COMMAND_BUTTON_CLICKED, def->GetId() );
1494 event.SetEventObject(def);
1495 def->Command(event);
1496 return ;
1497 }
1498 }
8461e4c2 1499 /* generate wxID_CANCEL if command-. or <esc> has been pressed (typically in dialogs) */
e562df9b 1500 else if (keyval == WXK_ESCAPE || (keyval == '.' && ev->modifiers & cmdKey ) )
8461e4c2 1501 {
e562df9b
SC
1502 wxCommandEvent new_event(wxEVT_COMMAND_BUTTON_CLICKED,wxID_CANCEL);
1503 new_event.SetEventObject( focus );
1504 handled = focus->GetEventHandler()->ProcessEvent( new_event );
8461e4c2 1505 }
e562df9b 1506 }
8461e4c2
VZ
1507 }
1508 }
169935ad
SC
1509}
1510
519cb848 1511void wxApp::MacHandleKeyUpEvent( EventRecord *ev )
169935ad 1512{
8461e4c2
VZ
1513 wxToolTip::RemoveToolTips() ;
1514
1515 UInt32 menuresult = UMAMenuEvent(ev) ;
1516 if ( HiWord( menuresult ) )
1517 {
1518 }
1519 else
1520 {
1521 short keycode ;
1522 short keychar ;
1523 keychar = short(ev->message & charCodeMask);
1524 keycode = short(ev->message & keyCodeMask) >> 8 ;
1525
1526 wxWindow* focus = wxWindow::FindFocus() ;
1527 if ( focus )
1528 {
1529 long keyval = wxMacTranslateKey(keychar, keycode) ;
1530
1531 wxKeyEvent event(wxEVT_KEY_UP);
1532 event.m_shiftDown = ev->modifiers & shiftKey;
1533 event.m_controlDown = ev->modifiers & controlKey;
1534 event.m_altDown = ev->modifiers & optionKey;
1535 event.m_metaDown = ev->modifiers & cmdKey;
1536 event.m_keyCode = keyval;
1537 event.m_x = ev->where.h;
1538 event.m_y = ev->where.v;
1539 event.m_timeStamp = ev->when;
1540 event.SetEventObject(focus);
1541 bool handled = focus->GetEventHandler()->ProcessEvent( event ) ;
1542 }
1543 }
169935ad
SC
1544}
1545
519cb848 1546void wxApp::MacHandleActivateEvent( EventRecord *ev )
169935ad 1547{
8461e4c2
VZ
1548 WindowRef window = (WindowRef) ev->message ;
1549 if ( window )
1550 {
1551 bool activate = (ev->modifiers & activeFlag ) ;
1552 WindowClass wclass ;
72055702 1553 ::GetWindowClass ( window , &wclass ) ;
8461e4c2
VZ
1554 if ( wclass == kFloatingWindowClass )
1555 {
1556 // if it is a floater we activate/deactivate the front non-floating window instead
72055702 1557 window = ::FrontNonFloatingWindow() ;
8461e4c2
VZ
1558 }
1559 wxWindow* win = wxFindWinFromMacWindow( window ) ;
1560 if ( win )
1561 win->MacActivate( ev , activate ) ;
1562 }
169935ad
SC
1563}
1564
519cb848 1565void wxApp::MacHandleUpdateEvent( EventRecord *ev )
169935ad 1566{
8461e4c2
VZ
1567 WindowRef window = (WindowRef) ev->message ;
1568 wxWindow * win = wxFindWinFromMacWindow( window ) ;
1569 if ( win )
1570 {
0a67a93b 1571 if ( !wxPendingDelete.Member(win) )
8461e4c2
VZ
1572 win->MacUpdate( ev ) ;
1573 }
1574 else
1575 {
1576 // since there is no way of telling this foreign window to update itself
1577 // we have to invalidate the update region otherwise we keep getting the same
1578 // event over and over again
1579 BeginUpdate( window ) ;
1580 EndUpdate( window ) ;
1581 }
169935ad
SC
1582}
1583
519cb848 1584void wxApp::MacHandleDiskEvent( EventRecord *ev )
169935ad 1585{
8461e4c2 1586 if ( HiWord( ev->message ) != noErr )
519cb848 1587 {
2f1ae414 1588 #if !TARGET_CARBON
8461e4c2
VZ
1589 OSErr err ;
1590 Point point ;
1591 SetPt( &point , 100 , 100 ) ;
9779893b 1592
8461e4c2
VZ
1593 err = DIBadMount( point , ev->message ) ;
1594 wxASSERT( err == noErr ) ;
2f1ae414 1595#endif
8461e4c2 1596 }
169935ad
SC
1597}
1598
519cb848 1599void wxApp::MacHandleOSEvent( EventRecord *ev )
169935ad 1600{
8461e4c2
VZ
1601 switch( ( ev->message & osEvtMessageMask ) >> 24 )
1602 {
1603 case suspendResumeMessage :
1604 {
1605 bool isResuming = ev->message & resumeFlag ;
5fde6fcc 1606#if !TARGET_CARBON
8461e4c2 1607 bool convertClipboard = ev->message & convertClipboardFlag ;
5fde6fcc 1608#else
8461e4c2 1609 bool convertClipboard = false;
5fde6fcc 1610#endif
8461e4c2
VZ
1611 bool doesActivate = UMAGetProcessModeDoesActivateOnFGSwitch() ;
1612 if ( isResuming )
1613 {
1614 WindowRef oldFrontWindow = NULL ;
1615 WindowRef newFrontWindow = NULL ;
1616
1617 // in case we don't take care of activating ourselves, we have to synchronize
1618 // our idea of the active window with the process manager's - which it already activated
1619
1620 if ( !doesActivate )
72055702 1621 oldFrontWindow = ::FrontNonFloatingWindow() ;
8461e4c2
VZ
1622
1623 MacResume( convertClipboard ) ;
1624
72055702 1625 newFrontWindow = ::FrontNonFloatingWindow() ;
8461e4c2
VZ
1626
1627 if ( oldFrontWindow )
1628 {
1629 wxWindow* win = wxFindWinFromMacWindow( oldFrontWindow ) ;
1630 if ( win )
1631 win->MacActivate( ev , false ) ;
1632 }
1633 if ( newFrontWindow )
1634 {
1635 wxWindow* win = wxFindWinFromMacWindow( newFrontWindow ) ;
1636 if ( win )
1637 win->MacActivate( ev , true ) ;
1638 }
1639 }
1640 else
1641 {
1642 MacSuspend( convertClipboard ) ;
1643
1644 // in case this suspending did close an active window, another one might
1645 // have surfaced -> lets deactivate that one
1646
72055702
SC
1647/* TODO : find out what to do on systems < 10 , perhaps FrontNonFloatingWindow
1648 WindowRef newActiveWindow = ::ActiveNonFloatingWindow() ;
8461e4c2
VZ
1649 if ( newActiveWindow )
1650 {
1651 wxWindow* win = wxFindWinFromMacWindow( newActiveWindow ) ;
1652 if ( win )
1653 win->MacActivate( ev , false ) ;
1654 }
72055702 1655*/
8461e4c2
VZ
1656 }
1657 }
1658 break ;
1659 case mouseMovedMessage :
1660 {
1661 WindowRef window;
1662
1663 wxWindow* currentMouseWindow = NULL ;
1664
1665 wxWindow::MacGetWindowFromPoint( wxPoint( ev->where.h , ev->where.v ) ,
1666 &currentMouseWindow ) ;
1667
1668 if ( currentMouseWindow != wxWindow::s_lastMouseWindow )
1669 {
1670 wxMouseEvent event ;
1671
1672 bool isDown = !(ev->modifiers & btnState) ; // 1 is for up
1673 bool controlDown = ev->modifiers & controlKey ; // for simulating right mouse
1674
1675 event.m_leftDown = isDown && !controlDown;
1676 event.m_middleDown = FALSE;
1677 event.m_rightDown = isDown && controlDown;
1678 event.m_shiftDown = ev->modifiers & shiftKey;
1679 event.m_controlDown = ev->modifiers & controlKey;
1680 event.m_altDown = ev->modifiers & optionKey;
1681 event.m_metaDown = ev->modifiers & cmdKey;
1682 event.m_x = ev->where.h;
1683 event.m_y = ev->where.v;
1684 event.m_timeStamp = ev->when;
1685 event.SetEventObject(this);
1686
1687 if ( wxWindow::s_lastMouseWindow )
1688 {
1689 wxMouseEvent eventleave(event ) ;
1690 eventleave.SetEventType( wxEVT_LEAVE_WINDOW ) ;
1691 wxWindow::s_lastMouseWindow->GetEventHandler()->ProcessEvent(eventleave);
1692 }
1693 if ( currentMouseWindow )
1694 {
1695 wxMouseEvent evententer(event ) ;
1696 evententer.SetEventType( wxEVT_ENTER_WINDOW ) ;
1697 currentMouseWindow->GetEventHandler()->ProcessEvent(evententer);
1698 }
1699 wxWindow::s_lastMouseWindow = currentMouseWindow ;
1700 }
1701
1702 short windowPart = ::FindWindow(ev->where, &window);
1703
1704 switch (windowPart)
1705 {
1706 // fixes for setting the cursor back from dominic mazzoni
1707 case inMenuBar :
1708 UMAShowArrowCursor();
1709 break ;
1710 case inSysWindow :
1711 UMAShowArrowCursor();
1712 break ;
1713 default:
1714 {
6264b550
RR
1715 // if ( s_lastMouseDown == 0 )
1716 // ev->modifiers |= btnState ;
1717
1718 // Calling GetNextEvent with a zero event mask will always
1719 // pass back a null event. However, it fills the EventRecord
1720 // with the state of the modifier keys. This is needed since
1721 // the modifier state returned by WaitForNextEvent often is
1722 // wrong mouse move events. The attempt above to correct this
1723 // didn't always work (under OS X at least).
1724
1725 EventRecord tmp;
1726 ::GetNextEvent(0, &tmp);
1727 ev->modifiers = tmp.modifiers;
1728
8461e4c2
VZ
1729 wxWindow* win = wxFindWinFromMacWindow( window ) ;
1730 if ( win )
1731 win->MacMouseMoved( ev , windowPart ) ;
1732 else
1733 UMAShowArrowCursor();
1734
1735 }
1736 break;
1737 }
1738 }
1739 break ;
1740
1741 }
169935ad
SC
1742}
1743
519cb848 1744void wxApp::MacHandleMenuSelect( int macMenuId , int macMenuItemNum )
169935ad 1745{
8461e4c2
VZ
1746 if (macMenuId == 0)
1747 return; // no menu item selected
1748
1749 if (macMenuId == kwxMacAppleMenuId && macMenuItemNum > 1)
1750 {
1751 #if ! TARGET_CARBON
1752 Str255 deskAccessoryName ;
1753 GrafPtr savedPort ;
1754
1755 GetMenuItemText(GetMenuHandle(kwxMacAppleMenuId), macMenuItemNum, deskAccessoryName);
1756 GetPort(&savedPort);
1757 OpenDeskAcc(deskAccessoryName);
1758 SetPort(savedPort);
1759 #endif
1760 }
1761 else
1762 {
1763 wxWindow* frontwindow = wxFindWinFromMacWindow( ::FrontWindow() ) ;
1764 if ( frontwindow && wxMenuBar::MacGetInstalledMenuBar() )
1765 wxMenuBar::MacGetInstalledMenuBar()->MacMenuSelect( frontwindow->GetEventHandler() , 0 , macMenuId , macMenuItemNum ) ;
1766 }
1767 HiliteMenu(0);
169935ad
SC
1768}
1769
519cb848
SC
1770/*
1771long wxApp::MacTranslateKey(char key, int mods)
169935ad 1772{
169935ad
SC
1773}
1774
519cb848 1775void wxApp::MacAdjustCursor()
169935ad 1776{
169935ad
SC
1777}
1778
519cb848
SC
1779*/
1780/*
169935ad
SC
1781void
1782wxApp::macAdjustCursor()
1783{
519cb848 1784 if (ev->what != kHighLevelEvent)
169935ad 1785 {
8461e4c2
VZ
1786 wxWindow* theMacWxFrame = wxFrame::MacFindFrameOrDialog(::FrontWindow());
1787 if (theMacWxFrame)
1788 {
1789 if (!theMacWxFrame->MacAdjustCursor(ev->where))
1790 ::SetCursor(&(qd.arrow));
1791 }
169935ad
SC
1792 }
1793}
9779893b 1794*/