]> git.saurik.com Git - wxWidgets.git/blame_incremental - src/mac/carbon/listbox.cpp
projects / wxWidgets.git / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
removed Win16 code (patch 905241), last version with remains of Win16 support tagged...
[wxWidgets.git] / src / mac / carbon / listbox.cpp
... / ...
CommitLineData
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
27IMPLEMENT_DYNAMIC_CLASS(wxListBox, wxControl)
28
29BEGIN_EVENT_TABLE(wxListBox, wxControl)
30#if !TARGET_API_MAC_OSX
31 EVT_SIZE( wxListBox::OnSize )
32 EVT_CHAR( wxListBox::OnChar )
33#endif
34END_EVENT_TABLE()
35#endif
36
37#include "wx/mac/uma.h"
38
39#if TARGET_API_MAC_OSX
40
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
65static pascal OSStatus ListBoxGetSetItemData(ControlRef browser,
66 DataBrowserItemID itemID, DataBrowserPropertyID property,
67 DataBrowserItemDataRef itemData, Boolean changeValue)
68{
69 OSStatus err = errDataBrowserPropertyNotSupported;
70
71 if ( ! changeValue )
72 {
73 switch (property)
74 {
75
76 case 1024:
77 {
78 long ref = GetControlReference( browser ) ;
79 if ( ref )
80 {
81 wxListBox* list = wxDynamicCast( ref , wxListBox ) ;
82 for ( size_t i = 0 ; i < list->m_idArray.GetCount() ; ++i )
83 if ( list->m_idArray[i] == (long) itemID )
84 {
85 wxMacCFStringHolder cf( list->GetString(i) , list->GetFont().GetEncoding() ) ;
86 verify_noerr( ::SetDataBrowserItemDataText( itemData , cf ) ) ;
87 err = noErr ;
88 break ;
89 }
90 }
91 }
92 break;
93
94 default:
95
96 break;
97 }
98 }
99
100 return err;
101}
102bool wxListBox::Create(wxWindow *parent, wxWindowID id,
103 const wxPoint& pos,
104 const wxSize& size,
105 int n, const wxString choices[],
106 long style,
107 const wxValidator& validator,
108 const wxString& name)
109{
110 m_macIsUserPane = FALSE ;
111
112 if ( !wxListBoxBase::Create(parent, id, pos, size, style & ~(wxHSCROLL|wxVSCROLL), validator, name) )
113 return false;
114
115 m_noItems = 0 ; // this will be increased by our append command
116 m_selected = 0;
117 m_nextId = 1 ;
118
119
120 Rect bounds = wxMacGetBoundsForControl( this , pos , size ) ;
121 ControlRef browser ;
122
123 verify_noerr( ::CreateDataBrowserControl( MAC_WXHWND(parent->MacGetTopLevelWindowRef()), &bounds, kDataBrowserListView , (ControlRef *)&m_macControl ) );
124 browser = (ControlRef) m_macControl ;
125
126 DataBrowserSelectionFlags options = kDataBrowserDragSelect ;
127 if ( style & wxLB_MULTIPLE )
128 {
129 options += kDataBrowserAlwaysExtendSelection + kDataBrowserCmdTogglesSelection ;
130 }
131 else if ( style & wxLB_EXTENDED )
132 {
133 // default behaviour
134 }
135 else
136 {
137 options += kDataBrowserSelectOnlyOne ;
138 }
139 verify_noerr(SetDataBrowserSelectionFlags (browser, options ) );
140
141 DataBrowserListViewColumnDesc columnDesc ;
142 columnDesc.headerBtnDesc.titleOffset = 0;
143 columnDesc.headerBtnDesc.version = kDataBrowserListViewLatestHeaderDesc;
144
145 columnDesc.headerBtnDesc.btnFontStyle.flags =
146 kControlUseFontMask | kControlUseJustMask;
147
148 columnDesc.headerBtnDesc.btnContentInfo.contentType = kControlNoContent;
149 columnDesc.propertyDesc.propertyType = kDataBrowserTextType;
150 columnDesc.headerBtnDesc.btnFontStyle.just = teFlushDefault;
151 columnDesc.headerBtnDesc.minimumWidth = 0;
152 columnDesc.headerBtnDesc.maximumWidth = 10000;
153
154 columnDesc.headerBtnDesc.btnFontStyle.font = kControlFontViewSystemFont;
155 columnDesc.headerBtnDesc.btnFontStyle.style = normal;
156 columnDesc.headerBtnDesc.titleString = NULL ; // CFSTR( "" );
157
158 columnDesc.propertyDesc.propertyID = 1024;
159 columnDesc.propertyDesc.propertyType = kDataBrowserTextType;
160 columnDesc.propertyDesc.propertyFlags = kDataBrowserListViewTypeSelectColumn | kDataBrowserTableViewSelectionColumn ;
161
162
163 verify_noerr(::AddDataBrowserListViewColumn(browser, &columnDesc, kDataBrowserListViewAppendColumn) ) ;
164 verify_noerr(::AutoSizeDataBrowserListViewColumns( browser ) ) ;
165 verify_noerr(::SetDataBrowserHasScrollBars( browser , false , true ) ) ;
166 verify_noerr(::SetDataBrowserTableViewHiliteStyle( browser, kDataBrowserTableViewFillHilite ) ) ;
167 verify_noerr(::SetDataBrowserListViewHeaderBtnHeight( browser , 0 ) ) ;
168 DataBrowserCallbacks callbacks ;
169
170 callbacks.version = kDataBrowserLatestCallbacks;
171
172 InitDataBrowserCallbacks(&callbacks);
173
174 callbacks.u.v1.itemDataCallback =
175 NewDataBrowserItemDataUPP(ListBoxGetSetItemData);
176
177 SetDataBrowserCallbacks(browser, &callbacks);
178
179 MacPostControlCreate(pos,size) ;
180
181 for ( int i = 0 ; i < n ; i++ )
182 {
183 Append( choices[i] ) ;
184 }
185
186 return TRUE;
187}
188
189wxListBox::~wxListBox()
190{
191 SetControlReference( (ControlRef) m_macControl , NULL ) ;
192 FreeData() ;
193 // avoid access during destruction
194 if ( m_macList )
195 {
196 m_macList = NULL ;
197 }
198}
199
200void wxListBox::FreeData()
201{
202#if wxUSE_OWNER_DRAWN
203 if ( m_windowStyle & wxLB_OWNERDRAW )
204 {
205 size_t uiCount = m_aItems.Count();
206 while ( uiCount-- != 0 ) {
207 delete m_aItems[uiCount];
208 m_aItems[uiCount] = NULL;
209 }
210
211 m_aItems.Clear();
212 }
213 else
214#endif // wxUSE_OWNER_DRAWN
215 if ( HasClientObjectData() )
216 {
217 for ( size_t n = 0; n < (size_t)m_noItems; n++ )
218 {
219 delete GetClientObject(n);
220 }
221 }
222}
223
224void wxListBox::DoSetSize(int x, int y,
225 int width, int height,
226 int sizeFlags )
227{
228 wxControl::DoSetSize( x , y , width , height , sizeFlags ) ;
229}
230
231void wxListBox::DoSetFirstItem(int N)
232{
233 MacScrollTo( N ) ;
234}
235
236void wxListBox::Delete(int N)
237{
238 wxCHECK_RET( N >= 0 && N < m_noItems,
239 wxT("invalid index in wxListBox::Delete") );
240
241#if wxUSE_OWNER_DRAWN
242 delete m_aItems[N];
243 m_aItems.RemoveAt(N);
244#else // !wxUSE_OWNER_DRAWN
245 if ( HasClientObjectData() )
246 {
247 delete GetClientObject(N);
248 }
249#endif // wxUSE_OWNER_DRAWN/!wxUSE_OWNER_DRAWN
250 m_stringArray.RemoveAt( N ) ;
251 m_dataArray.RemoveAt( N ) ;
252 m_noItems --;
253
254 MacDelete( N ) ;
255}
256
257int wxListBox::DoAppend(const wxString& item)
258{
259 int index = m_noItems ;
260 m_stringArray.Add( item ) ;
261 m_dataArray.Add( NULL );
262 m_noItems ++;
263 DoSetItemClientData( index , NULL ) ;
264 MacAppend( item ) ;
265
266 return index ;
267}
268
269void wxListBox::DoSetItems(const wxArrayString& choices, void** clientData)
270{
271 Clear() ;
272 int n = choices.GetCount();
273
274 for( int i = 0 ; i < n ; ++i )
275 {
276 if ( clientData )
277 {
278#if wxUSE_OWNER_DRAWN
279 wxASSERT_MSG(clientData[i] == NULL,
280 wxT("Can't use client data with owner-drawn listboxes"));
281#else // !wxUSE_OWNER_DRAWN
282 Append( choices[i] , clientData[i] ) ;
283#endif
284 }
285 else
286 Append( choices[i] ) ;
287 }
288
289#if wxUSE_OWNER_DRAWN
290 if ( m_windowStyle & wxLB_OWNERDRAW ) {
291 // first delete old items
292 size_t ui = m_aItems.Count();
293 while ( ui-- != 0 ) {
294 delete m_aItems[ui];
295 m_aItems[ui] = NULL;
296 }
297 m_aItems.Empty();
298
299 // then create new ones
300 for ( ui = 0; ui < (size_t)m_noItems; ui++ ) {
301 wxOwnerDrawn *pNewItem = CreateItem(ui);
302 pNewItem->SetName(choices[ui]);
303 m_aItems.Add(pNewItem);
304 }
305 }
306#endif // wxUSE_OWNER_DRAWN
307}
308
309bool wxListBox::HasMultipleSelection() const
310{
311 return (m_windowStyle & wxLB_MULTIPLE) || (m_windowStyle & wxLB_EXTENDED);
312}
313
314int wxListBox::FindString(const wxString& s) const
315{
316
317 if ( s.Right(1) == wxT("*") )
318 {
319 wxString search = s.Left( s.Length() - 1 ) ;
320 int len = search.Length() ;
321 Str255 s1 , s2 ;
322 wxMacStringToPascal( search , s2 ) ;
323
324 for ( int i = 0 ; i < m_noItems ; ++ i )
325 {
326 wxMacStringToPascal( m_stringArray[i].Left( len ) , s1 ) ;
327
328 if ( EqualString( s1 , s2 , false , false ) )
329 return i ;
330 }
331 if ( s.Left(1) == wxT("*") && s.Length() > 1 )
332 {
333 wxString st = s ;
334 st.MakeLower() ;
335 for ( int i = 0 ; i < m_noItems ; ++i )
336 {
337 if ( GetString(i).Lower().Matches(st) )
338 return i ;
339 }
340 }
341
342 }
343 else
344 {
345 Str255 s1 , s2 ;
346
347 wxMacStringToPascal( s , s2 ) ;
348
349 for ( int i = 0 ; i < m_noItems ; ++ i )
350 {
351 wxMacStringToPascal( m_stringArray[i] , s1 ) ;
352
353 if ( EqualString( s1 , s2 , false , false ) )
354 return i ;
355 }
356 }
357 return -1;
358}
359
360void wxListBox::Clear()
361{
362 FreeData();
363 m_noItems = 0;
364 m_stringArray.Empty() ;
365 m_dataArray.Empty() ;
366 MacClear() ;
367}
368
369void wxListBox::SetSelection(int N, bool select)
370{
371 wxCHECK_RET( N >= 0 && N < m_noItems,
372 wxT("invalid index in wxListBox::SetSelection") );
373 MacSetSelection( N , select ) ;
374 GetSelections( m_selectionPreImage ) ;
375}
376
377bool wxListBox::IsSelected(int N) const
378{
379 wxCHECK_MSG( N >= 0 && N < m_noItems, FALSE,
380 wxT("invalid index in wxListBox::Selected") );
381
382 return MacIsSelected( N ) ;
383}
384
385void *wxListBox::DoGetItemClientData(int N) const
386{
387 wxCHECK_MSG( N >= 0 && N < m_noItems, NULL,
388 wxT("invalid index in wxListBox::GetClientData"));
389
390 return (void *)m_dataArray[N];
391}
392
393wxClientData *wxListBox::DoGetItemClientObject(int N) const
394{
395 return (wxClientData *) DoGetItemClientData( N ) ;
396}
397
398void wxListBox::DoSetItemClientData(int N, void *Client_data)
399{
400 wxCHECK_RET( N >= 0 && N < m_noItems,
401 wxT("invalid index in wxListBox::SetClientData") );
402
403#if wxUSE_OWNER_DRAWN
404 if ( m_windowStyle & wxLB_OWNERDRAW )
405 {
406 // client data must be pointer to wxOwnerDrawn, otherwise we would crash
407 // in OnMeasure/OnDraw.
408 wxFAIL_MSG(wxT("Can't use client data with owner-drawn listboxes"));
409 }
410#endif // wxUSE_OWNER_DRAWN
411 wxASSERT_MSG( m_dataArray.GetCount() >= (size_t) N , wxT("invalid client_data array") ) ;
412
413 if ( m_dataArray.GetCount() > (size_t) N )
414 {
415 m_dataArray[N] = (char*) Client_data ;
416 }
417 else
418 {
419 m_dataArray.Add( (char*) Client_data ) ;
420 }
421}
422
423void wxListBox::DoSetItemClientObject(int n, wxClientData* clientData)
424{
425 DoSetItemClientData(n, clientData);
426}
427
428// Return number of selections and an array of selected integers
429int wxListBox::GetSelections(wxArrayInt& aSelections) const
430{
431 return MacGetSelections( aSelections ) ;
432}
433
434// Get single selection, for single choice list items
435int wxListBox::GetSelection() const
436{
437 return MacGetSelection() ;
438}
439
440// Find string for position
441wxString wxListBox::GetString(int N) const
442{
443 return m_stringArray[N] ;
444}
445
446void wxListBox::DoInsertItems(const wxArrayString& items, int pos)
447{
448 wxCHECK_RET( pos >= 0 && pos <= m_noItems,
449 wxT("invalid index in wxListBox::InsertItems") );
450
451 int nItems = items.GetCount();
452
453 for ( int i = 0 ; i < nItems ; i++ )
454 {
455 m_stringArray.Insert( items[i] , pos + i ) ;
456 m_dataArray.Insert( NULL , pos + i ) ;
457 MacInsert( pos + i , items[i] ) ;
458 }
459
460 m_noItems += nItems;
461}
462
463void wxListBox::SetString(int N, const wxString& s)
464{
465 m_stringArray[N] = s ;
466 MacSet( N , s ) ;
467}
468
469wxSize wxListBox::DoGetBestSize() const
470{
471 int lbWidth = 100; // some defaults
472 int lbHeight = 110;
473 int wLine;
474
475 {
476 wxMacPortStateHelper st( UMAGetWindowPort( (WindowRef) MacGetTopLevelWindowRef() ) ) ;
477
478 if ( m_font.Ok() )
479 {
480 ::TextFont( m_font.MacGetFontNum() ) ;
481 ::TextSize( m_font.MacGetFontSize() ) ;
482 ::TextFace( m_font.MacGetFontStyle() ) ;
483 }
484 else
485 {
486 ::TextFont( kFontIDMonaco ) ;
487 ::TextSize( 9 );
488 ::TextFace( 0 ) ;
489 }
490
491 // Find the widest line
492 for(int i = 0; i < GetCount(); i++) {
493 wxString str(GetString(i));
494 #if wxUSE_UNICODE
495 Point bounds={0,0} ;
496 SInt16 baseline ;
497 ::GetThemeTextDimensions( wxMacCFStringHolder( str , m_font.GetEncoding() ) ,
498 kThemeCurrentPortFont,
499 kThemeStateActive,
500 false,
501 &bounds,
502 &baseline );
503 wLine = bounds.h ;
504 #else
505 wLine = ::TextWidth( str.c_str() , 0 , str.Length() ) ;
506 #endif
507 lbWidth = wxMax(lbWidth, wLine);
508 }
509
510 // Add room for the scrollbar
511 lbWidth += wxSystemSettings::GetMetric(wxSYS_VSCROLL_X);
512
513 // And just a bit more
514 int cy = 12 ;
515 int cx = ::TextWidth( "X" , 0 , 1 ) ;
516 lbWidth += cx ;
517
518 // don't make the listbox too tall (limit height to around 10 items) but don't
519 // make it too small neither
520 lbHeight = (cy+4) * wxMin(wxMax(GetCount(), 3), 10);
521 }
522
523 return wxSize(lbWidth, lbHeight);
524}
525
526int wxListBox::GetCount() const
527{
528 return m_noItems;
529}
530
531void wxListBox::Refresh(bool eraseBack, const wxRect *rect)
532{
533 wxControl::Refresh( eraseBack , rect ) ;
534 // MacRedrawControl() ;
535}
536
537#if wxUSE_OWNER_DRAWN
538
539class wxListBoxItem : public wxOwnerDrawn
540{
541public:
542 wxListBoxItem(const wxString& str = "");
543};
544
545wxListBoxItem::wxListBoxItem(const wxString& str) : wxOwnerDrawn(str, FALSE)
546{
547 // no bitmaps/checkmarks
548 SetMarginWidth(0);
549}
550
551wxOwnerDrawn *wxListBox::CreateItem(size_t n)
552{
553 return new wxListBoxItem();
554}
555
556#endif //USE_OWNER_DRAWN
557
558// ============================================================================
559// list box control implementation
560// ============================================================================
561
562void wxListBox::MacDelete( int N )
563{
564 UInt32 id = m_idArray[N] ;
565 verify_noerr(::RemoveDataBrowserItems((ControlRef) m_macControl , kDataBrowserNoItem , 1 , (UInt32*) &id , kDataBrowserItemNoProperty ) ) ;
566 m_idArray.RemoveAt( N ) ;
567}
568
569void wxListBox::MacInsert( int n , const wxString& text)
570{
571 verify_noerr(::AddDataBrowserItems( (ControlRef) m_macControl , kDataBrowserNoItem , 1 , (UInt32*) &m_nextId , kDataBrowserItemNoProperty ) ) ;
572 m_idArray.Insert( m_nextId , n ) ;
573 ++m_nextId ;
574}
575
576void wxListBox::MacAppend( const wxString& text)
577{
578 verify_noerr(::AddDataBrowserItems( (ControlRef) m_macControl , kDataBrowserNoItem , 1 , (UInt32*) &m_nextId , kDataBrowserItemNoProperty ) ) ;
579 m_idArray.Add( m_nextId ) ;
580 ++m_nextId ;
581}
582
583void wxListBox::MacClear()
584{
585 verify_noerr(::RemoveDataBrowserItems((ControlRef) m_macControl , kDataBrowserNoItem , 0 , NULL , kDataBrowserItemNoProperty ) ) ;
586 m_dataArray.Empty() ;
587}
588
589void wxListBox::MacSetSelection( int n , bool select )
590{
591 UInt32 id = m_idArray[n] ;
592 if ( ::IsDataBrowserItemSelected( (ControlRef) m_macControl , id ) != select )
593 {
594 verify_noerr(::SetDataBrowserSelectedItems((ControlRef) m_macControl , 1 , & id , kDataBrowserItemsToggle ) ) ;
595 }
596 MacScrollTo( n ) ;
597}
598
599bool wxListBox::MacIsSelected( int n ) const
600{
601 return ::IsDataBrowserItemSelected( (ControlRef) m_macControl , m_idArray[n] ) ;
602}
603
604int wxListBox::MacGetSelection() const
605{
606 for ( size_t i = 0 ; i < m_idArray.GetCount() ; ++i )
607 {
608 if ( ::IsDataBrowserItemSelected((ControlRef) m_macControl , m_idArray[i] ) )
609 {
610 return i ;
611 }
612 }
613 return -1 ;
614}
615
616int wxListBox::MacGetSelections( wxArrayInt& aSelections ) const
617{
618 int no_sel = 0 ;
619
620 aSelections.Empty();
621 for ( size_t i = 0 ; i < m_idArray.GetCount() ; ++i )
622 {
623 if ( ::IsDataBrowserItemSelected((ControlRef) m_macControl , m_idArray[i] ) )
624 {
625 aSelections.Add( i ) ;
626 no_sel++ ;
627 }
628 }
629 return no_sel ;
630}
631
632void wxListBox::MacSet( int n , const wxString& text )
633{
634 // as we don't store the strings we only have to issue a redraw
635 UInt32 id = m_idArray[n] ;
636 verify_noerr( ::UpdateDataBrowserItems( (ControlRef) m_macControl , kDataBrowserNoItem , 1 , &id , kDataBrowserItemNoProperty , kDataBrowserItemNoProperty ) ) ;
637}
638
639void wxListBox::MacScrollTo( int n )
640{
641 // TODO implement scrolling
642}
643
644void wxListBox::OnSize( wxSizeEvent &event)
645{
646}
647
648void wxListBox::MacHandleControlClick( WXWidget control , wxInt16 controlpart , bool WXUNUSED(mouseStillDown))
649{
650 Boolean wasDoubleClick = false ;
651 long result ;
652
653 ::GetControlData( (ControlRef) m_macControl , kControlNoPart , kControlListBoxDoubleClickTag , sizeof( wasDoubleClick ) , (char*) &wasDoubleClick , &result ) ;
654 if ( !wasDoubleClick )
655 {
656 MacDoClick() ;
657 }
658 else
659 {
660 MacDoDoubleClick() ;
661 }
662}
663
664void wxListBox::MacSetRedraw( bool doDraw )
665{
666 // nothing to do in compositing mode
667}
668
669void wxListBox::MacDoClick()
670{
671 wxArrayInt aSelections;
672 int n ;
673 size_t count = GetSelections(aSelections);
674
675 if ( count == m_selectionPreImage.GetCount() )
676 {
677 bool hasChanged = false ;
678 for ( size_t i = 0 ; i < count ; ++i )
679 {
680 if ( aSelections[i] != m_selectionPreImage[i] )
681 {
682 hasChanged = true ;
683 break ;
684 }
685 }
686 if ( !hasChanged )
687 {
688 return ;
689 }
690 }
691
692 m_selectionPreImage = aSelections;
693
694 wxCommandEvent event(wxEVT_COMMAND_LISTBOX_SELECTED, m_windowId);
695 event.SetEventObject( this );
696
697 if ( count > 0 )
698 {
699 n = aSelections[0];
700 if ( HasClientObjectData() )
701 event.SetClientObject( GetClientObject(n) );
702 else if ( HasClientUntypedData() )
703 event.SetClientData( GetClientData(n) );
704 event.SetString( GetString(n) );
705 }
706 else
707 {
708 n = -1;
709 }
710
711 event.m_commandInt = n;
712
713 GetEventHandler()->ProcessEvent(event);
714}
715
716void wxListBox::MacDoDoubleClick()
717{
718 wxCommandEvent event(wxEVT_COMMAND_LISTBOX_DOUBLECLICKED, m_windowId);
719 event.SetEventObject( this );
720 GetEventHandler()->ProcessEvent(event) ;
721}
722
723void wxListBox::OnChar(wxKeyEvent& event)
724{
725 // todo trigger proper events here
726 event.Skip() ;
727 return ;
728
729 if ( event.GetKeyCode() == WXK_RETURN || event.GetKeyCode() == WXK_NUMPAD_ENTER)
730 {
731 wxWindow* parent = GetParent() ;
732 while( parent && !parent->IsTopLevel() && parent->GetDefaultItem() == NULL )
733 parent = parent->GetParent() ;
734
735 if ( parent && parent->GetDefaultItem() )
736 {
737 wxButton *def = wxDynamicCast(parent->GetDefaultItem(),
738 wxButton);
739 if ( def && def->IsEnabled() )
740 {
741 wxCommandEvent event(wxEVT_COMMAND_BUTTON_CLICKED, def->GetId() );
742 event.SetEventObject(def);
743 def->Command(event);
744 return ;
745 }
746 }
747 event.Skip() ;
748 }
749 /* generate wxID_CANCEL if command-. or <esc> has been pressed (typically in dialogs) */
750 else if (event.GetKeyCode() == WXK_ESCAPE || (event.GetKeyCode() == '.' && event.MetaDown() ) )
751 {
752 // FIXME: look in ancestors, not just parent.
753 wxWindow* win = GetParent()->FindWindow( wxID_CANCEL ) ;
754 if (win)
755 {
756 wxCommandEvent new_event(wxEVT_COMMAND_BUTTON_CLICKED,wxID_CANCEL);
757 new_event.SetEventObject( win );
758 win->GetEventHandler()->ProcessEvent( new_event );
759 }
760 }
761 else if ( event.GetKeyCode() == WXK_TAB )
762 {
763 wxNavigationKeyEvent new_event;
764 new_event.SetEventObject( this );
765 new_event.SetDirection( !event.ShiftDown() );
766 /* CTRL-TAB changes the (parent) window, i.e. switch notebook page */
767 new_event.SetWindowChange( event.ControlDown() );
768 new_event.SetCurrentFocus( this );
769 if ( !GetEventHandler()->ProcessEvent( new_event ) )
770 event.Skip() ;
771 }
772 else if ( event.GetKeyCode() == WXK_DOWN || event.GetKeyCode() == WXK_UP )
773 {
774 // perform the default key handling first
775 wxControl::OnKeyDown( event ) ;
776
777 wxCommandEvent event(wxEVT_COMMAND_LISTBOX_SELECTED, m_windowId);
778 event.SetEventObject( this );
779
780 wxArrayInt aSelections;
781 int n, count = GetSelections(aSelections);
782 if ( count > 0 )
783 {
784 n = aSelections[0];
785 if ( HasClientObjectData() )
786 event.SetClientObject( GetClientObject(n) );
787 else if ( HasClientUntypedData() )
788 event.SetClientData( GetClientData(n) );
789 event.SetString( GetString(n) );
790 }
791 else
792 {
793 n = -1;
794 }
795
796 event.m_commandInt = n;
797
798 GetEventHandler()->ProcessEvent(event);
799 }
800 else
801 {
802 if ( event.GetTimestamp() > m_lastTypeIn + 60 )
803 {
804 m_typeIn = wxEmptyString ;
805 }
806 m_lastTypeIn = event.GetTimestamp() ;
807 m_typeIn += (char) event.GetKeyCode() ;
808 int line = FindString(wxT("*")+m_typeIn+wxT("*")) ;
809 if ( line >= 0 )
810 {
811 if ( GetSelection() != line )
812 {
813 SetSelection(line) ;
814 wxCommandEvent event(wxEVT_COMMAND_LISTBOX_SELECTED, m_windowId);
815 event.SetEventObject( this );
816
817 if ( HasClientObjectData() )
818 event.SetClientObject( GetClientObject( line ) );
819 else if ( HasClientUntypedData() )
820 event.SetClientData( GetClientData(line) );
821 event.SetString( GetString(line) );
822
823 event.m_commandInt = line ;
824
825 GetEventHandler()->ProcessEvent(event);
826 }
827 }
828 }
829}
830
831#else
832
833// old carbon version
834
835const short kwxMacListItemHeight = 19 ;
836
837extern "C"
838{
839static pascal void wxMacListDefinition( short message, Boolean isSelected, Rect *drawRect,
840 Cell cell, short dataOffset, short dataLength,
841 ListHandle listHandle ) ;
842}
843
844static pascal void wxMacListDefinition( short message, Boolean isSelected, Rect *d,
845 Cell cell, short dataOffset, short dataLength,
846 ListHandle listHandle )
847{
848 wxListBox* list;
849 Rect r = *d ;
850 Rect* drawRect = &r ;
851
852 list = (wxListBox*) GetControlReference( (ControlRef) GetListRefCon(listHandle) );
853 if ( list == NULL || list->GetHandle() == NULL || GetControlReference( ( ControlRef )list->GetHandle() ) == NULL )
854 return ;
855
856 // the bounds passed in are not correct, adjust the right border
857 int x = 0 , y = 0 ;
858 Rect bounds ;
859 GetControlBounds( (ControlRef) list->GetHandle() , &bounds ) ;
860 r.right = r.left + (bounds.right - bounds.left ) - 16 ;
861
862 GrafPtr savePort;
863 GrafPtr grafPtr;
864 RgnHandle savedClipRegion;
865 SInt32 savedPenMode;
866 GetPort(&savePort);
867 SetPort((**listHandle).port);
868 grafPtr = (**listHandle).port ;
869 // typecast our refCon
870
871 // Calculate the cell rect.
872
873 switch( message ) {
874 case lInitMsg:
875 break;
876
877 case lCloseMsg:
878 break;
879
880 case lDrawMsg:
881 {
882 const wxString linetext = list->m_stringArray[cell.v] ;
883
884 // Save the current clip region, and set the clip region to the area we are about
885 // to draw.
886
887 savedClipRegion = NewRgn();
888 GetClip( savedClipRegion );
889
890 ClipRect( drawRect );
891 EraseRect( drawRect );
892
893 const wxFont& font = list->GetFont();
894 if ( font.Ok() )
895 {
896 ::TextFont( font.MacGetFontNum() ) ;
897 ::TextSize( font.MacGetFontSize() ) ;
898 ::TextFace( font.MacGetFontStyle() ) ;
899 }
900 else
901 {
902 ::TextFont( kFontIDMonaco ) ;
903 ::TextSize( 9 );
904 ::TextFace( 0 ) ;
905 }
906
907 {
908 Rect frame = { drawRect->top, drawRect->left + 4,
909 drawRect->top + kwxMacListItemHeight, drawRect->right + 10000 } ;
910 CFMutableStringRef mString = CFStringCreateMutableCopy( NULL , 0 , wxMacCFStringHolder(linetext , list->GetFont().GetEncoding()) ) ;
911 ::TruncateThemeText( mString , kThemeCurrentPortFont, kThemeStateActive, drawRect->right - drawRect->left , truncEnd , NULL ) ;
912
913 ::DrawThemeTextBox( mString,
914 kThemeCurrentPortFont,
915 kThemeStateActive,
916 false,
917 &frame,
918 teJustLeft,
919 nil );
920
921 CFRelease( mString ) ;
922 }
923
924 // If the cell is hilited, do the hilite now. Paint the cell contents with the
925 // appropriate QuickDraw transform mode.
926
927 if( isSelected ) {
928 savedPenMode = GetPortPenMode( (CGrafPtr) grafPtr );
929 SetPortPenMode( (CGrafPtr)grafPtr, hilitetransfermode );
930 PaintRect( drawRect );
931 SetPortPenMode( (CGrafPtr)grafPtr, savedPenMode );
932 }
933
934 // Restore the saved clip region.
935
936 SetClip( savedClipRegion );
937 DisposeRgn( savedClipRegion );
938 }
939 break;
940 case lHiliteMsg:
941
942 // Hilite or unhilite the cell. Paint the cell contents with the
943 // appropriate QuickDraw transform mode.
944
945 GetPort( &grafPtr );
946 savedPenMode = GetPortPenMode( (CGrafPtr)grafPtr );
947 SetPortPenMode( (CGrafPtr)grafPtr, hilitetransfermode );
948 PaintRect( drawRect );
949 SetPortPenMode( (CGrafPtr)grafPtr, savedPenMode );
950 break;
951 default :
952 break ;
953 }
954 SetPort(savePort);
955}
956
957extern "C" void MacDrawStringCell(Rect *cellRect, Cell lCell, ListHandle theList, long refCon) ;
958// resources ldef ids
959const short kwxMacListWithVerticalScrollbar = 128 ;
960const short kwxMacListWithVerticalAndHorizontalScrollbar = 129 ;
961
962// ============================================================================
963// list box control implementation
964// ============================================================================
965
966// Listbox item
967wxListBox::wxListBox()
968{
969 m_noItems = 0;
970 m_selected = 0;
971 m_macList = NULL ;
972}
973
974static ListDefUPP macListDefUPP = NULL ;
975
976bool wxListBox::Create(wxWindow *parent, wxWindowID id,
977 const wxPoint& pos,
978 const wxSize& size,
979 const wxArrayString& choices,
980 long style,
981 const wxValidator& validator,
982 const wxString& name)
983{
984 wxCArrayString chs(choices);
985
986 return Create(parent, id, pos, size, chs.GetCount(), chs.GetStrings(),
987 style, validator, name);
988}
989
990bool wxListBox::Create(wxWindow *parent, wxWindowID id,
991 const wxPoint& pos,
992 const wxSize& size,
993 int n, const wxString choices[],
994 long style,
995 const wxValidator& validator,
996 const wxString& name)
997{
998 m_macIsUserPane = FALSE ;
999
1000 if ( !wxListBoxBase::Create(parent, id, pos, size, style & ~(wxHSCROLL|wxVSCROLL), validator, name) )
1001 return false;
1002
1003 m_noItems = 0 ; // this will be increased by our append command
1004 m_selected = 0;
1005
1006 Rect bounds = wxMacGetBoundsForControl( this , pos , size ) ;
1007
1008 ListDefSpec listDef;
1009 listDef.defType = kListDefUserProcType;
1010 if ( macListDefUPP == NULL )
1011 {
1012 macListDefUPP = NewListDefUPP( wxMacListDefinition );
1013 }
1014 listDef.u.userProc = macListDefUPP ;
1015
1016 Str255 fontName ;
1017 SInt16 fontSize ;
1018 Style fontStyle ;
1019
1020 GetThemeFont(kThemeViewsFont , GetApplicationScript() , fontName , &fontSize , &fontStyle ) ;
1021
1022 SetFont( wxFont (fontSize, wxSWISS, wxNORMAL, wxNORMAL , false , wxMacMakeStringFromPascal( fontName ) ) ) ;
1023
1024 Size asize;
1025
1026
1027 CreateListBoxControl( MAC_WXHWND(parent->MacGetTopLevelWindowRef()), &bounds, false, 0, 1, (style & wxLB_HSCROLL), true,
1028 kwxMacListItemHeight, kwxMacListItemHeight, false, &listDef, (ControlRef *)&m_macControl );
1029
1030 GetControlData( (ControlRef) m_macControl, kControlNoPart, kControlListBoxListHandleTag,
1031 sizeof(ListHandle), (Ptr) &m_macList, &asize);
1032
1033 SetControlReference( (ControlRef) m_macControl, (long) this);
1034
1035
1036 OptionBits options = 0;
1037 if ( style & wxLB_MULTIPLE )
1038 {
1039 options += lExtendDrag + lUseSense ;
1040 }
1041 else if ( style & wxLB_EXTENDED )
1042 {
1043 // default behaviour
1044 }
1045 else
1046 {
1047 options = (OptionBits) lOnlyOne ;
1048 }
1049 SetListSelectionFlags((ListHandle)m_macList, options);
1050
1051 for ( int i = 0 ; i < n ; i++ )
1052 {
1053 Append( choices[i] ) ;
1054 }
1055
1056 MacPostControlCreate(pos,size) ;
1057
1058 LSetDrawingMode( true , (ListHandle)m_macList ) ;
1059
1060 return TRUE;
1061}
1062
1063wxListBox::~wxListBox()
1064{
1065 SetControlReference( (ControlRef) m_macControl , NULL ) ;
1066 FreeData() ;
1067 // avoid access during destruction
1068 if ( m_macList )
1069 {
1070 m_macList = NULL ;
1071 }
1072}
1073
1074void wxListBox::FreeData()
1075{
1076#if wxUSE_OWNER_DRAWN
1077 if ( m_windowStyle & wxLB_OWNERDRAW )
1078 {
1079 size_t uiCount = m_aItems.Count();
1080 while ( uiCount-- != 0 ) {
1081 delete m_aItems[uiCount];
1082 m_aItems[uiCount] = NULL;
1083 }
1084
1085 m_aItems.Clear();
1086 }
1087 else
1088#endif // wxUSE_OWNER_DRAWN
1089 if ( HasClientObjectData() )
1090 {
1091 for ( size_t n = 0; n < (size_t)m_noItems; n++ )
1092 {
1093 delete GetClientObject(n);
1094 }
1095 }
1096}
1097
1098void wxListBox::DoSetSize(int x, int y,
1099 int width, int height,
1100 int sizeFlags )
1101{
1102 wxControl::DoSetSize( x , y , width , height , sizeFlags ) ;
1103#if TARGET_CARBON
1104 Rect bounds ;
1105 GetControlBounds( (ControlRef) m_macControl , &bounds ) ;
1106 ControlRef control = GetListVerticalScrollBar( (ListHandle)m_macList ) ;
1107 if ( control )
1108 {
1109 Rect scrollbounds ;
1110 GetControlBounds( control , &scrollbounds ) ;
1111 if( scrollbounds.right != bounds.right + 1 )
1112 {
1113 UMAMoveControl( control , bounds.right - (scrollbounds.right - scrollbounds.left) + 1 ,
1114 scrollbounds.top ) ;
1115 }
1116 }
1117#endif
1118}
1119void wxListBox::DoSetFirstItem(int N)
1120{
1121 MacScrollTo( N ) ;
1122}
1123
1124void wxListBox::Delete(int N)
1125{
1126 wxCHECK_RET( N >= 0 && N < m_noItems,
1127 wxT("invalid index in wxListBox::Delete") );
1128
1129#if wxUSE_OWNER_DRAWN
1130 delete m_aItems[N];
1131 m_aItems.RemoveAt(N);
1132#else // !wxUSE_OWNER_DRAWN
1133 if ( HasClientObjectData() )
1134 {
1135 delete GetClientObject(N);
1136 }
1137#endif // wxUSE_OWNER_DRAWN/!wxUSE_OWNER_DRAWN
1138 m_stringArray.RemoveAt( N ) ;
1139 m_dataArray.RemoveAt( N ) ;
1140 m_noItems --;
1141
1142 MacDelete( N ) ;
1143}
1144
1145int wxListBox::DoAppend(const wxString& item)
1146{
1147 int index = m_noItems ;
1148 m_stringArray.Add( item ) ;
1149 m_dataArray.Add( NULL );
1150 m_noItems ++;
1151 DoSetItemClientData( index , NULL ) ;
1152 MacAppend( item ) ;
1153
1154 return index ;
1155}
1156
1157void wxListBox::DoSetItems(const wxArrayString& choices, void** clientData)
1158{
1159 MacSetRedraw( false ) ;
1160 Clear() ;
1161 int n = choices.GetCount();
1162
1163 for( int i = 0 ; i < n ; ++i )
1164 {
1165 if ( clientData )
1166 {
1167#if wxUSE_OWNER_DRAWN
1168 wxASSERT_MSG(clientData[i] == NULL,
1169 wxT("Can't use client data with owner-drawn listboxes"));
1170#else // !wxUSE_OWNER_DRAWN
1171 Append( choices[i] , clientData[i] ) ;
1172#endif
1173 }
1174 else
1175 Append( choices[i] ) ;
1176 }
1177
1178#if wxUSE_OWNER_DRAWN
1179 if ( m_windowStyle & wxLB_OWNERDRAW ) {
1180 // first delete old items
1181 size_t ui = m_aItems.Count();
1182 while ( ui-- != 0 ) {
1183 delete m_aItems[ui];
1184 m_aItems[ui] = NULL;
1185 }
1186 m_aItems.Empty();
1187
1188 // then create new ones
1189 for ( ui = 0; ui < (size_t)m_noItems; ui++ ) {
1190 wxOwnerDrawn *pNewItem = CreateItem(ui);
1191 pNewItem->SetName(choices[ui]);
1192 m_aItems.Add(pNewItem);
1193 }
1194 }
1195#endif // wxUSE_OWNER_DRAWN
1196 MacSetRedraw( true ) ;
1197}
1198
1199bool wxListBox::HasMultipleSelection() const
1200{
1201 return (m_windowStyle & wxLB_MULTIPLE) || (m_windowStyle & wxLB_EXTENDED);
1202}
1203
1204int wxListBox::FindString(const wxString& s) const
1205{
1206
1207 if ( s.Right(1) == wxT("*") )
1208 {
1209 wxString search = s.Left( s.Length() - 1 ) ;
1210 int len = search.Length() ;
1211 Str255 s1 , s2 ;
1212 wxMacStringToPascal( search , s2 ) ;
1213
1214 for ( int i = 0 ; i < m_noItems ; ++ i )
1215 {
1216 wxMacStringToPascal( m_stringArray[i].Left( len ) , s1 ) ;
1217
1218 if ( EqualString( s1 , s2 , false , false ) )
1219 return i ;
1220 }
1221 if ( s.Left(1) == wxT("*") && s.Length() > 1 )
1222 {
1223 wxString st = s ;
1224 st.MakeLower() ;
1225 for ( int i = 0 ; i < m_noItems ; ++i )
1226 {
1227 if ( GetString(i).Lower().Matches(st) )
1228 return i ;
1229 }
1230 }
1231
1232 }
1233 else
1234 {
1235 Str255 s1 , s2 ;
1236
1237 wxMacStringToPascal( s , s2 ) ;
1238
1239 for ( int i = 0 ; i < m_noItems ; ++ i )
1240 {
1241 wxMacStringToPascal( m_stringArray[i] , s1 ) ;
1242
1243 if ( EqualString( s1 , s2 , false , false ) )
1244 return i ;
1245 }
1246 }
1247 return -1;
1248}
1249
1250void wxListBox::Clear()
1251{
1252 FreeData();
1253 m_noItems = 0;
1254 m_stringArray.Empty() ;
1255 m_dataArray.Empty() ;
1256 MacClear() ;
1257}
1258
1259void wxListBox::SetSelection(int N, bool select)
1260{
1261 wxCHECK_RET( N >= 0 && N < m_noItems,
1262 wxT("invalid index in wxListBox::SetSelection") );
1263 MacSetSelection( N , select ) ;
1264 GetSelections( m_selectionPreImage ) ;
1265}
1266
1267bool wxListBox::IsSelected(int N) const
1268{
1269 wxCHECK_MSG( N >= 0 && N < m_noItems, FALSE,
1270 wxT("invalid index in wxListBox::Selected") );
1271
1272 return MacIsSelected( N ) ;
1273}
1274
1275void *wxListBox::DoGetItemClientData(int N) const
1276{
1277 wxCHECK_MSG( N >= 0 && N < m_noItems, NULL,
1278 wxT("invalid index in wxListBox::GetClientData"));
1279
1280 return (void *)m_dataArray[N];
1281}
1282
1283wxClientData *wxListBox::DoGetItemClientObject(int N) const
1284{
1285 return (wxClientData *) DoGetItemClientData( N ) ;
1286}
1287
1288void wxListBox::DoSetItemClientData(int N, void *Client_data)
1289{
1290 wxCHECK_RET( N >= 0 && N < m_noItems,
1291 wxT("invalid index in wxListBox::SetClientData") );
1292
1293#if wxUSE_OWNER_DRAWN
1294 if ( m_windowStyle & wxLB_OWNERDRAW )
1295 {
1296 // client data must be pointer to wxOwnerDrawn, otherwise we would crash
1297 // in OnMeasure/OnDraw.
1298 wxFAIL_MSG(wxT("Can't use client data with owner-drawn listboxes"));
1299 }
1300#endif // wxUSE_OWNER_DRAWN
1301 wxASSERT_MSG( m_dataArray.GetCount() >= (size_t) N , wxT("invalid client_data array") ) ;
1302
1303 if ( m_dataArray.GetCount() > (size_t) N )
1304 {
1305 m_dataArray[N] = (char*) Client_data ;
1306 }
1307 else
1308 {
1309 m_dataArray.Add( (char*) Client_data ) ;
1310 }
1311}
1312
1313void wxListBox::DoSetItemClientObject(int n, wxClientData* clientData)
1314{
1315 DoSetItemClientData(n, clientData);
1316}
1317
1318// Return number of selections and an array of selected integers
1319int wxListBox::GetSelections(wxArrayInt& aSelections) const
1320{
1321 return MacGetSelections( aSelections ) ;
1322}
1323
1324// Get single selection, for single choice list items
1325int wxListBox::GetSelection() const
1326{
1327 return MacGetSelection() ;
1328}
1329
1330// Find string for position
1331wxString wxListBox::GetString(int N) const
1332{
1333 return m_stringArray[N] ;
1334}
1335
1336void wxListBox::DoInsertItems(const wxArrayString& items, int pos)
1337{
1338 wxCHECK_RET( pos >= 0 && pos <= m_noItems,
1339 wxT("invalid index in wxListBox::InsertItems") );
1340
1341 int nItems = items.GetCount();
1342
1343 for ( int i = 0 ; i < nItems ; i++ )
1344 {
1345 m_stringArray.Insert( items[i] , pos + i ) ;
1346 m_dataArray.Insert( NULL , pos + i ) ;
1347 MacInsert( pos + i , items[i] ) ;
1348 }
1349
1350 m_noItems += nItems;
1351}
1352
1353void wxListBox::SetString(int N, const wxString& s)
1354{
1355 m_stringArray[N] = s ;
1356 MacSet( N , s ) ;
1357}
1358
1359wxSize wxListBox::DoGetBestSize() const
1360{
1361 int lbWidth = 100; // some defaults
1362 int lbHeight = 110;
1363 int wLine;
1364
1365 {
1366 wxMacPortStateHelper st( UMAGetWindowPort( (WindowRef) MacGetTopLevelWindowRef() ) ) ;
1367
1368 if ( m_font.Ok() )
1369 {
1370 ::TextFont( m_font.MacGetFontNum() ) ;
1371 ::TextSize( m_font.MacGetFontSize() ) ;
1372 ::TextFace( m_font.MacGetFontStyle() ) ;
1373 }
1374 else
1375 {
1376 ::TextFont( kFontIDMonaco ) ;
1377 ::TextSize( 9 );
1378 ::TextFace( 0 ) ;
1379 }
1380
1381 // Find the widest line
1382 for(int i = 0; i < GetCount(); i++) {
1383 wxString str(GetString(i));
1384 #if wxUSE_UNICODE
1385 Point bounds={0,0} ;
1386 SInt16 baseline ;
1387 ::GetThemeTextDimensions( wxMacCFStringHolder( str , m_font.GetEncoding() ) ,
1388 kThemeCurrentPortFont,
1389 kThemeStateActive,
1390 false,
1391 &bounds,
1392 &baseline );
1393 wLine = bounds.h ;
1394 #else
1395 wLine = ::TextWidth( str.c_str() , 0 , str.Length() ) ;
1396 #endif
1397 lbWidth = wxMax(lbWidth, wLine);
1398 }
1399
1400 // Add room for the scrollbar
1401 lbWidth += wxSystemSettings::GetMetric(wxSYS_VSCROLL_X);
1402
1403 // And just a bit more
1404 int cy = 12 ;
1405 int cx = ::TextWidth( "X" , 0 , 1 ) ;
1406 lbWidth += cx ;
1407
1408 // don't make the listbox too tall (limit height to around 10 items) but don't
1409 // make it too small neither
1410 lbHeight = (cy+4) * wxMin(wxMax(GetCount(), 3), 10);
1411 }
1412
1413 return wxSize(lbWidth, lbHeight);
1414}
1415
1416int wxListBox::GetCount() const
1417{
1418 return m_noItems;
1419}
1420
1421void wxListBox::Refresh(bool eraseBack, const wxRect *rect)
1422{
1423 wxControl::Refresh( eraseBack , rect ) ;
1424 // MacRedrawControl() ;
1425}
1426
1427#if wxUSE_OWNER_DRAWN
1428
1429class wxListBoxItem : public wxOwnerDrawn
1430{
1431public:
1432 wxListBoxItem(const wxString& str = "");
1433};
1434
1435wxListBoxItem::wxListBoxItem(const wxString& str) : wxOwnerDrawn(str, FALSE)
1436{
1437 // no bitmaps/checkmarks
1438 SetMarginWidth(0);
1439}
1440
1441wxOwnerDrawn *wxListBox::CreateItem(size_t n)
1442{
1443 return new wxListBoxItem();
1444}
1445
1446#endif //USE_OWNER_DRAWN
1447
1448// ============================================================================
1449// list box control implementation
1450// ============================================================================
1451
1452/*
1453void MacDrawStringCell(Rect *cellRect, Cell lCell, ListHandle theList, long refCon)
1454{
1455wxListBox* list;
1456// typecast our refCon
1457list = (wxListBox*)refCon;
1458
1459 MoveTo(cellRect->left + 4 , cellRect->top + 10 );
1460 const wxString text = list->m_stringArray[lCell.v] ;
1461 ::TextFont( kFontIDMonaco ) ;
1462 ::TextSize( 9 );
1463 ::TextFace( 0 ) ;
1464 DrawText(text, 0 , text.Length());
1465
1466 }
1467*/
1468void wxListBox::MacDelete( int N )
1469{
1470 LDelRow( 1 , N , (ListHandle)m_macList) ;
1471 Refresh();
1472}
1473
1474void wxListBox::MacInsert( int n , const wxString& text)
1475{
1476 Cell cell = { 0 , 0 } ;
1477 cell.v = n ;
1478 LAddRow( 1 , cell.v , (ListHandle)m_macList ) ;
1479 // LSetCell(text, strlen(text), cell, m_macList);
1480 Refresh();
1481}
1482
1483void wxListBox::MacAppend( const wxString& text)
1484{
1485 Cell cell = { 0 , 0 } ;
1486 cell.v = (**(ListHandle)m_macList).dataBounds.bottom ;
1487 LAddRow( 1 , cell.v , (ListHandle)m_macList ) ;
1488 // LSetCell(text, strlen(text), cell, m_macList);
1489 Refresh();
1490}
1491
1492void wxListBox::MacClear()
1493{
1494 LDelRow( (**(ListHandle)m_macList).dataBounds.bottom , 0 ,(ListHandle) m_macList ) ;
1495 Refresh();
1496}
1497
1498void wxListBox::MacSetSelection( int n , bool select )
1499{
1500 Cell cell = { 0 , 0 } ;
1501 if ( ! (m_windowStyle & wxLB_MULTIPLE) )
1502 {
1503 if ( LGetSelect( true , &cell , (ListHandle)m_macList ) )
1504 {
1505 LSetSelect( false , cell , (ListHandle)m_macList ) ;
1506 }
1507 }
1508
1509 cell.v = n ;
1510 LSetSelect( select , cell , (ListHandle)m_macList ) ;
1511 LAutoScroll( (ListHandle)m_macList ) ;
1512 Refresh();
1513}
1514
1515bool wxListBox::MacIsSelected( int n ) const
1516{
1517 Cell cell = { 0 , 0 } ;
1518 cell.v = n ;
1519 return LGetSelect( false , &cell , (ListHandle)m_macList ) ;
1520}
1521
1522int wxListBox::MacGetSelection() const
1523{
1524 Cell cell = { 0 , 0 } ;
1525 if ( LGetSelect( true , &cell , (ListHandle)m_macList ) )
1526 return cell.v ;
1527 else
1528 return -1 ;
1529}
1530
1531int wxListBox::MacGetSelections( wxArrayInt& aSelections ) const
1532{
1533 int no_sel = 0 ;
1534
1535 aSelections.Empty();
1536
1537 Cell cell = { 0 , 0 } ;
1538 cell.v = 0 ;
1539
1540 while ( LGetSelect( true , &cell ,(ListHandle) m_macList ) )
1541 {
1542 aSelections.Add( cell.v ) ;
1543 no_sel++ ;
1544 cell.v++ ;
1545 }
1546 return no_sel ;
1547}
1548
1549void wxListBox::MacSet( int n , const wxString& text )
1550{
1551 // our implementation does not store anything in the list
1552 // so we just have to redraw
1553 Cell cell = { 0 , 0 } ;
1554 cell.v = n ;
1555 // LSetCell(text, strlen(text), cell, m_macList);
1556 Refresh();
1557}
1558
1559void wxListBox::MacScrollTo( int n )
1560{
1561 // TODO implement scrolling
1562}
1563
1564void wxListBox::OnSize( wxSizeEvent &event)
1565{
1566 Point pt;
1567
1568#if TARGET_CARBON
1569 GetListCellSize((ListHandle)m_macList, &pt);
1570#else
1571 pt = (**(ListHandle)m_macList).cellSize ;
1572#endif
1573 int w, h ;
1574 GetSize( &w , &h ) ;
1575 pt.h = w - 15 ;
1576 LCellSize( pt , (ListHandle)m_macList ) ;
1577}
1578
1579void wxListBox::MacHandleControlClick( WXWidget control , wxInt16 controlpart , bool WXUNUSED(mouseStillDown))
1580{
1581 Boolean wasDoubleClick = false ;
1582 long result ;
1583
1584 ::GetControlData( (ControlRef) m_macControl , kControlNoPart , kControlListBoxDoubleClickTag , sizeof( wasDoubleClick ) , (char*) &wasDoubleClick , &result ) ;
1585 if ( !wasDoubleClick )
1586 {
1587 MacDoClick() ;
1588 }
1589 else
1590 {
1591 MacDoDoubleClick() ;
1592 }
1593}
1594
1595void wxListBox::MacSetRedraw( bool doDraw )
1596{
1597 LSetDrawingMode( doDraw , (ListHandle)m_macList ) ;
1598
1599}
1600
1601void wxListBox::MacDoClick()
1602{
1603 wxArrayInt aSelections;
1604 int n ;
1605 size_t count = GetSelections(aSelections);
1606
1607 if ( count == m_selectionPreImage.GetCount() )
1608 {
1609 bool hasChanged = false ;
1610 for ( size_t i = 0 ; i < count ; ++i )
1611 {
1612 if ( aSelections[i] != m_selectionPreImage[i] )
1613 {
1614 hasChanged = true ;
1615 break ;
1616 }
1617 }
1618 if ( !hasChanged )
1619 {
1620 return ;
1621 }
1622 }
1623
1624 m_selectionPreImage = aSelections;
1625
1626 wxCommandEvent event(wxEVT_COMMAND_LISTBOX_SELECTED, m_windowId);
1627 event.SetEventObject( this );
1628
1629 if ( count > 0 )
1630 {
1631 n = aSelections[0];
1632 if ( HasClientObjectData() )
1633 event.SetClientObject( GetClientObject(n) );
1634 else if ( HasClientUntypedData() )
1635 event.SetClientData( GetClientData(n) );
1636 event.SetString( GetString(n) );
1637 }
1638 else
1639 {
1640 n = -1;
1641 }
1642
1643 event.m_commandInt = n;
1644
1645 GetEventHandler()->ProcessEvent(event);
1646}
1647
1648void wxListBox::MacDoDoubleClick()
1649{
1650 wxCommandEvent event(wxEVT_COMMAND_LISTBOX_DOUBLECLICKED, m_windowId);
1651 event.SetEventObject( this );
1652 GetEventHandler()->ProcessEvent(event) ;
1653}
1654
1655void wxListBox::OnChar(wxKeyEvent& event)
1656{
1657 if ( event.GetKeyCode() == WXK_RETURN || event.GetKeyCode() == WXK_NUMPAD_ENTER)
1658 {
1659 wxWindow* parent = GetParent() ;
1660 while( parent && !parent->IsTopLevel() && parent->GetDefaultItem() == NULL )
1661 parent = parent->GetParent() ;
1662
1663 if ( parent && parent->GetDefaultItem() )
1664 {
1665 wxButton *def = wxDynamicCast(parent->GetDefaultItem(),
1666 wxButton);
1667 if ( def && def->IsEnabled() )
1668 {
1669 wxCommandEvent event(wxEVT_COMMAND_BUTTON_CLICKED, def->GetId() );
1670 event.SetEventObject(def);
1671 def->Command(event);
1672 return ;
1673 }
1674 }
1675 event.Skip() ;
1676 }
1677 /* generate wxID_CANCEL if command-. or <esc> has been pressed (typically in dialogs) */
1678 else if (event.GetKeyCode() == WXK_ESCAPE || (event.GetKeyCode() == '.' && event.MetaDown() ) )
1679 {
1680 // FIXME: look in ancestors, not just parent.
1681 wxWindow* win = GetParent()->FindWindow( wxID_CANCEL ) ;
1682 if (win)
1683 {
1684 wxCommandEvent new_event(wxEVT_COMMAND_BUTTON_CLICKED,wxID_CANCEL);
1685 new_event.SetEventObject( win );
1686 win->GetEventHandler()->ProcessEvent( new_event );
1687 }
1688 }
1689 else if ( event.GetKeyCode() == WXK_TAB )
1690 {
1691 wxNavigationKeyEvent new_event;
1692 new_event.SetEventObject( this );
1693 new_event.SetDirection( !event.ShiftDown() );
1694 /* CTRL-TAB changes the (parent) window, i.e. switch notebook page */
1695 new_event.SetWindowChange( event.ControlDown() );
1696 new_event.SetCurrentFocus( this );
1697 if ( !GetEventHandler()->ProcessEvent( new_event ) )
1698 event.Skip() ;
1699 }
1700 else if ( event.GetKeyCode() == WXK_DOWN || event.GetKeyCode() == WXK_UP )
1701 {
1702 // perform the default key handling first
1703 wxControl::OnKeyDown( event ) ;
1704
1705 wxCommandEvent event(wxEVT_COMMAND_LISTBOX_SELECTED, m_windowId);
1706 event.SetEventObject( this );
1707
1708 wxArrayInt aSelections;
1709 int n, count = GetSelections(aSelections);
1710 if ( count > 0 )
1711 {
1712 n = aSelections[0];
1713 if ( HasClientObjectData() )
1714 event.SetClientObject( GetClientObject(n) );
1715 else if ( HasClientUntypedData() )
1716 event.SetClientData( GetClientData(n) );
1717 event.SetString( GetString(n) );
1718 }
1719 else
1720 {
1721 n = -1;
1722 }
1723
1724 event.m_commandInt = n;
1725
1726 GetEventHandler()->ProcessEvent(event);
1727 }
1728 else
1729 {
1730 if ( event.GetTimestamp() > m_lastTypeIn + 60 )
1731 {
1732 m_typeIn = wxEmptyString ;
1733 }
1734 m_lastTypeIn = event.GetTimestamp() ;
1735 m_typeIn += (char) event.GetKeyCode() ;
1736 int line = FindString(wxT("*")+m_typeIn+wxT("*")) ;
1737 if ( line >= 0 )
1738 {
1739 if ( GetSelection() != line )
1740 {
1741 SetSelection(line) ;
1742 wxCommandEvent event(wxEVT_COMMAND_LISTBOX_SELECTED, m_windowId);
1743 event.SetEventObject( this );
1744
1745 if ( HasClientObjectData() )
1746 event.SetClientObject( GetClientObject( line ) );
1747 else if ( HasClientUntypedData() )
1748 event.SetClientData( GetClientData(line) );
1749 event.SetString( GetString(line) );
1750
1751 event.m_commandInt = line ;
1752
1753 GetEventHandler()->ProcessEvent(event);
1754 }
1755 }
1756 }
1757}
1758
1759#endif
wxWidgets (Impactor)