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