You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdebindings/tqtruby/rubylib/tutorial/t8/cannon.rb

39 lines
675 B

require 'TQt'
class CannonField < TQt::Widget
signals 'angleChanged(int)'
slots 'setAngle(int)'
def initialize(parent, name)
super
@ang = 45
setPalette( TQt::Palette.new( TQt::Color.new( 250, 250, 200) ) )
end
def setAngle( degrees )
if degrees < 5
degrees = 5
elsif degrees > 70
degrees = 70
end
if @ang == degrees
return
end
@ang = degrees
repaint()
emit angleChanged( @ang )
end
def paintEvent( event )
s = "Angle = #{@ang}"
p = TQt::Painter.new( self )
p.drawText( 200, 200, s )
p.end()
end
def sizePolicy()
return TQt::SizePolicy.new( TQt::SizePolicy::Expanding, TQt::SizePolicy::Expanding )
end
end