diff options
Diffstat (limited to 'qtruby/rubylib/tutorial/t10/lcdrange.rb')
-rw-r--r-- | qtruby/rubylib/tutorial/t10/lcdrange.rb | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/qtruby/rubylib/tutorial/t10/lcdrange.rb b/qtruby/rubylib/tutorial/t10/lcdrange.rb new file mode 100644 index 00000000..a0adc842 --- /dev/null +++ b/qtruby/rubylib/tutorial/t10/lcdrange.rb @@ -0,0 +1,35 @@ +require 'Qt' + +class LCDRange < Qt::VBox + signals 'valueChanged(int)' + slots 'setValue(int)', 'setRange(int, int)' + + def initialize(parent, name) + super + lcd = Qt::LCDNumber.new(2, self, 'lcd') + @slider = Qt::Slider.new(Qt::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 + qWarning( "LCDRange::setRange(#{minVal},#{maxVal})\n" + + "\tRange must be 0..99\n" + + "\tand minVal must not be greater than maxVal" ) + return + end + @slider.setRange( minVal, maxVal ) + end +end |