1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
ruby--ruby/ext/tk/sample/tkextlib/vu/vu_demo.rb
nagai 17e40d68e0 * ext/tk/sample/vu/vu_demo.rb: rename from vu.rb; avoid the bug on
Windows version of Tcl/Tk. The trouble based on the bug occurs when
  the script name (without extension) is a same name as a Tcl/Tk's
  library file name (without extension) required in the script.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@7823 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-01-25 05:42:49 +00:00

67 lines
2.1 KiB
Ruby

#!/usr/bin/env ruby
require 'tk'
require 'tkextlib/vu'
#######################################
puts "Show off barchart and dial widgets"
speed = TkVariable.new(0)
dial = Tk::Vu::Dial.new(:resolution=>0.001, :from=>-0.1, :to=>0.1,
:showvalue=>true, :minortickinterval=>0.01,
:tickinterval=>0.1, :radius=>50, :label=>"Dial",
:beginangle=>-20, :endangle=>260, :dialcolor=>'red3',
:active=>'red2', :variable=>speed)
bar = Tk::Vu::Bargraph.new(:from=>0, :to=>100, :relief=>:groove,
:border=>2, :label=>"Bar Chart")
#######################################
green = 25
blue = 50
purple = 75
current = 50
def rand_bool
end
update = TkTimer.new(200, -1, proc{
if (rand() - 0.5 + speed.numeric * 3) > 0
current += 1
else
current -= 1
end
bar.set(current)
if current < green
current = 100 if current <= 0
bar[:barcolor] = 'green'
elsif current < blue
bar[:barcolor] = 'blue'
elsif current < purple
bar[:barcolor] = 'purple'
else
bar[:barcolor] = 'red'
current = 0 if current >= 100
end
})
#######################################
gobar = TkButton.new(:text=>"Start", :command=>proc{update.start})
nobar = TkButton.new(:text=>"Stop", :command=>proc{update.stop})
quit = TkButton.new(:text=>"Exit", :command=>proc{exit})
Tk.grid('x', gobar, :sticky=>:ew, :padx=>4, :pady=>4)
Tk.grid(dial, bar, :sticky=>:news)
Tk.grid('x', nobar, :sticky=>:ew, :padx=>4, :pady=>4)
Tk.grid(quit, '-', '-', :sticky=>:ew, :padx=>4, :pady=>4)
Tk.root.grid_columnconfigure(2, :weight=>1)
Tk.root.grid_rowconfigure(1, :weight=>1)
#######################################
Tk.mainloop