summaryrefslogtreecommitdiffstats
path: root/qtruby/rubylib/tutorial/t11/lcdrange.rb
diff options
context:
space:
mode:
Diffstat (limited to 'qtruby/rubylib/tutorial/t11/lcdrange.rb')
-rw-r--r--qtruby/rubylib/tutorial/t11/lcdrange.rb35
1 files changed, 35 insertions, 0 deletions
diff --git a/qtruby/rubylib/tutorial/t11/lcdrange.rb b/qtruby/rubylib/tutorial/t11/lcdrange.rb
new file mode 100644
index 00000000..a0adc842
--- /dev/null
+++ b/qtruby/rubylib/tutorial/t11/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