]> git.saurik.com Git - wxWidgets.git/blob - src/mac/spinbutt.cpp
fix build for borland 5.0
[wxWidgets.git] / src / mac / spinbutt.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: spinbutt.cpp
3 // Purpose: wxSpinButton
4 // Author: Stefan Csomor
5 // Modified by:
6 // Created: 1998-01-01
7 // RCS-ID: $Id$
8 // Copyright: (c) Stefan Csomor
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 #ifdef __GNUG__
13 #pragma implementation "spinbutt.h"
14 #pragma implementation "spinbuttbase.h"
15 #endif
16
17 #include "wx/spinbutt.h"
18 #include "wx/mac/uma.h"
19
20 // ============================================================================
21 // implementation
22 // ============================================================================
23
24 // ----------------------------------------------------------------------------
25 // wxWin macros
26 // ----------------------------------------------------------------------------
27
28 #if !USE_SHARED_LIBRARY
29 IMPLEMENT_DYNAMIC_CLASS(wxSpinButton, wxControl)
30 IMPLEMENT_DYNAMIC_CLASS(wxSpinEvent, wxScrollEvent)
31 #endif
32
33 wxSpinButton::wxSpinButton()
34 : wxSpinButtonBase()
35 {
36 }
37
38 bool wxSpinButton::Create(wxWindow *parent, wxWindowID id, const wxPoint& pos, const wxSize& size,
39 long style, const wxString& name)
40 {
41 m_min = 0;
42 m_max = 100;
43
44 if (!parent)
45 return FALSE;
46
47 Rect bounds ;
48 Str255 title ;
49
50 MacPreControlCreate( parent , id , "" , pos , size ,style,*( (wxValidator*) NULL ) , name , &bounds , title ) ;
51
52 m_macControl = ::NewControl( MAC_WXHWND(parent->MacGetRootWindow()) , &bounds , title , false , 0 , 0 , 100,
53 kControlLittleArrowsProc , (long) this ) ;
54
55 wxASSERT_MSG( (ControlHandle) m_macControl != NULL , "No valid mac control" ) ;
56
57 MacPostControlCreate() ;
58
59 return TRUE;
60 }
61
62 wxSpinButton::~wxSpinButton()
63 {
64 }
65
66 // Attributes
67 ////////////////////////////////////////////////////////////////////////////
68
69 int wxSpinButton::GetMin() const
70 {
71 return m_min;
72 }
73
74 int wxSpinButton::GetMax() const
75 {
76 return m_max;
77 }
78
79 int wxSpinButton::GetValue() const
80 {
81 return m_value;
82 }
83
84 void wxSpinButton::SetValue(int val)
85 {
86 m_value = val ;
87 }
88
89 void wxSpinButton::SetRange(int minVal, int maxVal)
90 {
91 m_min = minVal;
92 m_max = maxVal;
93 SetControl32BitMaximum( (ControlHandle) m_macControl , maxVal ) ;
94 SetControl32BitMinimum((ControlHandle) m_macControl , minVal ) ;
95 }
96
97 void wxSpinButton::MacHandleValueChanged( int inc )
98 {
99
100 wxEventType scrollEvent = wxEVT_NULL;
101 int oldValue = m_value ;
102
103 m_value = oldValue + inc;
104
105 if (m_value < m_min)
106 {
107 if ( m_windowStyle & wxSP_WRAP )
108 m_value = m_max;
109 else
110 m_value = m_min;
111 }
112
113 if (m_value > m_max)
114 {
115 if ( m_windowStyle & wxSP_WRAP )
116 m_value = m_min;
117 else
118 m_value = m_max;
119 }
120
121 if ( m_value - oldValue == -1 )
122 scrollEvent = wxEVT_SCROLL_LINEDOWN ;
123 else if ( m_value - oldValue == 1 )
124 scrollEvent = wxEVT_SCROLL_LINEUP ;
125 else
126 scrollEvent = wxEVT_SCROLL_THUMBTRACK ;
127
128 wxSpinEvent event(scrollEvent, m_windowId);
129
130 event.SetPosition(m_value);
131 event.SetEventObject( this );
132 if ((GetEventHandler()->ProcessEvent( event )) &&
133 !event.IsAllowed() )
134 {
135 m_value = oldValue ;
136 }
137 SetControl32BitValue( (ControlHandle) m_macControl , m_value ) ;
138
139 /* always send a thumbtrack event */
140 if (scrollEvent != wxEVT_SCROLL_THUMBTRACK)
141 {
142 scrollEvent = wxEVT_SCROLL_THUMBTRACK;
143 wxSpinEvent event2( scrollEvent, GetId());
144 event2.SetPosition( m_value );
145 event2.SetEventObject( this );
146 GetEventHandler()->ProcessEvent( event2 );
147 }
148 }
149
150 void wxSpinButton::MacHandleControlClick( WXWidget control , wxInt16 controlpart )
151 {
152 if ( (ControlHandle) m_macControl == NULL )
153 return ;
154
155 int nScrollInc = 0;
156
157 switch( controlpart )
158 {
159 case kControlUpButtonPart :
160 nScrollInc = 1;
161 break ;
162 case kControlDownButtonPart :
163 nScrollInc = -1;
164 break ;
165 }
166 MacHandleValueChanged( nScrollInc ) ;
167
168 }
169
170 // ----------------------------------------------------------------------------
171 // size calculation
172 // ----------------------------------------------------------------------------
173
174 wxSize wxSpinButton::DoGetBestSize() const
175 {
176 return wxSize(16,24);
177 }
178