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