src/mac/carbon/slider.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        slider.cpp
   3 // Purpose:     wxSlider
   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 "slider.h"
  14 #endif
  15
  16 #include "wx/slider.h"
  17 #include "wx/mac/uma.h"
  18
  19 #if !USE_SHARED_LIBRARY
  20 IMPLEMENT_DYNAMIC_CLASS(wxSlider, wxControl)
  21
  22 BEGIN_EVENT_TABLE(wxSlider, wxControl)
  23 END_EVENT_TABLE()
  24 #endif
  25
  26  // The dimensions of the different styles of sliders (From Aqua document)
  27 #define wxSLIDER_DIMENSIONACROSS 15
  28 #define wxSLIDER_DIMENSIONACROSS_WITHTICKMARKS 24
  29 #define wxSLIDER_DIMENSIONACROSS_ARROW 18
  30
  31 // Distance between slider and text
  32 #define wxSLIDER_BORDERTEXT 5
  33
  34 /* NB!  The default orientation for a slider is horizontal however if the user specifies
  35  * some slider styles but dosen't specify the orientation we have to assume he wants a
  36  * horizontal one.  Therefore in this file when testing for the sliders orientation
  37  * vertical is tested for if this is not set then we use the horizontal one
  38  * eg.  if(GetWindowStyle() & wxSL_VERTICAL) {}  else { horizontal case }>
  39  */
  40
  41  // Slider
  42  wxSlider::wxSlider()
  43 {
  44     m_pageSize = 1;
  45     m_lineSize = 1;
  46     m_rangeMax = 0;
  47     m_rangeMin = 0;
  48     m_tickFreq = 0;
  49 }
  50
  51 extern ControlActionUPP wxMacLiveScrollbarActionUPP ;
  52
  53 bool wxSlider::Create(wxWindow *parent, wxWindowID id,
  54                       int value, int minValue, int maxValue,
  55                       const wxPoint& pos,
  56                       const wxSize& size, long style,
  57                       const wxValidator& validator,
  58                       const wxString& name)
  59 {
  60     Rect bounds ;
  61     Str255 title ;
  62     SInt16 procID;
  63
  64     m_macMinimumStatic = NULL ;
  65     m_macMaximumStatic = NULL ;
  66     m_macValueStatic = NULL ;
  67
  68
  69     m_lineSize = 1;
  70     m_tickFreq = 0;
  71
  72     m_rangeMax = maxValue;
  73     m_rangeMin = minValue;
  74
  75     m_pageSize = (int)((maxValue-minValue)/10);
  76
  77     MacPreControlCreate( parent, id, wxEmptyString, pos, size, style,
  78         validator, name, &bounds, title );
  79
  80     procID = kControlSliderProc + kControlSliderLiveFeedback;
  81     if(style & wxSL_AUTOTICKS) {
  82         procID += kControlSliderHasTickMarks;
  83     }
  84
  85
  86     m_macControl = ::NewControl( MAC_WXHWND(parent->MacGetRootWindow()), &bounds, title, false,
  87         value, minValue, maxValue, procID, (long) this);
  88
  89     wxASSERT_MSG( (ControlHandle) m_macControl != NULL , wxT("No valid mac control") ) ;
  90
  91     ::SetControlAction( (ControlHandle) m_macControl , wxMacLiveScrollbarActionUPP ) ;
  92
  93     if(style & wxSL_LABELS)
  94     {
  95         m_macMinimumStatic = new wxStaticText( this, -1, wxEmptyString );
  96         m_macMaximumStatic = new wxStaticText( this, -1, wxEmptyString );
  97         m_macValueStatic = new wxStaticText( this, -1, wxEmptyString );
  98         SetRange(minValue, maxValue);
  99         SetValue(value);
 100     }
 101
 102     else {
 103         m_macMinimumStatic = NULL ;
 104         m_macMaximumStatic = NULL ;
 105         m_macValueStatic = NULL ;
 106     }
 107
 108     if(style & wxSL_VERTICAL) {
 109         SetSizeHints(10, -1, 10, -1);  // Forces SetSize to use the proper width
 110     }
 111     else {
 112         SetSizeHints(-1, 10, -1, 10);  // Forces SetSize to use the proper height
 113     }
 114     // NB!  SetSizeHints is overloaded by wxSlider and will substitute 10 with the
 115     // proper dimensions, it also means other people cannot bugger the slider with
 116     // other values
 117
 118     MacPostControlCreate() ;
 119
 120     return true;
 121 }
 122
 123 wxSlider::~wxSlider()
 124 {
 125 }
 126
 127 int wxSlider::GetValue() const
 128 {
 129     return GetControl32BitValue( (ControlHandle) m_macControl) ;
 130 }
 131
 132 void wxSlider::SetValue(int value)
 133 {
 134     wxString valuestring ;
 135     valuestring.Printf( wxT("%d") , value ) ;
 136     if ( m_macValueStatic )
 137         m_macValueStatic->SetLabel( valuestring ) ;
 138     SetControl32BitValue( (ControlHandle) m_macControl , value ) ;
 139 }
 140
 141 void wxSlider::SetRange(int minValue, int maxValue)
 142 {
 143     wxString value;
 144
 145     m_rangeMin = minValue;
 146     m_rangeMax = maxValue;
 147
 148     SetControl32BitMinimum( (ControlHandle) m_macControl, m_rangeMin);
 149     SetControl32BitMaximum( (ControlHandle) m_macControl, m_rangeMax);
 150
 151     if(m_macMinimumStatic) {
 152         value.Printf(wxT("%d"), m_rangeMin);
 153         m_macMinimumStatic->SetLabel(value);
 154     }
 155     if(m_macMaximumStatic) {
 156         value.Printf(wxT("%d"), m_rangeMax);
 157         m_macMaximumStatic->SetLabel(value);
 158     }
 159     SetValue(m_rangeMin);
 160 }
 161
 162 // For trackbars only
 163 void wxSlider::SetTickFreq(int n, int pos)
 164 {
 165     // TODO
 166     m_tickFreq = n;
 167 }
 168
 169 void wxSlider::SetPageSize(int pageSize)
 170 {
 171     // TODO
 172     m_pageSize = pageSize;
 173 }
 174
 175 int wxSlider::GetPageSize() const
 176 {
 177     return m_pageSize;
 178 }
 179
 180 void wxSlider::ClearSel()
 181 {
 182     // TODO
 183 }
 184
 185 void wxSlider::ClearTicks()
 186 {
 187     // TODO
 188 }
 189
 190 void wxSlider::SetLineSize(int lineSize)
 191 {
 192     m_lineSize = lineSize;
 193     // TODO
 194 }
 195
 196 int wxSlider::GetLineSize() const
 197 {
 198     // TODO
 199     return 0;
 200 }
 201
 202 int wxSlider::GetSelEnd() const
 203 {
 204     // TODO
 205     return 0;
 206 }
 207
 208 int wxSlider::GetSelStart() const
 209 {
 210     // TODO
 211     return 0;
 212 }
 213
 214 void wxSlider::SetSelection(int minPos, int maxPos)
 215 {
 216     // TODO
 217 }
 218
 219 void wxSlider::SetThumbLength(int len)
 220 {
 221     // TODO
 222 }
 223
 224 int wxSlider::GetThumbLength() const
 225 {
 226     // TODO
 227     return 0;
 228 }
 229
 230 void wxSlider::SetTick(int tickPos)
 231 {
 232     // TODO
 233 }
 234
 235 void wxSlider::Command (wxCommandEvent & event)
 236 {
 237     SetValue (event.GetInt());
 238     ProcessCommand (event);
 239 }
 240
 241 void wxSlider::MacHandleControlClick( WXWidget control , wxInt16 controlpart, bool mouseStillDown )
 242 {
 243     SInt16 value = ::GetControl32BitValue( (ControlHandle) m_macControl ) ;
 244
 245     SetValue( value ) ;
 246
 247     wxEventType scrollEvent = wxEVT_NULL ;
 248
 249    if ( mouseStillDown )
 250         scrollEvent = wxEVT_SCROLL_THUMBTRACK;
 251     else
 252         scrollEvent = wxEVT_SCROLL_THUMBRELEASE;
 253
 254     wxScrollEvent event(scrollEvent, m_windowId);
 255     event.SetPosition(value);
 256     event.SetEventObject( this );
 257     GetEventHandler()->ProcessEvent(event);
 258
 259     wxCommandEvent cevent( wxEVT_COMMAND_SLIDER_UPDATED, m_windowId );
 260     cevent.SetInt( value );
 261     cevent.SetEventObject( this );
 262
 263     GetEventHandler()->ProcessEvent( cevent );
 264 }
 265
 266 /* This is overloaded in wxSlider so that the proper width/height will always be used
 267 * for the slider different values would cause redrawing and mouse detection problems */
 268 void wxSlider::SetSizeHints( int minW, int minH,
 269                             int maxW , int maxH ,
 270                             int incW , int incH )
 271 {
 272     wxSize size = GetBestSize();
 273
 274     if(GetWindowStyle() & wxSL_VERTICAL) {
 275         wxWindow::SetSizeHints(size.x, minH, size.x, maxH, incW, incH);
 276     }
 277     else {
 278         wxWindow::SetSizeHints(minW, size.y, maxW, size.y, incW, incH);
 279     }
 280 }
 281
 282 wxSize wxSlider::DoGetBestSize() const
 283 {
 284     wxSize size;
 285     int textwidth, textheight;
 286
 287     if(GetWindowStyle() & wxSL_LABELS)
 288     {
 289         wxString text;
 290         int ht, wd;
 291
 292         // Get maximum text label width and height
 293         text.Printf(wxT("%d"), m_rangeMin);
 294         GetTextExtent(text, &textwidth, &textheight);
 295         text.Printf(wxT("%d"), m_rangeMax);
 296         GetTextExtent(text, &wd, &ht);
 297         if(ht > textheight) {
 298             textheight = ht;
 299         }
 300         if (wd > textwidth) {
 301             textwidth = wd;
 302         }
 303     }
 304
 305     if(GetWindowStyle() & wxSL_VERTICAL)
 306     {
 307         if(GetWindowStyle() & wxSL_AUTOTICKS) {
 308             size.x = wxSLIDER_DIMENSIONACROSS_WITHTICKMARKS;
 309         }
 310         else {
 311             size.x = wxSLIDER_DIMENSIONACROSS_ARROW;
 312         }
 313         if(GetWindowStyle() & wxSL_LABELS) {
 314             size.x += textwidth + wxSLIDER_BORDERTEXT;
 315         }
 316         size.y = 150;
 317     }
 318     else
 319     {
 320         if(GetWindowStyle() & wxSL_AUTOTICKS) {
 321             size.y = wxSLIDER_DIMENSIONACROSS_WITHTICKMARKS;
 322         }
 323         else {
 324             size.y = wxSLIDER_DIMENSIONACROSS_ARROW;
 325         }
 326         if(GetWindowStyle() & wxSL_LABELS) {
 327             size.y += textheight + wxSLIDER_BORDERTEXT;
 328         }
 329         size.x = 150;
 330     }
 331     return size;
 332 }
 333
 334 void wxSlider::DoSetSize(int x, int y, int width, int height, int sizeFlags)
 335 {
 336     wxControl::DoSetSize( x, y , width , height ,sizeFlags ) ;
 337 }
 338
 339 void wxSlider::MacUpdateDimensions()
 340 {
 341     // actually in the current systems this should never be possible, but later reparenting
 342     // may become a reality
 343
 344     if ( (ControlHandle) m_macControl == NULL )
 345         return ;
 346
 347     if ( GetParent() == NULL )
 348         return ;
 349
 350     WindowRef rootwindow = (WindowRef) MacGetRootWindow() ;
 351     if ( rootwindow == NULL )
 352         return ;
 353
 354     int  xborder, yborder;
 355     int  minValWidth, maxValWidth, textwidth, textheight;
 356     int  sliderBreadth;
 357
 358     xborder = yborder = 0;
 359
 360     if (GetWindowStyle() & wxSL_LABELS)
 361     {
 362         wxString text;
 363         int ht;
 364
 365         // Get maximum text label width and height
 366         text.Printf(wxT("%d"), m_rangeMin);
 367         GetTextExtent(text, &minValWidth, &textheight);
 368         text.Printf(wxT("%d"), m_rangeMax);
 369         GetTextExtent(text, &maxValWidth, &ht);
 370         if(ht > textheight) {
 371             textheight = ht;
 372         }
 373         textwidth = (minValWidth > maxValWidth ? minValWidth : maxValWidth);
 374
 375         xborder = textwidth + wxSLIDER_BORDERTEXT;
 376         yborder = textheight + wxSLIDER_BORDERTEXT;
 377
 378         // Get slider breadth
 379         if(GetWindowStyle() & wxSL_AUTOTICKS) {
 380             sliderBreadth = wxSLIDER_DIMENSIONACROSS_WITHTICKMARKS;
 381         }
 382         else {
 383             sliderBreadth = wxSLIDER_DIMENSIONACROSS_ARROW;
 384         }
 385
 386         if(GetWindowStyle() & wxSL_VERTICAL)
 387         {
 388             m_macMinimumStatic->Move(sliderBreadth + wxSLIDER_BORDERTEXT,
 389                 m_height - yborder - textheight);
 390             m_macMaximumStatic->Move(sliderBreadth + wxSLIDER_BORDERTEXT, 0);
 391             m_macValueStatic->Move(0, m_height - textheight);
 392         }
 393         else
 394         {
 395             m_macMinimumStatic->Move(0, sliderBreadth + wxSLIDER_BORDERTEXT);
 396             m_macMaximumStatic->Move(m_width - xborder - maxValWidth / 2,
 397                 sliderBreadth + wxSLIDER_BORDERTEXT);
 398             m_macValueStatic->Move(m_width - textwidth, 0);
 399         }
 400     }
 401
 402     Rect oldBounds ;
 403     GetControlBounds( (ControlHandle) m_macControl , &oldBounds ) ;
 404
 405     int new_x = m_x + MacGetLeftBorderSize() + m_macHorizontalBorder ;
 406     int new_y = m_y + MacGetTopBorderSize() + m_macVerticalBorder ;
 407     int new_width = m_width - MacGetLeftBorderSize() - MacGetRightBorderSize() - 2 * m_macHorizontalBorder - xborder ;
 408     int new_height = m_height - MacGetTopBorderSize() - MacGetBottomBorderSize() - 2 * m_macVerticalBorder - yborder ;
 409
 410     GetParent()->MacWindowToRootWindow( & new_x , & new_y ) ;
 411     bool doMove = new_x != oldBounds.left || new_y != oldBounds.top ;
 412     bool doResize =  ( oldBounds.right - oldBounds.left ) != new_width || (oldBounds.bottom - oldBounds.top ) != new_height ;
 413     if ( doMove || doResize )
 414     {
 415         InvalWindowRect( rootwindow, &oldBounds ) ;
 416         if ( doMove )
 417         {
 418             UMAMoveControl( (ControlHandle) m_macControl , new_x , new_y ) ;
 419         }
 420         if ( doResize )
 421         {
 422             UMASizeControl( (ControlHandle) m_macControl , new_width , new_height ) ;
 423         }
 424     }
 425 }
 426
 427 void wxSlider::DoMoveWindow(int x, int y, int width, int height)
 428 {
 429     wxControl::DoMoveWindow(x,y,width,height) ;
 430 }