File: lcdrange.rb

package info (click to toggle)
qtruby 4%3A4.8.4-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 4,564 kB
  • sloc: ruby: 24,603; cpp: 23,004; makefile: 63; sh: 8
file content (45 lines) | stat: -rw-r--r-- 1,050 bytes parent folder | download | duplicates (4)
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
37
38
39
40
41
42
43
44
45
require 'Qt4'

class LCDRange < Qt::Widget
	signals 'valueChanged(int)'
	slots 'setValue(int)', 'setRange(int, int)'

	def initialize(parent = nil)
		super
		lcd = Qt::LCDNumber.new(2)
	    @slider = Qt::Slider.new(Qt::Horizontal)
	    @slider.range = 0..99
	    @slider.value = 0
		connect(@slider, SIGNAL('valueChanged(int)'), lcd, SLOT('display(int)'))
		connect(@slider, SIGNAL('valueChanged(int)'), SIGNAL('valueChanged(int)'))

		layout = Qt::VBoxLayout.new
		layout.addWidget(lcd)
		layout.addWidget(@slider)
		setLayout(layout)

		setFocusProxy(@slider)
	end

	def value()
    	@slider.value()
	end

	def setValue( value )
    	@slider.setValue( value )
	end
	
    def range=( r )
        setRange(r.begin, r.end)
    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