src/mac/carbon/listbox.cpp

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