]> git.saurik.com Git - wxWidgets.git/blob - src/mac/carbon/tglbtn.cpp
applied patch 923858 (fixes crash in zlib streams)
[wxWidgets.git] / src / mac / carbon / tglbtn.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/mac/tglbtn.cpp
3 // Purpose: Definition of the wxToggleButton class, which implements a
4 // toggle button under wxMac.
5 // Author: Stefan Csomor
6 // Modified by:
7 // Created: 08.02.01
8 // RCS-ID: $Id$
9 // Copyright: (c) 2000 Johnny C. Norris II
10 // License: Rocketeer license
11 /////////////////////////////////////////////////////////////////////////////
12
13 // ============================================================================
14 // declatations
15 // ============================================================================
16
17 // ----------------------------------------------------------------------------
18 // headers
19 // ----------------------------------------------------------------------------
20
21 #ifdef __GNUG__
22 #pragma implementation "button.h"
23 #endif
24
25 #include "wx/defs.h"
26 #include "wx/tglbtn.h"
27
28 #if wxUSE_TOGGLEBTN
29
30 #include "wx/mac/uma.h"
31 // Button
32
33 static const int kMacOSXHorizontalBorder = 2 ;
34 static const int kMacOSXVerticalBorder = 4 ;
35
36 // ----------------------------------------------------------------------------
37 // macros
38 // ----------------------------------------------------------------------------
39
40 IMPLEMENT_DYNAMIC_CLASS(wxToggleButton, wxControl)
41 DEFINE_EVENT_TYPE(wxEVT_COMMAND_TOGGLEBUTTON_CLICKED)
42
43 // ============================================================================
44 // implementation
45 // ============================================================================
46
47 // ----------------------------------------------------------------------------
48 // wxToggleButton
49 // ----------------------------------------------------------------------------
50
51 // Single check box item
52 bool wxToggleButton::Create(wxWindow *parent, wxWindowID id,
53 const wxString& label,
54 const wxPoint& pos,
55 const wxSize& size, long style,
56 const wxValidator& validator,
57 const wxString& name)
58 {
59 m_macIsUserPane = FALSE ;
60
61 if ( !wxControl::Create(parent, id, pos, size, style, validator, name) )
62 return false;
63
64 m_label = label ;
65
66 Rect bounds = wxMacGetBoundsForControl( this , pos , size ) ;
67 m_macControl = (WXWidget) ::NewControl( MAC_WXHWND(parent->MacGetTopLevelWindowRef()) , &bounds , "\p" , true , 0 , kControlBehaviorToggles , 1,
68 kControlBevelButtonNormalBevelProc , (long) this ) ;
69 wxASSERT_MSG( (ControlRef) m_macControl != NULL , wxT("No valid mac control") ) ;
70
71 MacPostControlCreate(pos,size) ;
72
73 return TRUE;
74 }
75
76 wxSize wxToggleButton::DoGetBestSize() const
77 {
78 int wBtn = 70 ;
79 int hBtn = 20 ;
80
81 int lBtn = m_label.Length() * 8 + 12 ;
82 if (lBtn > wBtn)
83 wBtn = lBtn;
84
85 return wxSize ( wBtn , hBtn ) ;
86 }
87
88 void wxToggleButton::SetValue(bool val)
89 {
90 ::SetControl32BitValue( (ControlRef) m_macControl , val ) ;
91 }
92
93 bool wxToggleButton::GetValue() const
94 {
95 return GetControl32BitValue( (ControlRef) m_macControl ) ;
96 }
97
98 void wxToggleButton::Command(wxCommandEvent & event)
99 {
100 SetValue((event.GetInt() != 0));
101 ProcessCommand(event);
102 }
103
104 void wxToggleButton::MacHandleControlClick( WXWidget WXUNUSED(control) , wxInt16 controlpart , bool WXUNUSED(mouseStillDown) )
105 {
106 if ( controlpart != kControlNoPart )
107 {
108 wxCommandEvent event(wxEVT_COMMAND_TOGGLEBUTTON_CLICKED, m_windowId);
109 event.SetInt(GetValue());
110 event.SetEventObject(this);
111 ProcessCommand(event);
112 }
113 }
114
115 #endif // wxUSE_TOGGLEBTN
116