-// UPP functions
-ControlActionUPP wxMacLiveScrollbarActionUPP = NULL ;
-
-ControlColorUPP wxMacSetupControlBackgroundUPP = NULL ;
-
-// we have to setup the brush in the current port and return noErr
-// or return an error code so that the control manager walks further up the
-// hierarchy to find a correct background
-
-pascal OSStatus wxMacSetupControlBackground( ControlRef iControl , SInt16 iMessage , SInt16 iDepth , Boolean iIsColor )
-{
- OSStatus status = paramErr ;
- switch( iMessage )
- {
- case kControlMsgApplyTextColor :
- break ;
- case kControlMsgSetUpBackground :
- {
- wxWindow* wx = (wxWindow*) wxFindControlFromMacControl( iControl ) ;
- if ( wx != NULL )
- {
- /*
- const wxBrush &brush = wx->MacGetBackgroundBrush() ;
- if ( brush.Ok() )
- {
- wxDC::MacSetupBackgroundForCurrentPort( brush ) ;
- */
- // this clipping is only needed for non HIView
-
- RgnHandle clip = NewRgn() ;
- int x = 0 , y = 0;
-
- wx->MacWindowToRootWindow( &x,&y ) ;
- CopyRgn( (RgnHandle) wx->MacGetVisibleRegion().GetWXHRGN() , clip ) ;
- OffsetRgn( clip , x , y ) ;
- SetClip( clip ) ;
- DisposeRgn( clip ) ;
-
- status = noErr ;
- /*
- }
- else if ( wx->MacIsUserPane() )
- {
- // if we don't have a valid brush for such a control, we have to call the
- // setup of our parent ourselves
- status = SetUpControlBackground( (ControlRef) wx->GetParent()->GetHandle() , iDepth , iIsColor ) ;
- }
- */
- }
- }
- break ;
- default :
- break ;
- }
- return status ;
-}
-
-
-pascal void wxMacLiveScrollbarActionProc( ControlRef control , ControlPartCode partCode ) ;
-pascal void wxMacLiveScrollbarActionProc( ControlRef control , ControlPartCode partCode )
-{
- if ( partCode != 0)
- {
- wxWindow* wx = wxFindControlFromMacControl( control ) ;
- if ( wx )
- {
- wx->MacHandleControlClick( (WXWidget) control , partCode , true /* stillDown */ ) ;
- }
- }
-}
-