X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/7205570233ce8420b71fa5df368054c8953ff0e4..b724bafee0cbbb5c587d11e82a18c8ea5b060f26:/src/mac/carbon/scrolbar.cpp diff --git a/src/mac/carbon/scrolbar.cpp b/src/mac/carbon/scrolbar.cpp index c417484f02..5f268188b9 100644 --- a/src/mac/carbon/scrolbar.cpp +++ b/src/mac/carbon/scrolbar.cpp @@ -1,167 +1,243 @@ ///////////////////////////////////////////////////////////////////////////// -// Name: scrolbar.cpp +// Name: src/mac/carbon/scrolbar.cpp // Purpose: wxScrollBar -// Author: AUTHOR +// Author: Stefan Csomor // Modified by: -// Created: ??/??/98 +// Created: 1998-01-01 // RCS-ID: $Id$ -// Copyright: (c) AUTHOR -// Licence: wxWindows licence +// Copyright: (c) Stefan Csomor +// Licence: wxWindows licence ///////////////////////////////////////////////////////////////////////////// -#ifdef __GNUG__ -#pragma implementation "scrolbar.h" -#endif - -#include "wx/defs.h" +#include "wx/wxprec.h" #include "wx/scrolbar.h" + +#ifndef WX_PRECOMP + #include "wx/intl.h" + #include "wx/log.h" + #include "wx/settings.h" +#endif + #include "wx/mac/uma.h" -#if !USE_SHARED_LIBRARY IMPLEMENT_DYNAMIC_CLASS(wxScrollBar, wxControl) BEGIN_EVENT_TABLE(wxScrollBar, wxControl) END_EVENT_TABLE() -#endif - -extern ControlActionUPP wxMacLiveScrollbarActionUPP ; -// Scrollbar -bool wxScrollBar::Create(wxWindow *parent, wxWindowID id, - const wxPoint& pos, - const wxSize& size, long style, - const wxValidator& validator, - const wxString& name) +bool wxScrollBar::Create( wxWindow *parent, + wxWindowID id, + const wxPoint& pos, + const wxSize& size, + long style, + const wxValidator& validator, + const wxString& name ) { - if (!parent) - return FALSE; - - Rect bounds ; - Str255 title ; - - MacPreControlCreate( parent , id , "" , pos , size ,style, validator , name , &bounds , title ) ; + m_macIsUserPane = false; - m_macControl = ::NewControl( parent->GetMacRootWindow() , &bounds , title , true , 0 , 0 , 100, - kControlScrollBarLiveProc , (long) this ) ; - - wxASSERT_MSG( m_macControl != NULL , "No valid mac control" ) ; + if ( !wxControl::Create( parent, id, pos, size, style, validator, name ) ) + return false; - ::SetControlAction( m_macControl , wxMacLiveScrollbarActionUPP ) ; + Rect bounds = wxMacGetBoundsForControl( this, pos, size ); - MacPostControlCreate() ; + m_peer = new wxMacControl( this ); + OSStatus err = CreateScrollBarControl( + MAC_WXHWND(parent->MacGetTopLevelWindowRef()), &bounds, + 0, 0, 100, 1, true /* liveTracking */, + GetwxMacLiveScrollbarActionProc(), + m_peer->GetControlRefAddr() ); + verify_noerr( err ); - return TRUE; + MacPostControlCreate( pos, size ); + + return true; } wxScrollBar::~wxScrollBar() { } -void wxScrollBar::SetThumbPosition(int viewStart) +void wxScrollBar::SetThumbPosition( int viewStart ) { - ::SetControlValue( m_macControl , viewStart ) ; + m_peer->SetValue( viewStart ); } int wxScrollBar::GetThumbPosition() const { - return ::GetControlValue( m_macControl ) ; + return m_peer->GetValue(); } -void wxScrollBar::SetScrollbar(int position, int thumbSize, int range, int pageSize, - bool refresh) +void wxScrollBar::SetScrollbar( int position, int thumbSize, int range, int pageSize, bool refresh ) { - m_viewSize = pageSize; - m_pageSize = thumbSize; + m_pageSize = pageSize; + m_viewSize = thumbSize; m_objectSize = range; - int range1 = wxMax((m_objectSize - m_pageSize), 0) ; - - SetControlMaximum( m_macControl , range1 ) ; - SetControlMinimum( m_macControl , 0 ) ; - SetControlValue( m_macControl , position ) ; + int range1 = wxMax( (m_objectSize - m_viewSize), 0 ); - if ( UMAGetAppearanceVersion() >= 0x0110 ) - { - if ( SetControlViewSize != (void*) kUnresolvedCFragSymbolAddress ) - { - SetControlViewSize( m_macControl , m_pageSize ) ; - } - } - Refresh() ; + m_peer->SetMinimum( 0 ); + m_peer->SetMaximum( range1 ); + m_peer->SetValue( position ); + m_peer->SetViewSize( m_viewSize ); } - -void wxScrollBar::Command(wxCommandEvent& event) +void wxScrollBar::Command( wxCommandEvent& event ) { - SetThumbPosition(event.m_commandInt); - ProcessCommand(event); + SetThumbPosition( event.GetInt() ); + ProcessCommand( event ); } -void wxScrollBar::MacHandleControlClick( ControlHandle control , SInt16 controlpart ) +void wxScrollBar::MacHandleControlClick( WXWidget control, wxInt16 controlpart, bool mouseStillDown ) { - if ( m_macControl == NULL ) - return ; - - int position = GetControlValue( m_macControl) ; - int minPos = GetControlMinimum( m_macControl) ; - int maxPos = GetControlMaximum( m_macControl) ; - - wxEventType scrollEvent = wxEVT_NULL; - int nScrollInc; - - switch( controlpart ) - { - case kControlUpButtonPart : - nScrollInc = -m_pageSize; + int position = m_peer->GetValue(); + int minPos = m_peer->GetMinimum(); + int maxPos = m_peer->GetMaximum(); + + wxEventType scrollEvent = wxEVT_NULL; + int nScrollInc = 0; + + // all events have already been reported during mouse down, except for THUMBRELEASE + if ( !mouseStillDown && controlpart != kControlIndicatorPart ) + return; + + switch ( controlpart ) + { + case kControlUpButtonPart: + nScrollInc = -1; scrollEvent = wxEVT_SCROLL_LINEUP; - break ; - case kControlDownButtonPart : - nScrollInc = m_pageSize; + break; + + case kControlDownButtonPart: + nScrollInc = 1; scrollEvent = wxEVT_SCROLL_LINEDOWN; - break ; - case kControlPageUpPart : - nScrollInc = -m_viewSize; + break; + + case kControlPageUpPart: + nScrollInc = -m_pageSize; scrollEvent = wxEVT_SCROLL_PAGEUP; - break ; - case kControlPageDownPart : - nScrollInc = m_viewSize; + break; + + case kControlPageDownPart: + nScrollInc = m_pageSize; scrollEvent = wxEVT_SCROLL_PAGEDOWN; - break ; - case kControlIndicatorPart : - nScrollInc = 0 ; - scrollEvent = wxEVT_SCROLL_THUMBTRACK; - break ; - } - - int new_pos = position + nScrollInc; - - if (new_pos < 0) - new_pos = 0; - if (new_pos > maxPos) - new_pos = maxPos; - if ( nScrollInc ) - SetThumbPosition(new_pos); - - wxScrollEvent event(scrollEvent, m_windowId); - if ( m_windowStyle & wxHORIZONTAL ) - { - event.SetOrientation( wxHORIZONTAL ) ; - } - else - { - event.SetOrientation( wxVERTICAL ) ; - } - event.SetPosition(new_pos); - event.SetEventObject( this ); - wxWindow* window = GetParent() ; - if (window && window->MacIsWindowScrollbar(this) ) - { - // this is hardcoded - window->MacOnScroll(event); - } - else - GetEventHandler()->ProcessEvent(event); + break; + + case kControlIndicatorPart: + nScrollInc = 0; + if ( mouseStillDown ) + scrollEvent = wxEVT_SCROLL_THUMBTRACK; + else + scrollEvent = wxEVT_SCROLL_THUMBRELEASE; + break; + + default: + wxFAIL_MSG(wxT("unknown scrollbar selector")); + break; + } + + int new_pos = position + nScrollInc; + + if (new_pos < minPos) + new_pos = minPos; + else if (new_pos > maxPos) + new_pos = maxPos; + + if ( nScrollInc ) + SetThumbPosition( new_pos ); + + wxScrollEvent event( scrollEvent, m_windowId ); + if ( m_windowStyle & wxHORIZONTAL ) + event.SetOrientation( wxHORIZONTAL ); + else + event.SetOrientation( wxVERTICAL ); + + event.SetPosition( new_pos ); + event.SetEventObject( this ); + + wxWindow* window = GetParent(); + if (window && window->MacIsWindowScrollbar( this )) + // this is hardcoded + window->MacOnScroll( event ); + else + GetEventHandler()->ProcessEvent( event ); } +wxInt32 wxScrollBar::MacControlHit( WXEVENTHANDLERREF handler, WXEVENTREF mevent ) +{ + int position = m_peer->GetValue(); + int minPos = m_peer->GetMinimum(); + int maxPos = m_peer->GetMaximum(); + + wxEventType scrollEvent = wxEVT_NULL; + int nScrollInc = 0; + + wxMacCarbonEvent cEvent( (EventRef)mevent ); + ControlPartCode controlpart = cEvent.GetParameter(kEventParamControlPart, typeControlPartCode); + + // all events have already been reported during mouse down, except for THUMBRELEASE + // NB: this may need to be reviewed in light of the fact that scroll wheel events + // aren't being handled properly + if ( controlpart != kControlIndicatorPart ) + return eventNotHandledErr; + + switch ( controlpart ) + { + case kControlIndicatorPart: + nScrollInc = 0; + scrollEvent = wxEVT_SCROLL_THUMBRELEASE; + break; + + default: + wxFAIL_MSG(wxT("unknown scrollbar selector")); + break; + } + + int new_pos = position + nScrollInc; + + if (new_pos < minPos) + new_pos = minPos; + else if (new_pos > maxPos) + new_pos = maxPos; + + if ( nScrollInc ) + SetThumbPosition( new_pos ); + + wxScrollEvent event( scrollEvent, m_windowId ); + if ( m_windowStyle & wxHORIZONTAL ) + event.SetOrientation( wxHORIZONTAL ); + else + event.SetOrientation( wxVERTICAL ); + + event.SetPosition( new_pos ); + event.SetEventObject( this ); + wxWindow* window = GetParent(); + if (window && window->MacIsWindowScrollbar( this )) + // this is hardcoded + window->MacOnScroll( event ); + else + GetEventHandler()->ProcessEvent( event ); + + return noErr; +} + + +wxSize wxScrollBar::DoGetBestSize() const +{ + int w = 100; + int h = 100; + + if ( IsVertical() ) + { + w = wxSystemSettings::GetMetric(wxSYS_VSCROLL_X); + } + else + { + h = wxSystemSettings::GetMetric(wxSYS_HSCROLL_Y); + } + + wxSize best(w, h); + CacheBestSize(best); + return best; +}