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