src/mac/classic/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     EVT_SIZE( wxListBox::OnSize )
  31     EVT_CHAR( wxListBox::OnChar )
  32 END_EVENT_TABLE()
  33 #endif
  34
  35 #include "wx/mac/uma.h"
  36
  37 #if PRAGMA_STRUCT_ALIGN
  38     #pragma options align=mac68k
  39 #elif PRAGMA_STRUCT_PACKPUSH
  40     #pragma pack(push, 2)
  41 #elif PRAGMA_STRUCT_PACK
  42     #pragma pack(2)
  43 #endif
  44
  45 typedef struct {
  46     unsigned short instruction;
  47     void (*function)();
  48 } ldefRec, *ldefPtr, **ldefHandle;
  49
  50 #if PRAGMA_STRUCT_ALIGN
  51     #pragma options align=reset
  52 #elif PRAGMA_STRUCT_PACKPUSH
  53     #pragma pack(pop)
  54 #elif PRAGMA_STRUCT_PACK
  55     #pragma pack()
  56 #endif
  57
  58 #if TARGET_CARBON
  59 const short kwxMacListItemHeight = 19 ;
  60 #else
  61 const short kwxMacListItemHeight = 14 ;
  62 #endif
  63
  64 extern "C"
  65 {
  66 static pascal void wxMacListDefinition( short message, Boolean isSelected, Rect *drawRect,
  67                                      Cell cell, short dataOffset, short dataLength,
  68                                      ListHandle listHandle ) ;
  69 }
  70
  71 static pascal void wxMacListDefinition( short message, Boolean isSelected, Rect *drawRect,
  72                                      Cell cell, short dataOffset, short dataLength,
  73                                      ListHandle listHandle )
  74 {
  75     wxListBox*          list;
  76     list = (wxListBox*) GetControlReference( (ControlHandle) GetListRefCon(listHandle) );
  77     if ( list == NULL )
  78         return ;
  79
  80     GrafPtr savePort;
  81     GrafPtr grafPtr;
  82     RgnHandle savedClipRegion;
  83     SInt32 savedPenMode;
  84     GetPort(&savePort);
  85     SetPort((**listHandle).port);
  86     grafPtr = (**listHandle).port ;
  87     // typecast our refCon
  88
  89     //  Calculate the cell rect.
  90
  91     switch( message ) {
  92     case lInitMsg:
  93         break;
  94
  95     case lCloseMsg:
  96         break;
  97
  98     case lDrawMsg:
  99         {
 100             const wxString linetext = list->m_stringArray[cell.v] ;
 101
 102             //  Save the current clip region, and set the clip region to the area we are about
 103             //  to draw.
 104
 105             savedClipRegion = NewRgn();
 106             GetClip( savedClipRegion );
 107
 108             ClipRect( drawRect );
 109             EraseRect( drawRect );
 110
 111             const wxFont& font = list->GetFont();
 112             if ( font.Ok() )
 113             {
 114                 ::TextFont( font.GetMacFontNum() ) ;
 115                 ::TextSize( font.GetMacFontSize() ) ;
 116                 ::TextFace( font.GetMacFontStyle() ) ;
 117             }
 118             else
 119             {
 120                 ::TextFont( kFontIDMonaco ) ;
 121                 ::TextSize( 9  );
 122                 ::TextFace( 0 ) ;
 123             }
 124
 125 #if TARGET_CARBON
 126                         {
 127                                 Rect frame = { drawRect->top, drawRect->left + 4,
 128                                     drawRect->top + kwxMacListItemHeight, drawRect->right + 10000 } ;
 129                                 CFMutableStringRef mString = CFStringCreateMutableCopy( NULL , 0 , wxMacCFStringHolder(linetext , list->GetFont().GetEncoding()) ) ;
 130                                 ::TruncateThemeText( mString , kThemeCurrentPortFont, kThemeStateActive, drawRect->right - drawRect->left , truncEnd , NULL ) ;
 131                                 ::DrawThemeTextBox( mString,
 132                                     kThemeCurrentPortFont,
 133                                     kThemeStateActive,
 134                                     false,
 135                                     &frame,
 136                                     teJustLeft,
 137                                     nil );
 138                                 CFRelease( mString ) ;
 139                         }
 140 #else
 141             {
 142                 wxCharBuffer text = linetext.mb_str( wxConvLocal) ;
 143                 MoveTo(drawRect->left + 4 , drawRect->top + 10 );
 144                 DrawText(text, 0 , strlen(text) );
 145             }
 146 #endif
 147             //  If the cell is hilited, do the hilite now. Paint the cell contents with the
 148             //  appropriate QuickDraw transform mode.
 149
 150             if( isSelected ) {
 151                 savedPenMode = GetPortPenMode( (CGrafPtr) grafPtr );
 152                 SetPortPenMode( (CGrafPtr)grafPtr, hilitetransfermode );
 153                 PaintRect( drawRect );
 154                 SetPortPenMode( (CGrafPtr)grafPtr, savedPenMode );
 155             }
 156
 157             //  Restore the saved clip region.
 158
 159             SetClip( savedClipRegion );
 160             DisposeRgn( savedClipRegion );
 161         }
 162         break;
 163     case lHiliteMsg:
 164
 165         //  Hilite or unhilite the cell. Paint the cell contents with the
 166         //  appropriate QuickDraw transform mode.
 167
 168         GetPort( &grafPtr );
 169         savedPenMode = GetPortPenMode( (CGrafPtr)grafPtr );
 170         SetPortPenMode( (CGrafPtr)grafPtr, hilitetransfermode );
 171         PaintRect( drawRect );
 172         SetPortPenMode( (CGrafPtr)grafPtr, savedPenMode );
 173         break;
 174     default :
 175         break ;
 176     }
 177     SetPort(savePort);
 178 }
 179
 180 extern "C" void MacDrawStringCell(Rect *cellRect, Cell lCell, ListHandle theList, long refCon) ;
 181 // resources ldef ids
 182 const short kwxMacListWithVerticalScrollbar = 128 ;
 183 const short kwxMacListWithVerticalAndHorizontalScrollbar = 129 ;
 184
 185 // ============================================================================
 186 // list box control implementation
 187 // ============================================================================
 188
 189 // Listbox item
 190 wxListBox::wxListBox()
 191 {
 192   m_noItems = 0;
 193   m_selected = 0;
 194   m_macList = NULL ;
 195 }
 196
 197 static ListDefUPP macListDefUPP = NULL ;
 198
 199 bool wxListBox::Create(wxWindow *parent, wxWindowID id,
 200                        const wxPoint& pos,
 201                        const wxSize& size,
 202                        const wxArrayString& choices,
 203                        long style,
 204                        const wxValidator& validator,
 205                        const wxString& name)
 206 {
 207     wxCArrayString chs(choices);
 208
 209     return Create(parent, id, pos, size, chs.GetCount(), chs.GetStrings(),
 210                   style, validator, name);
 211 }
 212
 213 bool wxListBox::Create(wxWindow *parent, wxWindowID id,
 214                        const wxPoint& pos,
 215                        const wxSize& size,
 216                        int n, const wxString choices[],
 217                        long style,
 218                        const wxValidator& validator,
 219                        const wxString& name)
 220 {
 221     if ( !wxListBoxBase::Create(parent, id, pos, size, style & ~(wxHSCROLL|wxVSCROLL), validator, name) )
 222         return false;
 223
 224     m_noItems = 0 ; // this will be increased by our append command
 225     m_selected = 0;
 226
 227     Rect bounds ;
 228     Str255 title ;
 229
 230     MacPreControlCreate( parent , id ,  wxEmptyString , pos , size ,style, validator , name , &bounds , title ) ;
 231
 232     ListDefSpec listDef;
 233     listDef.defType = kListDefUserProcType;
 234     if ( macListDefUPP == NULL )
 235     {
 236         macListDefUPP = NewListDefUPP( wxMacListDefinition );
 237     }
 238     listDef.u.userProc = macListDefUPP ;
 239
 240     Str255 fontName ;
 241     SInt16 fontSize ;
 242     Style fontStyle ;
 243 #if TARGET_CARBON
 244     GetThemeFont(kThemeViewsFont , GetApplicationScript() , fontName , &fontSize , &fontStyle ) ;
 245 #else
 246     GetFontName( kFontIDMonaco , fontName ) ;
 247     fontSize = 9 ;
 248     fontStyle = normal ;
 249 #endif
 250     SetFont( wxFont (fontSize, wxSWISS, wxNORMAL, wxNORMAL , false , wxMacMakeStringFromPascal( fontName ) ) ) ;
 251 #if TARGET_CARBON
 252     Size asize;
 253
 254
 255     CreateListBoxControl( MAC_WXHWND(parent->MacGetRootWindow()), &bounds, false, 0, 1, (style & wxLB_HSCROLL), true,
 256                           kwxMacListItemHeight, kwxMacListItemHeight, false, &listDef, (ControlRef *)&m_macControl );
 257
 258     GetControlData( (ControlHandle) m_macControl, kControlNoPart, kControlListBoxListHandleTag,
 259                    sizeof(ListHandle), (Ptr) &m_macList, &asize);
 260
 261     SetControlReference( (ControlHandle) m_macControl, (long) this);
 262     SetControlVisibility( (ControlHandle) m_macControl, false, false);
 263
 264 #else
 265
 266     long    result ;
 267     wxStAppResource resload ;
 268     m_macControl = (WXWidget) ::NewControl( MAC_WXHWND(parent->MacGetRootWindow()) , &bounds , title , false ,
 269                   (style & wxLB_HSCROLL) ? kwxMacListWithVerticalAndHorizontalScrollbar : kwxMacListWithVerticalScrollbar ,
 270                   0 , 0, kControlListBoxProc , (long) this ) ;
 271     ::GetControlData( (ControlHandle) m_macControl , kControlNoPart , kControlListBoxListHandleTag ,
 272                sizeof( ListHandle ) , (char*) &m_macList  , &result ) ;
 273
 274     HLock( (Handle) m_macList ) ;
 275     ldefHandle ldef ;
 276     ldef = (ldefHandle) NewHandle( sizeof(ldefRec) ) ;
 277     if (  (**(ListHandle)m_macList).listDefProc != NULL )
 278     {
 279       (**ldef).instruction = 0x4EF9;  /* JMP instruction */
 280       (**ldef).function = (void(*)()) listDef.u.userProc;
 281       (**(ListHandle)m_macList).listDefProc = (Handle) ldef ;
 282     }
 283
 284     Point pt = (**(ListHandle)m_macList).cellSize ;
 285     pt.v = kwxMacListItemHeight ;
 286     LCellSize( pt , (ListHandle)m_macList ) ;
 287     LAddColumn( 1 , 0 , (ListHandle)m_macList ) ;
 288 #endif
 289     OptionBits  options = 0;
 290     if ( style & wxLB_MULTIPLE )
 291     {
 292         options += lExtendDrag + lUseSense  ;
 293     }
 294     else if ( style & wxLB_EXTENDED )
 295     {
 296         // default behaviour
 297     }
 298     else
 299     {
 300         options = (OptionBits) lOnlyOne ;
 301     }
 302     SetListSelectionFlags((ListHandle)m_macList, options);
 303
 304     for ( int i = 0 ; i < n ; i++ )
 305     {
 306         Append( choices[i] ) ;
 307     }
 308
 309     MacPostControlCreate() ;
 310
 311     LSetDrawingMode( true , (ListHandle)m_macList ) ;
 312
 313     return TRUE;
 314 }
 315
 316 wxListBox::~wxListBox()
 317 {
 318     FreeData() ;
 319     // avoid access during destruction
 320     SetControlReference( (ControlHandle) m_macControl , NULL ) ;
 321     if ( m_macList )
 322     {
 323 #if !TARGET_CARBON
 324         DisposeHandle( (**(ListHandle)m_macList).listDefProc ) ;
 325         (**(ListHandle)m_macList).listDefProc = NULL ;
 326 #endif
 327         m_macList = NULL ;
 328     }
 329 }
 330
 331 void wxListBox::FreeData()
 332 {
 333 #if wxUSE_OWNER_DRAWN
 334     if ( m_windowStyle & wxLB_OWNERDRAW )
 335     {
 336         size_t uiCount = m_aItems.Count();
 337         while ( uiCount-- != 0 ) {
 338             delete m_aItems[uiCount];
 339             m_aItems[uiCount] = NULL;
 340         }
 341
 342         m_aItems.Clear();
 343     }
 344     else
 345 #endif // wxUSE_OWNER_DRAWN
 346     if ( HasClientObjectData() )
 347     {
 348         for ( size_t n = 0; n < (size_t)m_noItems; n++ )
 349         {
 350             delete GetClientObject(n);
 351         }
 352     }
 353 }
 354
 355 void  wxListBox::DoSetSize(int x, int y,
 356             int width, int height,
 357             int sizeFlags )
 358 {
 359     wxControl::DoSetSize( x , y , width , height , sizeFlags ) ;
 360 #if TARGET_CARBON
 361     Rect bounds ;
 362     GetControlBounds( (ControlHandle) m_macControl , &bounds ) ;
 363     ControlRef control = GetListVerticalScrollBar( (ListHandle)m_macList ) ;
 364     if ( control )
 365     {
 366         Rect scrollbounds ;
 367         GetControlBounds( control , &scrollbounds ) ;
 368         if( scrollbounds.right != bounds.right + 1 )
 369         {
 370             UMAMoveControl( control , bounds.right - (scrollbounds.right - scrollbounds.left) + 1 ,
 371                 scrollbounds.top ) ;
 372         }
 373     }
 374 #endif
 375 }
 376 void wxListBox::DoSetFirstItem(int N)
 377 {
 378     MacScrollTo( N ) ;
 379 }
 380
 381 void wxListBox::Delete(int N)
 382 {
 383     wxCHECK_RET( N >= 0 && N < m_noItems,
 384                  wxT("invalid index in wxListBox::Delete") );
 385
 386 #if wxUSE_OWNER_DRAWN
 387     delete m_aItems[N];
 388     m_aItems.RemoveAt(N);
 389 #else // !wxUSE_OWNER_DRAWN
 390     if ( HasClientObjectData() )
 391     {
 392         delete GetClientObject(N);
 393     }
 394 #endif // wxUSE_OWNER_DRAWN/!wxUSE_OWNER_DRAWN
 395     m_stringArray.RemoveAt( N ) ;
 396     m_dataArray.RemoveAt( N ) ;
 397     m_noItems --;
 398
 399     MacDelete( N ) ;
 400 }
 401
 402 int wxListBox::DoAppend(const wxString& item)
 403 {
 404     InvalidateBestSize();
 405
 406     int index = m_noItems ;
 407     m_stringArray.Add( item ) ;
 408     m_dataArray.Add( NULL );
 409     m_noItems ++;
 410     DoSetItemClientData( index , NULL ) ;
 411     MacAppend( item ) ;
 412
 413     return index ;
 414 }
 415
 416 void wxListBox::DoSetItems(const wxArrayString& choices, void** clientData)
 417 {
 418     MacSetRedraw( false ) ;
 419     Clear() ;
 420     int n = choices.GetCount();
 421
 422     for( int i = 0 ; i < n ; ++i )
 423     {
 424         if ( clientData )
 425         {
 426 #if wxUSE_OWNER_DRAWN
 427             wxASSERT_MSG(clientData[i] == NULL,
 428                 wxT("Can't use client data with owner-drawn listboxes"));
 429 #else // !wxUSE_OWNER_DRAWN
 430             Append( choices[i] , clientData[i] ) ;
 431 #endif
 432         }
 433         else
 434             Append( choices[i] ) ;
 435     }
 436
 437 #if wxUSE_OWNER_DRAWN
 438     if ( m_windowStyle & wxLB_OWNERDRAW ) {
 439         // first delete old items
 440         size_t ui = m_aItems.Count();
 441         while ( ui-- != 0 ) {
 442             delete m_aItems[ui];
 443             m_aItems[ui] = NULL;
 444         }
 445         m_aItems.Empty();
 446
 447         // then create new ones
 448         for ( ui = 0; ui < (size_t)m_noItems; ui++ ) {
 449             wxOwnerDrawn *pNewItem = CreateItem(ui);
 450             pNewItem->SetName(choices[ui]);
 451             m_aItems.Add(pNewItem);
 452         }
 453     }
 454 #endif // wxUSE_OWNER_DRAWN
 455     MacSetRedraw( true ) ;
 456 }
 457
 458 bool wxListBox::HasMultipleSelection() const
 459 {
 460     return (m_windowStyle & wxLB_MULTIPLE) || (m_windowStyle & wxLB_EXTENDED);
 461 }
 462
 463 int wxListBox::FindString(const wxString& s) const
 464 {
 465
 466     if ( s.Right(1) == wxT("*") )
 467     {
 468         wxString search = s.Left( s.Length() - 1 ) ;
 469         int len = search.Length() ;
 470         Str255 s1 , s2 ;
 471         wxMacStringToPascal( search , s2 ) ;
 472
 473         for ( int i = 0 ; i < m_noItems ; ++ i )
 474         {
 475                 wxMacStringToPascal( m_stringArray[i].Left( len ) , s1 ) ;
 476
 477             if ( EqualString( s1 , s2 , false , false ) )
 478                 return i ;
 479         }
 480         if ( s.Left(1) == wxT("*") && s.Length() > 1 )
 481         {
 482             wxString st = s ;
 483             st.MakeLower() ;
 484             for ( int i = 0 ; i < m_noItems ; ++i )
 485             {
 486                 if ( GetString(i).Lower().Matches(st) )
 487                     return i ;
 488             }
 489         }
 490
 491     }
 492     else
 493     {
 494         Str255 s1 , s2 ;
 495
 496         wxMacStringToPascal( s , s2 ) ;
 497
 498         for ( int i = 0 ; i < m_noItems ; ++ i )
 499         {
 500                 wxMacStringToPascal( m_stringArray[i] , s1 ) ;
 501
 502             if ( EqualString( s1 , s2 , false , false ) )
 503                 return i ;
 504         }
 505     }
 506     return -1;
 507 }
 508
 509 void wxListBox::Clear()
 510 {
 511     FreeData();
 512     m_noItems = 0;
 513     m_stringArray.Empty() ;
 514     m_dataArray.Empty() ;
 515     MacClear() ;
 516 }
 517
 518 void wxListBox::SetSelection(int N, bool select)
 519 {
 520     wxCHECK_RET( N >= 0 && N < m_noItems,
 521         wxT("invalid index in wxListBox::SetSelection") );
 522     MacSetSelection( N , select ) ;
 523     GetSelections( m_selectionPreImage ) ;
 524 }
 525
 526 bool wxListBox::IsSelected(int N) const
 527 {
 528     wxCHECK_MSG( N >= 0 && N < m_noItems, FALSE,
 529         wxT("invalid index in wxListBox::Selected") );
 530
 531     return MacIsSelected( N ) ;
 532 }
 533
 534 void *wxListBox::DoGetItemClientData(int N) const
 535 {
 536     wxCHECK_MSG( N >= 0 && N < m_noItems, NULL,
 537         wxT("invalid index in wxListBox::GetClientData"));
 538
 539     return (void *)m_dataArray[N];
 540 }
 541
 542 wxClientData *wxListBox::DoGetItemClientObject(int N) const
 543 {
 544     return (wxClientData *) DoGetItemClientData( N ) ;
 545 }
 546
 547 void wxListBox::DoSetItemClientData(int N, void *Client_data)
 548 {
 549     wxCHECK_RET( N >= 0 && N < m_noItems,
 550         wxT("invalid index in wxListBox::SetClientData") );
 551
 552 #if wxUSE_OWNER_DRAWN
 553     if ( m_windowStyle & wxLB_OWNERDRAW )
 554     {
 555         // client data must be pointer to wxOwnerDrawn, otherwise we would crash
 556         // in OnMeasure/OnDraw.
 557         wxFAIL_MSG(wxT("Can't use client data with owner-drawn listboxes"));
 558     }
 559 #endif // wxUSE_OWNER_DRAWN
 560     wxASSERT_MSG( m_dataArray.GetCount() >= (size_t) N , wxT("invalid client_data array") ) ;
 561
 562     if ( m_dataArray.GetCount() > (size_t) N )
 563     {
 564         m_dataArray[N] = (char*) Client_data ;
 565     }
 566     else
 567     {
 568         m_dataArray.Add( (char*) Client_data ) ;
 569     }
 570 }
 571
 572 void wxListBox::DoSetItemClientObject(int n, wxClientData* clientData)
 573 {
 574     DoSetItemClientData(n, clientData);
 575 }
 576
 577 // Return number of selections and an array of selected integers
 578 int wxListBox::GetSelections(wxArrayInt& aSelections) const
 579 {
 580     return MacGetSelections( aSelections ) ;
 581 }
 582
 583 // Get single selection, for single choice list items
 584 int wxListBox::GetSelection() const
 585 {
 586     return MacGetSelection() ;
 587 }
 588
 589 // Find string for position
 590 wxString wxListBox::GetString(int N) const
 591 {
 592         return m_stringArray[N]  ;
 593 }
 594
 595 void wxListBox::DoInsertItems(const wxArrayString& items, int pos)
 596 {
 597     wxCHECK_RET( pos >= 0 && pos <= m_noItems,
 598         wxT("invalid index in wxListBox::InsertItems") );
 599
 600     InvalidateBestSize();
 601
 602     int nItems = items.GetCount();
 603
 604     for ( int i = 0 ; i < nItems ; i++ )
 605     {
 606         m_stringArray.Insert( items[i] , pos + i ) ;
 607         m_dataArray.Insert( NULL , pos + i ) ;
 608         MacInsert( pos + i , items[i] ) ;
 609     }
 610
 611     m_noItems += nItems;
 612 }
 613
 614 void wxListBox::SetString(int N, const wxString& s)
 615 {
 616     m_stringArray[N] = s ;
 617     MacSet( N , s ) ;
 618 }
 619
 620 wxSize wxListBox::DoGetBestSize() const
 621 {
 622     int lbWidth = 100;  // some defaults
 623     int lbHeight = 110;
 624     int wLine;
 625
 626     {
 627         wxMacPortStateHelper st( UMAGetWindowPort( (WindowRef) MacGetRootWindow() ) ) ;
 628
 629         if ( m_font.Ok() )
 630         {
 631             ::TextFont( m_font.GetMacFontNum() ) ;
 632             ::TextSize( m_font.GetMacFontSize() ) ;
 633             ::TextFace( m_font.GetMacFontStyle() ) ;
 634         }
 635         else
 636         {
 637             ::TextFont( kFontIDMonaco ) ;
 638             ::TextSize( 9  );
 639             ::TextFace( 0 ) ;
 640         }
 641
 642         // Find the widest line
 643         for(int i = 0; i < GetCount(); i++) {
 644             wxString str(GetString(i));
 645         #if wxUSE_UNICODE
 646             Point bounds={0,0} ;
 647             SInt16 baseline ;
 648             ::GetThemeTextDimensions( wxMacCFStringHolder( str , m_font.GetEncoding() ) ,
 649                 kThemeCurrentPortFont,
 650                 kThemeStateActive,
 651                 false,
 652                 &bounds,
 653                 &baseline );
 654             wLine = bounds.h ;
 655         #else
 656             wLine = ::TextWidth( str.c_str() , 0 , str.Length() ) ;
 657         #endif
 658             lbWidth = wxMax(lbWidth, wLine);
 659         }
 660
 661         // Add room for the scrollbar
 662         lbWidth += wxSystemSettings::GetMetric(wxSYS_VSCROLL_X);
 663
 664         // And just a bit more
 665         int cy = 12 ;
 666         int cx = ::TextWidth( "X" , 0 , 1 ) ;
 667         lbWidth += cx ;
 668
 669         // don't make the listbox too tall (limit height to around 10 items) but don't
 670         // make it too small neither
 671         lbHeight = (cy+4) * wxMin(wxMax(GetCount(), 3), 10);
 672     }
 673     return wxSize(lbWidth, lbHeight);
 674 }
 675
 676 int wxListBox::GetCount() const
 677 {
 678     return m_noItems;
 679 }
 680
 681 void wxListBox::SetupColours()
 682 {
 683     SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW));
 684     SetForegroundColour(GetParent()->GetForegroundColour());
 685 }
 686
 687 void wxListBox::Refresh(bool eraseBack, const wxRect *rect)
 688 {
 689     wxControl::Refresh( eraseBack , rect ) ;
 690     //    MacRedrawControl() ;
 691 }
 692
 693 #if wxUSE_OWNER_DRAWN
 694
 695 class wxListBoxItem : public wxOwnerDrawn
 696 {
 697 public:
 698     wxListBoxItem(const wxString& str = "");
 699 };
 700
 701 wxListBoxItem::wxListBoxItem(const wxString& str) : wxOwnerDrawn(str, FALSE)
 702 {
 703     // no bitmaps/checkmarks
 704     SetMarginWidth(0);
 705 }
 706
 707 wxOwnerDrawn *wxListBox::CreateItem(size_t n)
 708 {
 709     return new wxListBoxItem();
 710 }
 711
 712 #endif  //USE_OWNER_DRAWN
 713
 714 // ============================================================================
 715 // list box control implementation
 716 // ============================================================================
 717
 718 /*
 719 void MacDrawStringCell(Rect *cellRect, Cell lCell, ListHandle theList, long refCon)
 720 {
 721 wxListBox*          list;
 722 // typecast our refCon
 723 list = (wxListBox*)refCon;
 724
 725   MoveTo(cellRect->left + 4 , cellRect->top + 10 );
 726   const wxString text = list->m_stringArray[lCell.v] ;
 727   ::TextFont( kFontIDMonaco ) ;
 728   ::TextSize( 9  );
 729   ::TextFace( 0 ) ;
 730   DrawText(text, 0 , text.Length());
 731
 732     }
 733 */
 734 void wxListBox::MacDelete( int N )
 735 {
 736     LDelRow( 1 , N , (ListHandle)m_macList) ;
 737     Refresh();
 738 }
 739
 740 void wxListBox::MacInsert( int n , const wxString& text)
 741 {
 742     Cell cell = { 0 , 0 } ;
 743     cell.v = n ;
 744     LAddRow( 1 , cell.v , (ListHandle)m_macList ) ;
 745     //    LSetCell(text, strlen(text), cell, m_macList);
 746     Refresh();
 747 }
 748
 749 void wxListBox::MacAppend( const wxString& text)
 750 {
 751     Cell cell = { 0 , 0 } ;
 752     cell.v = (**(ListHandle)m_macList).dataBounds.bottom ;
 753     LAddRow( 1 , cell.v , (ListHandle)m_macList ) ;
 754     //   LSetCell(text, strlen(text), cell, m_macList);
 755     Refresh();
 756 }
 757
 758 void wxListBox::MacClear()
 759 {
 760     LDelRow( (**(ListHandle)m_macList).dataBounds.bottom , 0 ,(ListHandle) m_macList ) ;
 761     Refresh();
 762 }
 763
 764 void wxListBox::MacSetSelection( int n , bool select )
 765 {
 766     Cell cell = { 0 , 0 } ;
 767     if ( ! (m_windowStyle & wxLB_MULTIPLE) )
 768     {
 769         if ( LGetSelect( true , &cell , (ListHandle)m_macList ) )
 770         {
 771             LSetSelect( false , cell , (ListHandle)m_macList ) ;
 772         }
 773     }
 774
 775     cell.v = n ;
 776     LSetSelect( select , cell , (ListHandle)m_macList ) ;
 777     LAutoScroll( (ListHandle)m_macList ) ;
 778     Refresh();
 779 }
 780
 781 bool wxListBox::MacIsSelected( int n ) const
 782 {
 783     Cell cell = { 0 , 0 } ;
 784     cell.v = n ;
 785     return LGetSelect( false , &cell , (ListHandle)m_macList ) ;
 786 }
 787
 788 void wxListBox::MacDestroy()
 789 {
 790     //    DisposeExtLDEFInfo( m_macList ) ;
 791 }
 792
 793 int wxListBox::MacGetSelection() const
 794 {
 795     Cell cell = { 0 , 0 } ;
 796     if ( LGetSelect( true , &cell , (ListHandle)m_macList ) )
 797         return cell.v ;
 798     else
 799         return -1 ;
 800 }
 801
 802 int wxListBox::MacGetSelections( wxArrayInt& aSelections ) const
 803 {
 804     int no_sel = 0 ;
 805
 806     aSelections.Empty();
 807
 808     Cell cell = { 0 , 0 } ;
 809     cell.v = 0 ;
 810
 811     while ( LGetSelect( true , &cell ,(ListHandle) m_macList ) )
 812     {
 813         aSelections.Add( cell.v ) ;
 814         no_sel++ ;
 815         cell.v++ ;
 816     }
 817     return no_sel ;
 818 }
 819
 820 void wxListBox::MacSet( int n , const wxString& text )
 821 {
 822     // our implementation does not store anything in the list
 823     // so we just have to redraw
 824     Cell cell = { 0 , 0 } ;
 825     cell.v = n ;
 826     //  LSetCell(text, strlen(text), cell, m_macList);
 827     Refresh();
 828 }
 829
 830 void wxListBox::MacScrollTo( int n )
 831 {
 832     // TODO implement scrolling
 833 }
 834
 835 void wxListBox::OnSize( wxSizeEvent &event)
 836 {
 837     Point pt;
 838
 839 #if TARGET_CARBON
 840     GetListCellSize((ListHandle)m_macList, &pt);
 841 #else
 842     pt = (**(ListHandle)m_macList).cellSize ;
 843 #endif
 844     pt.h =  m_width - 15  ;
 845     LCellSize( pt , (ListHandle)m_macList ) ;
 846 }
 847
 848 void wxListBox::MacHandleControlClick( WXWidget control , wxInt16 controlpart , bool WXUNUSED(mouseStillDown))
 849 {
 850     Boolean wasDoubleClick = false ;
 851     long    result ;
 852
 853     ::GetControlData( (ControlHandle) m_macControl , kControlNoPart , kControlListBoxDoubleClickTag , sizeof( wasDoubleClick ) , (char*) &wasDoubleClick  , &result ) ;
 854     if ( !wasDoubleClick )
 855     {
 856         MacDoClick() ;
 857     }
 858     else
 859     {
 860         MacDoDoubleClick() ;
 861     }
 862 }
 863
 864 void wxListBox::MacSetRedraw( bool doDraw )
 865 {
 866     LSetDrawingMode( doDraw , (ListHandle)m_macList ) ;
 867
 868 }
 869
 870 void wxListBox::MacDoClick()
 871 {
 872     wxArrayInt aSelections;
 873     int n ;
 874     size_t count = GetSelections(aSelections);
 875
 876     if ( count == m_selectionPreImage.GetCount() )
 877     {
 878         bool hasChanged = false ;
 879         for ( size_t i = 0 ; i < count ; ++i )
 880         {
 881             if ( aSelections[i] != m_selectionPreImage[i] )
 882             {
 883                 hasChanged = true ;
 884                 break ;
 885             }
 886         }
 887         if ( !hasChanged )
 888         {
 889             return ;
 890         }
 891     }
 892
 893     m_selectionPreImage = aSelections;
 894
 895     wxCommandEvent event(wxEVT_COMMAND_LISTBOX_SELECTED, m_windowId);
 896     event.SetEventObject( this );
 897
 898     if ( count > 0 )
 899     {
 900         n = aSelections[0];
 901         if ( HasClientObjectData() )
 902             event.SetClientObject( GetClientObject(n) );
 903         else if ( HasClientUntypedData() )
 904             event.SetClientData( GetClientData(n) );
 905         event.SetString( GetString(n) );
 906     }
 907     else
 908     {
 909         n = -1;
 910     }
 911
 912     event.m_commandInt = n;
 913
 914     GetEventHandler()->ProcessEvent(event);
 915 }
 916
 917 void wxListBox::MacDoDoubleClick()
 918 {
 919     wxCommandEvent event(wxEVT_COMMAND_LISTBOX_DOUBLECLICKED, m_windowId);
 920     event.SetEventObject( this );
 921     GetEventHandler()->ProcessEvent(event) ;
 922 }
 923
 924 void wxListBox::OnChar(wxKeyEvent& event)
 925 {
 926     if ( event.GetKeyCode() == WXK_RETURN || event.GetKeyCode() == WXK_NUMPAD_ENTER)
 927     {
 928         wxWindow* parent = GetParent() ;
 929         while( parent  && !parent->IsTopLevel() && parent->GetDefaultItem() == NULL )
 930             parent = parent->GetParent() ;
 931
 932         if ( parent && parent->GetDefaultItem() )
 933         {
 934             wxButton *def = wxDynamicCast(parent->GetDefaultItem(),
 935                 wxButton);
 936             if ( def && def->IsEnabled() )
 937             {
 938                 wxCommandEvent event(wxEVT_COMMAND_BUTTON_CLICKED, def->GetId() );
 939                 event.SetEventObject(def);
 940                 def->Command(event);
 941                 return ;
 942             }
 943         }
 944         event.Skip() ;
 945     }
 946     /* generate wxID_CANCEL if command-. or <esc> has been pressed (typically in dialogs) */
 947     else if (event.GetKeyCode() == WXK_ESCAPE || (event.GetKeyCode() == '.' && event.MetaDown() ) )
 948     {
 949         // FIXME: look in ancestors, not just parent.
 950         wxWindow* win = GetParent()->FindWindow( wxID_CANCEL ) ;
 951         if (win)
 952         {
 953                 wxCommandEvent new_event(wxEVT_COMMAND_BUTTON_CLICKED,wxID_CANCEL);
 954                 new_event.SetEventObject( win );
 955                 win->GetEventHandler()->ProcessEvent( new_event );
 956         }
 957     }
 958     else if ( event.GetKeyCode() == WXK_TAB )
 959     {
 960         wxNavigationKeyEvent new_event;
 961         new_event.SetEventObject( this );
 962         new_event.SetDirection( !event.ShiftDown() );
 963         /* CTRL-TAB changes the (parent) window, i.e. switch notebook page */
 964         new_event.SetWindowChange( event.ControlDown() );
 965         new_event.SetCurrentFocus( this );
 966         if ( !GetEventHandler()->ProcessEvent( new_event ) )
 967             event.Skip() ;
 968     }
 969     else if ( event.GetKeyCode() == WXK_DOWN || event.GetKeyCode() == WXK_UP )
 970     {
 971         // perform the default key handling first
 972         wxControl::OnKeyDown( event ) ;
 973
 974         wxCommandEvent event(wxEVT_COMMAND_LISTBOX_SELECTED, m_windowId);
 975         event.SetEventObject( this );
 976
 977         wxArrayInt aSelections;
 978         int n, count = GetSelections(aSelections);
 979         if ( count > 0 )
 980         {
 981             n = aSelections[0];
 982             if ( HasClientObjectData() )
 983                 event.SetClientObject( GetClientObject(n) );
 984             else if ( HasClientUntypedData() )
 985                 event.SetClientData( GetClientData(n) );
 986             event.SetString( GetString(n) );
 987         }
 988         else
 989         {
 990             n = -1;
 991         }
 992
 993         event.m_commandInt = n;
 994
 995         GetEventHandler()->ProcessEvent(event);
 996     }
 997     else
 998     {
 999         if ( event.GetTimestamp() > m_lastTypeIn + 60 )
1000         {
1001             m_typeIn = wxEmptyString ;
1002         }
1003         m_lastTypeIn = event.GetTimestamp() ;
1004         m_typeIn += (char) event.GetKeyCode() ;
1005         int line = FindString(wxT("*")+m_typeIn+wxT("*")) ;
1006         if ( line >= 0 )
1007         {
1008             if ( GetSelection() != line )
1009             {
1010                 SetSelection(line) ;
1011                 wxCommandEvent event(wxEVT_COMMAND_LISTBOX_SELECTED, m_windowId);
1012                 event.SetEventObject( this );
1013
1014                 if ( HasClientObjectData() )
1015                     event.SetClientObject( GetClientObject( line ) );
1016                 else if ( HasClientUntypedData() )
1017                     event.SetClientData( GetClientData(line) );
1018                 event.SetString( GetString(line) );
1019
1020                 event.m_commandInt = line ;
1021
1022                 GetEventHandler()->ProcessEvent(event);
1023             }
1024         }
1025     }
1026 }
1027