]> git.saurik.com Git - wxWidgets.git/blob - src/mac/carbon/control.cpp
added horizontal scrollbars to listboxes
[wxWidgets.git] / src / mac / carbon / control.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: control.cpp
3 // Purpose: wxControl class
4 // Author: AUTHOR
5 // Modified by:
6 // Created: ??/??/98
7 // RCS-ID: $Id$
8 // Copyright: (c) AUTHOR
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 #ifdef __GNUG__
13 #pragma implementation "control.h"
14 #endif
15
16 #include "wx/defs.h"
17
18 #include "wx/control.h"
19 #include "wx/panel.h"
20 #include "wx/app.h"
21 #include "wx/dc.h"
22 #include "wx/dcclient.h"
23 #include "wx/notebook.h"
24 #include "wx/tabctrl.h"
25 #include "wx/radiobox.h"
26 #include "wx/spinbutt.h"
27 #include "wx/scrolbar.h"
28 #include "wx/button.h"
29 #include "wx/dialog.h"
30 #include "wx/statbox.h"
31 #include "wx/sizer.h"
32 #include "wx/stattext.h"
33
34 #if !USE_SHARED_LIBRARY
35 IMPLEMENT_ABSTRACT_CLASS(wxControl, wxWindow)
36
37 BEGIN_EVENT_TABLE(wxControl, wxWindow)
38 EVT_MOUSE_EVENTS( wxControl::OnMouseEvent )
39 // EVT_CHAR( wxControl::OnKeyDown )
40 EVT_PAINT( wxControl::OnPaint )
41 END_EVENT_TABLE()
42 #endif
43
44 #include "wx/mac/uma.h"
45 #include "wx/mac/private.h"
46
47 // Item members
48
49
50 #if PRAGMA_STRUCT_ALIGN
51 #pragma options align=mac68k
52 #elif PRAGMA_STRUCT_PACKPUSH
53 #pragma pack(push, 2)
54 #elif PRAGMA_STRUCT_PACK
55 #pragma pack(2)
56 #endif
57
58 typedef struct {
59 unsigned short instruction;
60 void (*function)();
61 } cdefRec, *cdefPtr, **cdefHandle;
62
63 #if PRAGMA_STRUCT_ALIGN
64 #pragma options align=reset
65 #elif PRAGMA_STRUCT_PACKPUSH
66 #pragma pack(pop)
67 #elif PRAGMA_STRUCT_PACK
68 #pragma pack()
69 #endif
70
71 ControlActionUPP wxMacLiveScrollbarActionUPP = NULL ;
72 wxControl *wxFindControlFromMacControl(ControlHandle inControl ) ;
73
74 pascal void wxMacLiveScrollbarActionProc( ControlHandle control , ControlPartCode partCode ) ;
75 pascal void wxMacLiveScrollbarActionProc( ControlHandle control , ControlPartCode partCode )
76 {
77 if ( partCode != 0)
78 {
79 wxControl* wx = (wxControl*) GetControlReference( control ) ;
80 if ( wx )
81 {
82 wx->MacHandleControlClick( control , partCode ) ;
83 }
84 }
85 }
86
87 ControlColorUPP wxMacSetupControlBackgroundUPP = NULL ;
88 ControlDefUPP wxMacControlActionUPP = NULL ;
89
90 pascal SInt32 wxMacControlDefinition(SInt16 varCode, ControlRef theControl, ControlDefProcMessage message, SInt32 param)
91 {
92
93 wxControl* wx = (wxControl*) wxFindControlFromMacControl( theControl ) ;
94 if ( wx != NULL && wx->IsKindOf( CLASSINFO( wxControl ) ) )
95 {
96 if( message == drawCntl )
97 {
98 wxMacWindowClipper clip( wx ) ;
99 return InvokeControlDefUPP( varCode , theControl , message , param , (ControlDefUPP) wx->MacGetControlAction() ) ;
100 }
101 else
102 return InvokeControlDefUPP( varCode , theControl , message , param , (ControlDefUPP) wx->MacGetControlAction() ) ;
103 }
104 return NULL ;
105 }
106
107 pascal OSStatus wxMacSetupControlBackground( ControlRef iControl , SInt16 iMessage , SInt16 iDepth , Boolean iIsColor )
108 {
109 OSStatus status = noErr ;
110 switch( iMessage )
111 {
112 case kControlMsgSetUpBackground :
113 {
114 wxControl* wx = (wxControl*) GetControlReference( iControl ) ;
115 if ( wx != NULL && wx->IsKindOf( CLASSINFO( wxControl ) ) )
116 {
117 wxDC::MacSetupBackgroundForCurrentPort( wx->MacGetBackgroundBrush() ) ;
118 // SetThemeBackground( iDepth , iIsColor ) ;
119 }
120 else
121 {
122 status = paramErr ;
123 }
124 }
125 break ;
126 default :
127 status = paramErr ;
128 break ;
129 }
130 return status ;
131 }
132
133 wxControl::wxControl()
134 {
135 m_macControl = NULL ;
136 m_macControlAction = NULL ;
137 m_macHorizontalBorder = 0 ; // additional pixels around the real control
138 m_macVerticalBorder = 0 ;
139 m_backgroundColour = *wxWHITE;
140 m_foregroundColour = *wxBLACK;
141 #if WXWIN_COMPATIBILITY
142 m_callback = 0;
143 #endif // WXWIN_COMPATIBILITY
144
145 if ( wxMacLiveScrollbarActionUPP == NULL )
146 {
147 #if defined(UNIVERSAL_INTERFACES_VERSION) && (UNIVERSAL_INTERFACES_VERSION >= 0x0340)
148 wxMacLiveScrollbarActionUPP = NewControlActionUPP( wxMacLiveScrollbarActionProc );
149 #else
150 wxMacLiveScrollbarActionUPP = NewControlActionProc( wxMacLiveScrollbarActionProc ) ;
151 #endif
152 }
153 }
154
155 bool wxControl::Create(wxWindow *parent, wxWindowID id,
156 const wxPoint& pos,
157 const wxSize& size, long style,
158 const wxValidator& validator,
159 const wxString& name)
160 {
161 m_macControl = NULL ;
162 m_macHorizontalBorder = 0 ; // additional pixels around the real control
163 m_macVerticalBorder = 0 ;
164
165 bool rval = wxWindow::Create(parent, id, pos, size, style, name);
166 if ( parent )
167 {
168 m_backgroundColour = parent->GetBackgroundColour() ;
169 m_foregroundColour = parent->GetForegroundColour() ;
170 }
171 if (rval) {
172 #if wxUSE_VALIDATORS
173 SetValidator(validator);
174 #endif
175 }
176 return rval;
177 }
178
179 wxControl::~wxControl()
180 {
181 m_isBeingDeleted = TRUE;
182 wxRemoveMacControlAssociation( this ) ;
183 // If we delete an item, we should initialize the parent panel,
184 // because it could now be invalid.
185 wxWindow *parent = GetParent() ;
186 if ( parent )
187 {
188 if (parent->GetDefaultItem() == (wxButton*) this)
189 parent->SetDefaultItem(NULL);
190 }
191 if ( (ControlHandle) m_macControl )
192 {
193 ::DisposeControl( (ControlHandle) m_macControl ) ;
194 m_macControl = NULL ;
195 }
196 }
197
198 void wxControl::SetLabel(const wxString& title)
199 {
200 m_label = wxStripMenuCodes(title) ;
201
202 if ( (ControlHandle) m_macControl )
203 {
204 Str255 maclabel ;
205 wxString label ;
206
207 if( wxApp::s_macDefaultEncodingIsPC )
208 label = wxMacMakeMacStringFromPC( m_label ) ;
209 else
210 label = m_label ;
211
212 #if TARGET_CARBON
213 c2pstrcpy( (StringPtr) maclabel , label ) ;
214 #else
215 strcpy( (char *) maclabel , label ) ;
216 c2pstr( (char *) maclabel ) ;
217 #endif
218 ::SetControlTitle( (ControlHandle) m_macControl , maclabel ) ;
219 }
220 Refresh() ;
221 }
222
223 wxSize wxControl::DoGetBestSize() const
224 {
225 Rect bestsize = { 0 , 0 , 0 , 0 } ;
226 short baselineoffset ;
227 int bestWidth, bestHeight ;
228 ::GetBestControlRect( (ControlHandle) m_macControl , &bestsize , &baselineoffset ) ;
229
230 if ( EmptyRect( &bestsize ) )
231 {
232 baselineoffset = 0;
233 bestsize.left = bestsize.top = 0 ;
234 bestsize.right = 16 ;
235 bestsize.bottom = 16 ;
236 if ( IsKindOf( CLASSINFO( wxScrollBar ) ) )
237 {
238 bestsize.bottom = 16 ;
239 }
240 else if ( IsKindOf( CLASSINFO( wxSpinButton ) ) )
241 {
242 bestsize.bottom = 24 ;
243 }
244 }
245
246 if ( IsKindOf( CLASSINFO( wxButton ) ) )
247 {
248 bestWidth = m_label.Length() * 8 + 12 ;
249 if ( bestWidth < 70 )
250 bestWidth = 70 ;
251 }
252 else if ( IsKindOf( CLASSINFO( wxStaticText ) ) )
253 {
254 bestWidth = m_label.Length() * 8 ;
255 }
256 else
257 bestWidth = bestsize.right - bestsize.left ;
258
259 bestWidth += 2 * m_macHorizontalBorder ;
260
261 bestHeight = bestsize.bottom - bestsize.top ;
262 if ( bestHeight < 10 )
263 bestHeight = 13 ;
264
265 bestHeight += 2 * m_macVerticalBorder;
266
267
268 return wxSize(bestWidth, bestHeight);
269 }
270
271 bool wxControl::ProcessCommand (wxCommandEvent & event)
272 {
273 // Tries:
274 // 1) A callback function (to become obsolete)
275 // 2) OnCommand, starting at this window and working up parent hierarchy
276 // 3) OnCommand then calls ProcessEvent to search the event tables.
277 #if WXWIN_COMPATIBILITY
278 if ( m_callback )
279 {
280 (void)(*m_callback)(this, event);
281
282 return TRUE;
283 }
284 else
285 #endif // WXWIN_COMPATIBILITY
286 {
287 return GetEventHandler()->ProcessEvent(event);
288 }
289 }
290
291 // ------------------------
292 wxList *wxWinMacControlList = NULL;
293 wxControl *wxFindControlFromMacControl(ControlHandle inControl )
294 {
295 wxNode *node = wxWinMacControlList->Find((long)inControl);
296 if (!node)
297 return NULL;
298 return (wxControl *)node->GetData();
299 }
300
301 void wxAssociateControlWithMacControl(ControlHandle inControl, wxControl *control)
302 {
303 // adding NULL WindowRef is (first) surely a result of an error and
304 // (secondly) breaks menu command processing
305 wxCHECK_RET( inControl != (ControlHandle) NULL, "attempt to add a NULL WindowRef to window list" );
306
307 if ( !wxWinMacControlList->Find((long)inControl) )
308 wxWinMacControlList->Append((long)inControl, control);
309 }
310
311 void wxRemoveMacControlAssociation(wxControl *control)
312 {
313 wxWinMacControlList->DeleteObject(control);
314 }
315
316 void wxControl::MacPreControlCreate( wxWindow *parent, wxWindowID id, wxString label ,
317 const wxPoint& pos,
318 const wxSize& size, long style,
319 const wxValidator& validator,
320 const wxString& name , WXRECTPTR outBounds , unsigned char* maclabel )
321 {
322 m_label = label ;
323 SetName(name);
324 if ( &validator )
325 SetValidator(validator);
326
327 m_windowStyle = style;
328 parent->AddChild(this);
329
330 m_backgroundColour = parent->GetBackgroundColour() ;
331 m_foregroundColour = parent->GetForegroundColour() ;
332
333 if (id == -1)
334 m_windowId = NewControlId();
335 else
336 m_windowId = id;
337
338 // These sizes will be adjusted in MacPostControlCreate
339
340 m_width = size.x ;
341 m_height = size.y ;
342 m_x = pos.x ;
343 m_y = pos.y ;
344
345 ((Rect*)outBounds)->top = -10;
346 ((Rect*)outBounds)->left = -10;
347 ((Rect*)outBounds)->bottom = 0;
348 ((Rect*)outBounds)->right = 0;
349
350 char c_text[255];
351 strcpy( c_text , label ) ;
352 if( wxApp::s_macDefaultEncodingIsPC )
353 {
354 wxMacConvertFromPCForControls( c_text ) ;
355 }
356
357 #if TARGET_CARBON
358 c2pstrcpy( (StringPtr) maclabel , c_text ) ;
359 #else
360 strcpy( (char *) maclabel , c_text ) ;
361 c2pstr( (char *) maclabel ) ;
362 #endif
363 }
364
365 void wxControl::MacPostControlCreate()
366 {
367 wxASSERT_MSG( (ControlHandle) m_macControl != NULL , "No valid mac control" ) ;
368
369 if ( IsKindOf( CLASSINFO( wxScrollBar ) ) )
370 {
371 // no font
372 }
373 else if ( !UMAHasAquaLayout() && (IsKindOf( CLASSINFO( wxStaticBox ) ) || IsKindOf( CLASSINFO( wxRadioBox ) ) || IsKindOf( CLASSINFO( wxButton ) ) ) )
374 {
375 ControlFontStyleRec controlstyle ;
376 controlstyle.flags = kControlUseFontMask ;
377 controlstyle.font = kControlFontSmallBoldSystemFont ;
378
379 ::SetControlFontStyle( (ControlHandle) m_macControl , &controlstyle ) ;
380 }
381 else
382 {
383 ControlFontStyleRec controlstyle ;
384 controlstyle.flags = kControlUseFontMask ;
385 controlstyle.font = kControlFontSmallSystemFont ;
386
387 ::SetControlFontStyle( (ControlHandle) m_macControl , &controlstyle ) ;
388 }
389 ControlHandle container = (ControlHandle) GetParent()->MacGetContainerForEmbedding() ;
390 wxASSERT_MSG( container != NULL , wxT("No valid mac container control") ) ;
391 ::EmbedControl( (ControlHandle) m_macControl , container ) ;
392 m_macControlIsShown = true ;
393
394 wxAssociateControlWithMacControl( (ControlHandle) m_macControl , this ) ;
395 if ( wxMacSetupControlBackgroundUPP == NULL )
396 {
397 wxMacSetupControlBackgroundUPP = NewControlColorUPP( wxMacSetupControlBackground ) ;
398 }
399 if ( wxMacControlActionUPP == NULL )
400 {
401 wxMacControlActionUPP = NewControlDefUPP( wxMacControlDefinition ) ;
402 }
403 // The following block of code is responsible for crashes when switching
404 // back to windows, which can be seen in the dialogs sample.
405 // It is disabled until a proper solution can be found.
406 #if 0
407 #if TARGET_CARBON
408 /*
409 only working under classic carbon
410 m_macControlAction = *(**(ControlHandle)m_macControl).contrlDefProc ;
411 (**(ControlHandle)m_macControl).contrlDefProc = (Handle) &wxMacControlActionUPP ;
412 */
413 #else
414 m_macControlAction = *(**(ControlHandle)m_macControl).contrlDefProc ;
415
416 cdefHandle cdef ;
417 cdef = (cdefHandle) NewHandle( sizeof(cdefRec) ) ;
418 if ( (**(ControlHandle)m_macControl).contrlDefProc != NULL )
419 {
420 (**cdef).instruction = 0x4EF9; /* JMP instruction */
421 (**cdef).function = (void(*)()) wxMacControlActionUPP;
422 (**(ControlHandle)m_macControl).contrlDefProc = (Handle) cdef ;
423 }
424 #endif
425 #endif
426 SetControlColorProc( (ControlHandle) m_macControl , wxMacSetupControlBackgroundUPP ) ;
427
428 // Adjust the controls size and position
429 wxPoint pos(m_x, m_y);
430 wxSize best_size( DoGetBestSize() );
431 wxSize new_size( m_width, m_height );
432
433 m_x = m_y = m_width = m_height = -1; // Forces SetSize to move/size the control
434
435 if (new_size.x == -1) {
436 new_size.x = best_size.x;
437 }
438 if (new_size.y == -1) {
439 new_size.y = best_size.y;
440 }
441
442 SetSize(pos.x, pos.y, new_size.x, new_size.y);
443
444 UMAShowControl( (ControlHandle) m_macControl ) ;
445
446 SetCursor( *wxSTANDARD_CURSOR ) ;
447
448 Refresh() ;
449 }
450
451 void wxControl::MacAdjustControlRect()
452 {
453 wxASSERT_MSG( (ControlHandle) m_macControl != NULL , wxT("No valid mac control") ) ;
454 if ( m_width == -1 || m_height == -1 )
455 {
456 Rect bestsize = { 0 , 0 , 0 , 0 } ;
457 short baselineoffset ;
458
459 ::GetBestControlRect( (ControlHandle) m_macControl , &bestsize , &baselineoffset ) ;
460
461 if ( EmptyRect( &bestsize ) )
462 {
463 baselineoffset = 0;
464 bestsize.left = bestsize.top = 0 ;
465 bestsize.right = 16 ;
466 bestsize.bottom = 16 ;
467 if ( IsKindOf( CLASSINFO( wxScrollBar ) ) )
468 {
469 bestsize.bottom = 16 ;
470 }
471 else if ( IsKindOf( CLASSINFO( wxSpinButton ) ) )
472 {
473 bestsize.bottom = 24 ;
474 }
475 }
476
477 if ( m_width == -1 )
478 {
479 if ( IsKindOf( CLASSINFO( wxButton ) ) )
480 {
481 m_width = m_label.Length() * 8 + 12 ;
482 if ( m_width < 70 )
483 m_width = 70 ;
484 }
485 else if ( IsKindOf( CLASSINFO( wxStaticText ) ) )
486 {
487 m_width = m_label.Length() * 8 ;
488 }
489 else
490 m_width = bestsize.right - bestsize.left ;
491
492 m_width += 2 * m_macHorizontalBorder + MacGetLeftBorderSize() + MacGetRightBorderSize() ;
493 }
494 if ( m_height == -1 )
495 {
496 m_height = bestsize.bottom - bestsize.top ;
497 if ( m_height < 10 )
498 m_height = 13 ;
499
500 m_height += 2 * m_macVerticalBorder + MacGetTopBorderSize() + MacGetBottomBorderSize() ;
501 }
502 MacUpdateDimensions() ;
503 // UMASizeControl( (ControlHandle) m_macControl , m_width - 2 * m_macHorizontalBorder, m_height - 2 * m_macVerticalBorder ) ;
504 }
505 }
506
507 WXWidget wxControl::MacGetContainerForEmbedding()
508 {
509 if ( m_macControl )
510 return m_macControl ;
511
512 return wxWindow::MacGetContainerForEmbedding() ;
513 }
514
515 void wxControl::MacUpdateDimensions()
516 {
517 // actually in the current systems this should never be possible, but later reparenting
518 // may become a reality
519
520 if ( (ControlHandle) m_macControl == NULL )
521 return ;
522
523 if ( GetParent() == NULL )
524 return ;
525
526 WindowRef rootwindow = (WindowRef) MacGetRootWindow() ;
527 if ( rootwindow == NULL )
528 return ;
529
530 Rect oldBounds ;
531 GetControlBounds( (ControlHandle) m_macControl , &oldBounds ) ;
532
533 int new_x = m_x + MacGetLeftBorderSize() + m_macHorizontalBorder ;
534 int new_y = m_y + MacGetTopBorderSize() + m_macVerticalBorder ;
535 int new_width = m_width - MacGetLeftBorderSize() - MacGetRightBorderSize() - 2 * m_macHorizontalBorder ;
536 int new_height = m_height - MacGetTopBorderSize() - MacGetBottomBorderSize() - 2 * m_macVerticalBorder ;
537
538 GetParent()->MacWindowToRootWindow( & new_x , & new_y ) ;
539 bool doMove = new_x != oldBounds.left || new_y != oldBounds.top ;
540 bool doResize = ( oldBounds.right - oldBounds.left ) != new_width || (oldBounds.bottom - oldBounds.top ) != new_height ;
541 if ( doMove || doResize )
542 {
543 InvalWindowRect( rootwindow, &oldBounds ) ;
544 if ( doMove )
545 {
546 UMAMoveControl( (ControlHandle) m_macControl , new_x , new_y ) ;
547 }
548 if ( doResize )
549 {
550 UMASizeControl( (ControlHandle) m_macControl , new_width , new_height ) ;
551 }
552 }
553 }
554
555 void wxControl::MacSuperChangedPosition()
556 {
557 MacUpdateDimensions() ;
558 wxWindow::MacSuperChangedPosition() ;
559 }
560
561 void wxControl::MacSuperEnabled( bool enabled )
562 {
563 Refresh(FALSE) ;
564 wxWindow::MacSuperEnabled( enabled ) ;
565 }
566
567 void wxControl::MacSuperShown( bool show )
568 {
569 if ( (ControlHandle) m_macControl )
570 {
571 if ( !show )
572 {
573 if ( m_macControlIsShown )
574 {
575 ::UMAHideControl( (ControlHandle) m_macControl ) ;
576 m_macControlIsShown = false ;
577 }
578 }
579 else
580 {
581 if ( MacIsReallyShown() && !m_macControlIsShown )
582 {
583 ::UMAShowControl( (ControlHandle) m_macControl ) ;
584 m_macControlIsShown = true ;
585 }
586 }
587 }
588
589 wxWindow::MacSuperShown( show ) ;
590 }
591
592 void wxControl::DoSetSize(int x, int y,
593 int width, int height,
594 int sizeFlags )
595 {
596 wxWindow::DoSetSize( x , y ,width , height ,sizeFlags ) ;
597 return ;
598 /*
599
600 if ( (ControlHandle) m_macControl == NULL )
601 {
602 wxWindow::DoSetSize( x , y ,width , height ,sizeFlags ) ;
603 return ;
604 }
605
606 Rect oldbounds;
607 int new_x, new_y, new_width, new_height;
608 int mac_x, mac_y;
609
610 new_x = m_x;
611 new_y = m_y;
612 new_width = m_width;
613 new_height = m_height;
614
615 if (sizeFlags & wxSIZE_ALLOW_MINUS_ONE)
616 {
617 new_x = x;
618 new_y = y;
619 new_width = width;
620 new_height = height;
621 }
622 else
623 {
624 if (x != -1) new_x = x;
625 if (y != -1) new_y = y;
626 if (width != -1) new_width = width;
627 if (height != -1) new_height = height;
628 }
629
630 if(sizeFlags & wxSIZE_AUTO)
631 {
632 wxSize size = GetBestSize();
633 if (sizeFlags & wxSIZE_AUTO_WIDTH)
634 {
635 if (width == -1) new_width = size.x;
636 }
637 if (sizeFlags & wxSIZE_AUTO_HEIGHT)
638 {
639 if (height == -1) new_height = size.y;
640 }
641 }
642 AdjustForParentClientOrigin(new_x, new_y, sizeFlags);
643
644 mac_x = new_x;
645 mac_y = new_y;
646 if(GetParent()) {
647 GetParent()->MacWindowToRootWindow(&mac_x, &mac_y);
648 }
649 GetControlBounds( (ControlHandle) m_macControl, &oldbounds);
650 oldbounds.right = oldbounds.left + m_width;
651 oldbounds.bottom = oldbounds.top + m_height;
652
653 bool doMove = false;
654 bool doResize = false;
655
656 if ( mac_x != (oldbounds.left - m_macHorizontalBorder) ||
657 mac_y != (oldbounds.top - m_macVerticalBorder) )
658 {
659 doMove = true ;
660 }
661 if ( new_width != oldbounds.right - oldbounds.left - 2 * m_macHorizontalBorder ||
662 new_height != oldbounds.bottom - oldbounds.top - 2 * m_macVerticalBorder)
663 {
664 doResize = true ;
665 }
666
667 if ( doMove || doResize )
668 {
669 Refresh() ;
670
671 // Ensure resize is within constraints
672 if ((m_minWidth != -1) && (new_width < m_minWidth)) {
673 new_width = m_minWidth;
674 }
675 if ((m_minHeight != -1) && (new_height < m_minHeight)) {
676 new_height = m_minHeight;
677 }
678 if ((m_maxWidth != -1) && (new_width > m_maxWidth)) {
679 new_width = m_maxWidth;
680 }
681 if ((m_maxHeight != -1) && (new_height > m_maxHeight)) {
682 new_height = m_maxHeight;
683 }
684
685 if ( doMove )
686 {
687 m_x = new_x;
688 m_y = new_y;
689
690 UMAMoveControl( (ControlHandle) m_macControl,
691 mac_x + m_macHorizontalBorder, mac_y + m_macVerticalBorder);
692
693 wxMoveEvent event(wxPoint(m_x, m_y), m_windowId);
694 event.SetEventObject(this);
695 GetEventHandler()->ProcessEvent(event) ;
696 }
697 if ( doResize )
698 {
699 m_width = new_width;
700 m_height = new_height;
701
702 UMASizeControl( (ControlHandle) m_macControl,
703 m_width - 2 * m_macHorizontalBorder,
704 m_height - 2 * m_macVerticalBorder ) ;
705
706
707 wxSizeEvent event(wxSize(m_width, m_height), m_windowId);
708 event.SetEventObject(this);
709 GetEventHandler()->ProcessEvent(event);
710 }
711
712 Refresh() ;
713 }
714 */
715 }
716
717 bool wxControl::Show(bool show)
718 {
719 if ( !wxWindow::Show( show ) )
720 return FALSE ;
721
722 if ( (ControlHandle) m_macControl )
723 {
724 if ( !show )
725 {
726 if ( m_macControlIsShown )
727 {
728 ::UMAHideControl( (ControlHandle) m_macControl ) ;
729 m_macControlIsShown = false ;
730 }
731 }
732 else
733 {
734 if ( MacIsReallyShown() && !m_macControlIsShown )
735 {
736 ::UMAShowControl( (ControlHandle) m_macControl ) ;
737 m_macControlIsShown = true ;
738 }
739 }
740 }
741 return TRUE ;
742 }
743
744 bool wxControl::Enable(bool enable)
745 {
746 if ( !wxWindow::Enable(enable) )
747 return FALSE;
748
749 if ( (ControlHandle) m_macControl )
750 {
751 if ( enable )
752 UMAActivateControl( (ControlHandle) m_macControl ) ;
753 else
754 UMADeactivateControl( (ControlHandle) m_macControl ) ;
755 }
756 return TRUE ;
757 }
758
759 void wxControl::Refresh(bool eraseBack, const wxRect *rect)
760 {
761 wxWindow::Refresh( eraseBack , rect ) ;
762 }
763
764 void wxControl::MacRedrawControl()
765 {
766 if ( (ControlHandle) m_macControl && MacGetRootWindow() && m_macControlIsShown )
767 {
768 wxClientDC dc(this) ;
769 wxMacPortSetter helper(&dc) ;
770 wxMacWindowClipper clipper(this) ;
771 wxDC::MacSetupBackgroundForCurrentPort( MacGetBackgroundBrush() ) ;
772 UMADrawControl( (ControlHandle) m_macControl ) ;
773 }
774 }
775
776 void wxControl::OnPaint(wxPaintEvent& event)
777 {
778 if ( (ControlHandle) m_macControl )
779 {
780 wxPaintDC dc(this) ;
781 wxMacPortSetter helper(&dc) ;
782 wxMacWindowClipper clipper(this) ;
783 wxDC::MacSetupBackgroundForCurrentPort( MacGetBackgroundBrush() ) ;
784 UMADrawControl( (ControlHandle) m_macControl ) ;
785 }
786 else
787 {
788 event.Skip() ;
789 }
790 }
791 void wxControl::OnEraseBackground(wxEraseEvent& event)
792 {
793 wxWindow::OnEraseBackground( event ) ;
794 }
795
796
797 void wxControl::OnKeyDown( wxKeyEvent &event )
798 {
799 if ( (ControlHandle) m_macControl == NULL )
800 return ;
801
802 EventRecord *ev = (EventRecord*) wxTheApp->MacGetCurrentEvent() ;
803 short keycode ;
804 short keychar ;
805 keychar = short(ev->message & charCodeMask);
806 keycode = short(ev->message & keyCodeMask) >> 8 ;
807
808 ::HandleControlKey( (ControlHandle) m_macControl , keycode , keychar , ev->modifiers ) ;
809 }
810
811 void wxControl::OnMouseEvent( wxMouseEvent &event )
812 {
813 if ( (ControlHandle) m_macControl == NULL )
814 {
815 event.Skip() ;
816 return ;
817 }
818
819 if (event.GetEventType() == wxEVT_LEFT_DOWN || event.GetEventType() == wxEVT_LEFT_DCLICK )
820 {
821
822 int x = event.m_x ;
823 int y = event.m_y ;
824
825 MacClientToRootWindow( &x , &y ) ;
826
827 ControlHandle control ;
828 Point localwhere ;
829 SInt16 controlpart ;
830
831 localwhere.h = x ;
832 localwhere.v = y ;
833
834 short modifiers = 0;
835
836 if ( !event.m_leftDown && !event.m_rightDown )
837 modifiers |= btnState ;
838
839 if ( event.m_shiftDown )
840 modifiers |= shiftKey ;
841
842 if ( event.m_controlDown )
843 modifiers |= controlKey ;
844
845 if ( event.m_altDown )
846 modifiers |= optionKey ;
847
848 if ( event.m_metaDown )
849 modifiers |= cmdKey ;
850 {
851 control = (ControlHandle) m_macControl ;
852 if ( control && ::IsControlActive( control ) )
853 {
854 {
855 controlpart = ::HandleControlClick( control , localwhere , modifiers , (ControlActionUPP) -1 ) ;
856 wxTheApp->s_lastMouseDown = 0 ;
857 if ( control && controlpart != kControlNoPart &&
858 ! IsKindOf( CLASSINFO( wxScrollBar ) )
859 ) // otherwise we will get the event twice for scrollbar
860 {
861 MacHandleControlClick( control , controlpart ) ;
862 }
863 }
864 }
865 }
866 }
867 }
868
869 bool wxControl::MacCanFocus() const
870 {
871 { if ( (ControlHandle) m_macControl == NULL )
872 return true ;
873 else
874 return false ;
875 }
876 }
877
878 void wxControl::MacHandleControlClick( WXWidget control , wxInt16 controlpart )
879 {
880 wxASSERT_MSG( (ControlHandle) m_macControl != NULL , "No valid mac control" ) ;
881 }
882