]>
Commit | Line | Data |
---|---|---|
1 | /////////////////////////////////////////////////////////////////////////////// | |
2 | // Name: checklst.cpp | |
3 | // Purpose: implementation of wxCheckListBox class | |
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 | // ============================================================================ | |
13 | // headers & declarations | |
14 | // ============================================================================ | |
15 | ||
16 | #ifdef __GNUG__ | |
17 | #pragma implementation "checklst.h" | |
18 | #endif | |
19 | ||
20 | #include "wx/defs.h" | |
21 | ||
22 | #if wxUSE_CHECKLISTBOX | |
23 | ||
24 | #include "wx/checklst.h" | |
25 | #include "wx/arrstr.h" | |
26 | ||
27 | #include "wx/mac/uma.h" | |
28 | #include <Appearance.h> | |
29 | ||
30 | // ============================================================================ | |
31 | // implementation of wxCheckListBox | |
32 | // ============================================================================ | |
33 | ||
34 | IMPLEMENT_DYNAMIC_CLASS(wxCheckListBox, wxListBox) | |
35 | ||
36 | BEGIN_EVENT_TABLE(wxCheckListBox, wxListBox) | |
37 | END_EVENT_TABLE() | |
38 | ||
39 | const short kTextColumnId = 1024 ; | |
40 | const short kCheckboxColumnId = 1025 ; | |
41 | ||
42 | // new databrowser based version | |
43 | ||
44 | // Listbox item | |
45 | void wxCheckListBox::Init() | |
46 | { | |
47 | } | |
48 | ||
49 | bool wxCheckListBox::Create(wxWindow *parent, | |
50 | wxWindowID id, | |
51 | const wxPoint &pos, | |
52 | const wxSize &size, | |
53 | const wxArrayString& choices, | |
54 | long style, | |
55 | const wxValidator& validator, | |
56 | const wxString &name) | |
57 | { | |
58 | wxCArrayString chs(choices); | |
59 | ||
60 | return Create(parent, id, pos, size, chs.GetCount(), chs.GetStrings(), | |
61 | style, validator, name); | |
62 | } | |
63 | ||
64 | #if TARGET_API_MAC_OSX | |
65 | static pascal void DataBrowserItemNotificationProc(ControlRef browser, DataBrowserItemID itemID, | |
66 | DataBrowserItemNotification message, DataBrowserItemDataRef itemData) | |
67 | #else | |
68 | static pascal void DataBrowserItemNotificationProc(ControlRef browser, DataBrowserItemID itemID, | |
69 | DataBrowserItemNotification message) | |
70 | #endif | |
71 | { | |
72 | long ref = GetControlReference( browser ) ; | |
73 | if ( ref ) | |
74 | { | |
75 | wxCheckListBox* list = wxDynamicCast( (wxObject*) ref , wxCheckListBox ) ; | |
76 | int i = itemID - 1 ; | |
77 | if (i >= 0 && i < list->GetCount() ) | |
78 | { | |
79 | bool trigger = false ; | |
80 | wxCommandEvent event( | |
81 | wxEVT_COMMAND_LISTBOX_SELECTED, list->GetId() ); | |
82 | switch( message ) | |
83 | { | |
84 | case kDataBrowserItemDeselected : | |
85 | if ( list->HasMultipleSelection() ) | |
86 | trigger = true ; | |
87 | break ; | |
88 | case kDataBrowserItemSelected : | |
89 | trigger = true ; | |
90 | break ; | |
91 | case kDataBrowserItemDoubleClicked : | |
92 | event.SetEventType(wxEVT_COMMAND_LISTBOX_DOUBLECLICKED) ; | |
93 | trigger = true ; | |
94 | break ; | |
95 | default : | |
96 | break ; | |
97 | } | |
98 | ||
99 | if ( trigger ) | |
100 | { | |
101 | event.SetEventObject( list ); | |
102 | if ( list->HasClientObjectData() ) | |
103 | event.SetClientObject( list->GetClientObject(i) ); | |
104 | else if ( list->HasClientUntypedData() ) | |
105 | event.SetClientData( list->GetClientData(i) ); | |
106 | event.SetString( list->GetString(i) ); | |
107 | event.SetInt(i) ; | |
108 | event.SetExtraLong( list->HasMultipleSelection() ? message == kDataBrowserItemSelected : TRUE ); | |
109 | wxPostEvent( list->GetEventHandler() , event ) ; | |
110 | // direct notification is not always having the listbox GetSelection() having in synch with event | |
111 | // list->GetEventHandler()->ProcessEvent(event) ; | |
112 | } | |
113 | } | |
114 | } | |
115 | } | |
116 | ||
117 | ||
118 | static pascal OSStatus ListBoxGetSetItemData(ControlRef browser, | |
119 | DataBrowserItemID itemID, DataBrowserPropertyID property, | |
120 | DataBrowserItemDataRef itemData, Boolean changeValue) | |
121 | { | |
122 | OSStatus err = errDataBrowserPropertyNotSupported; | |
123 | ||
124 | if ( ! changeValue ) | |
125 | { | |
126 | switch (property) | |
127 | { | |
128 | ||
129 | case kTextColumnId: | |
130 | { | |
131 | long ref = GetControlReference( browser ) ; | |
132 | if ( ref ) | |
133 | { | |
134 | wxCheckListBox* list = wxDynamicCast( (wxObject*) ref , wxCheckListBox ) ; | |
135 | int i = itemID - 1 ; | |
136 | if (i >= 0 && i < list->GetCount() ) | |
137 | { | |
138 | wxMacCFStringHolder cf( list->GetString(i) , list->GetFont().GetEncoding() ) ; | |
139 | verify_noerr( ::SetDataBrowserItemDataText( itemData , cf ) ) ; | |
140 | err = noErr ; | |
141 | } | |
142 | } | |
143 | } | |
144 | break; | |
145 | case kCheckboxColumnId : | |
146 | { | |
147 | long ref = GetControlReference( browser ) ; | |
148 | if ( ref ) | |
149 | { | |
150 | wxCheckListBox* list = wxDynamicCast( (wxObject*) ref , wxCheckListBox ) ; | |
151 | int i = itemID - 1 ; | |
152 | if (i >= 0 && i < list->GetCount() ) | |
153 | { | |
154 | verify_noerr( ::SetDataBrowserItemDataButtonValue( itemData , list->IsChecked( i ) ? kThemeButtonOn : kThemeButtonOff ) ) ; | |
155 | err = noErr ; | |
156 | } | |
157 | } | |
158 | } | |
159 | break ; | |
160 | case kDataBrowserItemIsEditableProperty: | |
161 | { | |
162 | err = ::SetDataBrowserItemDataBooleanValue(itemData, true); | |
163 | } | |
164 | break; | |
165 | ||
166 | default: | |
167 | break; | |
168 | } | |
169 | } | |
170 | else | |
171 | { | |
172 | switch( property ) | |
173 | { | |
174 | case kCheckboxColumnId : | |
175 | { | |
176 | long ref = GetControlReference( browser ) ; | |
177 | if ( ref ) | |
178 | { | |
179 | wxCheckListBox* list = wxDynamicCast( (wxObject*) ref , wxCheckListBox ) ; | |
180 | int i = itemID - 1 ; | |
181 | if (i >= 0 && i < list->GetCount() ) | |
182 | { | |
183 | // we have to change this behind the back, since Check() would be triggering another update round | |
184 | bool newVal = !list->IsChecked( i ) ; | |
185 | verify_noerr( ::SetDataBrowserItemDataButtonValue( itemData , newVal ? kThemeButtonOn : kThemeButtonOff ) ) ; | |
186 | err = noErr ; | |
187 | list->m_checks[ i ] = newVal ; | |
188 | ||
189 | wxCommandEvent event(wxEVT_COMMAND_CHECKLISTBOX_TOGGLED, list->GetId()); | |
190 | event.SetInt(i); | |
191 | event.SetEventObject(list); | |
192 | list->GetEventHandler()->ProcessEvent(event); | |
193 | } | |
194 | } | |
195 | ||
196 | } | |
197 | break ; | |
198 | ||
199 | default : | |
200 | break ; | |
201 | } | |
202 | } | |
203 | ||
204 | return err; | |
205 | } | |
206 | bool wxCheckListBox::Create(wxWindow *parent, wxWindowID id, | |
207 | const wxPoint& pos, | |
208 | const wxSize& size, | |
209 | int n, const wxString choices[], | |
210 | long style, | |
211 | const wxValidator& validator, | |
212 | const wxString& name) | |
213 | { | |
214 | m_macIsUserPane = FALSE ; | |
215 | ||
216 | wxASSERT_MSG( !(style & wxLB_MULTIPLE) || !(style & wxLB_EXTENDED), | |
217 | _T("only one of listbox selection modes can be specified") ); | |
218 | ||
219 | if ( !wxListBoxBase::Create(parent, id, pos, size, style & ~(wxHSCROLL|wxVSCROLL), validator, name) ) | |
220 | return false; | |
221 | ||
222 | m_noItems = 0 ; // this will be increased by our append command | |
223 | m_selected = 0; | |
224 | ||
225 | Rect bounds = wxMacGetBoundsForControl( this , pos , size ) ; | |
226 | ||
227 | m_peer = new wxMacControl() ; | |
228 | verify_noerr( ::CreateDataBrowserControl( MAC_WXHWND(parent->MacGetTopLevelWindowRef()), &bounds, kDataBrowserListView , m_peer->GetControlRefAddr() ) ); | |
229 | ||
230 | ||
231 | DataBrowserSelectionFlags options = kDataBrowserDragSelect ; | |
232 | if ( style & wxLB_MULTIPLE ) | |
233 | { | |
234 | options += kDataBrowserAlwaysExtendSelection + kDataBrowserCmdTogglesSelection ; | |
235 | } | |
236 | else if ( style & wxLB_EXTENDED ) | |
237 | { | |
238 | // default behaviour | |
239 | } | |
240 | else | |
241 | { | |
242 | options += kDataBrowserSelectOnlyOne ; | |
243 | } | |
244 | verify_noerr(m_peer->SetSelectionFlags( options ) ); | |
245 | ||
246 | DataBrowserListViewColumnDesc columnDesc ; | |
247 | columnDesc.headerBtnDesc.titleOffset = 0; | |
248 | columnDesc.headerBtnDesc.version = kDataBrowserListViewLatestHeaderDesc; | |
249 | ||
250 | columnDesc.headerBtnDesc.btnFontStyle.flags = | |
251 | kControlUseFontMask | kControlUseJustMask; | |
252 | ||
253 | columnDesc.headerBtnDesc.btnContentInfo.contentType = kControlNoContent; | |
254 | columnDesc.headerBtnDesc.btnFontStyle.just = teFlushDefault; | |
255 | columnDesc.headerBtnDesc.btnFontStyle.font = kControlFontViewSystemFont; | |
256 | columnDesc.headerBtnDesc.btnFontStyle.style = normal; | |
257 | columnDesc.headerBtnDesc.titleString = NULL ; // CFSTR( "" ); | |
258 | ||
259 | // check column | |
260 | ||
261 | columnDesc.headerBtnDesc.minimumWidth = 30 ; | |
262 | columnDesc.headerBtnDesc.maximumWidth = 30; | |
263 | ||
264 | columnDesc.propertyDesc.propertyID = kCheckboxColumnId; | |
265 | columnDesc.propertyDesc.propertyType = kDataBrowserCheckboxType; | |
266 | columnDesc.propertyDesc.propertyFlags = kDataBrowserPropertyIsMutable | kDataBrowserTableViewSelectionColumn | | |
267 | kDataBrowserDefaultPropertyFlags; | |
268 | verify_noerr( m_peer->AddListViewColumn( &columnDesc, kDataBrowserListViewAppendColumn) ) ; | |
269 | ||
270 | // text column | |
271 | ||
272 | columnDesc.headerBtnDesc.minimumWidth = 0; | |
273 | columnDesc.headerBtnDesc.maximumWidth = 10000; | |
274 | ||
275 | columnDesc.propertyDesc.propertyID = kTextColumnId; | |
276 | columnDesc.propertyDesc.propertyType = kDataBrowserTextType; | |
277 | columnDesc.propertyDesc.propertyFlags = kDataBrowserTableViewSelectionColumn | |
278 | #if MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2 | |
279 | | kDataBrowserListViewTypeSelectColumn | |
280 | #endif | |
281 | ; | |
282 | ||
283 | ||
284 | verify_noerr( m_peer->AddListViewColumn( &columnDesc, kDataBrowserListViewAppendColumn) ) ; | |
285 | ||
286 | verify_noerr( m_peer->AutoSizeListViewColumns() ) ; | |
287 | verify_noerr( m_peer->SetHasScrollBars( false , true ) ) ; | |
288 | verify_noerr( m_peer->SetTableViewHiliteStyle( kDataBrowserTableViewFillHilite ) ) ; | |
289 | verify_noerr( m_peer->SetListViewHeaderBtnHeight(0 ) ) ; | |
290 | ||
291 | DataBrowserCallbacks callbacks ; | |
292 | callbacks.version = kDataBrowserLatestCallbacks; | |
293 | InitDataBrowserCallbacks(&callbacks); | |
294 | callbacks.u.v1.itemDataCallback = NewDataBrowserItemDataUPP(ListBoxGetSetItemData); | |
295 | callbacks.u.v1.itemNotificationCallback = | |
296 | #if TARGET_API_MAC_OSX | |
297 | (DataBrowserItemNotificationUPP) NewDataBrowserItemNotificationWithItemUPP(DataBrowserItemNotificationProc) ; | |
298 | #else | |
299 | NewDataBrowserItemNotificationUPP(DataBrowserItemNotificationProc) ; | |
300 | #endif | |
301 | m_peer->SetCallbacks( &callbacks); | |
302 | ||
303 | MacPostControlCreate(pos,size) ; | |
304 | ||
305 | for ( int i = 0 ; i < n ; i++ ) | |
306 | { | |
307 | Append( choices[i] ) ; | |
308 | } | |
309 | ||
310 | SetBestSize(size); // Needed because it is a wxControlWithItems | |
311 | ||
312 | return TRUE; | |
313 | } | |
314 | ||
315 | // ---------------------------------------------------------------------------- | |
316 | // wxCheckListBox functions | |
317 | // ---------------------------------------------------------------------------- | |
318 | ||
319 | bool wxCheckListBox::IsChecked(size_t item) const | |
320 | { | |
321 | wxCHECK_MSG( item < m_checks.GetCount(), FALSE, | |
322 | _T("invalid index in wxCheckListBox::IsChecked") ); | |
323 | ||
324 | return m_checks[item] != 0; | |
325 | } | |
326 | ||
327 | void wxCheckListBox::Check(size_t item, bool check) | |
328 | { | |
329 | wxCHECK_RET( item < m_checks.GetCount(), | |
330 | _T("invalid index in wxCheckListBox::Check") ); | |
331 | ||
332 | bool isChecked = m_checks[item] != 0; | |
333 | if ( check != isChecked ) | |
334 | { | |
335 | m_checks[item] = check; | |
336 | UInt32 id = item + 1 ; | |
337 | verify_noerr( m_peer->UpdateItems(kDataBrowserNoItem , 1 , &id , kDataBrowserItemNoProperty , kDataBrowserItemNoProperty ) ) ; | |
338 | } | |
339 | } | |
340 | ||
341 | // ---------------------------------------------------------------------------- | |
342 | // methods forwarded to wxCheckListBox | |
343 | // ---------------------------------------------------------------------------- | |
344 | ||
345 | void wxCheckListBox::Delete(int n) | |
346 | { | |
347 | wxCHECK_RET( n < GetCount(), _T("invalid index in wxCheckListBox::Delete") ); | |
348 | ||
349 | wxListBox::Delete(n); | |
350 | ||
351 | m_checks.RemoveAt(n); | |
352 | } | |
353 | ||
354 | int wxCheckListBox::DoAppend(const wxString& item) | |
355 | { | |
356 | int pos = wxListBox::DoAppend(item); | |
357 | ||
358 | // the item is initially unchecked | |
359 | m_checks.Insert(FALSE, pos); | |
360 | ||
361 | return pos; | |
362 | } | |
363 | ||
364 | void wxCheckListBox::DoInsertItems(const wxArrayString& items, int pos) | |
365 | { | |
366 | wxListBox::DoInsertItems(items, pos); | |
367 | ||
368 | size_t count = items.GetCount(); | |
369 | for ( size_t n = 0; n < count; n++ ) | |
370 | { | |
371 | m_checks.Insert(FALSE, pos + n); | |
372 | } | |
373 | } | |
374 | ||
375 | void wxCheckListBox::DoSetItems(const wxArrayString& items, void **clientData) | |
376 | { | |
377 | // call it first as it does DoClear() | |
378 | wxListBox::DoSetItems(items, clientData); | |
379 | ||
380 | size_t count = items.GetCount(); | |
381 | for ( size_t n = 0; n < count; n++ ) | |
382 | { | |
383 | m_checks.Add(FALSE); | |
384 | } | |
385 | } | |
386 | ||
387 | void wxCheckListBox::DoClear() | |
388 | { | |
389 | m_checks.Empty(); | |
390 | } | |
391 | ||
392 | #endif // wxUSE_CHECKLISTBOX |