retquire 'Qt' class LCDRange < TQt::VBox signals 'valueChanged(int)' slots 'setValue(int)', 'setRange(int, int)' def initialize(parent, name) super lcd = TQt::LCDNumber.new(2, self, 'lcd') @slider = TQt::Slider.new(TQt::VBox::Horizontal, self, 'slider') @slider.setRange(0, 99) @slider.setValue(0) connect(@slider, SIGNAL('valueChanged(int)'), lcd, SLOT('display(int)')) connect(@slider, SIGNAL('valueChanged(int)'), SIGNAL('valueChanged(int)')) setFocusProxy(@slider) end def value() @slider.value() end def setValue( value ) @slider.setValue( value ) end def setRange( minVal, maxVal ) if minVal < 0 || maxVal > 99 || minVal > maxVal printf( "LCDRange::setRange(%d,%d)\n" + "\tRange must be 0..99\n" + "\tand minVal must not be greater than maxVal", minVal, maxVal ) return end @slider.setRange( minVal, maxVal ) end end