1 ///////////////////////////////////////////////////////////////////////////////
2 // Name: src/mac/carbon/listbox.cpp
4 // Author: Stefan Csomor
8 // Copyright: (c) Stefan Csomor
9 // Licence: wxWindows licence
10 ///////////////////////////////////////////////////////////////////////////////
12 #include "wx/wxprec.h"
16 #include "wx/listbox.h"
19 #include "wx/dynarray.h"
24 #include "wx/button.h"
25 #include "wx/settings.h"
26 #include "wx/arrstr.h"
27 #include "wx/toplevel.h"
30 IMPLEMENT_DYNAMIC_CLASS(wxListBox
, wxControl
)
32 BEGIN_EVENT_TABLE(wxListBox
, wxControl
)
35 #include "wx/mac/uma.h"
36 #include "wx/dynarray.h"
38 // ============================================================================
39 // list box control implementation
40 // ============================================================================
42 wxListBox::wxListBox()
46 bool wxListBox::Create(
51 const wxArrayString
& choices
,
53 const wxValidator
& validator
,
54 const wxString
& name
)
56 wxCArrayString
chs(choices
);
59 parent
, id
, pos
, size
, chs
.GetCount(), chs
.GetStrings(),
60 style
, validator
, name
);
63 wxMacListControl
* wxListBox::GetPeer() const
65 return dynamic_cast<wxMacListControl
*>(m_peer
);
68 bool wxListBox::Create(
74 const wxString choices
[],
76 const wxValidator
& validator
,
77 const wxString
& name
)
79 m_macIsUserPane
= false;
81 wxASSERT_MSG( !(style
& wxLB_MULTIPLE
) || !(style
& wxLB_EXTENDED
),
82 wxT("only a single listbox selection mode can be specified") );
84 if ( !wxListBoxBase::Create( parent
, id
, pos
, size
, style
& ~(wxHSCROLL
| wxVSCROLL
), validator
, name
) )
87 wxMacDataBrowserListControl
* control
= new wxMacDataBrowserListControl( this, pos
, size
, style
);
88 control
->SetClientDataType( m_clientDataItemsType
);
91 MacPostControlCreate( pos
, size
);
93 InsertItems( n
, choices
, 0 );
95 // Needed because it is a wxControlWithItems
101 wxListBox::~wxListBox()
104 m_peer
->SetReference( 0 );
107 void wxListBox::FreeData()
109 GetPeer()->MacClear();
112 void wxListBox::DoSetFirstItem(int n
)
114 GetPeer()->MacScrollTo( n
);
117 void wxListBox::EnsureVisible(int n
)
119 GetPeer()->MacScrollTo( n
);
122 void wxListBox::Delete(unsigned int n
)
124 wxCHECK_RET( IsValid(n
), wxT("invalid index in wxListBox::Delete") );
126 GetPeer()->MacDelete( n
);
129 int wxListBox::DoAppend(const wxString
& item
)
131 InvalidateBestSize();
133 return GetPeer()->MacAppend( item
);
136 void wxListBox::DoSetItems(const wxArrayString
& choices
, void** clientData
)
140 unsigned int n
= choices
.GetCount();
142 for ( size_t i
= 0; i
< n
; ++i
)
146 Append( choices
[i
], clientData
[i
] );
149 Append( choices
[i
] );
154 int wxListBox::FindString(const wxString
& s
, bool bCase
) const
156 for ( size_t i
= 0; i
< GetCount(); ++ i
)
158 if (s
.IsSameAs( GetString( i
), bCase
) )
165 void wxListBox::Clear()
170 void wxListBox::DoSetSelection(int n
, bool select
)
172 wxCHECK_RET( n
== wxNOT_FOUND
|| IsValid(n
),
173 wxT("invalid index in wxListBox::SetSelection") );
175 if ( n
== wxNOT_FOUND
)
176 GetPeer()->MacDeselectAll();
178 GetPeer()->MacSetSelection( n
, select
, HasMultipleSelection() );
181 bool wxListBox::IsSelected(int n
) const
183 wxCHECK_MSG( IsValid(n
), false, wxT("invalid index in wxListBox::Selected") );
185 return GetPeer()->MacIsSelected( n
);
188 void *wxListBox::DoGetItemClientData(unsigned int n
) const
190 wxCHECK_MSG( IsValid(n
), NULL
, wxT("invalid index in wxListBox::GetClientData"));
191 return GetPeer()->MacGetClientData( n
);
194 wxClientData
*wxListBox::DoGetItemClientObject(unsigned int n
) const
196 return (wxClientData
*)DoGetItemClientData( n
);
199 void wxListBox::DoSetItemClientData(unsigned int n
, void *clientData
)
201 wxCHECK_RET( IsValid(n
), wxT("invalid index in wxListBox::SetClientData") );
202 GetPeer()->MacSetClientData( n
, clientData
);
205 void wxListBox::DoSetItemClientObject(unsigned int n
, wxClientData
* clientData
)
207 DoSetItemClientData(n
, clientData
);
210 // Return number of selections and an array of selected integers
211 int wxListBox::GetSelections(wxArrayInt
& aSelections
) const
213 return GetPeer()->MacGetSelections( aSelections
);
216 // Get single selection, for single choice list items
217 int wxListBox::GetSelection() const
219 return GetPeer()->MacGetSelection();
222 // Find string for position
223 wxString
wxListBox::GetString(unsigned int n
) const
225 wxCHECK_MSG( IsValid(n
), wxEmptyString
, wxT("invalid index in wxListBox::GetString") );
226 return GetPeer()->MacGetString(n
);
229 void wxListBox::DoInsertItems(const wxArrayString
& items
, unsigned int pos
)
231 wxCHECK_RET( IsValidInsert(pos
), wxT("invalid index in wxListBox::InsertItems") );
233 InvalidateBestSize();
235 GetPeer()->MacInsert( pos
, items
);
238 void wxListBox::SetString(unsigned int n
, const wxString
& s
)
240 GetPeer()->MacSetString( n
, s
);
243 wxSize
wxListBox::DoGetBestSize() const
245 int lbWidth
= 100; // some defaults
250 #if wxMAC_USE_CORE_GRAPHICS
251 wxClientDC
dc(const_cast<wxListBox
*>(this));
253 wxMacPortStateHelper
st( UMAGetWindowPort( (WindowRef
)MacGetTopLevelWindowRef() ) );
255 // TODO: clean this up
258 ::TextFont( m_font
.MacGetFontNum() );
259 ::TextSize( m_font
.MacGetFontSize() );
260 ::TextFace( m_font
.MacGetFontStyle() );
264 ::TextFont( kFontIDMonaco
);
269 // Find the widest line
270 for (unsigned int i
= 0; i
< GetCount(); i
++)
272 wxString
str( GetString( i
) );
273 #if wxMAC_USE_CORE_GRAPHICS
274 wxCoord width
, height
;
275 dc
.GetTextExtent( str
, &width
, &height
);
279 Point bounds
= {0, 0};
282 // NB: what if m_font.Ok() == false ???
283 ::GetThemeTextDimensions(
284 wxMacCFStringHolder( str
, m_font
.GetEncoding() ),
285 kThemeCurrentPortFont
,
292 wLine
= ::TextWidth( str
.c_str(), 0, str
.length() );
295 lbWidth
= wxMax( lbWidth
, wLine
);
299 // Add room for the scrollbar
300 lbWidth
+= wxSystemSettings::GetMetric( wxSYS_VSCROLL_X
);
302 // And just a bit more
304 #if wxMAC_USE_CORE_GRAPHICS
305 wxCoord width
, height
;
306 dc
.GetTextExtent( wxT("X") , &width
, &height
);
309 int cx
= ::TextWidth( "X", 0, 1 );
313 // don't make the listbox too tall (limit height to around 10 items)
314 // but don't make it too small neither
315 lbHeight
= wxMax( (cy
+ 4) * wxMin( wxMax( GetCount(), 3 ), 10 ), 70 );
318 return wxSize( lbWidth
, lbHeight
);
321 unsigned int wxListBox::GetCount() const
323 return GetPeer()->MacGetCount();
326 void wxListBox::Refresh(bool eraseBack
, const wxRect
*rect
)
328 wxControl::Refresh( eraseBack
, rect
);
331 // Some custom controls depend on this
332 /* static */ wxVisualAttributes
333 wxListBox::GetClassDefaultAttributes(wxWindowVariant
WXUNUSED(variant
))
335 wxVisualAttributes attr
;
337 attr
.colFg
= wxSystemSettings::GetColour( wxSYS_COLOUR_WINDOWTEXT
);
338 attr
.colBg
= wxSystemSettings::GetColour( wxSYS_COLOUR_LISTBOX
);
339 attr
.font
= wxSystemSettings::GetFont( wxSYS_DEFAULT_GUI_FONT
);
344 int wxListBox::DoListHitTest(const wxPoint
& inpoint
) const
348 // There are few reasons why this is complicated:
349 // 1) There is no native HitTest function for Mac
350 // 2) GetDataBrowserItemPartBounds only works on visible items
351 // 3) We can't do it through GetDataBrowserTableView[Item]RowHeight
352 // because what it returns is basically inaccurate in the context
353 // of the coordinates we want here, but we use this as a guess
354 // for where the first visible item lies
356 wxPoint point
= inpoint
;
358 // interestingly enough 10.2 (and below?) have GetDataBrowserItemPartBounds
359 // giving root window coordinates but 10.3 and above give client coordinates
360 // so we only compare using root window coordinates on 10.3 and up
361 if ( UMAGetSystemVersion() < 0x1030 )
362 MacClientToRootWindow(&point
.x
, &point
.y
);
364 // get column property ID (req. for call to itempartbounds)
365 DataBrowserTableViewColumnID colId
= 0;
366 err
= GetDataBrowserTableViewColumnProperty(m_peer
->GetControlRef(), 0, &colId
);
367 wxCHECK_MSG(err
== noErr
, wxNOT_FOUND
, wxT("Unexpected error from GetDataBrowserTableViewColumnProperty"));
369 // OK, first we need to find the first visible item we have -
370 // this will be the "low" for our binary search. There is no real
371 // easy way around this, as we will need to do a SLOW linear search
372 // until we find a visible item, but we can do a cheap calculation
373 // via the row height to speed things up a bit
374 UInt32 scrollx
, scrolly
;
375 err
= GetDataBrowserScrollPosition(m_peer
->GetControlRef(), &scrollx
, &scrolly
);
376 wxCHECK_MSG(err
== noErr
, wxNOT_FOUND
, wxT("Unexpected error from GetDataBrowserScrollPosition"));
379 err
= GetDataBrowserTableViewRowHeight(m_peer
->GetControlRef(), &height
);
380 wxCHECK_MSG(err
== noErr
, wxNOT_FOUND
, wxT("Unexpected error from GetDataBrowserTableViewRowHeight"));
382 // these indices are 0-based, as usual, so we need to add 1 to them when
383 // passing them to data browser functions which use 1-based indices
384 int low
= scrolly
/ height
,
385 high
= GetCount() - 1;
387 // search for the first visible item (note that the scroll guess above
388 // is the low bounds of where the item might lie so we only use that as a
389 // starting point - we should reach it within 1 or 2 iterations of the loop)
390 while ( low
<= high
)
393 err
= GetDataBrowserItemPartBounds(
394 m_peer
->GetControlRef(), low
+ 1, colId
,
395 kDataBrowserPropertyEnclosingPart
,
396 &bounds
); // note +1 to translate to Mac ID
400 // errDataBrowserItemNotFound is expected as it simply means that the
401 // item is not currently visible -- but other errors are not
402 wxCHECK_MSG( err
== errDataBrowserItemNotFound
, wxNOT_FOUND
,
403 wxT("Unexpected error from GetDataBrowserItemPartBounds") );
408 // NOW do a binary search for where the item lies, searching low again if
409 // we hit an item that isn't visible
410 while ( low
<= high
)
412 int mid
= (low
+ high
) / 2;
415 err
= GetDataBrowserItemPartBounds(
416 m_peer
->GetControlRef(), mid
+ 1, colId
,
417 kDataBrowserPropertyEnclosingPart
,
418 &bounds
); //note +1 to trans to mac id
419 wxCHECK_MSG( err
== noErr
|| err
== errDataBrowserItemNotFound
,
421 wxT("Unexpected error from GetDataBrowserItemPartBounds") );
423 if ( err
== errDataBrowserItemNotFound
)
425 // item not visible, attempt to find a visible one
429 else // visible item, do actual hitttest
431 // if point is within the bounds, return this item (since we assume
432 // all x coords of items are equal we only test the x coord in
434 if ((point
.x
>= bounds
.left
&& point
.x
<= bounds
.right
) &&
435 (point
.y
>= bounds
.top
&& point
.y
<= bounds
.bottom
) )
441 if ( point
.y
< bounds
.top
)
442 // index(bounds) greater then key(point)
445 // index(bounds) less then key(point)
453 // ============================================================================
454 // data browser based implementation
455 // ============================================================================
457 wxMacListBoxItem::wxMacListBoxItem()
462 wxMacListBoxItem::~wxMacListBoxItem()
466 void wxMacListBoxItem::Notification(wxMacDataItemBrowserControl
*owner
,
467 DataBrowserItemNotification message
,
468 DataBrowserItemDataRef itemData
) const
470 wxMacDataBrowserListControl
*lb
= dynamic_cast<wxMacDataBrowserListControl
*>(owner
);
472 // we want to depend on as little as possible to make sure tear-down of controls is safe
474 if ( message
== kDataBrowserItemRemoved
)
476 if ( lb
!= NULL
&& lb
->GetClientDataType() == wxClientData_Object
)
478 delete (wxClientData
*) (m_data
);
485 wxListBox
*list
= wxDynamicCast( owner
->GetPeer() , wxListBox
);
486 wxCHECK_RET( list
!= NULL
, wxT("Listbox expected"));
488 bool trigger
= false;
489 wxCommandEvent
event( wxEVT_COMMAND_LISTBOX_SELECTED
, list
->GetId() );
492 case kDataBrowserItemDeselected
:
493 if ( list
->HasMultipleSelection() )
494 trigger
= !lb
->IsSelectionSuppressed();
497 case kDataBrowserItemSelected
:
498 trigger
= !lb
->IsSelectionSuppressed();
501 case kDataBrowserItemDoubleClicked
:
502 event
.SetEventType( wxEVT_COMMAND_LISTBOX_DOUBLECLICKED
);
512 event
.SetEventObject( list
);
513 if ( list
->HasClientObjectData() )
514 event
.SetClientObject( (wxClientData
*) m_data
);
515 else if ( list
->HasClientUntypedData() )
516 event
.SetClientData( m_data
);
517 event
.SetString( m_label
);
518 event
.SetInt( owner
->GetLineFromItem( this ) );
519 event
.SetExtraLong( list
->HasMultipleSelection() ? message
== kDataBrowserItemSelected
: true );
521 // direct notification is not always having the listbox GetSelection()
522 // having in synch with event, so use wxPostEvent instead
523 // list->GetEventHandler()->ProcessEvent(event);
525 wxPostEvent( list
->GetEventHandler(), event
);
529 wxMacDataBrowserListControl::wxMacDataBrowserListControl( wxWindow
*peer
, const wxPoint
& pos
, const wxSize
& size
, long style
)
530 : wxMacDataItemBrowserControl( peer
, pos
, size
, style
)
532 OSStatus err
= noErr
;
533 m_clientDataItemsType
= wxClientData_None
;
534 if ( style
& wxLB_SORT
)
535 m_sortOrder
= SortOrder_Text_Ascending
;
537 DataBrowserSelectionFlags options
= kDataBrowserDragSelect
;
538 if ( style
& wxLB_MULTIPLE
)
540 options
|= kDataBrowserAlwaysExtendSelection
| kDataBrowserCmdTogglesSelection
;
542 else if ( style
& wxLB_EXTENDED
)
548 options
|= kDataBrowserSelectOnlyOne
;
550 err
= SetSelectionFlags( options
);
553 DataBrowserListViewColumnDesc columnDesc
;
554 columnDesc
.headerBtnDesc
.titleOffset
= 0;
555 columnDesc
.headerBtnDesc
.version
= kDataBrowserListViewLatestHeaderDesc
;
557 columnDesc
.headerBtnDesc
.btnFontStyle
.flags
=
558 kControlUseFontMask
| kControlUseJustMask
;
560 columnDesc
.headerBtnDesc
.btnContentInfo
.contentType
= kControlNoContent
;
561 columnDesc
.headerBtnDesc
.btnFontStyle
.just
= teFlushDefault
;
562 columnDesc
.headerBtnDesc
.btnFontStyle
.font
= kControlFontViewSystemFont
;
563 columnDesc
.headerBtnDesc
.btnFontStyle
.style
= normal
;
564 columnDesc
.headerBtnDesc
.titleString
= NULL
;
566 columnDesc
.headerBtnDesc
.minimumWidth
= 0;
567 columnDesc
.headerBtnDesc
.maximumWidth
= 10000;
569 columnDesc
.propertyDesc
.propertyID
= kTextColumnId
;
570 columnDesc
.propertyDesc
.propertyType
= kDataBrowserTextType
;
571 columnDesc
.propertyDesc
.propertyFlags
= kDataBrowserTableViewSelectionColumn
;
572 #if MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2
573 columnDesc
.propertyDesc
.propertyFlags
|= kDataBrowserListViewTypeSelectColumn
;
576 verify_noerr( AddColumn( &columnDesc
, kDataBrowserListViewAppendColumn
) );
578 columnDesc
.headerBtnDesc
.minimumWidth
= 0;
579 columnDesc
.headerBtnDesc
.maximumWidth
= 0;
580 columnDesc
.propertyDesc
.propertyID
= kNumericOrderColumnId
;
581 columnDesc
.propertyDesc
.propertyType
= kDataBrowserPropertyRelevanceRankPart
;
582 columnDesc
.propertyDesc
.propertyFlags
= kDataBrowserTableViewSelectionColumn
;
583 #if MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2
584 columnDesc
.propertyDesc
.propertyFlags
|= kDataBrowserListViewTypeSelectColumn
;
587 verify_noerr( AddColumn( &columnDesc
, kDataBrowserListViewAppendColumn
) );
589 SetDataBrowserSortProperty( m_controlRef
, kTextColumnId
);
590 if ( m_sortOrder
== SortOrder_Text_Ascending
)
592 SetDataBrowserSortProperty( m_controlRef
, kTextColumnId
);
593 SetDataBrowserSortOrder( m_controlRef
, kDataBrowserOrderIncreasing
);
597 SetDataBrowserSortProperty( m_controlRef
, kNumericOrderColumnId
);
598 SetDataBrowserSortOrder( m_controlRef
, kDataBrowserOrderIncreasing
);
601 verify_noerr( AutoSizeColumns() );
602 verify_noerr( SetHiliteStyle(kDataBrowserTableViewFillHilite
) );
603 verify_noerr( SetHeaderButtonHeight( 0 ) );
604 err
= SetHasScrollBars( (style
& wxHSCROLL
) != 0 , true );
606 // shouldn't be necessary anymore under 10.2
607 m_peer
->SetData( kControlNoPart
, kControlDataBrowserIncludesFrameAndFocusTag
, (Boolean
)false );
608 m_peer
->SetNeedsFocusRect( true );
612 wxMacDataBrowserListControl::~wxMacDataBrowserListControl()
616 wxWindow
* wxMacDataBrowserListControl::GetPeer() const
618 return wxDynamicCast( wxMacControl::GetPeer() , wxWindow
);
621 wxMacDataItem
* wxMacDataBrowserListControl::CreateItem()
623 return new wxMacListBoxItem();
628 // in case we need that one day
630 // ============================================================================
631 // HIView owner-draw-based implementation
632 // ============================================================================
634 static pascal void ListBoxDrawProc(
635 ControlRef browser
, DataBrowserItemID item
, DataBrowserPropertyID property
,
636 DataBrowserItemState itemState
, const Rect
*itemRect
, SInt16 depth
, Boolean isColorDevice
)
638 CFStringRef cfString
;
639 ThemeDrawingState themeState
;
642 GetThemeDrawingState( &themeState
);
643 cfString
= CFStringCreateWithFormat( NULL
, NULL
, CFSTR("Row %d"), item
);
645 // In this sample we handle the "selected" state; all others fall through to our "active" state
646 if ( itemState
== kDataBrowserItemIsSelected
)
648 ThemeBrush colorBrushID
;
650 // TODO: switch over to wxSystemSettingsNative::GetColour() when kThemeBrushSecondaryHighlightColor
651 // is incorporated Panther DB starts using kThemeBrushSecondaryHighlightColor
652 // for inactive browser highlighting
653 Gestalt( gestaltSystemVersion
, &systemVersion
);
654 if ( (systemVersion
>= 0x00001030) && !IsControlActive( browser
) )
655 colorBrushID
= kThemeBrushSecondaryHighlightColor
;
657 colorBrushID
= kThemeBrushPrimaryHighlightColor
;
659 // First paint the hilite rect, then the text on top
660 SetThemePen( colorBrushID
, 32, true );
661 PaintRect( itemRect
);
662 SetThemeDrawingState( themeState
, false );
665 DrawThemeTextBox( cfString
, kThemeApplicationFont
, kThemeStateActive
, true, itemRect
, teFlushDefault
, NULL
);
666 SetThemeDrawingState( themeState
, true );
668 if ( cfString
!= NULL
)
669 CFRelease( cfString
);
675 #endif // wxUSE_LISTBOX