| 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 |