mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
41b74c6e20
* ext/tk/*: Support new features of Tcl/Tk8.6b1 and minor bug fixes.
( [KNOWN BUG] Ruby/Tk on Ruby 1.9 will not work on Cygwin. )
* ext/tk/*: Unify sources between Ruby 1.8 & 1.9.
Improve default_widget_set handling.
* ext/tk/*: Multi-TkInterpreter (multi-tk.rb) works on Ruby 1.8 & 1.9.
( [KNOWN BUG] On Ruby 1.8, join to a long term Thread on Tk
callbacks may freeze. On Ruby 1.9, cannot create a second
master interpreter (creating slaves are OK); supported master
interpreter is the default master interpreter only. )
* ext/tk/lib/tkextlib/*: Update supported versions of Tk extensions.
Tcllib 1.8/Tklib 0.4.1 ==> Tcllib 1.11.1/Tklib 0.5
BWidgets 1.7 ==> BWidgets 1.8
TkTable 2.9 ==> TkTable 2.10
TkTreeCtrl 2005-12-02 ==> TkTreeCtrl 2.2.9
Tile 0.8.0/8.5.1 ==> Tile 0.8.3/8.6b1
IncrTcl 2005-02-14 ==> IncrTcl 2008-12-15
TclX 2005-02-07 ==> TclX 2008-12-15
Trofs 0.4.3 ==> Trofs 0.4.4
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@24064 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
67 lines
2.1 KiB
Ruby
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
|