summaryrefslogtreecommitdiffstats
path: root/qtruby/rubylib/tutorial/t9/lcdrange.rb
blob: dddbc381fc162cd0474d53fad28a3ee11b3f69d1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
require '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, TQ_SIGNAL('valueChanged(int)'), lcd, TQ_SLOT('display(int)'))
		connect(@slider, TQ_SIGNAL('valueChanged(int)'), TQ_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