SCClassLibrary/QtCollider/QRangeSlider.sc

   1 QRangeSlider : QAbstractStepValue {
   2   *qtClass { ^'QcRangeSlider' }
   3
   4   *new { arg parent, bounds;
   5     ^super.new( parent, bounds ).initQRangeSlider( bounds );
   6   }
   7
   8   initQRangeSlider { arg bounds;
   9     var r;
  10     if( bounds.notNil ) {
  11       r = bounds.asRect;
  12       if( r.width > r.height ) {
  13         this.orientation_( \horizontal );
  14       } {
  15         this.orientation_( \vertical );
  16       }
  17     }
  18   }
  19
  20   pixelStep {
  21     // FIXME for now we are using step instead
  22     ^this.step;
  23   }
  24
  25   orientation_ { arg aSymbol;
  26     this.setProperty( \orientation, QOrientation(aSymbol) );
  27   }
  28
  29   lo {
  30     ^this.getProperty( \loValue );
  31   }
  32
  33   lo_ { arg aFloat;
  34     this.setProperty( \loValue, aFloat );
  35   }
  36
  37   activeLo_ { arg aFloat;
  38     this.lo_(aFloat);
  39     this.doAction;
  40   }
  41
  42   hi {
  43     ^this.getProperty( \hiValue );
  44   }
  45
  46   hi_ { arg aFloat;
  47     this.setProperty( \hiValue, aFloat );
  48   }
  49
  50   activeHi_ { arg aFloat;
  51     this.hi_(aFloat);
  52     this.doAction;
  53   }
  54
  55   range {
  56     ^(this.hi - this.lo);
  57   }
  58
  59   range_ { arg aFloat;
  60     this.hi_( this.lo + aFloat; )
  61   }
  62
  63   activeRange_ { arg aFloat;
  64     this.range_(aFloat);
  65     this.doAction;
  66   }
  67
  68   setSpan { arg lo, hi;
  69     this.lo_(lo);
  70     this.hi_(hi);
  71   }
  72
  73   setSpanActive { arg lo, hi;
  74     this.setSpan(lo,hi);
  75     this.doAction;
  76   }
  77
  78   setDeviation { arg deviation, average;
  79     this.lo_( average - deviation );
  80     this.hi_( average + deviation );
  81   }
  82
  83   knobColor { ^this.getProperty(\knobColor) }
  84   knobColor_ { arg color; this.setProperty(\knobColor, color) }
  85
  86   background { ^this.getProperty(\grooveColor) }
  87   background_ { arg color; this.setProperty(\grooveColor, color) }
  88
  89   defaultGetDrag { ^Point(this.lo,this.hi); }
  90   defaultCanReceiveDrag { ^(QView.currentDrag.class === Point); }
  91   defaultReceiveDrag {
  92     var pt = QView.currentDrag;
  93     this.setSpanActive( pt.x, pt.y );
  94   }
  95 }