mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-04 22:33:27 +00:00
23 lines
568 B
Plaintext
23 lines
568 B
Plaintext
--- test/adjuster.rb.orig Sun Jun 18 20:09:26 2000
|
|
+++ test/adjuster.rb Fri Aug 25 14:37:17 2000
|
|
@@ -8,16 +8,16 @@
|
|
def end
|
|
super
|
|
show
|
|
- callback(proc{|w| print "eixt!\n"; exit})
|
|
+ callback(proc{|w| print "exit!\n"; exit})
|
|
end
|
|
end
|
|
|
|
$win = MainWindow.new(200,200)
|
|
$val = Fltk::Adjuster.new(0,0,200,100)
|
|
$val.value(0)
|
|
-$val.label("ÃÍ = " + $val.value.to_s)
|
|
+$val.label("value = " + $val.value.to_s)
|
|
$val.callback(proc{|w|
|
|
- $val.label("ÃÍ = " + $val.value.to_s)
|
|
+ $val.label("value = " + $val.value.to_s)
|
|
$win.redraw
|
|
})
|
|
$win.end
|