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 #include "wx/wxprec.h"
  13
  14 #if wxUSE_SLIDER
  15
  16 #include "wx/slider.h"
  17 #include "wx/mac/uma.h"
  18
  19 IMPLEMENT_DYNAMIC_CLASS(wxSlider, wxControl)
  20
  21 BEGIN_EVENT_TABLE(wxSlider, wxControl)
  22 END_EVENT_TABLE()
  23
  24  // The dimensions of the different styles of sliders (from Aqua document)
  25 #define wxSLIDER_DIMENSIONACROSS_WITHTICKMARKS 24
  26 #define wxSLIDER_DIMENSIONACROSS_ARROW 18
  27
  28 // Distance between slider and text
  29 #define wxSLIDER_BORDERTEXT 5
  30
  31 // NB: The default orientation for a slider is horizontal; however, if the user specifies
  32 // some slider styles but doesn't specify the orientation we have to assume he wants a
  33 // horizontal one. Therefore in this file when testing for the slider's orientation
  34 // vertical is tested for if this is not set then we use the horizontal one
  35 // e.g., if (GetWindowStyle() & wxSL_VERTICAL) {} else { horizontal case }.
  36
  37 wxSlider::wxSlider()
  38 {
  39     m_pageSize = 1;
  40     m_lineSize = 1;
  41     m_rangeMax = 0;
  42     m_rangeMin = 0;
  43     m_tickFreq = 0;
  44
  45     m_macMinimumStatic = NULL;
  46     m_macMaximumStatic = NULL;
  47     m_macValueStatic = NULL;
  48 }
  49
  50 bool wxSlider::Create(wxWindow *parent,
  51     wxWindowID id,
  52     int value, int minValue, int maxValue,
  53     const wxPoint& pos,
  54     const wxSize& size, long style,
  55     const wxValidator& validator,
  56     const wxString& name)
  57 {
  58     m_macIsUserPane = false;
  59
  60     m_macMinimumStatic = NULL;
  61     m_macMaximumStatic = NULL;
  62     m_macValueStatic = NULL;
  63
  64     m_lineSize = 1;
  65     m_tickFreq = 0;
  66
  67     m_rangeMax = maxValue;
  68     m_rangeMin = minValue;
  69
  70     m_pageSize = (int)((maxValue - minValue) / 10);
  71
  72     // our styles are redundant: wxSL_LEFT/RIGHT imply wxSL_VERTICAL and
  73     // wxSL_TOP/BOTTOM imply wxSL_HORIZONTAL, but for backwards compatibility
  74     // reasons we can't really change it, instead try to infer the orientation
  75     // from the flags given to us here
  76     switch ( style & (wxSL_LEFT | wxSL_RIGHT | wxSL_TOP | wxSL_BOTTOM) )
  77     {
  78         case wxSL_LEFT:
  79         case wxSL_RIGHT:
  80             style |= wxSL_VERTICAL;
  81             break;
  82
  83         case wxSL_TOP:
  84         case wxSL_BOTTOM:
  85             style |= wxSL_HORIZONTAL;
  86             break;
  87
  88         case 0:
  89         default:
  90             // no specific direction, do we have at least the orientation?
  91             if ( !(style & (wxSL_HORIZONTAL | wxSL_VERTICAL)) )
  92                 // no: choose default
  93                 style |= wxSL_BOTTOM | wxSL_HORIZONTAL;
  94             break;
  95     }
  96
  97     wxASSERT_MSG( !(style & wxSL_VERTICAL) || !(style & wxSL_HORIZONTAL),
  98         wxT("incompatible slider direction and orientation") );
  99
 100     if ( !wxControl::Create(parent, id, pos, size, style, validator, name) )
 101         return false;
 102
 103     Rect bounds = wxMacGetBoundsForControl( this , pos , size );
 104
 105     // NB: (RN) Ticks here are sometimes off in the GUI if there
 106     // are not as many tick marks as there are values
 107     //
 108     int tickMarks = 0;
 109     if ( style & wxSL_AUTOTICKS )
 110         tickMarks = (maxValue - minValue) + 1; // +1 for the 0 value
 111
 112     // keep the number of tickmarks from becoming unwieldly, therefore below it is ok to cast
 113     // it to a UInt16
 114     while (tickMarks > 20)
 115         tickMarks /= 5;
 116
 117     m_peer = new wxMacControl( this );
 118     OSStatus err = CreateSliderControl(
 119         MAC_WXHWND(parent->MacGetTopLevelWindowRef()), &bounds,
 120         value, minValue, maxValue,
 121         kControlSliderPointsDownOrRight,
 122         (UInt16) tickMarks, true /* liveTracking */,
 123         GetwxMacLiveScrollbarActionProc(),
 124         m_peer->GetControlRefAddr() );
 125     verify_noerr( err );
 126
 127     if (style & wxSL_VERTICAL)
 128         // Forces SetSize to use the proper width
 129         SetSizeHints(10, -1, 10, -1);
 130     else
 131         // Forces SetSize to use the proper height
 132         SetSizeHints(-1, 10, -1, 10);
 133
 134     // NB: SetSizeHints is overloaded by wxSlider and will substitute 10 with the
 135     // proper dimensions, it also means other people cannot bugger the slider with
 136     // other values
 137
 138     if (style & wxSL_LABELS)
 139     {
 140         m_macMinimumStatic = new wxStaticText( parent, wxID_ANY, wxEmptyString );
 141         m_macMaximumStatic = new wxStaticText( parent, wxID_ANY, wxEmptyString );
 142         m_macValueStatic = new wxStaticText( parent, wxID_ANY, wxEmptyString );
 143     }
 144
 145     SetRange(minValue, maxValue);
 146     SetValue(value);
 147
 148     MacPostControlCreate(pos, size);
 149
 150     return true;
 151 }
 152
 153 wxSlider::~wxSlider()
 154 {
 155     // this is a special case, as we had to add windows as siblings we are
 156     // responsible for their disposal, but only if we are not part of a DestroyAllChildren
 157     if ( m_parent && !m_parent->IsBeingDeleted() )
 158     {
 159         delete m_macMinimumStatic;
 160         delete m_macMaximumStatic;
 161         delete m_macValueStatic;
 162     }
 163 }
 164
 165 int wxSlider::GetValue() const
 166 {
 167     // We may need to invert the value returned by the widget
 168     return ValueInvertOrNot( m_peer->GetValue() ) ;
 169 }
 170
 171 void wxSlider::SetValue(int value)
 172 {
 173     if ( m_macValueStatic )
 174     {
 175         wxString valuestring;
 176         valuestring.Printf( wxT("%d"), value );
 177         m_macValueStatic->SetLabel( valuestring );
 178     }
 179
 180     // We only invert for the setting of the actual native widget
 181     m_peer->SetValue( ValueInvertOrNot( value ) );
 182 }
 183
 184 void wxSlider::SetRange(int minValue, int maxValue)
 185 {
 186     wxString value;
 187
 188     m_rangeMin = minValue;
 189     m_rangeMax = maxValue;
 190
 191     m_peer->SetMinimum( m_rangeMin );
 192     m_peer->SetMaximum( m_rangeMax );
 193
 194     if (m_macMinimumStatic)
 195     {
 196         value.Printf( wxT("%d"), ValueInvertOrNot( m_rangeMin ) );
 197         m_macMinimumStatic->SetLabel( value );
 198     }
 199
 200     if (m_macMaximumStatic)
 201     {
 202         value.Printf( wxT("%d"), ValueInvertOrNot( m_rangeMax ) );
 203         m_macMaximumStatic->SetLabel( value );
 204     }
 205
 206     // If the range is out of bounds, set it to a
 207     // value that is within bounds
 208     // RN: Testing reveals OSX does its own
 209     // bounding, perhaps this isn't needed?
 210     int currentValue = GetValue();
 211
 212     if(currentValue < m_rangeMin)
 213         SetValue(m_rangeMin);
 214     else if(currentValue > m_rangeMax)
 215         SetValue(m_rangeMax);
 216 }
 217
 218 // For trackbars only
 219 void wxSlider::SetTickFreq(int n, int WXUNUSED(pos))
 220 {
 221     // TODO
 222     m_tickFreq = n;
 223 }
 224
 225 void wxSlider::SetPageSize(int pageSize)
 226 {
 227     // TODO
 228     m_pageSize = pageSize;
 229 }
 230
 231 int wxSlider::GetPageSize() const
 232 {
 233     return m_pageSize;
 234 }
 235
 236 void wxSlider::ClearSel()
 237 {
 238     // TODO
 239 }
 240
 241 void wxSlider::ClearTicks()
 242 {
 243     // TODO
 244 }
 245
 246 void wxSlider::SetLineSize(int lineSize)
 247 {
 248     m_lineSize = lineSize;
 249     // TODO
 250 }
 251
 252 int wxSlider::GetLineSize() const
 253 {
 254     // TODO
 255     return m_lineSize;
 256 }
 257
 258 int wxSlider::GetSelEnd() const
 259 {
 260     // TODO
 261     return 0;
 262 }
 263
 264 int wxSlider::GetSelStart() const
 265 {
 266     // TODO
 267     return 0;
 268 }
 269
 270 void wxSlider::SetSelection(int WXUNUSED(minPos), int WXUNUSED(maxPos))
 271 {
 272     // TODO
 273 }
 274
 275 void wxSlider::SetThumbLength(int WXUNUSED(len))
 276 {
 277     // TODO
 278 }
 279
 280 int wxSlider::GetThumbLength() const
 281 {
 282     // TODO
 283     return 0;
 284 }
 285
 286 void wxSlider::SetTick(int WXUNUSED(tickPos))
 287 {
 288     // TODO
 289 }
 290
 291 void wxSlider::Command(wxCommandEvent &event)
 292 {
 293     SetValue(event.GetInt());
 294     ProcessCommand(event);
 295 }
 296
 297 void wxSlider::MacHandleControlClick(WXWidget WXUNUSED(control),
 298                                      wxInt16 WXUNUSED(controlpart),
 299                                      bool WXUNUSED(mouseStillDown))
 300 {
 301     // Whatever the native value is, we may need to invert it for calling
 302     // SetValue and putting the possibly inverted value in the event
 303     int value = ValueInvertOrNot( m_peer->GetValue() );
 304
 305     SetValue( value );
 306
 307     wxScrollEvent event( wxEVT_SCROLL_THUMBTRACK, m_windowId );
 308     event.SetPosition( value );
 309     event.SetEventObject( this );
 310     HandleWindowEvent( event );
 311
 312     wxCommandEvent cevent( wxEVT_COMMAND_SLIDER_UPDATED, m_windowId );
 313     cevent.SetInt( value );
 314     cevent.SetEventObject( this );
 315     HandleWindowEvent( cevent );
 316 }
 317
 318 wxInt32 wxSlider::MacControlHit(WXEVENTHANDLERREF WXUNUSED(handler),
 319                                 WXEVENTREF WXUNUSED(mevent))
 320 {
 321     // Whatever the native value is, we may need to invert it for calling
 322     // SetValue and putting the possibly inverted value in the event
 323     int value = ValueInvertOrNot( m_peer->GetValue() ) ;
 324
 325     SetValue( value ) ;
 326
 327     wxScrollEvent event( wxEVT_SCROLL_THUMBRELEASE, m_windowId );
 328     event.SetPosition( value );
 329     event.SetEventObject( this );
 330     HandleWindowEvent( event );
 331
 332     wxCommandEvent cevent( wxEVT_COMMAND_SLIDER_UPDATED, m_windowId );
 333     cevent.SetInt( value );
 334     cevent.SetEventObject( this );
 335
 336     HandleWindowEvent( cevent );
 337
 338     return noErr;
 339 }
 340
 341 // This is overloaded in wxSlider so that the proper width/height will always be used
 342 // for the slider different values would cause redrawing and mouse detection problems
 343 //
 344 void wxSlider::DoSetSizeHints( int minW, int minH,
 345     int maxW, int maxH,
 346     int WXUNUSED(incW), int WXUNUSED(incH) )
 347 {
 348     wxSize size = GetBestSize();
 349
 350     if (GetWindowStyle() & wxSL_VERTICAL)
 351     {
 352         SetMinSize( wxSize(size.x,minH) );
 353         SetMaxSize( wxSize(size.x,maxH) );
 354     }
 355     else
 356     {
 357         SetMinSize( wxSize(minW,size.y) );
 358         SetMaxSize( wxSize(maxW,size.y) );
 359     }
 360 }
 361
 362 wxSize wxSlider::DoGetBestSize() const
 363 {
 364     wxSize size;
 365     int textwidth, textheight;
 366     int mintwidth, mintheight;
 367     int maxtwidth, maxtheight;
 368
 369     textwidth = textheight = 0;
 370     mintwidth = mintheight = 0;
 371     maxtwidth = maxtheight = 0;
 372
 373     if (GetWindowStyle() & wxSL_LABELS)
 374     {
 375         wxString text;
 376
 377         // Get maximum text label width and height
 378         text.Printf( wxT("%d"), ValueInvertOrNot( m_rangeMin ) );
 379         GetTextExtent(text, &mintwidth, &mintheight);
 380         text.Printf( wxT("%d"), ValueInvertOrNot( m_rangeMax ) );
 381         GetTextExtent(text, &maxtwidth, &maxtheight);
 382
 383         if (maxtheight > mintheight)
 384             textheight = maxtheight;
 385         else
 386             textheight = mintheight;
 387
 388         if (maxtwidth > mintwidth)
 389             textwidth = maxtwidth;
 390         else
 391             textwidth = mintwidth;
 392     }
 393
 394     if (GetWindowStyle() & wxSL_VERTICAL)
 395     {
 396         size.y = 150;
 397
 398         if (GetWindowStyle() & wxSL_AUTOTICKS)
 399             size.x = wxSLIDER_DIMENSIONACROSS_WITHTICKMARKS;
 400         else
 401             size.x = wxSLIDER_DIMENSIONACROSS_ARROW;
 402
 403         if (GetWindowStyle() & wxSL_LABELS)
 404             size.x += textwidth + wxSLIDER_BORDERTEXT;
 405     }
 406     else
 407     {
 408         size.x = 150;
 409
 410         if (GetWindowStyle() & wxSL_AUTOTICKS)
 411             size.y = wxSLIDER_DIMENSIONACROSS_WITHTICKMARKS;
 412         else
 413             size.y = wxSLIDER_DIMENSIONACROSS_ARROW;
 414
 415         if (GetWindowStyle() & wxSL_LABELS)
 416         {
 417             size.y += textheight + wxSLIDER_BORDERTEXT;
 418             size.x += (mintwidth / 2) + (maxtwidth / 2);
 419         }
 420     }
 421
 422     return size;
 423 }
 424
 425 void wxSlider::DoSetSize(int x, int y, int w, int h, int sizeFlags)
 426 {
 427     int yborder = 0;
 428     int minValWidth, maxValWidth, textheight;
 429     int sliderBreadth;
 430     int width = w;
 431
 432     if (GetWindowStyle() & wxSL_LABELS)
 433     {
 434         wxString text;
 435         int ht, valValWidth;
 436
 437         // Get maximum text label width and height
 438         text.Printf(wxT("%d"), ValueInvertOrNot( m_rangeMin ) );
 439         GetTextExtent(text, &minValWidth, &textheight);
 440         text.Printf(wxT("%d"), ValueInvertOrNot( m_rangeMax ) );
 441         GetTextExtent(text, &maxValWidth, &ht);
 442
 443         if (ht > textheight)
 444             textheight = ht;
 445
 446         if (GetWindowStyle() & wxSL_HORIZONTAL)
 447         {
 448             if ( m_macMinimumStatic )
 449             {
 450                 w -= minValWidth / 2;
 451                 x += minValWidth / 2;
 452             }
 453
 454             if ( m_macMaximumStatic )
 455                 w -= maxValWidth / 2;
 456         }
 457
 458         // Labels have this control's parent as their parent
 459         // so if this control is not at 0,0 relative to the parent
 460         // the labels need to know the position of this control
 461         // relative to its parent in order to size properly, so
 462         // move the control first so we can use GetPosition()
 463         wxControl::DoSetSize( x, y, w, h, sizeFlags );
 464
 465         if (GetWindowStyle() & wxSL_VERTICAL)
 466             // If vertical, use current value
 467             text.Printf(wxT("%d"), (int)m_peer->GetValue());
 468         else
 469             // Use max so that the current value doesn't drift as centering would need to change
 470             text.Printf(wxT("%d"), m_rangeMax);
 471
 472         GetTextExtent(text, &valValWidth, &ht);
 473
 474         yborder = textheight + wxSLIDER_BORDERTEXT;
 475
 476         // Get slider breadth
 477         if (GetWindowStyle() & wxSL_AUTOTICKS)
 478             sliderBreadth = wxSLIDER_DIMENSIONACROSS_WITHTICKMARKS;
 479         else
 480             sliderBreadth = wxSLIDER_DIMENSIONACROSS_ARROW;
 481
 482         if (GetWindowStyle() & wxSL_VERTICAL)
 483         {
 484             h = h - yborder;
 485
 486             if ( m_macMinimumStatic )
 487                 m_macMinimumStatic->Move(GetPosition().x + sliderBreadth + wxSLIDER_BORDERTEXT, GetPosition().y + h - yborder);
 488             if ( m_macMaximumStatic )
 489                 m_macMaximumStatic->Move(GetPosition().x + sliderBreadth + wxSLIDER_BORDERTEXT, GetPosition().y + 0);
 490             if ( m_macValueStatic )
 491                 m_macValueStatic->Move(GetPosition().x + sliderBreadth + wxSLIDER_BORDERTEXT, GetPosition().y + (h / 2) - (ht / 2));
 492         }
 493         else
 494         {
 495             if ( m_macMinimumStatic )
 496                 m_macMinimumStatic->Move(GetPosition().x, GetPosition().y + sliderBreadth + wxSLIDER_BORDERTEXT);
 497             if ( m_macMaximumStatic )
 498                  m_macMaximumStatic->Move(GetPosition().x + w - maxValWidth, GetPosition().y + sliderBreadth + wxSLIDER_BORDERTEXT);
 499             if ( m_macValueStatic )
 500                 m_macValueStatic->Move(GetPosition().x + (w / 2) - (valValWidth / 2), GetPosition().y + sliderBreadth + wxSLIDER_BORDERTEXT);
 501         }
 502     }
 503
 504     // yet another hack since this is a composite control
 505     // when wxSlider has it's size hardcoded, we're not allowed to
 506     // change the size. But when the control has labels, we DO need
 507     // to resize the internal Mac control to accommodate the text labels.
 508     // We need to trick the wxWidgets resize mechanism so that we can
 509     // resize the slider part of the control ONLY.
 510
 511     // TODO: Can all of this code go in the conditional wxSL_LABELS block?
 512
 513     int minWidth = m_minWidth;
 514
 515     if (GetWindowStyle() & wxSL_LABELS)
 516     {
 517         // make sure we don't allow the entire control to be resized accidently
 518         if (width == GetSize().x)
 519             m_minWidth = -1;
 520     }
 521
 522     // If the control has labels, we still need to call this again because
 523     // the labels alter the control's w and h values.
 524     wxControl::DoSetSize( x, y, w, h, sizeFlags );
 525
 526     m_minWidth = minWidth;
 527 }
 528
 529 void wxSlider::DoMoveWindow(int x, int y, int width, int height)
 530 {
 531     wxControl::DoMoveWindow( x, y, width, height );
 532 }
 533
 534 // Common processing to invert slider values based on wxSL_INVERSE
 535 int wxSlider::ValueInvertOrNot(int value) const
 536 {
 537     int result = 0;
 538
 539     if (m_windowStyle & wxSL_VERTICAL)
 540     {
 541         // The reason for the backwards logic is that Mac's vertical sliders are
 542         // inverted compared to Windows and GTK, hence we want inversion to be the
 543         // default, and if wxSL_INVERSE is set, then we do not invert (use native)
 544         if (m_windowStyle & wxSL_INVERSE)
 545             result = value;
 546         else
 547             result = (m_rangeMax + m_rangeMin) - value;
 548     }
 549     else // normal logic applies to HORIZONTAL sliders
 550     {
 551         result = wxSliderBase::ValueInvertOrNot(value);
 552     }
 553
 554     return result;
 555 }
 556
 557 #endif // wxUSE_SLIDER