diff options
| -rw-r--r-- | ext/tk/ChangeLog.tkextlib | 8 | ||||
| -rw-r--r-- | ext/tk/lib/tkextlib/tile/tprogressbar.rb | 4 | ||||
| -rw-r--r-- | ext/tk/sample/tkextlib/tile/demo.rb | 8 |
3 files changed, 14 insertions, 6 deletions
diff --git a/ext/tk/ChangeLog.tkextlib b/ext/tk/ChangeLog.tkextlib index c16daadb40..f5026cf400 100644 --- a/ext/tk/ChangeLog.tkextlib +++ b/ext/tk/ChangeLog.tkextlib @@ -1,5 +1,13 @@ 2005-08-01 ocean <ocean@ruby-lang.org> + * lib/tkextlib/tile/tprogressbar.rb: Tk::Tile::TProgressbar#start + takes optional argument `interval'. + + * sample/tkextlib/tile/demo.rb: emulate Tk::Tile::TProgressbar + with Tk::Tile::TProgress in tile 0.4. (repeating buttons demo) + +2005-08-01 ocean <ocean@ruby-lang.org> + * sample/tkextlib/tile/demo.rb: added repeating buttons demo. * sample/tkextlib/tile/repeater.tcl: ditto. (new file) diff --git a/ext/tk/lib/tkextlib/tile/tprogressbar.rb b/ext/tk/lib/tkextlib/tile/tprogressbar.rb index 3f47cd9b8b..238a458c05 100644 --- a/ext/tk/lib/tkextlib/tile/tprogressbar.rb +++ b/ext/tk/lib/tkextlib/tile/tprogressbar.rb @@ -34,8 +34,8 @@ class Tk::Tile::TProgressbar tk_send_without_enc('step', amount) end - def start - tk_call_without_enc('::tile::progressbar::start', @path) + def start(interval=None) + tk_call_without_enc('::tile::progressbar::start', @path, interval) end def stop diff --git a/ext/tk/sample/tkextlib/tile/demo.rb b/ext/tk/sample/tkextlib/tile/demo.rb index 7c58704c56..f04ba10c65 100644 --- a/ext/tk/sample/tkextlib/tile/demo.rb +++ b/ext/tk/sample/tkextlib/tile/demo.rb @@ -822,11 +822,11 @@ def repeatDemo begin p = Tk::Tile::TProgressbar.new(f, :orient=>:horizontal, :maximum=>10) rescue # progressbar is not supported (tile 0.4) - p = Tk::Tile::TLabel.new(f, :text=>0) + p = Tk::Tile::TProgress.new(f, :orient=>:horizontal, :from=>0, :to=>10) def p.step - i = self.text.to_i + 1 - i = 0 if i >= 10 - self.text(i.to_s) + i = self.get + 1 + i = self.from if i > self.to + self.set(i) end end b.command {p.step} |