#if wxUSE_LISTBOX
-#include "wx/app.h"
#include "wx/listbox.h"
-#include "wx/checklst.h"
-#include "wx/button.h"
-#include "wx/settings.h"
-#include "wx/toplevel.h"
-#include "wx/dynarray.h"
-#include "wx/log.h"
-#include "wx/utils.h"
+#ifndef WX_PRECOMP
+ #include "wx/dynarray.h"
+ #include "wx/log.h"
+ #include "wx/intl.h"
+ #include "wx/app.h"
+ #include "wx/utils.h"
+ #include "wx/button.h"
+ #include "wx/settings.h"
+ #include "wx/arrstr.h"
+ #include "wx/toplevel.h"
+#endif
IMPLEMENT_DYNAMIC_CLASS(wxListBox, wxControl)
END_EVENT_TABLE()
#include "wx/mac/uma.h"
-
-// common interface for all implementations
-class wxMacListControl : public wxMacControl
-{
-public:
- wxMacListControl( wxListBox *peer ) :
- wxMacControl( peer )
- {
- }
-
- ~wxMacListControl()
- {
- }
-
- virtual void UpdateLine( int n ) = 0;
-
- virtual void MacDelete( int n ) = 0;
- virtual void MacInsert( int n, const wxString& item) = 0;
- virtual void MacInsert( int n, const wxArrayString& items) = 0;
- virtual void MacAppend( const wxString& item) = 0;
- virtual void MacSet( int n, const wxString& item ) = 0;
- virtual void MacClear() = 0;
- virtual void MacDeselectAll() = 0;
- virtual void MacSetSelection( int n, bool select ) = 0;
- virtual int MacGetSelection() const = 0;
- virtual int MacGetSelections(wxArrayInt& aSelections) const = 0;
- virtual bool MacIsSelected( int n ) const= 0;
- virtual void MacScrollTo( int n ) = 0;
-
- wxListBox * GetPeer() const
- {
- return (wxListBox*)m_peer;
- }
-};
-
-#if 0
-// In case we have to replace data browser ...
-// custom HIView-based implementation
-
-class wxMacCustomHIViewListControl : public wxMacListControl
-{
-public:
- wxMacCustomHIViewListControl( wxListBox *peer, const wxPoint& pos, const wxSize& size, long style );
- ~wxMacCustomHIViewListControl();
-
- void MacDelete( int n );
- void MacInsert( int n, const wxString& item);
- void MacInsert( int n, const wxArrayString& items);
- void MacAppend( const wxString& item);
- void MacSet( int n, const wxString& item );
- void MacClear();
- void MacDeselectAll();
- void MacSetSelection( int n, bool select );
- int MacGetSelection() const;
- int MacGetSelections(wxArrayInt& aSelections) const;
- bool MacIsSelected( int n ) const;
- void MacScrollTo( int n );
-};
-#endif
-
-// DataBrowser-based implementation
-
-class wxMacDataBrowserListControl : public wxMacListControl
-{
-public:
- wxMacDataBrowserListControl( wxListBox *peer, const wxPoint& pos, const wxSize& size, long style );
- ~wxMacDataBrowserListControl();
-
- void UpdateLine( int n );
-
- void MacDelete( int n );
- void MacInsert( int n, const wxString& item);
- void MacInsert( int n, const wxArrayString& items);
- void MacAppend( const wxString& item);
- void MacSet( int n, const wxString& item );
- void MacClear();
- void MacDeselectAll();
- void MacSetSelection( int n, bool select );
- int MacGetSelection() const;
- int MacGetSelections(wxArrayInt& aSelections) const;
- bool MacIsSelected( int n ) const;
- void MacScrollTo( int n );
-
- virtual OSStatus SetSelectionFlags( DataBrowserSelectionFlags );
- virtual OSStatus AddListViewColumn( DataBrowserListViewColumnDesc *columnDesc,
- DataBrowserTableViewColumnIndex position );
- virtual OSStatus AutoSizeListViewColumns();
- virtual OSStatus SetHasScrollBars( bool horiz, bool vert );
- virtual OSStatus SetTableViewHiliteStyle( DataBrowserTableViewHiliteStyle hiliteStyle );
- virtual OSStatus SetListViewHeaderBtnHeight(UInt16 height);
- virtual OSStatus SetCallbacks(const DataBrowserCallbacks *callbacks);
- virtual OSStatus UpdateItems( DataBrowserItemID container, UInt32 numItems,
- const DataBrowserItemID *items,
- DataBrowserPropertyID preSortProperty,
- DataBrowserPropertyID propertyID );
- virtual OSStatus AddItems( DataBrowserItemID container, UInt32 numItems,
- const DataBrowserItemID *items,
- DataBrowserPropertyID preSortProperty );
- virtual OSStatus RemoveItems( DataBrowserItemID container, UInt32 numItems,
- const DataBrowserItemID *items,
- DataBrowserPropertyID preSortProperty );
- virtual OSStatus RevealItem( DataBrowserItemID item,
- DataBrowserPropertyID propertyID,
- DataBrowserRevealOptions options );
- virtual OSStatus GetSelectionAnchor( DataBrowserItemID *first, DataBrowserItemID *last ) const;
- virtual bool IsItemSelected( DataBrowserItemID item ) const;
- virtual OSStatus SetSelectedItems(UInt32 numItems,
- const DataBrowserItemID *items,
- DataBrowserSetOption operation );
-
-private:
- // as we are getting the same events for human and API selection we have to suppress
- // events in the latter case
- bool MacSuppressSelection( bool suppress );
- bool MacIsSelectionSuppressed() const { return m_suppressSelection; }
-
- bool m_suppressSelection;
-
-#if TARGET_API_MAC_OSX
- static pascal void DataBrowserItemNotificationProc(
- ControlRef browser,
- DataBrowserItemID itemID,
- DataBrowserItemNotification message,
- DataBrowserItemDataRef itemData );
-#else
- static pascal void DataBrowserItemNotificationProc(
- ControlRef browser,
- DataBrowserItemID itemID,
- DataBrowserItemNotification message );
-#endif
-};
+#include "wx/dynarray.h"
// ============================================================================
-// data browser based implementation
+// list box control implementation
// ============================================================================
-const short kTextColumnId = 1024;
-const short kCheckboxColumnId = 1025;
-
-// new databrowserbased version
-// because of the limited insert
-// functionality of DataBrowser,
-// we just introduce id s corresponding
-// to the line number
-
-DataBrowserItemDataUPP gDataBrowserItemDataUPP = NULL;
-DataBrowserItemNotificationUPP gDataBrowserItemNotificationUPP = NULL;
-
-#if TARGET_API_MAC_OSX
-pascal void wxMacDataBrowserListControl::DataBrowserItemNotificationProc(
- ControlRef browser,
- DataBrowserItemID itemID,
- DataBrowserItemNotification message,
- DataBrowserItemDataRef itemData)
-#else
-pascal void wxMacDataBrowserListControl::DataBrowserItemNotificationProc(
- ControlRef browser,
- DataBrowserItemID itemID,
- DataBrowserItemNotification message)
-#endif
+wxListBox::wxListBox()
{
- long ref = GetControlReference( browser );
- if ( ref != 0 )
- {
- wxListBox *list = wxDynamicCast( (wxObject*)ref, wxListBox );
- wxMacDataBrowserListControl* peer = (wxMacDataBrowserListControl*) list->GetPeer();
-
- int i = itemID - 1;
- if (i >= 0 && i < (int)list->GetCount())
- {
- bool trigger = false;
- wxCommandEvent event( wxEVT_COMMAND_LISTBOX_SELECTED, list->GetId() );
- switch (message)
- {
- case kDataBrowserItemDeselected:
- if ( list->HasMultipleSelection() )
- trigger = !peer->MacIsSelectionSuppressed();
- break;
-
- case kDataBrowserItemSelected:
- trigger = !peer->MacIsSelectionSuppressed();
- break;
-
- case kDataBrowserItemDoubleClicked:
- event.SetEventType( wxEVT_COMMAND_LISTBOX_DOUBLECLICKED );
- trigger = true;
- break;
-
- default:
- break;
- }
-
- if ( trigger )
- {
- event.SetEventObject( list );
- if ( list->HasClientObjectData() )
- event.SetClientObject( list->GetClientObject( i ) );
- else if ( list->HasClientUntypedData() )
- event.SetClientData( list->GetClientData( i ) );
- event.SetString( list->GetString( i ) );
- event.SetInt( i );
- event.SetExtraLong( list->HasMultipleSelection() ? message == kDataBrowserItemSelected : true );
- wxPostEvent( list->GetEventHandler(), event );
- // direct notification is not always having the listbox GetSelection() having in synch with event
- // list->GetEventHandler()->ProcessEvent(event);
- }
- }
- }
}
-static pascal OSStatus ListBoxGetSetItemData(ControlRef browser,
- DataBrowserItemID itemID, DataBrowserPropertyID property,
- DataBrowserItemDataRef itemData, Boolean changeValue)
+bool wxListBox::Create(
+ wxWindow *parent,
+ wxWindowID id,
+ const wxPoint& pos,
+ const wxSize& size,
+ const wxArrayString& choices,
+ long style,
+ const wxValidator& validator,
+ const wxString& name )
{
- OSStatus err = errDataBrowserPropertyNotSupported;
-
- long ref = GetControlReference( browser );
-
- if ( ! changeValue )
- {
- wxListBox* list = wxDynamicCast( (wxObject*) ref, wxListBox );
- bool isCheckList = false;
- if (list)
- isCheckList = list->IsKindOf( CLASSINFO(wxCheckListBox) );
-
- switch (property)
- {
- case kTextColumnId:
- if ( ref )
- {
- int i = itemID - 1;
- if (i >= 0 && i < (int)list->GetCount() )
- {
- wxMacCFStringHolder cf( list->GetString( i ), list->GetFont().GetEncoding() );
- verify_noerr( ::SetDataBrowserItemDataText( itemData, cf ) );
- err = noErr;
- }
- }
- break;
-
- case kCheckboxColumnId:
- if ( ref )
- {
- wxCheckListBox* list = wxDynamicCast( (wxObject*) ref, wxCheckListBox );
- int i = itemID - 1;
- if (i >= 0 && (unsigned int) i < list->GetCount())
- {
- verify_noerr( ::SetDataBrowserItemDataButtonValue( itemData, list->IsChecked( i ) ? kThemeButtonOn : kThemeButtonOff ) );
- err = noErr;
- }
- }
- break;
-
- case kDataBrowserItemIsEditableProperty:
- if ( isCheckList )
- err = ::SetDataBrowserItemDataBooleanValue(itemData, true);
- break;
-
- default:
- break;
- }
- }
- else
- {
- switch (property)
- {
- case kCheckboxColumnId:
- if ( ref )
- {
- wxCheckListBox* list = wxDynamicCast( (wxObject*) ref, wxCheckListBox );
- int i = itemID - 1;
- if (i >= 0 && (unsigned int)i < list->GetCount() )
- {
- // we have to change this behind the back, since Check() would be triggering another update round
- bool newVal = !list->IsChecked( i );
- verify_noerr( ::SetDataBrowserItemDataButtonValue( itemData, newVal ? kThemeButtonOn : kThemeButtonOff ) );
- err = noErr;
- list->m_checks[i] = newVal;
-
- wxCommandEvent event(wxEVT_COMMAND_CHECKLISTBOX_TOGGLED, list->GetId());
- event.SetInt(i);
- event.SetEventObject(list);
- list->GetEventHandler()->ProcessEvent(event);
- }
- }
- break;
-
- default:
- break;
- }
- }
+ wxCArrayString chs(choices);
- return err;
+ return Create(
+ parent, id, pos, size, chs.GetCount(), chs.GetStrings(),
+ style, validator, name );
}
-wxMacDataBrowserListControl::wxMacDataBrowserListControl( wxListBox *peer, const wxPoint& pos, const wxSize& size, long style)
- : wxMacListControl( peer )
+wxMacListControl* wxListBox::GetPeer() const
{
- bool isCheckList = peer->IsKindOf( CLASSINFO(wxCheckListBox));
+ return dynamic_cast<wxMacListControl*>(m_peer);
+}
- m_suppressSelection = false;
- Rect bounds = wxMacGetBoundsForControl( peer, pos, size );
- OSStatus err = ::CreateDataBrowserControl(
- MAC_WXHWND(peer->MacGetTopLevelWindowRef()),
- &bounds, kDataBrowserListView, &m_controlRef );
- verify_noerr( err );
+bool wxListBox::Create(
+ wxWindow *parent,
+ wxWindowID id,
+ const wxPoint& pos,
+ const wxSize& size,
+ int n,
+ const wxString choices[],
+ long style,
+ const wxValidator& validator,
+ const wxString& name )
+{
+ m_macIsUserPane = false;
- DataBrowserSelectionFlags options = kDataBrowserDragSelect;
- if ( style & wxLB_MULTIPLE )
- {
- options |= kDataBrowserAlwaysExtendSelection | kDataBrowserCmdTogglesSelection;
- }
- else if ( style & wxLB_EXTENDED )
- {
- // default behaviour
- }
- else
- {
- options |= kDataBrowserSelectOnlyOne;
- }
- err = SetSelectionFlags( options );
- verify_noerr( err );
+ wxASSERT_MSG( !(style & wxLB_MULTIPLE) || !(style & wxLB_EXTENDED),
+ wxT("only a single listbox selection mode can be specified") );
- if ( gDataBrowserItemDataUPP == NULL )
- gDataBrowserItemDataUPP = NewDataBrowserItemDataUPP(ListBoxGetSetItemData);
- if ( gDataBrowserItemNotificationUPP == NULL )
- {
- gDataBrowserItemNotificationUPP =
-#if TARGET_API_MAC_OSX
- (DataBrowserItemNotificationUPP) NewDataBrowserItemNotificationWithItemUPP(DataBrowserItemNotificationProc);
-#else
- NewDataBrowserItemNotificationUPP(DataBrowserItemNotificationProc);
-#endif
- }
+ if ( !wxListBoxBase::Create( parent, id, pos, size, style & ~(wxHSCROLL | wxVSCROLL), validator, name ) )
+ return false;
- DataBrowserCallbacks callbacks;
- InitializeDataBrowserCallbacks( &callbacks, kDataBrowserLatestCallbacks );
+ wxMacDataBrowserListControl* control = new wxMacDataBrowserListControl( this, pos, size, style );
+ control->SetClientDataType( m_clientDataItemsType );
+ m_peer = control;
- callbacks.u.v1.itemDataCallback = gDataBrowserItemDataUPP;
- callbacks.u.v1.itemNotificationCallback = gDataBrowserItemNotificationUPP;
- SetCallbacks( &callbacks );
+ MacPostControlCreate( pos, size );
- DataBrowserListViewColumnDesc columnDesc;
- columnDesc.headerBtnDesc.titleOffset = 0;
- columnDesc.headerBtnDesc.version = kDataBrowserListViewLatestHeaderDesc;
+ InsertItems( n, choices, 0 );
- columnDesc.headerBtnDesc.btnFontStyle.flags =
- kControlUseFontMask | kControlUseJustMask;
+ // Needed because it is a wxControlWithItems
+ SetBestSize( size );
- columnDesc.headerBtnDesc.btnContentInfo.contentType = kControlNoContent;
- columnDesc.headerBtnDesc.btnFontStyle.just = teFlushDefault;
- columnDesc.headerBtnDesc.btnFontStyle.font = kControlFontViewSystemFont;
- columnDesc.headerBtnDesc.btnFontStyle.style = normal;
- columnDesc.headerBtnDesc.titleString = NULL;
+ return true;
+}
- if ( isCheckList )
- {
- columnDesc.headerBtnDesc.minimumWidth = 30;
- columnDesc.headerBtnDesc.maximumWidth = 30;
-
- columnDesc.propertyDesc.propertyID = kCheckboxColumnId;
- columnDesc.propertyDesc.propertyType = kDataBrowserCheckboxType;
- columnDesc.propertyDesc.propertyFlags =
- kDataBrowserPropertyIsMutable
- | kDataBrowserTableViewSelectionColumn
- | kDataBrowserDefaultPropertyFlags;
- err = AddListViewColumn( &columnDesc, kDataBrowserListViewAppendColumn );
- verify_noerr( err );
- }
+wxListBox::~wxListBox()
+{
+ FreeData();
+ m_peer->SetReference( 0 );
+}
- columnDesc.headerBtnDesc.minimumWidth = 0;
- columnDesc.headerBtnDesc.maximumWidth = 10000;
+void wxListBox::FreeData()
+{
+ GetPeer()->MacClear();
+}
+void wxListBox::DoSetFirstItem(int n)
+{
+ GetPeer()->MacScrollTo( n );
+}
- columnDesc.propertyDesc.propertyID = kTextColumnId;
- columnDesc.propertyDesc.propertyType = kDataBrowserTextType;
- columnDesc.propertyDesc.propertyFlags = kDataBrowserTableViewSelectionColumn;
-#if MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2
- columnDesc.propertyDesc.propertyFlags |= kDataBrowserListViewTypeSelectColumn;
-#endif
+void wxListBox::EnsureVisible(int n)
+{
+ GetPeer()->MacScrollTo( n );
+}
- verify_noerr( AddListViewColumn( &columnDesc, kDataBrowserListViewAppendColumn ) );
- verify_noerr( AutoSizeListViewColumns() );
- verify_noerr( SetHasScrollBars( false, true ) );
- verify_noerr( SetTableViewHiliteStyle(kDataBrowserTableViewFillHilite ) );
- verify_noerr( SetListViewHeaderBtnHeight( 0 ) );
+void wxListBox::Delete(unsigned int n)
+{
+ wxCHECK_RET( IsValid(n), wxT("invalid index in wxListBox::Delete") );
-#if 0
- // shouldn't be necessary anymore under 10.2
- m_peer->SetData( kControlNoPart, kControlDataBrowserIncludesFrameAndFocusTag, (Boolean)false );
- m_peer->SetNeedsFocusRect( true );
-#endif
+ GetPeer()->MacDelete( n );
}
-wxMacDataBrowserListControl::~wxMacDataBrowserListControl()
+int wxListBox::DoAppend(const wxString& item)
{
+ InvalidateBestSize();
+
+ return GetPeer()->MacAppend( item );
}
-void wxMacDataBrowserListControl::MacDelete( int n )
+void wxListBox::DoSetItems(const wxArrayString& choices, void** clientData)
{
- wxArrayInt selectionBefore;
- MacGetSelections( selectionBefore );
-
- UInt32 id = GetPeer()->GetCount() + 1;
+ Clear();
- OSStatus err = RemoveItems( kDataBrowserNoItem, 1, (UInt32*) &id, kDataBrowserItemNoProperty );
- verify_noerr( err );
+ unsigned int n = choices.GetCount();
- for ( size_t i = 0; i < selectionBefore.GetCount(); ++i )
+ for ( size_t i = 0; i < n; ++i )
{
- int current = selectionBefore[i];
- if ( current == n )
- {
- // selection was deleted
- MacSetSelection( current, false );
- }
- else if ( current > n )
+ if ( clientData )
{
- // something behind the deleted item was selected -> move up
- MacSetSelection( current - 1, true );
- MacSetSelection( current, false );
+ Append( choices[i], clientData[i] );
}
+ else
+ Append( choices[i] );
}
- // refresh all
- err = UpdateItems(
- kDataBrowserNoItem, 1, (UInt32*)kDataBrowserNoItem,
- kDataBrowserItemNoProperty, kDataBrowserItemNoProperty );
- verify_noerr( err );
}
-void wxMacDataBrowserListControl::MacInsert( int n, const wxString& text)
+int wxListBox::FindString(const wxString& s, bool bCase) const
{
- wxArrayInt selectionBefore;
- MacGetSelections( selectionBefore );
-
- UInt32 id = GetPeer()->GetCount(); // this has already been increased
- OSStatus err = AddItems( kDataBrowserNoItem, 1, (UInt32*) &id, kDataBrowserItemNoProperty );
- verify_noerr( err );
-
- for ( int i = selectionBefore.GetCount() - 1; i >= 0; --i )
+ for ( size_t i = 0; i < GetCount(); ++ i )
{
- int current = selectionBefore[i];
- if ( current >= n )
- {
- MacSetSelection( current + 1, true );
- MacSetSelection( current, false );
- }
+ if (s.IsSameAs( GetString( i ), bCase) )
+ return (int)i;
}
- // refresh all
- err = UpdateItems(
- kDataBrowserNoItem, 1, (UInt32*)kDataBrowserNoItem,
- kDataBrowserItemNoProperty, kDataBrowserItemNoProperty );
- verify_noerr( err );
+ return wxNOT_FOUND;
}
-void wxMacDataBrowserListControl::MacInsert( int n, const wxArrayString& items)
+void wxListBox::Clear()
{
- wxArrayInt selectionBefore;
- MacGetSelections( selectionBefore );
- size_t itemsCount = items.GetCount();
+ FreeData();
+}
- UInt32 *ids = new UInt32[itemsCount];
- for ( unsigned int i = 0; i < itemsCount; ++i )
- ids[i] = GetPeer()->GetCount() - itemsCount + i + 1;
+void wxListBox::DoSetSelection(int n, bool select)
+{
+ wxCHECK_RET( n == wxNOT_FOUND || IsValid(n),
+ wxT("invalid index in wxListBox::SetSelection") );
- OSStatus err = AddItems( kDataBrowserNoItem, itemsCount, ids, kDataBrowserItemNoProperty );
- verify_noerr( err );
- delete [] ids;
+ if ( n == wxNOT_FOUND )
+ GetPeer()->MacDeselectAll();
+ else
+ GetPeer()->MacSetSelection( n, select );
+}
- for ( int i = selectionBefore.GetCount() - 1; i >= 0; --i )
- {
- int current = selectionBefore[i];
- if ( current >= n )
- {
- MacSetSelection( current + 1, true );
- MacSetSelection( current, false );
- }
- }
+bool wxListBox::IsSelected(int n) const
+{
+ wxCHECK_MSG( IsValid(n), false, wxT("invalid index in wxListBox::Selected") );
- // refresh all
- err = UpdateItems(
- kDataBrowserNoItem, 1, (UInt32*)kDataBrowserNoItem,
- kDataBrowserItemNoProperty, kDataBrowserItemNoProperty );
- verify_noerr( err );
+ return GetPeer()->MacIsSelected( n );
}
-void wxMacDataBrowserListControl::MacAppend( const wxString& text)
+void *wxListBox::DoGetItemClientData(unsigned int n) const
{
- UInt32 id = GetPeer()->GetCount(); // this has already been increased
- verify_noerr( AddItems( kDataBrowserNoItem, 1, (UInt32*) &id, kDataBrowserItemNoProperty ) );
- // no need to deal with selections nor refreshed, as we have appended
+ wxCHECK_MSG( IsValid(n), NULL, wxT("invalid index in wxListBox::GetClientData"));
+ return GetPeer()->MacGetClientData( n );
}
-void wxMacDataBrowserListControl::MacClear()
+wxClientData *wxListBox::DoGetItemClientObject(unsigned int n) const
{
- verify_noerr( RemoveItems( kDataBrowserNoItem, 0, NULL, kDataBrowserItemNoProperty ) );
+ return (wxClientData*)DoGetItemClientData( n );
}
-void wxMacDataBrowserListControl::MacDeselectAll()
+void wxListBox::DoSetItemClientData(unsigned int n, void *clientData)
{
- bool former = MacSuppressSelection( true );
- verify_noerr(SetSelectedItems( 0, NULL, kDataBrowserItemsRemove ) );
- MacSuppressSelection( former );
+ wxCHECK_RET( IsValid(n), wxT("invalid index in wxListBox::SetClientData") );
+ GetPeer()->MacSetClientData( n , clientData);
}
-void wxMacDataBrowserListControl::MacSetSelection( int n, bool select )
+void wxListBox::DoSetItemClientObject(unsigned int n, wxClientData* clientData)
{
- UInt32 id = n + 1;
- bool former = MacSuppressSelection( true );
-
- if ( IsItemSelected( id ) != select )
- {
- OSStatus err;
-
- if ( select )
- err = SetSelectedItems( 1, &id, GetPeer()->HasMultipleSelection() ? kDataBrowserItemsAdd : kDataBrowserItemsAssign );
- else
- err = SetSelectedItems( 1, &id, kDataBrowserItemsRemove );
-
- verify_noerr( err );
- }
-
- MacScrollTo( n );
- MacSuppressSelection( former );
+ DoSetItemClientData(n, clientData);
}
-bool wxMacDataBrowserListControl::MacSuppressSelection( bool suppress )
+// Return number of selections and an array of selected integers
+int wxListBox::GetSelections(wxArrayInt& aSelections) const
{
- bool former = m_suppressSelection;
- m_suppressSelection = suppress;
-
- return former;
+ return GetPeer()->MacGetSelections( aSelections );
}
-bool wxMacDataBrowserListControl::MacIsSelected( int n ) const
+// Get single selection, for single choice list items
+int wxListBox::GetSelection() const
{
- return IsItemSelected( n + 1 );
+ return GetPeer()->MacGetSelection();
}
-int wxMacDataBrowserListControl::MacGetSelection() const
+// Find string for position
+wxString wxListBox::GetString(unsigned int n) const
{
- for ( unsigned int i = 0; i < GetPeer()->GetCount(); ++i )
- {
- if ( IsItemSelected( i + 1 ) )
- {
- return i;
- }
- }
-
- return -1;
+ wxCHECK_MSG( IsValid(n), wxEmptyString, wxT("invalid index in wxListBox::GetString") );
+ return GetPeer()->MacGetString(n);
}
-int wxMacDataBrowserListControl::MacGetSelections( wxArrayInt& aSelections ) const
+void wxListBox::DoInsertItems(const wxArrayString& items, unsigned int pos)
{
- int no_sel = 0;
+ wxCHECK_RET( IsValidInsert(pos), wxT("invalid index in wxListBox::InsertItems") );
- aSelections.Empty();
-
- UInt32 first, last;
- GetSelectionAnchor( &first, &last );
- if ( first != kDataBrowserNoItem )
- {
- for ( size_t i = first; i <= last; ++i )
- {
- if ( IsItemSelected( i ) )
- {
- aSelections.Add( i - 1 );
- no_sel++;
- }
- }
- }
+ InvalidateBestSize();
- return no_sel;
+ GetPeer()->MacInsert( pos, items );
}
-void wxMacDataBrowserListControl::MacSet( int n, const wxString& text )
+void wxListBox::SetString(unsigned int n, const wxString& s)
{
- // as we don't store the strings we only have to issue a redraw
- UInt32 id = n + 1;
- verify_noerr( UpdateItems( kDataBrowserNoItem, 1, &id, kDataBrowserItemNoProperty, kDataBrowserItemNoProperty ) );
+ GetPeer()->MacSetString( n, s );
}
-void wxMacDataBrowserListControl::MacScrollTo( int n )
+wxSize wxListBox::DoGetBestSize() const
{
- UInt32 id = n + 1;
- verify_noerr( RevealItem( id, kTextColumnId, kDataBrowserRevealWithoutSelecting ) );
-}
+ int lbWidth = 100; // some defaults
+ int lbHeight = 110;
+ int wLine;
-void wxMacDataBrowserListControl::UpdateLine( int n )
-{
- UInt32 id = n + 1;
- verify_noerr( UpdateItems(kDataBrowserNoItem, 1, &id, kDataBrowserItemNoProperty, kDataBrowserItemNoProperty ) );
-}
+ {
+ wxMacPortStateHelper st( UMAGetWindowPort( (WindowRef)MacGetTopLevelWindowRef() ) );
-//
-// Databrowser
-//
+ // TODO: clean this up
+ if ( m_font.Ok() )
+ {
+ ::TextFont( m_font.MacGetFontNum() );
+ ::TextSize( m_font.MacGetFontSize() );
+ ::TextFace( m_font.MacGetFontStyle() );
+ }
+ else
+ {
+ ::TextFont( kFontIDMonaco );
+ ::TextSize( 9 );
+ ::TextFace( 0 );
+ }
-OSStatus wxMacDataBrowserListControl::SetSelectionFlags( DataBrowserSelectionFlags options )
-{
- return SetDataBrowserSelectionFlags( m_controlRef, options );
-}
+ // Find the widest line
+ for (unsigned int i = 0; i < GetCount(); i++)
+ {
+ wxString str( GetString( i ) );
-OSStatus wxMacDataBrowserListControl::AddListViewColumn( DataBrowserListViewColumnDesc *columnDesc,
- DataBrowserTableViewColumnIndex position )
-{
- return AddDataBrowserListViewColumn( m_controlRef, columnDesc, position );
-}
+#if wxUSE_UNICODE
+ Point bounds = {0, 0};
+ SInt16 baseline;
-OSStatus wxMacDataBrowserListControl::AutoSizeListViewColumns()
-{
- return AutoSizeDataBrowserListViewColumns(m_controlRef);
-}
+ // NB: what if m_font.Ok() == false ???
+ ::GetThemeTextDimensions(
+ wxMacCFStringHolder( str, m_font.GetEncoding() ),
+ kThemeCurrentPortFont,
+ kThemeStateActive,
+ false,
+ &bounds,
+ &baseline );
+ wLine = bounds.h;
+#else
+ wLine = ::TextWidth( str.c_str(), 0, str.length() );
+#endif
-OSStatus wxMacDataBrowserListControl::SetHasScrollBars( bool horiz, bool vert )
-{
- return SetDataBrowserHasScrollBars( m_controlRef, horiz, vert );
-}
+ lbWidth = wxMax( lbWidth, wLine );
+ }
-OSStatus wxMacDataBrowserListControl::SetTableViewHiliteStyle( DataBrowserTableViewHiliteStyle hiliteStyle )
-{
- return SetDataBrowserTableViewHiliteStyle( m_controlRef, hiliteStyle );
-}
+ // Add room for the scrollbar
+ lbWidth += wxSystemSettings::GetMetric( wxSYS_VSCROLL_X );
-OSStatus wxMacDataBrowserListControl::SetListViewHeaderBtnHeight(UInt16 height)
-{
- return SetDataBrowserListViewHeaderBtnHeight( m_controlRef, height );
-}
+ // And just a bit more
+ int cy = 12;
+ int cx = ::TextWidth( "X", 0, 1 );
+ lbWidth += cx;
-OSStatus wxMacDataBrowserListControl::SetCallbacks(const DataBrowserCallbacks *callbacks)
-{
- return SetDataBrowserCallbacks( m_controlRef, callbacks );
-}
+ // don't make the listbox too tall (limit height to around 10 items)
+ // but don't make it too small neither
+ lbHeight = wxMax( (cy + 4) * wxMin( wxMax( GetCount(), 3 ), 10 ), 70 );
+ }
-OSStatus wxMacDataBrowserListControl::UpdateItems(
- DataBrowserItemID container,
- UInt32 numItems,
- const DataBrowserItemID *items,
- DataBrowserPropertyID preSortProperty,
- DataBrowserPropertyID propertyID )
-{
- return UpdateDataBrowserItems( m_controlRef, container, numItems, items, preSortProperty, propertyID );
+ return wxSize( lbWidth, lbHeight );
}
-bool wxMacDataBrowserListControl::IsItemSelected( DataBrowserItemID item ) const
+unsigned int wxListBox::GetCount() const
{
- return IsDataBrowserItemSelected( m_controlRef, item );
+ return GetPeer()->MacGetCount();
}
-OSStatus wxMacDataBrowserListControl::AddItems(
- DataBrowserItemID container,
- UInt32 numItems,
- const DataBrowserItemID *items,
- DataBrowserPropertyID preSortProperty )
+void wxListBox::Refresh(bool eraseBack, const wxRect *rect)
{
- return AddDataBrowserItems( m_controlRef, container, numItems, items, preSortProperty );
+ wxControl::Refresh( eraseBack, rect );
}
-OSStatus wxMacDataBrowserListControl::RemoveItems(
- DataBrowserItemID container,
- UInt32 numItems,
- const DataBrowserItemID *items,
- DataBrowserPropertyID preSortProperty )
+// Some custom controls depend on this
+/* static */ wxVisualAttributes
+wxListBox::GetClassDefaultAttributes(wxWindowVariant WXUNUSED(variant))
{
- return RemoveDataBrowserItems( m_controlRef, container, numItems, items, preSortProperty );
-}
+ wxVisualAttributes attr;
-OSStatus wxMacDataBrowserListControl::RevealItem(
- DataBrowserItemID item,
- DataBrowserPropertyID propertyID,
- DataBrowserRevealOptions options )
-{
- return RevealDataBrowserItem( m_controlRef, item, propertyID, options );
-}
+ attr.colFg = wxSystemSettings::GetColour( wxSYS_COLOUR_WINDOWTEXT );
+ attr.colBg = wxSystemSettings::GetColour( wxSYS_COLOUR_LISTBOX );
+ attr.font = wxSystemSettings::GetFont( wxSYS_DEFAULT_GUI_FONT );
-OSStatus wxMacDataBrowserListControl::SetSelectedItems(
- UInt32 numItems,
- const DataBrowserItemID *items,
- DataBrowserSetOption operation )
-{
- return SetDataBrowserSelectedItems( m_controlRef, numItems, items, operation );
+ return attr;
}
-OSStatus wxMacDataBrowserListControl::GetSelectionAnchor( DataBrowserItemID *first, DataBrowserItemID *last ) const
+int wxListBox::DoListHitTest(const wxPoint& inpoint) const
{
- return GetDataBrowserSelectionAnchor( m_controlRef, first, last );
-}
+ OSStatus err;
-#if 0
+ // There are few reasons why this is complicated:
+ // 1) There is no native HitTest function for Mac
+ // 2) GetDataBrowserItemPartBounds only works on visible items
+ // 3) We can't do it through GetDataBrowserTableView[Item]RowHeight
+ // because what it returns is basically inaccurate in the context
+ // of the coordinates we want here, but we use this as a guess
+ // for where the first visible item lies
-// in case we need that one day
+ wxPoint point = inpoint;
-// ============================================================================
-// HIView owner-draw-based implementation
-// ============================================================================
+ // interestingly enough 10.2 (and below?) have GetDataBrowserItemPartBounds
+ // giving root window coordinates but 10.3 and above give client coordinates
+ // so we only compare using root window coordinates on 10.3 and up
+ if ( UMAGetSystemVersion() < 0x1030 )
+ MacClientToRootWindow(&point.x, &point.y);
-static pascal void ListBoxDrawProc(
- ControlRef browser, DataBrowserItemID item, DataBrowserPropertyID property,
- DataBrowserItemState itemState, const Rect *itemRect, SInt16 depth, Boolean isColorDevice )
-{
- CFStringRef cfString;
- ThemeDrawingState themeState;
- long systemVersion;
+ // get column property ID (req. for call to itempartbounds)
+ DataBrowserTableViewColumnID colId = 0;
+ err = GetDataBrowserTableViewColumnProperty(m_peer->GetControlRef(), 0, &colId);
+ wxCHECK_MSG(err == noErr, wxNOT_FOUND, wxT("Unexpected error from GetDataBrowserTableViewColumnProperty"));
- GetThemeDrawingState( &themeState );
- cfString = CFStringCreateWithFormat( NULL, NULL, CFSTR("Row %d"), item );
+ // OK, first we need to find the first visible item we have -
+ // this will be the "low" for our binary search. There is no real
+ // easy way around this, as we will need to do a SLOW linear search
+ // until we find a visible item, but we can do a cheap calculation
+ // via the row height to speed things up a bit
+ UInt32 scrollx, scrolly;
+ err = GetDataBrowserScrollPosition(m_peer->GetControlRef(), &scrollx, &scrolly);
+ wxCHECK_MSG(err == noErr, wxNOT_FOUND, wxT("Unexpected error from GetDataBrowserScrollPosition"));
- // In this sample we handle the "selected" state; all others fall through to our "active" state
- if ( itemState == kDataBrowserItemIsSelected )
+ UInt16 height;
+ err = GetDataBrowserTableViewRowHeight(m_peer->GetControlRef(), &height);
+ wxCHECK_MSG(err == noErr, wxNOT_FOUND, wxT("Unexpected error from GetDataBrowserTableViewRowHeight"));
+
+ // these indices are 0-based, as usual, so we need to add 1 to them when
+ // passing them to data browser functions which use 1-based indices
+ int low = scrolly / height,
+ high = GetCount() - 1;
+
+ // search for the first visible item (note that the scroll guess above
+ // is the low bounds of where the item might lie so we only use that as a
+ // starting point - we should reach it within 1 or 2 iterations of the loop)
+ while ( low <= high )
{
- ThemeBrush colorBrushID;
+ Rect bounds;
+ err = GetDataBrowserItemPartBounds(
+ m_peer->GetControlRef(), low + 1, colId,
+ kDataBrowserPropertyEnclosingPart,
+ &bounds); // note +1 to translate to Mac ID
+ if ( err == noErr )
+ break;
- // TODO: switch over to wxSystemSettingsNative::GetColour() when kThemeBrushSecondaryHighlightColor
- // is incorporated Panther DB starts using kThemeBrushSecondaryHighlightColor
- // for inactive browser highlighting
- Gestalt( gestaltSystemVersion, &systemVersion );
- if ( (systemVersion >= 0x00001030) && !IsControlActive( browser ) )
- colorBrushID = kThemeBrushSecondaryHighlightColor;
- else
- colorBrushID = kThemeBrushPrimaryHighlightColor;
+ // errDataBrowserItemNotFound is expected as it simply means that the
+ // item is not currently visible -- but other errors are not
+ wxCHECK_MSG( err == errDataBrowserItemNotFound, wxNOT_FOUND,
+ wxT("Unexpected error from GetDataBrowserItemPartBounds") );
- // First paint the hilite rect, then the text on top
- SetThemePen( colorBrushID, 32, true );
- PaintRect( itemRect );
- SetThemeDrawingState( themeState, false );
+ low++;
}
- DrawThemeTextBox( cfString, kThemeApplicationFont, kThemeStateActive, true, itemRect, teFlushDefault, NULL );
- SetThemeDrawingState( themeState, true );
+ // NOW do a binary search for where the item lies, searching low again if
+ // we hit an item that isn't visible
+ while ( low <= high )
+ {
+ int mid = (low + high) / 2;
- if ( cfString != NULL )
- CFRelease( cfString );
+ Rect bounds;
+ err = GetDataBrowserItemPartBounds(
+ m_peer->GetControlRef(), mid + 1, colId,
+ kDataBrowserPropertyEnclosingPart,
+ &bounds); //note +1 to trans to mac id
+ wxCHECK_MSG( err == noErr || err == errDataBrowserItemNotFound,
+ wxNOT_FOUND,
+ wxT("Unexpected error from GetDataBrowserItemPartBounds") );
+
+ if ( err == errDataBrowserItemNotFound )
+ {
+ // item not visible, attempt to find a visible one
+ // search lower
+ high = mid - 1;
+ }
+ else // visible item, do actual hitttest
+ {
+ // if point is within the bounds, return this item (since we assume
+ // all x coords of items are equal we only test the x coord in
+ // equality)
+ if ((point.x >= bounds.left && point.x <= bounds.right) &&
+ (point.y >= bounds.top && point.y <= bounds.bottom) )
+ {
+ // found!
+ return mid;
+ }
+
+ if ( point.y < bounds.top )
+ // index(bounds) greater then key(point)
+ high = mid - 1;
+ else
+ // index(bounds) less then key(point)
+ low = mid + 1;
+ }
+ }
+
+ return wxNOT_FOUND;
}
-#endif
// ============================================================================
-// list box control implementation
+// data browser based implementation
// ============================================================================
-wxListBox::wxListBox()
+const short kTextColumnId = 1024;
+const short kNumericOrderColumnId = 1025;
+
+wxMacListBoxItem::wxMacListBoxItem()
{
- m_noItems = 0;
+ m_data = NULL;
+ m_order = 0;
}
-bool wxListBox::Create(wxWindow *parent,
- wxWindowID id,
- const wxPoint& pos,
- const wxSize& size,
- const wxArrayString& choices,
- long style,
- const wxValidator& validator,
- const wxString& name)
+wxMacListBoxItem::~wxMacListBoxItem()
{
- wxCArrayString chs(choices);
-
- return Create(
- parent, id, pos, size, chs.GetCount(), chs.GetStrings(),
- style, validator, name);
}
-bool wxListBox::Create(wxWindow *parent,
- wxWindowID id,
- const wxPoint& pos,
- const wxSize& size,
- int n,
- const wxString choices[],
- long style,
- const wxValidator& validator,
- const wxString& name)
+void wxMacListBoxItem::SetOrder( SInt32 order )
{
- m_macIsUserPane = false;
-
- wxASSERT_MSG( !(style & wxLB_MULTIPLE) || !(style & wxLB_EXTENDED),
- _T("only one of listbox selection modes can be specified") );
-
- if ( !wxListBoxBase::Create(parent, id, pos, size, style & ~(wxHSCROLL | wxVSCROLL), validator, name) )
- return false;
-
- // this will be increased by our append command
- m_noItems = 0;
-
- m_peer = CreateMacListControl( pos, size, style );
-
- MacPostControlCreate( pos, size );
-
- InsertItems( n, choices, 0 );
-
- // Needed because it is a wxControlWithItems
- SetBestSize( size );
-
- return true;
+ m_order = order;
}
-wxListBox::~wxListBox()
+SInt32 wxMacListBoxItem::GetOrder() const
{
- m_peer->SetReference( 0 );
- FreeData();
+ return m_order;
}
-wxMacListControl * wxListBox::CreateMacListControl(const wxPoint& pos, const wxSize& size, long style)
+void wxMacListBoxItem::SetData( void* data)
{
- return new wxMacDataBrowserListControl( this, pos, size, style );
+ m_data = data;
}
-void wxListBox::FreeData()
+void* wxMacListBoxItem::GetData() const
{
-#if wxUSE_OWNER_DRAWN
- if ( m_windowStyle & wxLB_OWNERDRAW )
- {
- size_t uiCount = m_aItems.Count();
- while ( uiCount != 0 )
- {
- uiCount--;
- delete m_aItems[uiCount];
- m_aItems[uiCount] = NULL;
- }
-
- m_aItems.Clear();
- }
- else
-#endif
- if ( HasClientObjectData() )
- {
- for ( unsigned int n = 0; n < m_noItems; n++ )
- {
- delete GetClientObject( n );
- }
- }
+ return m_data;
}
-void wxListBox::DoSetSize(int x, int y,
- int width, int height,
- int sizeFlags )
+void wxMacListBoxItem::SetLabel( const wxString& str)
{
- wxControl::DoSetSize( x, y, width, height, sizeFlags );
+ m_label = str;
+ m_cfLabel.Assign( str , wxLocale::GetSystemEncoding());
}
-void wxListBox::DoSetFirstItem(int n)
+const wxString& wxMacListBoxItem::GetLabel() const
{
- GetPeer()->MacScrollTo( n );
+ return m_label;
}
-void wxListBox::Delete(unsigned int n)
+bool wxMacListBoxItem::IsLessThan(wxMacDataItemBrowserControl *owner ,
+ const wxMacDataItem* rhs,
+ DataBrowserPropertyID sortProperty) const
{
- wxCHECK_RET( IsValid(n), wxT("invalid index in wxListBox::Delete") );
-
-#if wxUSE_OWNER_DRAWN
- delete m_aItems[n];
- m_aItems.RemoveAt(n);
-#else
- if ( HasClientObjectData() )
+ const wxMacListBoxItem* otherItem = dynamic_cast<const wxMacListBoxItem*>(rhs);
+ bool retval = false;
+ switch (sortProperty)
{
- delete GetClientObject(n);
- }
-#endif
-
- m_stringArray.RemoveAt( n );
- m_dataArray.RemoveAt( n );
- m_noItems--;
-
- GetPeer()->MacDelete( n );
-}
+ case kTextColumnId:
+ retval = m_label.CmpNoCase( otherItem->m_label) < 0;
+ break;
-int wxListBox::DoAppend(const wxString& item)
-{
- InvalidateBestSize();
+ case kNumericOrderColumnId:
+ retval = m_order < otherItem->m_order;
+ break;
- unsigned int index = m_noItems;
- m_stringArray.Add( item );
- m_dataArray.Add( NULL );
- m_noItems++;
- DoSetItemClientData( index, NULL );
- GetPeer()->MacAppend( item );
+ default:
+ break;
+ };
- return index;
+ return retval;
}
-void wxListBox::DoSetItems(const wxArrayString& choices, void** clientData)
+OSStatus wxMacListBoxItem::GetSetData( wxMacDataItemBrowserControl *owner ,
+ DataBrowserPropertyID property,
+ DataBrowserItemDataRef itemData,
+ bool changeValue )
{
- Clear();
- unsigned int n = choices.GetCount();
+ OSStatus err = errDataBrowserPropertyNotSupported;
+ wxListBox *list = wxDynamicCast( owner->GetPeer() , wxListBox );
+ wxCHECK_MSG( list != NULL , errDataBrowserPropertyNotSupported , wxT("Listbox expected"));
- for ( size_t i = 0; i < n; ++i )
+ if ( !changeValue )
{
- if ( clientData )
+ switch (property)
{
-#if wxUSE_OWNER_DRAWN
- wxASSERT_MSG(clientData[i] == NULL,
- wxT("Can't use client data with owner-drawn listboxes"));
-#else
- Append( choices[i], clientData[i] );
-#endif
+ case kTextColumnId:
+ err = ::SetDataBrowserItemDataText( itemData, m_cfLabel );
+ err = noErr;
+ break;
+
+ case kNumericOrderColumnId:
+ err = ::SetDataBrowserItemDataValue( itemData, m_order );
+ err = noErr;
+ break;
+
+ default:
+ break;
}
- else
- Append( choices[i] );
}
-
-#if wxUSE_OWNER_DRAWN
- if ( m_windowStyle & wxLB_OWNERDRAW )
+ else
{
- // first delete old items
- size_t ui = m_aItems.Count();
- while ( ui != 0 )
+ switch (property)
{
- ui--;
- delete m_aItems[ui];
- m_aItems[ui] = NULL;
+ // no editable props here
+ default:
+ break;
}
+ }
+
+ return err;
+}
+
+void wxMacListBoxItem::Notification(wxMacDataItemBrowserControl *owner ,
+ DataBrowserItemNotification message,
+ DataBrowserItemDataRef itemData ) const
+{
+ wxMacDataBrowserListControl *lb = dynamic_cast<wxMacDataBrowserListControl*>(owner);
- m_aItems.Empty();
+ // we want to depend on as little as possible to make sure tear-down of controls is safe
- // then create new ones
- for ( ui = 0; ui < (size_t)m_noItems; ui++ )
+ if ( message == kDataBrowserItemRemoved)
+ {
+ if ( lb != NULL && lb->GetClientDataType() == wxClientData_Object )
{
- wxOwnerDrawn *pNewItem = CreateItem(ui);
- pNewItem->SetName(choices[ui]);
- m_aItems.Add(pNewItem);
+ delete (wxClientData*) (m_data);
}
+
+ delete this;
+ return;
}
-#endif
-}
-int wxListBox::FindString(const wxString& s, bool bCase) const
-{
- for ( size_t i = 0; i < m_noItems; ++ i )
+ wxListBox *list = wxDynamicCast( owner->GetPeer() , wxListBox );
+ wxCHECK_RET( list != NULL , wxT("Listbox expected"));
+
+ bool trigger = false;
+ wxCommandEvent event( wxEVT_COMMAND_LISTBOX_SELECTED, list->GetId() );
+ switch (message)
{
- if (s.IsSameAs(GetString(i), bCase))
- return (int)i;
- }
+ case kDataBrowserItemDeselected:
+ if ( list->HasMultipleSelection() )
+ trigger = !lb->IsSelectionSuppressed();
+ break;
- return wxNOT_FOUND;
-}
+ case kDataBrowserItemSelected:
+ trigger = !lb->IsSelectionSuppressed();
+ break;
-void wxListBox::Clear()
-{
- FreeData();
- m_noItems = 0;
- m_stringArray.Empty();
- m_dataArray.Empty();
- GetPeer()->MacClear();
-}
+ case kDataBrowserItemDoubleClicked:
+ event.SetEventType( wxEVT_COMMAND_LISTBOX_DOUBLECLICKED );
+ trigger = true;
+ break;
-void wxListBox::DoSetSelection(int n, bool select)
-{
- wxCHECK_RET( n == wxNOT_FOUND || IsValid(n),
- wxT("invalid index in wxListBox::SetSelection") );
+ default:
+ break;
+ }
- if ( n == wxNOT_FOUND )
- GetPeer()->MacDeselectAll();
- else
- GetPeer()->MacSetSelection( n, select );
+ if ( trigger )
+ {
+ event.SetEventObject( list );
+ if ( list->HasClientObjectData() )
+ event.SetClientObject( (wxClientData*) m_data );
+ else if ( list->HasClientUntypedData() )
+ event.SetClientData( m_data );
+ event.SetString( m_label );
+ event.SetInt( owner->GetLineFromItem( this ) );
+ event.SetExtraLong( list->HasMultipleSelection() ? message == kDataBrowserItemSelected : true );
+ wxPostEvent( list->GetEventHandler(), event );
+
+ // direct notification is not always having the listbox GetSelection() having in synch with event
+ // list->GetEventHandler()->ProcessEvent(event);
+ }
}
-bool wxListBox::IsSelected(int n) const
+wxMacDataBrowserListControl::wxMacDataBrowserListControl( wxListBox *peer, const wxPoint& pos, const wxSize& size, long style)
+ : wxMacDataItemBrowserControl( peer, pos, size, style )
{
- wxCHECK_MSG( IsValid(n), false, wxT("invalid index in wxListBox::Selected") );
+ OSStatus err = noErr;
+ m_clientDataItemsType = wxClientData_None;
+ m_stringSorted = style & wxLB_SORT;
- return GetPeer()->MacIsSelected( n );
-}
+ DataBrowserSelectionFlags options = kDataBrowserDragSelect;
+ if ( style & wxLB_MULTIPLE )
+ {
+ options |= kDataBrowserAlwaysExtendSelection | kDataBrowserCmdTogglesSelection;
+ }
+ else if ( style & wxLB_EXTENDED )
+ {
+ // default behaviour
+ }
+ else
+ {
+ options |= kDataBrowserSelectOnlyOne;
+ }
+ err = SetSelectionFlags( options );
+ verify_noerr( err );
-void *wxListBox::DoGetItemClientData(unsigned int n) const
-{
- wxCHECK_MSG( IsValid(n), NULL, wxT("invalid index in wxListBox::GetClientData"));
+ DataBrowserListViewColumnDesc columnDesc;
+ columnDesc.headerBtnDesc.titleOffset = 0;
+ columnDesc.headerBtnDesc.version = kDataBrowserListViewLatestHeaderDesc;
- wxASSERT_MSG( m_dataArray.GetCount() >= (unsigned int) n, wxT("invalid client_data array") );
+ columnDesc.headerBtnDesc.btnFontStyle.flags =
+ kControlUseFontMask | kControlUseJustMask;
- return (void *)m_dataArray[n];
-}
+ columnDesc.headerBtnDesc.btnContentInfo.contentType = kControlNoContent;
+ columnDesc.headerBtnDesc.btnFontStyle.just = teFlushDefault;
+ columnDesc.headerBtnDesc.btnFontStyle.font = kControlFontViewSystemFont;
+ columnDesc.headerBtnDesc.btnFontStyle.style = normal;
+ columnDesc.headerBtnDesc.titleString = NULL;
-wxClientData *wxListBox::DoGetItemClientObject(unsigned int n) const
-{
- return (wxClientData *) DoGetItemClientData( n );
-}
+ columnDesc.headerBtnDesc.minimumWidth = 0;
+ columnDesc.headerBtnDesc.maximumWidth = 10000;
-void wxListBox::DoSetItemClientData(unsigned int n, void *clientData)
-{
- wxCHECK_RET( IsValid(n), wxT("invalid index in wxListBox::SetClientData") );
+ columnDesc.propertyDesc.propertyID = kTextColumnId;
+ columnDesc.propertyDesc.propertyType = kDataBrowserTextType;
+ columnDesc.propertyDesc.propertyFlags = kDataBrowserTableViewSelectionColumn;
+#if MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2
+ columnDesc.propertyDesc.propertyFlags |= kDataBrowserListViewTypeSelectColumn;
+#endif
-#if wxUSE_OWNER_DRAWN
- if ( m_windowStyle & wxLB_OWNERDRAW )
- {
- // client data must be pointer to wxOwnerDrawn, otherwise we would crash
- // in OnMeasure/OnDraw.
- wxFAIL_MSG(wxT("Can't use client data with owner-drawn listboxes"));
- }
+ verify_noerr( AddColumn( &columnDesc, kDataBrowserListViewAppendColumn ) );
+
+ columnDesc.headerBtnDesc.minimumWidth = 0;
+ columnDesc.headerBtnDesc.maximumWidth = 0;
+ columnDesc.propertyDesc.propertyID = kNumericOrderColumnId;
+ columnDesc.propertyDesc.propertyType = kDataBrowserPropertyRelevanceRankPart;
+ columnDesc.propertyDesc.propertyFlags = kDataBrowserTableViewSelectionColumn;
+#if MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2
+ columnDesc.propertyDesc.propertyFlags |= kDataBrowserListViewTypeSelectColumn;
#endif
- wxASSERT_MSG( m_dataArray.GetCount() >= (unsigned int) n, wxT("invalid client_data array") );
+ verify_noerr( AddColumn( &columnDesc, kDataBrowserListViewAppendColumn ) );
- if ( m_dataArray.GetCount() > (unsigned int) n )
- m_dataArray[n] = (char*)clientData;
+ SetDataBrowserSortProperty( m_controlRef , kTextColumnId);
+ if ( m_stringSorted )
+ {
+ SetDataBrowserSortProperty( m_controlRef , kTextColumnId);
+ SetDataBrowserSortOrder( m_controlRef , kDataBrowserOrderIncreasing);
+ }
else
- m_dataArray.Add( (char*)clientData );
+ {
+ SetDataBrowserSortProperty( m_controlRef , kNumericOrderColumnId);
+ SetDataBrowserSortOrder( m_controlRef , kDataBrowserOrderIncreasing);
+ }
+
+ verify_noerr( AutoSizeColumns() );
+ verify_noerr( SetHiliteStyle(kDataBrowserTableViewFillHilite ) );
+ verify_noerr( SetHeaderButtonHeight( 0 ) );
+ err = SetHasScrollBars( (style & wxHSCROLL) != 0 , true );
+#if 0
+ // shouldn't be necessary anymore under 10.2
+ m_peer->SetData( kControlNoPart, kControlDataBrowserIncludesFrameAndFocusTag, (Boolean)false );
+ m_peer->SetNeedsFocusRect( true );
+#endif
}
-void wxListBox::DoSetItemClientObject(unsigned int n, wxClientData* clientData)
+wxMacDataBrowserListControl::~wxMacDataBrowserListControl()
{
- DoSetItemClientData(n, clientData);
}
-// Return number of selections and an array of selected integers
-int wxListBox::GetSelections(wxArrayInt& aSelections) const
+
+wxMacListBoxItem* wxMacDataBrowserListControl::CreateItem()
{
- return GetPeer()->MacGetSelections( aSelections );
+ return new wxMacListBoxItem();
}
-// Get single selection, for single choice list items
-int wxListBox::GetSelection() const
+wxListBox * wxMacDataBrowserListControl::GetPeer() const
{
- return GetPeer()->MacGetSelection();
+ return wxDynamicCast( wxMacControl::GetPeer() , wxListBox );
}
-// Find string for position
-wxString wxListBox::GetString(unsigned int n) const
+wxClientDataType wxMacDataBrowserListControl::GetClientDataType() const
{
- wxCHECK_MSG( IsValid(n), wxEmptyString, wxT("invalid index in wxListBox::GetString") );
-
- return m_stringArray[n];
+ return m_clientDataItemsType;
}
-
-void wxListBox::DoInsertItems(const wxArrayString& items, unsigned int pos)
+void wxMacDataBrowserListControl::SetClientDataType(wxClientDataType clientDataItemsType)
{
- wxCHECK_RET( IsValidInsert(pos), wxT("invalid index in wxListBox::InsertItems") );
-
- InvalidateBestSize();
-
- unsigned int nItems = items.GetCount();
+ m_clientDataItemsType = clientDataItemsType;
+}
- for ( unsigned int i = 0; i < nItems; i++ )
- m_stringArray.Insert( items[i], pos + i );
- m_dataArray.Insert( NULL, pos, nItems );
- m_noItems += nItems;
- GetPeer()->MacInsert( pos, items );
+unsigned int wxMacDataBrowserListControl::MacGetCount() const
+{
+ return GetItemCount(wxMacDataBrowserRootContainer,false,kDataBrowserItemAnyState);
}
-void wxListBox::SetString(unsigned int n, const wxString& s)
+void wxMacDataBrowserListControl::MacDelete( unsigned int n )
{
- m_stringArray[n] = s;
- GetPeer()->MacSet( n, s );
+ wxMacListBoxItem* item = (wxMacListBoxItem*)GetItemFromLine( n );
+ RemoveItem( wxMacDataBrowserRootContainer, item );
}
-wxSize wxListBox::DoGetBestSize() const
+void wxMacDataBrowserListControl::MacInsert( unsigned int n, const wxString& text)
{
- int lbWidth = 100; // some defaults
- int lbHeight = 110;
- int wLine;
+ wxMacListBoxItem* newItem = CreateItem();
+ newItem->SetLabel( text );
+ if ( !m_stringSorted )
{
- wxMacPortStateHelper st( UMAGetWindowPort( (WindowRef)MacGetTopLevelWindowRef() ) );
-
- // TODO: clean this up
- if ( m_font.Ok() )
+ // increase the order of the lines to be shifted
+ unsigned int lines = MacGetCount();
+ for ( unsigned int i = n; i < lines; ++i)
{
- ::TextFont( m_font.MacGetFontNum() );
- ::TextSize( m_font.MacGetFontSize() );
- ::TextFace( m_font.MacGetFontStyle() );
+ wxMacListBoxItem* iter = (wxMacListBoxItem*) GetItemFromLine(i);
+ iter->SetOrder( iter->GetOrder() + 1 );
}
- else
+
+ SInt32 frontLineOrder = 0;
+ if ( n > 0 )
{
- ::TextFont( kFontIDMonaco );
- ::TextSize( 9 );
- ::TextFace( 0 );
+ wxMacListBoxItem* iter = (wxMacListBoxItem*) GetItemFromLine(n-1);
+ frontLineOrder = iter->GetOrder();
}
+ newItem->SetOrder( frontLineOrder + 1 );
+ }
- // Find the widest line
- for (unsigned int i = 0; i < GetCount(); i++)
- {
- wxString str(GetString(i));
+ AddItem( wxMacDataBrowserRootContainer, newItem );
+}
-#if wxUSE_UNICODE
- Point bounds = {0, 0};
- SInt16 baseline;
+void wxMacDataBrowserListControl::MacInsert( unsigned int n, const wxArrayString& items)
+{
+ size_t itemsCount = items.GetCount();
+ if ( itemsCount == 0 )
+ return;
- // NB: what if m_font.Ok() == false ???
- ::GetThemeTextDimensions(
- wxMacCFStringHolder( str, m_font.GetEncoding() ),
- kThemeCurrentPortFont,
- kThemeStateActive,
- false,
- &bounds,
- &baseline );
- wLine = bounds.h;
-#else
- wLine = ::TextWidth( str.c_str(), 0, str.length() );
-#endif
+ SInt32 frontLineOrder = 0;
- lbWidth = wxMax( lbWidth, wLine );
+ if ( !m_stringSorted )
+ {
+ // increase the order of the lines to be shifted
+ unsigned int lines = MacGetCount();
+ for ( unsigned int i = n; i < lines; ++i)
+ {
+ wxMacListBoxItem* iter = (wxMacListBoxItem*) GetItemFromLine(i);
+ iter->SetOrder( iter->GetOrder() + itemsCount );
+ }
+ if ( n > 0 )
+ {
+ wxMacListBoxItem* iter = (wxMacListBoxItem*) GetItemFromLine(n-1);
+ frontLineOrder = iter->GetOrder();
}
+ }
- // Add room for the scrollbar
- lbWidth += wxSystemSettings::GetMetric(wxSYS_VSCROLL_X);
+ wxArrayMacDataItemPtr ids;
+ ids.SetCount( itemsCount );
- // And just a bit more
- int cy = 12;
- int cx = ::TextWidth( "X", 0, 1 );
- lbWidth += cx;
+ for ( unsigned int i = 0; i < itemsCount; ++i )
+ {
+ wxMacListBoxItem* item = CreateItem();
+ item->SetLabel( items[i]);
+ if ( !m_stringSorted )
+ item->SetOrder( frontLineOrder + 1 + i );
- // don't make the listbox too tall (limit height to around 10 items)
- // but don't make it too small neither
- lbHeight = wxMax( (cy + 4) * wxMin( wxMax( GetCount(), 3 ), 10 ), 70 );
+ ids[i] = item;
}
- return wxSize( lbWidth, lbHeight );
+ AddItems( wxMacDataBrowserRootContainer, ids );
}
-unsigned int wxListBox::GetCount() const
+int wxMacDataBrowserListControl::MacAppend( const wxString& text)
{
- return m_noItems;
+ wxMacListBoxItem* item = CreateItem();
+ item->SetLabel( text );
+ if ( !m_stringSorted )
+ {
+ unsigned int lines = MacGetCount();
+ if ( lines == 0 )
+ item->SetOrder( 1 );
+ else
+ {
+ wxMacListBoxItem* frontItem = (wxMacListBoxItem*) GetItemFromLine(lines-1);
+ item->SetOrder( frontItem->GetOrder() + 1 );
+ }
+ }
+ AddItem( wxMacDataBrowserRootContainer, item );
+
+ return GetLineFromItem(item);
}
-void wxListBox::Refresh(bool eraseBack, const wxRect *rect)
+void wxMacDataBrowserListControl::MacClear()
{
- wxControl::Refresh( eraseBack, rect );
+ wxMacDataItemBrowserSelectionSuppressor suppressor(this);
+ RemoveAllItems(wxMacDataBrowserRootContainer);
}
-void wxListBox::MacUpdateLine(int n)
+void wxMacDataBrowserListControl::MacDeselectAll()
{
- GetPeer()->UpdateLine(n);
+ wxMacDataItemBrowserSelectionSuppressor suppressor(this);
+ SetSelectedAllItems( kDataBrowserItemsRemove );
}
-#if wxUSE_OWNER_DRAWN
-
-class wxListBoxItem : public wxOwnerDrawn
+void wxMacDataBrowserListControl::MacSetSelection( unsigned int n, bool select )
{
-public:
- wxListBoxItem(const wxString& str = "");
-};
+ wxMacListBoxItem* item = (wxMacListBoxItem*) GetItemFromLine(n);
+ wxMacDataItemBrowserSelectionSuppressor suppressor(this);
-wxListBoxItem::wxListBoxItem(const wxString& str)
- : wxOwnerDrawn(str, false)
-{
- // no bitmaps/checkmarks
- SetMarginWidth(0);
+ if ( IsItemSelected( item ) != select )
+ {
+ if ( select )
+ SetSelectedItem( item, GetPeer()->HasMultipleSelection() ? kDataBrowserItemsAdd : kDataBrowserItemsAssign );
+ else
+ SetSelectedItem( item, kDataBrowserItemsRemove );
+ }
+
+ MacScrollTo( n );
}
-wxOwnerDrawn *wxListBox::CreateItem(size_t n)
+bool wxMacDataBrowserListControl::MacIsSelected( unsigned int n ) const
{
- return new wxListBoxItem();
+ wxMacListBoxItem* item = (wxMacListBoxItem*) GetItemFromLine(n);
+ return IsItemSelected( item );
}
-#endif // USE_OWNER_DRAWN
+int wxMacDataBrowserListControl::MacGetSelection() const
+{
+ wxMacDataItemPtr first, last;
+ GetSelectionAnchor( &first, &last );
+ if ( first != NULL )
+ {
+ return GetLineFromItem( first );
+ }
-// Some custom controls depend on this
-/* static */ wxVisualAttributes
-wxListBox::GetClassDefaultAttributes(wxWindowVariant WXUNUSED(variant))
+ return -1;
+}
+
+int wxMacDataBrowserListControl::MacGetSelections( wxArrayInt& aSelections ) const
{
- wxVisualAttributes attr;
+ aSelections.Empty();
+ wxArrayMacDataItemPtr selectedItems;
+ GetItems( wxMacDataBrowserRootContainer, false , kDataBrowserItemIsSelected, selectedItems);
- attr.colFg = wxSystemSettings::GetColour( wxSYS_COLOUR_WINDOWTEXT );
- attr.colBg = wxSystemSettings::GetColour( wxSYS_COLOUR_LISTBOX );
- attr.font = wxSystemSettings::GetFont( wxSYS_DEFAULT_GUI_FONT );
+ int count = selectedItems.GetCount();
- return attr;
+ for ( int i = 0; i < count; ++i)
+ {
+ aSelections.Add(GetLineFromItem(selectedItems[i]));
+ }
+
+ return count;
}
-int wxListBox::DoListHitTest(const wxPoint& inpoint) const
+void wxMacDataBrowserListControl::MacSetString( unsigned int n, const wxString& text )
{
- OSStatus err;
-
- // There are few reasons why this is complicated:
- // 1) There is no native HitTest function for Mac
- // 2) GetDataBrowserItemPartBounds only works on visible items
- // 3) We can't do it through GetDataBrowserTableView[Item]RowHeight
- // because what it returns is basically inaccurate in the context
- // of the coordinates we want here, but we use this as a guess
- // for where the first visible item lies
+ // as we don't store the strings we only have to issue a redraw
+ wxMacListBoxItem* item = (wxMacListBoxItem*) GetItemFromLine( n);
+ item->SetLabel( text );
+ UpdateItem( wxMacDataBrowserRootContainer, item , kTextColumnId );
+}
- wxPoint point = inpoint;
+wxString wxMacDataBrowserListControl::MacGetString( unsigned int n ) const
+{
+ wxMacListBoxItem * item = (wxMacListBoxItem*) GetItemFromLine( n );
+ return item->GetLabel();
+}
- // interestingly enough 10.2 (and below?) have GetDataBrowserItemPartBounds
- // giving root window coordinates but 10.3 and above give client coordinates
- // so we only compare using root window coordinates on 10.3 and up
- if ( UMAGetSystemVersion() < 0x1030 )
- MacClientToRootWindow(&point.x, &point.y);
+void wxMacDataBrowserListControl::MacSetClientData( unsigned int n, void * data)
+{
+ wxMacListBoxItem* item = (wxMacListBoxItem*) GetItemFromLine( n);
+ item->SetData( data );
+ // not displayed, therefore no Update infos to DataBrowser
+}
- // get column property ID (req. for call to itempartbounds)
- DataBrowserTableViewColumnID colId = 0;
- err = GetDataBrowserTableViewColumnProperty(m_peer->GetControlRef(), 0, &colId);
- wxCHECK_MSG(err == noErr, wxNOT_FOUND, wxT("Unexpected error from GetDataBrowserTableViewColumnProperty"));
+void * wxMacDataBrowserListControl::MacGetClientData( unsigned int n) const
+{
+ wxMacListBoxItem * item = (wxMacListBoxItem*) GetItemFromLine( n );
+ return item->GetData();
+}
- // OK, first we need to find the first visible item we have -
- // this will be the "low" for our binary search. There is no real
- // easy way around this, as we will need to do a SLOW linear search
- // until we find a visible item, but we can do a cheap calculation
- // via the row height to speed things up a bit
- UInt32 scrollx, scrolly;
- err = GetDataBrowserScrollPosition(m_peer->GetControlRef(), &scrollx, &scrolly);
- wxCHECK_MSG(err == noErr, wxNOT_FOUND, wxT("Unexpected error from GetDataBrowserScrollPosition"));
+void wxMacDataBrowserListControl::MacScrollTo( unsigned int n )
+{
+ RevealItem( GetItemFromLine( n) , kDataBrowserRevealWithoutSelecting );
+}
- UInt16 height;
- err = GetDataBrowserTableViewRowHeight(m_peer->GetControlRef(), &height);
- wxCHECK_MSG(err == noErr, wxNOT_FOUND, wxT("Unexpected error from GetDataBrowserTableViewRowHeight"));
+#if 0
- // these indices are 0-based, as usual, so we need to add 1 to them when
- // passing them to data browser functions which use 1-based indices
- int low = scrolly / height,
- high = GetCount() - 1;
+// in case we need that one day
- // search for the first visible item (note that the scroll guess above
- // is the low bounds of where the item might lie so we only use that as a
- // starting point - we should reach it within 1 or 2 iterations of the loop)
- while ( low <= high )
- {
- Rect bounds;
- err = GetDataBrowserItemPartBounds(
- m_peer->GetControlRef(), low + 1, colId,
- kDataBrowserPropertyEnclosingPart,
- &bounds); // note +1 to translate to Mac ID
- if ( err == noErr )
- break;
+// ============================================================================
+// HIView owner-draw-based implementation
+// ============================================================================
- // errDataBrowserItemNotFound is expected as it simply means that the
- // item is not currently visible -- but other errors are not
- wxCHECK_MSG( err == errDataBrowserItemNotFound, wxNOT_FOUND,
- wxT("Unexpected error from GetDataBrowserItemPartBounds") );
+static pascal void ListBoxDrawProc(
+ ControlRef browser, DataBrowserItemID item, DataBrowserPropertyID property,
+ DataBrowserItemState itemState, const Rect *itemRect, SInt16 depth, Boolean isColorDevice )
+{
+ CFStringRef cfString;
+ ThemeDrawingState themeState;
+ long systemVersion;
- low++;
- }
+ GetThemeDrawingState( &themeState );
+ cfString = CFStringCreateWithFormat( NULL, NULL, CFSTR("Row %d"), item );
- // NOW do a binary search for where the item lies, searching low again if
- // we hit an item that isn't visible
- while ( low <= high )
+ // In this sample we handle the "selected" state; all others fall through to our "active" state
+ if ( itemState == kDataBrowserItemIsSelected )
{
- int mid = (low + high) / 2;
-
- Rect bounds;
- err = GetDataBrowserItemPartBounds(
- m_peer->GetControlRef(), mid + 1, colId,
- kDataBrowserPropertyEnclosingPart,
- &bounds); //note +1 to trans to mac id
- wxCHECK_MSG( err == noErr || err == errDataBrowserItemNotFound,
- wxNOT_FOUND,
- wxT("Unexpected error from GetDataBrowserItemPartBounds") );
+ ThemeBrush colorBrushID;
- if ( err == errDataBrowserItemNotFound )
- {
- // item not visible, attempt to find a visible one
- // search lower
- high = mid - 1;
- }
- else // visible item, do actual hitttest
- {
- // if point is within the bounds, return this item (since we assume
- // all x coords of items are equal we only test the x coord in
- // equality)
- if ((point.x >= bounds.left && point.x <= bounds.right) &&
- (point.y >= bounds.top && point.y <= bounds.bottom) )
- {
- // found!
- return mid;
- }
+ // TODO: switch over to wxSystemSettingsNative::GetColour() when kThemeBrushSecondaryHighlightColor
+ // is incorporated Panther DB starts using kThemeBrushSecondaryHighlightColor
+ // for inactive browser highlighting
+ Gestalt( gestaltSystemVersion, &systemVersion );
+ if ( (systemVersion >= 0x00001030) && !IsControlActive( browser ) )
+ colorBrushID = kThemeBrushSecondaryHighlightColor;
+ else
+ colorBrushID = kThemeBrushPrimaryHighlightColor;
- if ( point.y < bounds.top )
- // index(bounds) greater then key(point)
- high = mid - 1;
- else
- // index(bounds) less then key(point)
- low = mid + 1;
- }
+ // First paint the hilite rect, then the text on top
+ SetThemePen( colorBrushID, 32, true );
+ PaintRect( itemRect );
+ SetThemeDrawingState( themeState, false );
}
- return wxNOT_FOUND;
+ DrawThemeTextBox( cfString, kThemeApplicationFont, kThemeStateActive, true, itemRect, teFlushDefault, NULL );
+ SetThemeDrawingState( themeState, true );
+
+ if ( cfString != NULL )
+ CFRelease( cfString );
}
#endif
+
+
+#endif // wxUSE_LISTBOX
projects / wxWidgets.git / blobdiff