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/app.h"
  17 #include "wx/listbox.h"
  18 #include "wx/button.h"
  19 #include "wx/settings.h"
  20 #include "wx/toplevel.h"
  21 #include "wx/dynarray.h"
  22 #include "wx/log.h"
  23
  24 #include "wx/utils.h"
  25
  26 IMPLEMENT_DYNAMIC_CLASS(wxListBox, wxControl)
  27
  28 BEGIN_EVENT_TABLE(wxListBox, wxControl)
  29 #ifndef __WXMAC_OSX__
  30 //    EVT_SIZE( wxListBox::OnSize )
  31     EVT_CHAR( wxListBox::OnChar )
  32 #endif
  33 END_EVENT_TABLE()
  34
  35 #include "wx/mac/uma.h"
  36
  37 const short kTextColumnId = 1024 ;
  38
  39 // new databrowserbased version
  40 // because of the limited insert
  41 // functionality of DataBrowser,
  42 // we just introduce id s corresponding
  43 // to the line number
  44
  45 DataBrowserItemDataUPP gDataBrowserItemDataUPP = NULL ;
  46 DataBrowserItemNotificationUPP gDataBrowserItemNotificationUPP = NULL ;
  47 DataBrowserDrawItemUPP gDataBrowserDrawItemUPP = NULL ;
  48
  49 #if TARGET_API_MAC_OSX
  50 static pascal void DataBrowserItemNotificationProc(ControlRef browser, DataBrowserItemID itemID,
  51     DataBrowserItemNotification message, DataBrowserItemDataRef itemData)
  52 #else
  53 static pascal  void DataBrowserItemNotificationProc(ControlRef browser, DataBrowserItemID itemID,
  54     DataBrowserItemNotification message)
  55 #endif
  56 {
  57     long ref = GetControlReference( browser ) ;
  58     if ( ref )
  59     {
  60         wxListBox* list = wxDynamicCast( (wxObject*) ref , wxListBox ) ;
  61         int i = itemID - 1 ;
  62         if (i >= 0 && i < list->GetCount() )
  63         {
  64             bool trigger = false ;
  65             wxCommandEvent event(
  66                 wxEVT_COMMAND_LISTBOX_SELECTED, list->GetId() );
  67             switch( message )
  68             {
  69                 case kDataBrowserItemDeselected :
  70                     if ( list->HasMultipleSelection() )
  71                         trigger = !list->MacIsSelectionSuppressed() ;
  72                     break ;
  73                 case kDataBrowserItemSelected :
  74                     trigger = !list->MacIsSelectionSuppressed() ;
  75                     break ;
  76                 case kDataBrowserItemDoubleClicked :
  77                     event.SetEventType(wxEVT_COMMAND_LISTBOX_DOUBLECLICKED) ;
  78                     trigger = true ;
  79                     break ;
  80                 default :
  81                     break ;
  82             }
  83             if ( trigger )
  84             {
  85                 event.SetEventObject( list );
  86                 if ( list->HasClientObjectData() )
  87                     event.SetClientObject( list->GetClientObject(i) );
  88                 else if ( list->HasClientUntypedData() )
  89                     event.SetClientData( list->GetClientData(i) );
  90                 event.SetString( list->GetString(i) );
  91                 event.SetInt(i) ;
  92                 event.SetExtraLong( list->HasMultipleSelection() ? message == kDataBrowserItemSelected : TRUE );
  93                 wxPostEvent( list->GetEventHandler() , event ) ;
  94                 // direct notification is not always having the listbox GetSelection() having in synch with event
  95                 // list->GetEventHandler()->ProcessEvent(event) ;
  96             }
  97         }
  98     }
  99 }
 100
 101 static pascal OSStatus ListBoxGetSetItemData(ControlRef browser,
 102     DataBrowserItemID itemID, DataBrowserPropertyID property,
 103     DataBrowserItemDataRef itemData, Boolean changeValue)
 104 {
 105     OSStatus err = errDataBrowserPropertyNotSupported;
 106
 107     if ( ! changeValue )
 108     {
 109         switch (property)
 110         {
 111
 112             case kTextColumnId:
 113             {
 114                 long ref = GetControlReference( browser ) ;
 115                 if ( ref )
 116                 {
 117                     wxListBox* list = wxDynamicCast( (wxObject*) ref , wxListBox ) ;
 118                     int i = itemID - 1 ;
 119                     if (i >= 0 && i < list->GetCount() )
 120                     {
 121                         wxMacCFStringHolder cf( list->GetString(i) , list->GetFont().GetEncoding() ) ;
 122                         verify_noerr( ::SetDataBrowserItemDataText( itemData , cf ) ) ;
 123                         err = noErr ;
 124                     }
 125                 }
 126             }
 127             break;
 128
 129             default:
 130
 131             break;
 132         }
 133     }
 134
 135     return err;
 136 }
 137
 138 static pascal void ListBoxDrawProc( ControlRef browser , DataBrowserItemID item , DataBrowserPropertyID property ,
 139     DataBrowserItemState itemState , const Rect *itemRect , SInt16 depth , Boolean isColorDevice )
 140 {
 141
 142     CFStringRef      cfString;
 143     long        systemVersion;
 144
 145     cfString  = CFStringCreateWithFormat( NULL, NULL, CFSTR("Row %d"), item );
 146
 147     ThemeDrawingState themeState ;
 148     GetThemeDrawingState( &themeState ) ;
 149
 150     if ( itemState == kDataBrowserItemIsSelected )      //  In this sample we handle the "selected" state, all others fall through to our "active" state
 151     {
 152         Gestalt( gestaltSystemVersion, &systemVersion );
 153         if ( (systemVersion >= 0x00001030) && (IsControlActive( browser ) == false) )  //  Panther DB starts using kThemeBrushSecondaryHighlightColor for inactive browser hilighting
 154             SetThemePen( kThemeBrushSecondaryHighlightColor, 32, true );
 155         else
 156             SetThemePen( kThemeBrushPrimaryHighlightColor, 32, true );
 157
 158         PaintRect( itemRect );                //  First paint the hilite rect, then the text on top
 159         SetThemeDrawingState( themeState , false ) ;
 160     }
 161     DrawThemeTextBox( cfString, kThemeApplicationFont, kThemeStateActive, true, itemRect, teFlushDefault, NULL );
 162     if ( cfString != NULL )
 163         CFRelease( cfString );
 164     SetThemeDrawingState( themeState , true ) ;
 165 }
 166
 167 // Listbox item
 168 wxListBox::wxListBox()
 169 {
 170   m_noItems = 0;
 171   m_selected = 0;
 172   m_macList = NULL ;
 173   m_suppressSelection = false ;
 174 }
 175
 176 bool wxListBox::Create(wxWindow *parent, wxWindowID id,
 177                        const wxPoint& pos,
 178                        const wxSize& size,
 179                        const wxArrayString& choices,
 180                        long style,
 181                        const wxValidator& validator,
 182                        const wxString& name)
 183 {
 184     wxCArrayString chs(choices);
 185
 186     return Create(parent, id, pos, size, chs.GetCount(), chs.GetStrings(),
 187                   style, validator, name);
 188 }
 189
 190 bool wxListBox::Create(wxWindow *parent, wxWindowID id,
 191                        const wxPoint& pos,
 192                        const wxSize& size,
 193                        int n, const wxString choices[],
 194                        long style,
 195                        const wxValidator& validator,
 196                        const wxString& name)
 197 {
 198     m_macIsUserPane = FALSE ;
 199
 200     wxASSERT_MSG( !(style & wxLB_MULTIPLE) || !(style & wxLB_EXTENDED),
 201                   _T("only one of listbox selection modes can be specified") );
 202
 203     if ( !wxListBoxBase::Create(parent, id, pos, size, style & ~(wxHSCROLL|wxVSCROLL), validator, name) )
 204         return false;
 205
 206     m_noItems = 0 ; // this will be increased by our append command
 207     m_selected = 0;
 208
 209     Rect bounds = wxMacGetBoundsForControl( this , pos , size ) ;
 210
 211     m_peer = new wxMacControl(this) ;
 212     verify_noerr( ::CreateDataBrowserControl( MAC_WXHWND(parent->MacGetTopLevelWindowRef()), &bounds, kDataBrowserListView , m_peer->GetControlRefAddr() ) );
 213
 214     DataBrowserSelectionFlags  options = kDataBrowserDragSelect ;
 215     if ( style & wxLB_MULTIPLE )
 216     {
 217         options += kDataBrowserAlwaysExtendSelection + kDataBrowserCmdTogglesSelection  ;
 218     }
 219     else if ( style & wxLB_EXTENDED )
 220     {
 221         // default behaviour
 222     }
 223     else
 224     {
 225         options += kDataBrowserSelectOnlyOne ;
 226     }
 227     verify_noerr(m_peer->SetSelectionFlags( options ) );
 228
 229     if ( gDataBrowserItemDataUPP == NULL ) gDataBrowserItemDataUPP = NewDataBrowserItemDataUPP(ListBoxGetSetItemData) ;
 230     if ( gDataBrowserItemNotificationUPP == NULL )
 231     {
 232         gDataBrowserItemNotificationUPP =
 233 #if TARGET_API_MAC_OSX
 234             (DataBrowserItemNotificationUPP) NewDataBrowserItemNotificationWithItemUPP(DataBrowserItemNotificationProc) ;
 235 #else
 236             NewDataBrowserItemNotificationUPP(DataBrowserItemNotificationProc) ;
 237 #endif
 238     }
 239     if ( gDataBrowserDrawItemUPP == NULL ) gDataBrowserDrawItemUPP = NewDataBrowserDrawItemUPP(ListBoxDrawProc) ;
 240
 241     DataBrowserCallbacks callbacks ;
 242     InitializeDataBrowserCallbacks( &callbacks , kDataBrowserLatestCallbacks ) ;
 243
 244     callbacks.u.v1.itemDataCallback = gDataBrowserItemDataUPP;
 245     callbacks.u.v1.itemNotificationCallback = gDataBrowserItemNotificationUPP;
 246     m_peer->SetCallbacks( &callbacks);
 247
 248     DataBrowserCustomCallbacks customCallbacks ;
 249     InitializeDataBrowserCustomCallbacks( &customCallbacks , kDataBrowserLatestCustomCallbacks ) ;
 250
 251     customCallbacks.u.v1.drawItemCallback = gDataBrowserDrawItemUPP ;
 252
 253     SetDataBrowserCustomCallbacks( m_peer->GetControlRef() , &customCallbacks ) ;
 254
 255     DataBrowserListViewColumnDesc columnDesc ;
 256     columnDesc.headerBtnDesc.titleOffset = 0;
 257     columnDesc.headerBtnDesc.version = kDataBrowserListViewLatestHeaderDesc;
 258
 259     columnDesc.headerBtnDesc.btnFontStyle.flags    =
 260         kControlUseFontMask | kControlUseJustMask;
 261
 262     columnDesc.headerBtnDesc.btnContentInfo.contentType = kControlNoContent;
 263     columnDesc.headerBtnDesc.btnFontStyle.just = teFlushDefault;
 264     columnDesc.headerBtnDesc.minimumWidth = 0;
 265     columnDesc.headerBtnDesc.maximumWidth = 10000;
 266
 267     columnDesc.headerBtnDesc.btnFontStyle.font = kControlFontViewSystemFont;
 268     columnDesc.headerBtnDesc.btnFontStyle.style = normal;
 269     columnDesc.headerBtnDesc.titleString = NULL ; // CFSTR( "" );
 270
 271     columnDesc.propertyDesc.propertyID = kTextColumnId;
 272     columnDesc.propertyDesc.propertyType = kDataBrowserTextType ; // kDataBrowserCustomType;
 273     columnDesc.propertyDesc.propertyFlags =
 274 #if MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2
 275      kDataBrowserListViewTypeSelectColumn |
 276 #endif
 277      kDataBrowserTableViewSelectionColumn ;
 278
 279     verify_noerr(m_peer->AddListViewColumn( &columnDesc, kDataBrowserListViewAppendColumn) ) ;
 280     verify_noerr(m_peer->AutoSizeListViewColumns() ) ;
 281     verify_noerr(m_peer->SetHasScrollBars(false , true ) ) ;
 282     verify_noerr(m_peer->SetTableViewHiliteStyle(kDataBrowserTableViewFillHilite  ) ) ;
 283     verify_noerr(m_peer->SetListViewHeaderBtnHeight( 0 ) ) ;
 284
 285 #if 0
 286     // shouldn't be necessary anymore under 10.2
 287     m_peer->SetData( kControlNoPart, kControlDataBrowserIncludesFrameAndFocusTag, (Boolean) false ) ;
 288     m_peer->SetNeedsFocusRect( true ) ;
 289 #endif
 290
 291     MacPostControlCreate(pos,size) ;
 292
 293     for ( int i = 0 ; i < n ; i++ )
 294     {
 295         Append( choices[i] ) ;
 296     }
 297
 298     SetBestSize(size);   // Needed because it is a wxControlWithItems
 299
 300     return TRUE;
 301 }
 302
 303 wxListBox::~wxListBox()
 304 {
 305     m_peer->SetReference( 0 ) ;
 306     FreeData() ;
 307     // avoid access during destruction
 308     if ( m_macList )
 309     {
 310         m_macList = NULL ;
 311     }
 312 }
 313
 314 void wxListBox::FreeData()
 315 {
 316     if ( HasClientObjectData() )
 317     {
 318         for ( size_t n = 0; n < (size_t)m_noItems; n++ )
 319         {
 320             delete GetClientObject(n);
 321         }
 322     }
 323 }
 324
 325 void  wxListBox::DoSetSize(int x, int y,
 326             int width, int height,
 327             int sizeFlags )
 328 {
 329     wxControl::DoSetSize( x , y , width , height , sizeFlags ) ;
 330 }
 331
 332 void wxListBox::DoSetFirstItem(int N)
 333 {
 334     MacScrollTo( N ) ;
 335 }
 336
 337 void wxListBox::Delete(int N)
 338 {
 339     wxCHECK_RET( N >= 0 && N < m_noItems,
 340                  wxT("invalid index in wxListBox::Delete") );
 341
 342     if ( HasClientObjectData() )
 343     {
 344         delete GetClientObject(N);
 345     }
 346     m_stringArray.RemoveAt( N ) ;
 347     m_dataArray.RemoveAt( N ) ;
 348     m_noItems --;
 349
 350     MacDelete( N ) ;
 351 }
 352
 353 int wxListBox::DoAppend(const wxString& item)
 354 {
 355     InvalidateBestSize();
 356
 357     int index = m_noItems ;
 358     m_stringArray.Add( item ) ;
 359     m_dataArray.Add( NULL );
 360     m_noItems ++;
 361     DoSetItemClientData( index , NULL ) ;
 362     MacAppend( item ) ;
 363
 364     return index ;
 365 }
 366
 367 void wxListBox::DoSetItems(const wxArrayString& choices, void** clientData)
 368 {
 369     Clear() ;
 370     int n = choices.GetCount();
 371
 372     for( int i = 0 ; i < n ; ++i )
 373     {
 374         if ( clientData )
 375         {
 376             Append( choices[i] , clientData[i] ) ;
 377         }
 378         else
 379             Append( choices[i] ) ;
 380     }
 381 }
 382
 383 int wxListBox::FindString(const wxString& s, bool bCase) const
 384 {
 385     if ( s.Right(1) == wxT("*") )
 386     {
 387         wxString search = s.Left( s.Length() - 1 ) ;
 388         int len = search.Length() ;
 389         Str255 s1 , s2 ;
 390         wxMacStringToPascal( search , s2 ) ;
 391
 392         for ( int i = 0 ; i < m_noItems ; ++ i )
 393         {
 394             wxMacStringToPascal( m_stringArray[i].Left( len ) , s1 ) ;
 395
 396             if ( EqualString( s1 , s2 , bCase , false ) )
 397                 return i ;
 398         }
 399         if ( s.Left(1) == wxT("*") && s.Length() > 1 )
 400         {
 401             wxString st = s ;
 402             st.MakeLower() ;
 403             for ( int i = 0 ; i < m_noItems ; ++i )
 404             {
 405                 if ( GetString(i).Lower().Matches(st) )
 406                     return i ;
 407             }
 408         }
 409
 410     }
 411     else
 412     {
 413         Str255 s1 , s2 ;
 414
 415         wxMacStringToPascal( s , s2 ) ;
 416
 417         for ( int i = 0 ; i < m_noItems ; ++ i )
 418         {
 419             wxMacStringToPascal( m_stringArray[i] , s1 ) ;
 420
 421             if ( EqualString( s1 , s2 , bCase , false ) )
 422                 return i ;
 423         }
 424     }
 425     return wxNOT_FOUND;
 426 }
 427
 428 void wxListBox::Clear()
 429 {
 430     FreeData();
 431     m_noItems = 0;
 432     m_stringArray.Empty() ;
 433     m_dataArray.Empty() ;
 434     MacClear() ;
 435 }
 436
 437 void wxListBox::DoSetSelection(int N, bool select)
 438 {
 439     wxCHECK_RET( N == wxNOT_FOUND || (N >= 0 && N < m_noItems) ,
 440         wxT("invalid index in wxListBox::SetSelection") );
 441
 442     if ( N == wxNOT_FOUND )
 443         MacDeselectAll() ;
 444     else
 445         MacSetSelection( N , select ) ;
 446 }
 447
 448 bool wxListBox::IsSelected(int N) const
 449 {
 450     wxCHECK_MSG( N >= 0 && N < m_noItems, FALSE,
 451         wxT("invalid index in wxListBox::Selected") );
 452
 453     return MacIsSelected( N ) ;
 454 }
 455
 456 void *wxListBox::DoGetItemClientData(int N) const
 457 {
 458     wxCHECK_MSG( N >= 0 && N < m_noItems, NULL,
 459         wxT("invalid index in wxListBox::GetClientData"));
 460
 461     return (void *)m_dataArray[N];
 462 }
 463
 464 wxClientData *wxListBox::DoGetItemClientObject(int N) const
 465 {
 466     return (wxClientData *) DoGetItemClientData( N ) ;
 467 }
 468
 469 void wxListBox::DoSetItemClientData(int N, void *Client_data)
 470 {
 471     wxCHECK_RET( N >= 0 && N < m_noItems,
 472         wxT("invalid index in wxListBox::SetClientData") );
 473
 474     wxASSERT_MSG( m_dataArray.GetCount() >= (size_t) N , wxT("invalid client_data array") ) ;
 475
 476     if ( m_dataArray.GetCount() > (size_t) N )
 477     {
 478         m_dataArray[N] = (char*) Client_data ;
 479     }
 480     else
 481     {
 482         m_dataArray.Add( (char*) Client_data ) ;
 483     }
 484 }
 485
 486 void wxListBox::DoSetItemClientObject(int n, wxClientData* clientData)
 487 {
 488     DoSetItemClientData(n, clientData);
 489 }
 490
 491 // Return number of selections and an array of selected integers
 492 int wxListBox::GetSelections(wxArrayInt& aSelections) const
 493 {
 494     return MacGetSelections( aSelections ) ;
 495 }
 496
 497 // Get single selection, for single choice list items
 498 int wxListBox::GetSelection() const
 499 {
 500     return MacGetSelection() ;
 501 }
 502
 503 // Find string for position
 504 wxString wxListBox::GetString(int N) const
 505 {
 506     wxCHECK_MSG( N >= 0 && N < m_noItems, wxEmptyString,
 507                  wxT("invalid index in wxListBox::GetString") );
 508
 509     return m_stringArray[N]  ;
 510 }
 511
 512 void wxListBox::DoInsertItems(const wxArrayString& items, int pos)
 513 {
 514     wxCHECK_RET( pos >= 0 && pos <= m_noItems,
 515         wxT("invalid index in wxListBox::InsertItems") );
 516
 517     InvalidateBestSize();
 518
 519     int nItems = items.GetCount();
 520
 521     for ( int i = 0 ; i < nItems ; i++ )
 522     {
 523         m_stringArray.Insert( items[i] , pos + i ) ;
 524         m_dataArray.Insert( NULL , pos + i ) ;
 525         m_noItems++ ;
 526         MacInsert( pos + i , items[i] ) ;
 527     }
 528 }
 529
 530 void wxListBox::SetString(int N, const wxString& s)
 531 {
 532     m_stringArray[N] = s ;
 533     MacSet( N , s ) ;
 534 }
 535
 536 wxSize wxListBox::DoGetBestSize() const
 537 {
 538     int lbWidth = 100;  // some defaults
 539     int lbHeight = 110;
 540     int wLine;
 541
 542     {
 543         wxMacPortStateHelper st( UMAGetWindowPort( (WindowRef) MacGetTopLevelWindowRef() ) ) ;
 544
 545         if ( m_font.Ok() )
 546         {
 547             ::TextFont( m_font.MacGetFontNum() ) ;
 548             ::TextSize( m_font.MacGetFontSize() ) ;
 549             ::TextFace( m_font.MacGetFontStyle() ) ;
 550         }
 551         else
 552         {
 553             ::TextFont( kFontIDMonaco ) ;
 554             ::TextSize( 9  );
 555             ::TextFace( 0 ) ;
 556         }
 557
 558         // Find the widest line
 559         for(int i = 0; i < GetCount(); i++) {
 560             wxString str(GetString(i));
 561         #if wxUSE_UNICODE
 562             Point bounds={0,0} ;
 563             SInt16 baseline ;
 564             ::GetThemeTextDimensions( wxMacCFStringHolder( str , m_font.GetEncoding() ) ,
 565                 kThemeCurrentPortFont,
 566                 kThemeStateActive,
 567                 false,
 568                 &bounds,
 569                 &baseline );
 570             wLine = bounds.h ;
 571         #else
 572             wLine = ::TextWidth( str.c_str() , 0 , str.Length() ) ;
 573         #endif
 574             lbWidth = wxMax(lbWidth, wLine);
 575         }
 576
 577         // Add room for the scrollbar
 578         lbWidth += wxSystemSettings::GetMetric(wxSYS_VSCROLL_X);
 579
 580         // And just a bit more
 581         int cy = 12 ;
 582         int cx = ::TextWidth( "X" , 0 , 1 ) ;
 583         lbWidth += cx ;
 584
 585         // don't make the listbox too tall (limit height to around 10 items) but don't
 586         // make it too small neither
 587         lbHeight = (cy+4) * wxMin(wxMax(GetCount(), 3), 10);
 588     }
 589
 590     return wxSize(lbWidth, lbHeight);
 591 }
 592
 593 int wxListBox::GetCount() const
 594 {
 595     return m_noItems;
 596 }
 597
 598 void wxListBox::Refresh(bool eraseBack, const wxRect *rect)
 599 {
 600     wxControl::Refresh( eraseBack , rect ) ;
 601 }
 602
 603
 604 // Some custom controls depend on this
 605 /* static */ wxVisualAttributes
 606 wxListBox::GetClassDefaultAttributes(wxWindowVariant WXUNUSED(variant))
 607 {
 608     wxVisualAttributes attr;
 609     attr.colFg = wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOWTEXT);
 610     attr.colBg = wxSystemSettings::GetColour(wxSYS_COLOUR_LISTBOX);
 611     attr.font  = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
 612     return attr;
 613 }
 614
 615 // ============================================================================
 616 // list box control implementation
 617 // ============================================================================
 618
 619 void wxListBox::MacDelete( int n )
 620 {
 621     wxArrayInt selectionBefore ;
 622     MacGetSelections( selectionBefore ) ;
 623
 624     UInt32 id = m_noItems+1 ;
 625     verify_noerr( m_peer->RemoveItems( kDataBrowserNoItem , 1 , (UInt32*) &id , kDataBrowserItemNoProperty ) ) ;
 626     for ( size_t i = 0 ; i < selectionBefore.GetCount() ; ++i )
 627     {
 628         int current = selectionBefore[i] ;
 629         if ( current == n )
 630         {
 631             // selection was deleted
 632             MacSetSelection( current , false ) ;
 633         }
 634         else if ( current > n )
 635         {
 636             // something behind the deleted item was selected -> move up
 637             MacSetSelection( current - 1 , true ) ;
 638             MacSetSelection( current , false ) ;
 639         }
 640     }
 641     // refresh all
 642     verify_noerr( m_peer->UpdateItems( kDataBrowserNoItem , 1 , (UInt32*) kDataBrowserNoItem , kDataBrowserItemNoProperty , kDataBrowserItemNoProperty ) ) ;
 643 }
 644
 645 void wxListBox::MacInsert( int n , const wxString& text)
 646 {
 647     wxArrayInt selectionBefore ;
 648     MacGetSelections( selectionBefore ) ;
 649
 650     UInt32 id = m_noItems ; // this has already been increased
 651     verify_noerr( m_peer->AddItems( kDataBrowserNoItem , 1 ,  (UInt32*) &id , kDataBrowserItemNoProperty ) ) ;
 652
 653     for ( int i = selectionBefore.GetCount()-1 ; i >= 0 ; --i )
 654     {
 655         int current = selectionBefore[i] ;
 656         if ( current >= n )
 657         {
 658             MacSetSelection( current + 1 , true ) ;
 659             MacSetSelection( current , false ) ;
 660         }
 661     }
 662
 663     // refresh all
 664     verify_noerr( m_peer->UpdateItems( kDataBrowserNoItem , 1 , (UInt32*) kDataBrowserNoItem , kDataBrowserItemNoProperty , kDataBrowserItemNoProperty ) ) ;
 665 }
 666
 667 void wxListBox::MacAppend( const wxString& text)
 668 {
 669     UInt32 id = m_noItems ; // this has already been increased
 670     verify_noerr( m_peer->AddItems( kDataBrowserNoItem , 1 ,  (UInt32*) &id , kDataBrowserItemNoProperty ) ) ;
 671     // no need to deal with selections nor refreshed, as we have appended
 672 }
 673
 674 void wxListBox::MacClear()
 675 {
 676     verify_noerr( m_peer->RemoveItems( kDataBrowserNoItem , 0 , NULL , kDataBrowserItemNoProperty ) ) ;
 677 }
 678
 679 void wxListBox::MacDeselectAll()
 680 {
 681     bool former = MacSuppressSelection( true ) ;
 682     verify_noerr(m_peer->SetSelectedItems( 0 , NULL , kDataBrowserItemsRemove ) ) ;
 683     MacSuppressSelection( former ) ;
 684 }
 685
 686 void wxListBox::MacSetSelection( int n , bool select )
 687 {
 688     bool former = MacSuppressSelection( true ) ;
 689     UInt32 id = n + 1 ;
 690
 691     if ( m_peer->IsItemSelected( id ) != select )
 692     {
 693         if ( select )
 694             verify_noerr(m_peer->SetSelectedItems( 1 , & id , HasMultipleSelection() ? kDataBrowserItemsAdd : kDataBrowserItemsAssign ) ) ;
 695         else
 696             verify_noerr(m_peer->SetSelectedItems( 1 , & id , kDataBrowserItemsRemove ) ) ;
 697     }
 698     MacScrollTo( n ) ;
 699     MacSuppressSelection( former ) ;
 700 }
 701
 702 bool  wxListBox::MacSuppressSelection( bool suppress )
 703 {
 704     bool former = m_suppressSelection ;
 705     m_suppressSelection = suppress ;
 706     return former ;
 707 }
 708
 709 bool wxListBox::MacIsSelected( int n ) const
 710 {
 711     return m_peer->IsItemSelected( n + 1 ) ;
 712 }
 713
 714 int wxListBox::MacGetSelection() const
 715 {
 716     for ( int i = 0 ; i < GetCount() ; ++i )
 717     {
 718         if ( m_peer->IsItemSelected( i + 1 ) )
 719         {
 720             return i ;
 721         }
 722     }
 723     return -1 ;
 724 }
 725
 726 int wxListBox::MacGetSelections( wxArrayInt& aSelections ) const
 727 {
 728     int no_sel = 0 ;
 729
 730     aSelections.Empty();
 731
 732     UInt32 first , last ;
 733     m_peer->GetSelectionAnchor( &first , &last ) ;
 734     if ( first != kDataBrowserNoItem )
 735     {
 736         for ( size_t i = first ; i <= last ; ++i )
 737         {
 738             if ( m_peer->IsItemSelected( i ) )
 739             {
 740                 aSelections.Add( i - 1 ) ;
 741                 no_sel++ ;
 742             }
 743         }
 744     }
 745     return no_sel ;
 746 }
 747
 748 void wxListBox::MacSet( int n , const wxString& text )
 749 {
 750     // as we don't store the strings we only have to issue a redraw
 751     UInt32 id = n + 1 ;
 752     verify_noerr( m_peer->UpdateItems( kDataBrowserNoItem , 1 , &id , kDataBrowserItemNoProperty , kDataBrowserItemNoProperty ) ) ;
 753 }
 754
 755 void wxListBox::MacScrollTo( int n )
 756 {
 757     UInt32 id = n + 1 ;
 758     verify_noerr(  m_peer->RevealItem( id , kTextColumnId , kDataBrowserRevealWithoutSelecting ) ) ;
 759 }
 760
 761 #if !TARGET_API_MAC_OSX
 762
 763 void wxListBox::OnChar(wxKeyEvent& event)
 764 {
 765     // todo trigger proper events here
 766     event.Skip() ;
 767     return ;
 768
 769     if ( event.GetKeyCode() == WXK_RETURN || event.GetKeyCode() == WXK_NUMPAD_ENTER)
 770     {
 771         wxWindow* parent = GetParent() ;
 772         while( parent  && !parent->IsTopLevel() && parent->GetDefaultItem() == NULL )
 773             parent = parent->GetParent() ;
 774
 775         if ( parent && parent->GetDefaultItem() )
 776         {
 777             wxButton *def = wxDynamicCast(parent->GetDefaultItem(),
 778                 wxButton);
 779             if ( def && def->IsEnabled() )
 780             {
 781                 wxCommandEvent event(wxEVT_COMMAND_BUTTON_CLICKED, def->GetId() );
 782                 event.SetEventObject(def);
 783                 def->Command(event);
 784                 return ;
 785             }
 786         }
 787         event.Skip() ;
 788     }
 789     /* generate wxID_CANCEL if command-. or <esc> has been pressed (typically in dialogs) */
 790     else if (event.GetKeyCode() == WXK_ESCAPE || (event.GetKeyCode() == '.' && event.MetaDown() ) )
 791     {
 792         // FIXME: look in ancestors, not just parent.
 793         wxWindow* win = GetParent()->FindWindow( wxID_CANCEL ) ;
 794         if (win)
 795         {
 796             wxCommandEvent new_event(wxEVT_COMMAND_BUTTON_CLICKED,wxID_CANCEL);
 797             new_event.SetEventObject( win );
 798             win->GetEventHandler()->ProcessEvent( new_event );
 799           }
 800     }
 801     else if ( event.GetKeyCode() == WXK_TAB )
 802     {
 803         wxNavigationKeyEvent new_event;
 804         new_event.SetEventObject( this );
 805         new_event.SetDirection( !event.ShiftDown() );
 806         /* CTRL-TAB changes the (parent) window, i.e. switch notebook page */
 807         new_event.SetWindowChange( event.ControlDown() );
 808         new_event.SetCurrentFocus( this );
 809         if ( !GetEventHandler()->ProcessEvent( new_event ) )
 810             event.Skip() ;
 811     }
 812     else if ( event.GetKeyCode() == WXK_DOWN || event.GetKeyCode() == WXK_UP )
 813     {
 814         // perform the default key handling first
 815         wxControl::OnKeyDown( event ) ;
 816
 817         wxCommandEvent event(wxEVT_COMMAND_LISTBOX_SELECTED, m_windowId);
 818         event.SetEventObject( this );
 819
 820         wxArrayInt aSelections;
 821         int n, count = GetSelections(aSelections);
 822         if ( count > 0 )
 823         {
 824             n = aSelections[0];
 825             if ( HasClientObjectData() )
 826                 event.SetClientObject( GetClientObject(n) );
 827             else if ( HasClientUntypedData() )
 828                 event.SetClientData( GetClientData(n) );
 829             event.SetString( GetString(n) );
 830         }
 831         else
 832         {
 833             n = -1;
 834         }
 835
 836         event.SetInt(n);
 837
 838         GetEventHandler()->ProcessEvent(event);
 839     }
 840     else
 841     {
 842         if ( event.GetTimestamp() > m_lastTypeIn + 60 )
 843         {
 844             m_typeIn = wxEmptyString ;
 845         }
 846         m_lastTypeIn = event.GetTimestamp() ;
 847         m_typeIn += (char) event.GetKeyCode() ;
 848         int line = FindString(wxT("*")+m_typeIn+wxT("*")) ;
 849         if ( line >= 0 )
 850         {
 851             if ( GetSelection() != line )
 852             {
 853                 SetSelection(line) ;
 854                 wxCommandEvent event(wxEVT_COMMAND_LISTBOX_SELECTED, m_windowId);
 855                 event.SetEventObject( this );
 856
 857                 if ( HasClientObjectData() )
 858                     event.SetClientObject( GetClientObject( line ) );
 859                 else if ( HasClientUntypedData() )
 860                     event.SetClientData( GetClientData(line) );
 861                 event.SetString( GetString(line) );
 862
 863                 event.SetInt(line);
 864
 865                 GetEventHandler()->ProcessEvent(event);
 866             }
 867         }
 868     }
 869 }
 870
 871 #endif // !TARGET_API_MAC_OSX
 872
 873 #endif