src/mac/carbon/listbox.cpp

   1 ///////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/mac/carbon/listbox.cpp
   3 // Purpose:     wxListBox
   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 #include "wx/wxprec.h"
  13
  14 #if wxUSE_LISTBOX
  15
  16 #include "wx/listbox.h"
  17
  18 #ifndef WX_PRECOMP
  19     #include "wx/dynarray.h"
  20     #include "wx/log.h"
  21     #include "wx/app.h"
  22     #include "wx/utils.h"
  23 #endif
  24
  25 #include "wx/button.h"
  26 #include "wx/settings.h"
  27 #include "wx/toplevel.h"
  28
  29 IMPLEMENT_DYNAMIC_CLASS(wxListBox, wxControl)
  30
  31 BEGIN_EVENT_TABLE(wxListBox, wxControl)
  32 END_EVENT_TABLE()
  33
  34 #include "wx/mac/uma.h"
  35 #include "wx/dynarray.h"
  36 #include "wx/arrstr.h"
  37
  38 // ============================================================================
  39 // list box control implementation
  40 // ============================================================================
  41
  42 wxListBox::wxListBox()
  43 {
  44 }
  45
  46 bool wxListBox::Create(
  47     wxWindow *parent,
  48     wxWindowID id,
  49     const wxPoint& pos,
  50     const wxSize& size,
  51     const wxArrayString& choices,
  52     long style,
  53     const wxValidator& validator,
  54     const wxString& name )
  55 {
  56     wxCArrayString chs(choices);
  57
  58     return Create(
  59         parent, id, pos, size, chs.GetCount(), chs.GetStrings(),
  60         style, validator, name );
  61 }
  62
  63 wxMacListControl* wxListBox::GetPeer() const
  64 {
  65     return dynamic_cast<wxMacListControl*>(m_peer);
  66 }
  67
  68 bool wxListBox::Create(
  69     wxWindow *parent,
  70     wxWindowID id,
  71     const wxPoint& pos,
  72     const wxSize& size,
  73     int n,
  74     const wxString choices[],
  75     long style,
  76     const wxValidator& validator,
  77     const wxString& name )
  78 {
  79     m_macIsUserPane = false;
  80
  81     wxASSERT_MSG( !(style & wxLB_MULTIPLE) || !(style & wxLB_EXTENDED),
  82                   wxT("only a single listbox selection mode can be specified") );
  83
  84     if ( !wxListBoxBase::Create( parent, id, pos, size, style & ~(wxHSCROLL | wxVSCROLL), validator, name ) )
  85         return false;
  86
  87     wxMacDataBrowserListControl* control = new wxMacDataBrowserListControl( this, pos, size, style );
  88     control->SetClientDataType( m_clientDataItemsType );
  89     m_peer = control;
  90
  91     MacPostControlCreate( pos, size );
  92
  93     InsertItems( n, choices, 0 );
  94
  95    // Needed because it is a wxControlWithItems
  96     SetBestSize( size );
  97
  98     return true;
  99 }
 100
 101 wxListBox::~wxListBox()
 102 {
 103     FreeData();
 104     m_peer->SetReference( 0 );
 105 }
 106
 107 void wxListBox::FreeData()
 108 {
 109     GetPeer()->MacClear();
 110 }
 111
 112 void wxListBox::DoSetFirstItem(int n)
 113 {
 114     GetPeer()->MacScrollTo( n );
 115 }
 116
 117 void wxListBox::EnsureVisible(int n)
 118 {
 119     GetPeer()->MacScrollTo( n );
 120 }
 121
 122 void wxListBox::Delete(unsigned int n)
 123 {
 124     wxCHECK_RET( IsValid(n), wxT("invalid index in wxListBox::Delete") );
 125
 126     GetPeer()->MacDelete( n );
 127 }
 128
 129 int wxListBox::DoAppend(const wxString& item)
 130 {
 131     InvalidateBestSize();
 132
 133     return GetPeer()->MacAppend( item );
 134 }
 135
 136 void wxListBox::DoSetItems(const wxArrayString& choices, void** clientData)
 137 {
 138     Clear();
 139
 140     unsigned int n = choices.GetCount();
 141
 142     for ( size_t i = 0; i < n; ++i )
 143     {
 144         if ( clientData )
 145         {
 146             Append( choices[i], clientData[i] );
 147         }
 148         else
 149             Append( choices[i] );
 150     }
 151
 152 }
 153
 154 int wxListBox::FindString(const wxString& s, bool bCase) const
 155 {
 156     for ( size_t i = 0; i < GetCount(); ++ i )
 157     {
 158         if (s.IsSameAs( GetString( i ), bCase) )
 159             return (int)i;
 160     }
 161
 162     return wxNOT_FOUND;
 163 }
 164
 165 void wxListBox::Clear()
 166 {
 167     FreeData();
 168 }
 169
 170 void wxListBox::DoSetSelection(int n, bool select)
 171 {
 172     wxCHECK_RET( n == wxNOT_FOUND || IsValid(n),
 173         wxT("invalid index in wxListBox::SetSelection") );
 174
 175     if ( n == wxNOT_FOUND )
 176         GetPeer()->MacDeselectAll();
 177     else
 178         GetPeer()->MacSetSelection( n, select );
 179 }
 180
 181 bool wxListBox::IsSelected(int n) const
 182 {
 183     wxCHECK_MSG( IsValid(n), false, wxT("invalid index in wxListBox::Selected") );
 184
 185     return GetPeer()->MacIsSelected( n );
 186 }
 187
 188 void *wxListBox::DoGetItemClientData(unsigned int n) const
 189 {
 190     wxCHECK_MSG( IsValid(n), NULL, wxT("invalid index in wxListBox::GetClientData"));
 191     return GetPeer()->MacGetClientData( n );
 192 }
 193
 194 wxClientData *wxListBox::DoGetItemClientObject(unsigned int n) const
 195 {
 196     return (wxClientData*)DoGetItemClientData( n );
 197 }
 198
 199 void wxListBox::DoSetItemClientData(unsigned int n, void *clientData)
 200 {
 201     wxCHECK_RET( IsValid(n), wxT("invalid index in wxListBox::SetClientData") );
 202     GetPeer()->MacSetClientData( n , clientData);
 203 }
 204
 205 void wxListBox::DoSetItemClientObject(unsigned int n, wxClientData* clientData)
 206 {
 207     DoSetItemClientData(n, clientData);
 208 }
 209
 210 // Return number of selections and an array of selected integers
 211 int wxListBox::GetSelections(wxArrayInt& aSelections) const
 212 {
 213     return GetPeer()->MacGetSelections( aSelections );
 214 }
 215
 216 // Get single selection, for single choice list items
 217 int wxListBox::GetSelection() const
 218 {
 219     return GetPeer()->MacGetSelection();
 220 }
 221
 222 // Find string for position
 223 wxString wxListBox::GetString(unsigned int n) const
 224 {
 225     wxCHECK_MSG( IsValid(n), wxEmptyString, wxT("invalid index in wxListBox::GetString") );
 226     return GetPeer()->MacGetString(n);
 227 }
 228
 229 void wxListBox::DoInsertItems(const wxArrayString& items, unsigned int pos)
 230 {
 231     wxCHECK_RET( IsValidInsert(pos), wxT("invalid index in wxListBox::InsertItems") );
 232
 233     InvalidateBestSize();
 234
 235     GetPeer()->MacInsert( pos, items );
 236 }
 237
 238 void wxListBox::SetString(unsigned int n, const wxString& s)
 239 {
 240     GetPeer()->MacSetString( n, s );
 241 }
 242
 243 wxSize wxListBox::DoGetBestSize() const
 244 {
 245     int lbWidth = 100;  // some defaults
 246     int lbHeight = 110;
 247     int wLine;
 248
 249     {
 250         wxMacPortStateHelper st( UMAGetWindowPort( (WindowRef)MacGetTopLevelWindowRef() ) );
 251
 252         // TODO: clean this up
 253         if ( m_font.Ok() )
 254         {
 255             ::TextFont( m_font.MacGetFontNum() );
 256             ::TextSize( m_font.MacGetFontSize() );
 257             ::TextFace( m_font.MacGetFontStyle() );
 258         }
 259         else
 260         {
 261             ::TextFont( kFontIDMonaco );
 262             ::TextSize( 9 );
 263             ::TextFace( 0 );
 264         }
 265
 266         // Find the widest line
 267         for (unsigned int i = 0; i < GetCount(); i++)
 268         {
 269             wxString str( GetString( i ) );
 270
 271 #if wxUSE_UNICODE
 272             Point bounds = {0, 0};
 273             SInt16 baseline;
 274
 275             // NB: what if m_font.Ok() == false ???
 276             ::GetThemeTextDimensions(
 277                 wxMacCFStringHolder( str, m_font.GetEncoding() ),
 278                 kThemeCurrentPortFont,
 279                 kThemeStateActive,
 280                 false,
 281                 &bounds,
 282                 &baseline );
 283             wLine = bounds.h;
 284 #else
 285             wLine = ::TextWidth( str.c_str(), 0, str.length() );
 286 #endif
 287
 288             lbWidth = wxMax( lbWidth, wLine );
 289         }
 290
 291         // Add room for the scrollbar
 292         lbWidth += wxSystemSettings::GetMetric( wxSYS_VSCROLL_X );
 293
 294         // And just a bit more
 295         int cy = 12;
 296         int cx = ::TextWidth( "X", 0, 1 );
 297         lbWidth += cx;
 298
 299         // don't make the listbox too tall (limit height to around 10 items)
 300         // but don't make it too small neither
 301         lbHeight = wxMax( (cy + 4) * wxMin( wxMax( GetCount(), 3 ), 10 ), 70 );
 302     }
 303
 304     return wxSize( lbWidth, lbHeight );
 305 }
 306
 307 unsigned int wxListBox::GetCount() const
 308 {
 309     return GetPeer()->MacGetCount();
 310 }
 311
 312 void wxListBox::Refresh(bool eraseBack, const wxRect *rect)
 313 {
 314     wxControl::Refresh( eraseBack, rect );
 315 }
 316
 317 // Some custom controls depend on this
 318 /* static */ wxVisualAttributes
 319 wxListBox::GetClassDefaultAttributes(wxWindowVariant WXUNUSED(variant))
 320 {
 321     wxVisualAttributes attr;
 322
 323     attr.colFg = wxSystemSettings::GetColour( wxSYS_COLOUR_WINDOWTEXT );
 324     attr.colBg = wxSystemSettings::GetColour( wxSYS_COLOUR_LISTBOX );
 325     attr.font = wxSystemSettings::GetFont( wxSYS_DEFAULT_GUI_FONT );
 326
 327     return attr;
 328 }
 329
 330 int wxListBox::DoListHitTest(const wxPoint& inpoint) const
 331 {
 332     OSStatus err;
 333
 334     // There are few reasons why this is complicated:
 335     // 1) There is no native HitTest function for Mac
 336     // 2) GetDataBrowserItemPartBounds only works on visible items
 337     // 3) We can't do it through GetDataBrowserTableView[Item]RowHeight
 338     //    because what it returns is basically inaccurate in the context
 339     //    of the coordinates we want here, but we use this as a guess
 340     //    for where the first visible item lies
 341
 342     wxPoint point = inpoint;
 343
 344     // interestingly enough 10.2 (and below?) have GetDataBrowserItemPartBounds
 345     // giving root window coordinates but 10.3 and above give client coordinates
 346     // so we only compare using root window coordinates on 10.3 and up
 347     if ( UMAGetSystemVersion() < 0x1030 )
 348         MacClientToRootWindow(&point.x, &point.y);
 349
 350     // get column property ID (req. for call to itempartbounds)
 351     DataBrowserTableViewColumnID colId = 0;
 352     err = GetDataBrowserTableViewColumnProperty(m_peer->GetControlRef(), 0, &colId);
 353     wxCHECK_MSG(err == noErr, wxNOT_FOUND, wxT("Unexpected error from GetDataBrowserTableViewColumnProperty"));
 354
 355     // OK, first we need to find the first visible item we have -
 356     // this will be the "low" for our binary search. There is no real
 357     // easy way around this, as we will need to do a SLOW linear search
 358     // until we find a visible item, but we can do a cheap calculation
 359     // via the row height to speed things up a bit
 360     UInt32 scrollx, scrolly;
 361     err = GetDataBrowserScrollPosition(m_peer->GetControlRef(), &scrollx, &scrolly);
 362     wxCHECK_MSG(err == noErr, wxNOT_FOUND, wxT("Unexpected error from GetDataBrowserScrollPosition"));
 363
 364     UInt16 height;
 365     err = GetDataBrowserTableViewRowHeight(m_peer->GetControlRef(), &height);
 366     wxCHECK_MSG(err == noErr, wxNOT_FOUND, wxT("Unexpected error from GetDataBrowserTableViewRowHeight"));
 367
 368     // these indices are 0-based, as usual, so we need to add 1 to them when
 369     // passing them to data browser functions which use 1-based indices
 370     int low = scrolly / height,
 371         high = GetCount() - 1;
 372
 373     // search for the first visible item (note that the scroll guess above
 374     // is the low bounds of where the item might lie so we only use that as a
 375     // starting point - we should reach it within 1 or 2 iterations of the loop)
 376     while ( low <= high )
 377     {
 378         Rect bounds;
 379         err = GetDataBrowserItemPartBounds(
 380             m_peer->GetControlRef(), low + 1, colId,
 381             kDataBrowserPropertyEnclosingPart,
 382             &bounds); // note +1 to translate to Mac ID
 383         if ( err == noErr )
 384             break;
 385
 386         // errDataBrowserItemNotFound is expected as it simply means that the
 387         // item is not currently visible -- but other errors are not
 388         wxCHECK_MSG( err == errDataBrowserItemNotFound, wxNOT_FOUND,
 389                      wxT("Unexpected error from GetDataBrowserItemPartBounds") );
 390
 391         low++;
 392     }
 393
 394     // NOW do a binary search for where the item lies, searching low again if
 395     // we hit an item that isn't visible
 396     while ( low <= high )
 397     {
 398         int mid = (low + high) / 2;
 399
 400         Rect bounds;
 401         err = GetDataBrowserItemPartBounds(
 402             m_peer->GetControlRef(), mid + 1, colId,
 403             kDataBrowserPropertyEnclosingPart,
 404             &bounds); //note +1 to trans to mac id
 405         wxCHECK_MSG( err == noErr || err == errDataBrowserItemNotFound,
 406                      wxNOT_FOUND,
 407                      wxT("Unexpected error from GetDataBrowserItemPartBounds") );
 408
 409         if ( err == errDataBrowserItemNotFound )
 410         {
 411             // item not visible, attempt to find a visible one
 412             // search lower
 413             high = mid - 1;
 414         }
 415         else // visible item, do actual hitttest
 416         {
 417             // if point is within the bounds, return this item (since we assume
 418             // all x coords of items are equal we only test the x coord in
 419             // equality)
 420             if ((point.x >= bounds.left && point.x <= bounds.right) &&
 421                 (point.y >= bounds.top && point.y <= bounds.bottom) )
 422             {
 423                 // found!
 424                 return mid;
 425             }
 426
 427             if ( point.y < bounds.top )
 428                 // index(bounds) greater then key(point)
 429                 high = mid - 1;
 430             else
 431                 // index(bounds) less then key(point)
 432                 low = mid + 1;
 433         }
 434     }
 435
 436     return wxNOT_FOUND;
 437 }
 438
 439 // ============================================================================
 440 // data browser based implementation
 441 // ============================================================================
 442
 443 const short kTextColumnId = 1024;
 444 const short kNumericOrderColumnId = 1025;
 445
 446 wxMacListBoxItem::wxMacListBoxItem()
 447 {
 448     m_data = NULL;
 449     m_order = 0;
 450 }
 451
 452 wxMacListBoxItem::~wxMacListBoxItem()
 453 {
 454 }
 455
 456 void wxMacListBoxItem::SetOrder( SInt32 order )
 457 {
 458     m_order = order;
 459 }
 460
 461 SInt32 wxMacListBoxItem::GetOrder() const
 462 {
 463     return m_order;
 464 }
 465
 466 void wxMacListBoxItem::SetData( void* data)
 467 {
 468     m_data = data;
 469 }
 470
 471 void* wxMacListBoxItem::GetData() const
 472 {
 473     return m_data;
 474 }
 475
 476 void wxMacListBoxItem::SetLabel( const wxString& str)
 477 {
 478     m_label = str;
 479     m_cfLabel.Assign( str , wxLocale::GetSystemEncoding());
 480 }
 481
 482 const wxString& wxMacListBoxItem::GetLabel() const
 483 {
 484     return m_label;
 485 }
 486
 487 bool wxMacListBoxItem::IsLessThan(wxMacDataItemBrowserControl *owner ,
 488     const wxMacDataItem* rhs,
 489     DataBrowserPropertyID sortProperty) const
 490 {
 491     const wxMacListBoxItem* otherItem = dynamic_cast<const wxMacListBoxItem*>(rhs);
 492     bool retval = false;
 493     switch (sortProperty)
 494     {
 495         case kTextColumnId:
 496             retval = m_label.CmpNoCase( otherItem->m_label) < 0;
 497             break;
 498
 499         case kNumericOrderColumnId:
 500             retval = m_order < otherItem->m_order;
 501             break;
 502
 503         default:
 504             break;
 505     };
 506
 507     return retval;
 508 }
 509
 510 OSStatus wxMacListBoxItem::GetSetData( wxMacDataItemBrowserControl *owner ,
 511     DataBrowserPropertyID property,
 512     DataBrowserItemDataRef itemData,
 513     bool changeValue )
 514 {
 515     OSStatus err = errDataBrowserPropertyNotSupported;
 516     wxListBox *list = wxDynamicCast( owner->GetPeer() , wxListBox );
 517     wxCHECK_MSG( list != NULL , errDataBrowserPropertyNotSupported , wxT("Listbox expected"));
 518
 519     if ( !changeValue )
 520     {
 521         switch (property)
 522         {
 523             case kTextColumnId:
 524                 err = ::SetDataBrowserItemDataText( itemData, m_cfLabel );
 525                 err = noErr;
 526                 break;
 527
 528             case kNumericOrderColumnId:
 529                 err = ::SetDataBrowserItemDataValue( itemData, m_order );
 530                 err = noErr;
 531                 break;
 532
 533             default:
 534                 break;
 535         }
 536     }
 537     else
 538     {
 539         switch (property)
 540         {
 541             // no editable props here
 542             default:
 543                 break;
 544         }
 545     }
 546
 547     return err;
 548 }
 549
 550 void wxMacListBoxItem::Notification(wxMacDataItemBrowserControl *owner ,
 551     DataBrowserItemNotification message,
 552     DataBrowserItemDataRef itemData ) const
 553 {
 554     wxMacDataBrowserListControl *lb = dynamic_cast<wxMacDataBrowserListControl*>(owner);
 555
 556     // we want to depend on as little as possible to make sure tear-down of controls is safe
 557
 558     if ( message == kDataBrowserItemRemoved)
 559     {
 560         if ( lb != NULL && lb->GetClientDataType() == wxClientData_Object )
 561         {
 562             delete (wxClientData*) (m_data);
 563         }
 564
 565         delete this;
 566         return;
 567     }
 568
 569     wxListBox *list = wxDynamicCast( owner->GetPeer() , wxListBox );
 570     wxCHECK_RET( list != NULL , wxT("Listbox expected"));
 571
 572     bool trigger = false;
 573     wxCommandEvent event( wxEVT_COMMAND_LISTBOX_SELECTED, list->GetId() );
 574     switch (message)
 575     {
 576         case kDataBrowserItemDeselected:
 577             if ( list->HasMultipleSelection() )
 578                 trigger = !lb->IsSelectionSuppressed();
 579             break;
 580
 581         case kDataBrowserItemSelected:
 582             trigger = !lb->IsSelectionSuppressed();
 583             break;
 584
 585         case kDataBrowserItemDoubleClicked:
 586             event.SetEventType( wxEVT_COMMAND_LISTBOX_DOUBLECLICKED );
 587             trigger = true;
 588             break;
 589
 590         default:
 591             break;
 592     }
 593
 594     if ( trigger )
 595     {
 596         event.SetEventObject( list );
 597         if ( list->HasClientObjectData() )
 598             event.SetClientObject( (wxClientData*) m_data );
 599         else if ( list->HasClientUntypedData() )
 600             event.SetClientData( m_data );
 601         event.SetString( m_label );
 602         event.SetInt( owner->GetLineFromItem( this ) );
 603         event.SetExtraLong( list->HasMultipleSelection() ? message == kDataBrowserItemSelected : true );
 604         wxPostEvent( list->GetEventHandler(), event );
 605
 606         // direct notification is not always having the listbox GetSelection() having in synch with event
 607         // list->GetEventHandler()->ProcessEvent(event);
 608     }
 609 }
 610
 611 wxMacDataBrowserListControl::wxMacDataBrowserListControl( wxListBox *peer, const wxPoint& pos, const wxSize& size, long style)
 612     : wxMacDataItemBrowserControl( peer, pos, size, style )
 613 {
 614     OSStatus err = noErr;
 615     m_clientDataItemsType = wxClientData_None;
 616     m_stringSorted = style & wxLB_SORT;
 617
 618     DataBrowserSelectionFlags  options = kDataBrowserDragSelect;
 619     if ( style & wxLB_MULTIPLE )
 620     {
 621         options |= kDataBrowserAlwaysExtendSelection | kDataBrowserCmdTogglesSelection;
 622     }
 623     else if ( style & wxLB_EXTENDED )
 624     {
 625         // default behaviour
 626     }
 627     else
 628     {
 629         options |= kDataBrowserSelectOnlyOne;
 630     }
 631     err = SetSelectionFlags( options );
 632     verify_noerr( err );
 633
 634     DataBrowserListViewColumnDesc columnDesc;
 635     columnDesc.headerBtnDesc.titleOffset = 0;
 636     columnDesc.headerBtnDesc.version = kDataBrowserListViewLatestHeaderDesc;
 637
 638     columnDesc.headerBtnDesc.btnFontStyle.flags =
 639         kControlUseFontMask | kControlUseJustMask;
 640
 641     columnDesc.headerBtnDesc.btnContentInfo.contentType = kControlNoContent;
 642     columnDesc.headerBtnDesc.btnFontStyle.just = teFlushDefault;
 643     columnDesc.headerBtnDesc.btnFontStyle.font = kControlFontViewSystemFont;
 644     columnDesc.headerBtnDesc.btnFontStyle.style = normal;
 645     columnDesc.headerBtnDesc.titleString = NULL;
 646
 647     columnDesc.headerBtnDesc.minimumWidth = 0;
 648     columnDesc.headerBtnDesc.maximumWidth = 10000;
 649
 650     columnDesc.propertyDesc.propertyID = kTextColumnId;
 651     columnDesc.propertyDesc.propertyType = kDataBrowserTextType;
 652     columnDesc.propertyDesc.propertyFlags = kDataBrowserTableViewSelectionColumn;
 653 #if MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2
 654     columnDesc.propertyDesc.propertyFlags |= kDataBrowserListViewTypeSelectColumn;
 655 #endif
 656
 657     verify_noerr( AddColumn( &columnDesc, kDataBrowserListViewAppendColumn ) );
 658
 659     columnDesc.headerBtnDesc.minimumWidth = 0;
 660     columnDesc.headerBtnDesc.maximumWidth = 0;
 661     columnDesc.propertyDesc.propertyID = kNumericOrderColumnId;
 662     columnDesc.propertyDesc.propertyType = kDataBrowserPropertyRelevanceRankPart;
 663     columnDesc.propertyDesc.propertyFlags = kDataBrowserTableViewSelectionColumn;
 664 #if MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2
 665     columnDesc.propertyDesc.propertyFlags |= kDataBrowserListViewTypeSelectColumn;
 666 #endif
 667
 668     verify_noerr( AddColumn( &columnDesc, kDataBrowserListViewAppendColumn ) );
 669
 670     SetDataBrowserSortProperty( m_controlRef , kTextColumnId);
 671     if ( m_stringSorted )
 672     {
 673         SetDataBrowserSortProperty( m_controlRef , kTextColumnId);
 674         SetDataBrowserSortOrder( m_controlRef , kDataBrowserOrderIncreasing);
 675     }
 676     else
 677     {
 678         SetDataBrowserSortProperty( m_controlRef , kNumericOrderColumnId);
 679         SetDataBrowserSortOrder( m_controlRef , kDataBrowserOrderIncreasing);
 680     }
 681
 682     verify_noerr( AutoSizeColumns() );
 683     verify_noerr( SetHiliteStyle(kDataBrowserTableViewFillHilite ) );
 684     verify_noerr( SetHeaderButtonHeight( 0 ) );
 685     err = SetHasScrollBars( (style & wxHSCROLL) != 0 , true );
 686 #if 0
 687     // shouldn't be necessary anymore under 10.2
 688     m_peer->SetData( kControlNoPart, kControlDataBrowserIncludesFrameAndFocusTag, (Boolean)false );
 689     m_peer->SetNeedsFocusRect( true );
 690 #endif
 691 }
 692
 693 wxMacDataBrowserListControl::~wxMacDataBrowserListControl()
 694 {
 695 }
 696
 697
 698 wxMacListBoxItem* wxMacDataBrowserListControl::CreateItem()
 699 {
 700     return new wxMacListBoxItem();
 701 }
 702
 703 wxListBox * wxMacDataBrowserListControl::GetPeer() const
 704 {
 705     return wxDynamicCast( wxMacControl::GetPeer() , wxListBox );
 706 }
 707
 708 wxClientDataType wxMacDataBrowserListControl::GetClientDataType() const
 709 {
 710      return m_clientDataItemsType;
 711 }
 712 void wxMacDataBrowserListControl::SetClientDataType(wxClientDataType clientDataItemsType)
 713 {
 714     m_clientDataItemsType = clientDataItemsType;
 715 }
 716
 717 unsigned int wxMacDataBrowserListControl::MacGetCount() const
 718 {
 719     return GetItemCount(wxMacDataBrowserRootContainer,false,kDataBrowserItemAnyState);
 720 }
 721
 722 void wxMacDataBrowserListControl::MacDelete( unsigned int n )
 723 {
 724     wxMacListBoxItem* item = (wxMacListBoxItem*)GetItemFromLine( n );
 725     RemoveItem( wxMacDataBrowserRootContainer, item );
 726 }
 727
 728 void wxMacDataBrowserListControl::MacInsert( unsigned int n, const wxString& text)
 729 {
 730     wxMacListBoxItem* newItem = CreateItem();
 731     newItem->SetLabel( text );
 732
 733     if ( !m_stringSorted )
 734     {
 735         // increase the order of the lines to be shifted
 736         unsigned int lines = MacGetCount();
 737         for ( unsigned int i = n; i < lines; ++i)
 738         {
 739             wxMacListBoxItem* iter = (wxMacListBoxItem*) GetItemFromLine(i);
 740             iter->SetOrder( iter->GetOrder() + 1 );
 741         }
 742
 743         SInt32 frontLineOrder = 0;
 744         if ( n > 0 )
 745         {
 746             wxMacListBoxItem* iter = (wxMacListBoxItem*) GetItemFromLine(n-1);
 747             frontLineOrder = iter->GetOrder();
 748         }
 749         newItem->SetOrder( frontLineOrder + 1 );
 750     }
 751
 752     AddItem( wxMacDataBrowserRootContainer, newItem );
 753 }
 754
 755 void wxMacDataBrowserListControl::MacInsert( unsigned int n, const wxArrayString& items)
 756 {
 757     size_t itemsCount = items.GetCount();
 758     if ( itemsCount == 0 )
 759         return;
 760
 761     SInt32 frontLineOrder = 0;
 762
 763     if ( !m_stringSorted )
 764     {
 765         // increase the order of the lines to be shifted
 766         unsigned int lines = MacGetCount();
 767         for ( unsigned int i = n; i < lines; ++i)
 768         {
 769             wxMacListBoxItem* iter = (wxMacListBoxItem*) GetItemFromLine(i);
 770             iter->SetOrder( iter->GetOrder() + itemsCount );
 771         }
 772         if ( n > 0 )
 773         {
 774             wxMacListBoxItem* iter = (wxMacListBoxItem*) GetItemFromLine(n-1);
 775             frontLineOrder = iter->GetOrder();
 776         }
 777     }
 778
 779     wxArrayMacDataItemPtr ids;
 780     ids.SetCount( itemsCount );
 781
 782     for ( unsigned int i = 0; i < itemsCount; ++i )
 783     {
 784         wxMacListBoxItem* item = CreateItem();
 785         item->SetLabel( items[i]);
 786         if ( !m_stringSorted )
 787             item->SetOrder( frontLineOrder + 1 + i );
 788
 789         ids[i] = item;
 790     }
 791
 792     AddItems( wxMacDataBrowserRootContainer, ids );
 793 }
 794
 795 int wxMacDataBrowserListControl::MacAppend( const wxString& text)
 796 {
 797     wxMacListBoxItem* item = CreateItem();
 798     item->SetLabel( text );
 799     if ( !m_stringSorted )
 800     {
 801         unsigned int lines = MacGetCount();
 802         if ( lines == 0 )
 803             item->SetOrder( 1 );
 804         else
 805         {
 806             wxMacListBoxItem* frontItem = (wxMacListBoxItem*) GetItemFromLine(lines-1);
 807             item->SetOrder( frontItem->GetOrder() + 1 );
 808         }
 809     }
 810     AddItem( wxMacDataBrowserRootContainer, item );
 811
 812     return GetLineFromItem(item);
 813 }
 814
 815 void wxMacDataBrowserListControl::MacClear()
 816 {
 817     wxMacDataItemBrowserSelectionSuppressor suppressor(this);
 818     RemoveAllItems(wxMacDataBrowserRootContainer);
 819 }
 820
 821 void wxMacDataBrowserListControl::MacDeselectAll()
 822 {
 823     wxMacDataItemBrowserSelectionSuppressor suppressor(this);
 824     SetSelectedAllItems( kDataBrowserItemsRemove );
 825 }
 826
 827 void wxMacDataBrowserListControl::MacSetSelection( unsigned int n, bool select )
 828 {
 829     wxMacListBoxItem* item = (wxMacListBoxItem*) GetItemFromLine(n);
 830     wxMacDataItemBrowserSelectionSuppressor suppressor(this);
 831
 832     if ( IsItemSelected( item ) != select )
 833     {
 834         if ( select )
 835             SetSelectedItem( item, GetPeer()->HasMultipleSelection() ? kDataBrowserItemsAdd : kDataBrowserItemsAssign );
 836         else
 837             SetSelectedItem( item, kDataBrowserItemsRemove );
 838     }
 839
 840     MacScrollTo( n );
 841 }
 842
 843 bool wxMacDataBrowserListControl::MacIsSelected( unsigned int n ) const
 844 {
 845     wxMacListBoxItem* item = (wxMacListBoxItem*) GetItemFromLine(n);
 846     return IsItemSelected( item );
 847 }
 848
 849 int wxMacDataBrowserListControl::MacGetSelection() const
 850 {
 851     wxMacDataItemPtr first, last;
 852     GetSelectionAnchor( &first, &last );
 853
 854     if ( first != NULL )
 855     {
 856         return GetLineFromItem( first );
 857     }
 858
 859     return -1;
 860 }
 861
 862 int wxMacDataBrowserListControl::MacGetSelections( wxArrayInt& aSelections ) const
 863 {
 864     aSelections.Empty();
 865     wxArrayMacDataItemPtr selectedItems;
 866     GetItems( wxMacDataBrowserRootContainer, false , kDataBrowserItemIsSelected, selectedItems);
 867
 868     int count = selectedItems.GetCount();
 869
 870     for ( int i = 0; i < count; ++i)
 871     {
 872         aSelections.Add(GetLineFromItem(selectedItems[i]));
 873     }
 874
 875     return count;
 876 }
 877
 878 void wxMacDataBrowserListControl::MacSetString( unsigned int n, const wxString& text )
 879 {
 880     // as we don't store the strings we only have to issue a redraw
 881     wxMacListBoxItem* item = (wxMacListBoxItem*) GetItemFromLine( n);
 882     item->SetLabel( text );
 883     UpdateItem( wxMacDataBrowserRootContainer, item , kTextColumnId );
 884 }
 885
 886 wxString wxMacDataBrowserListControl::MacGetString( unsigned int n ) const
 887 {
 888     wxMacListBoxItem * item = (wxMacListBoxItem*) GetItemFromLine( n );
 889     return item->GetLabel();
 890 }
 891
 892 void wxMacDataBrowserListControl::MacSetClientData( unsigned int n, void * data)
 893 {
 894     wxMacListBoxItem* item = (wxMacListBoxItem*) GetItemFromLine( n);
 895     item->SetData( data );
 896     // not displayed, therefore no Update infos to DataBrowser
 897 }
 898
 899 void * wxMacDataBrowserListControl::MacGetClientData( unsigned int n) const
 900 {
 901     wxMacListBoxItem * item = (wxMacListBoxItem*) GetItemFromLine( n );
 902     return item->GetData();
 903 }
 904
 905 void wxMacDataBrowserListControl::MacScrollTo( unsigned int n )
 906 {
 907     RevealItem( GetItemFromLine( n) , kDataBrowserRevealWithoutSelecting );
 908 }
 909
 910 #if 0
 911
 912 // in case we need that one day
 913
 914 // ============================================================================
 915 // HIView owner-draw-based implementation
 916 // ============================================================================
 917
 918 static pascal void ListBoxDrawProc(
 919     ControlRef browser, DataBrowserItemID item, DataBrowserPropertyID property,
 920     DataBrowserItemState itemState, const Rect *itemRect, SInt16 depth, Boolean isColorDevice )
 921 {
 922     CFStringRef cfString;
 923     ThemeDrawingState themeState;
 924     long systemVersion;
 925
 926     GetThemeDrawingState( &themeState );
 927     cfString = CFStringCreateWithFormat( NULL, NULL, CFSTR("Row %d"), item );
 928
 929     //  In this sample we handle the "selected" state; all others fall through to our "active" state
 930     if ( itemState == kDataBrowserItemIsSelected )
 931     {
 932         ThemeBrush colorBrushID;
 933
 934         // TODO: switch over to wxSystemSettingsNative::GetColour() when kThemeBrushSecondaryHighlightColor
 935         // is incorporated Panther DB starts using kThemeBrushSecondaryHighlightColor
 936         // for inactive browser highlighting
 937         Gestalt( gestaltSystemVersion, &systemVersion );
 938         if ( (systemVersion >= 0x00001030) && !IsControlActive( browser ) )
 939             colorBrushID = kThemeBrushSecondaryHighlightColor;
 940         else
 941             colorBrushID = kThemeBrushPrimaryHighlightColor;
 942
 943         // First paint the hilite rect, then the text on top
 944         SetThemePen( colorBrushID, 32, true );
 945         PaintRect( itemRect );
 946         SetThemeDrawingState( themeState, false );
 947     }
 948
 949     DrawThemeTextBox( cfString, kThemeApplicationFont, kThemeStateActive, true, itemRect, teFlushDefault, NULL );
 950     SetThemeDrawingState( themeState, true );
 951
 952     if ( cfString != NULL )
 953         CFRelease( cfString );
 954 }
 955
 956 #endif
 957
 958
 959 #endif