diff options
author | ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-08-02 11:49:46 +0000 |
---|---|---|
committer | ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-08-02 11:49:46 +0000 |
commit | a26cec27e1c0a161d24188d0259d0405b82c8b16 (patch) | |
tree | 217e8b830901ceec619b986fc46966acc71ed84a /ext/tk/sample | |
parent | 909e63ac3c9bdd284821cde2b88dcaaea1ae2a04 (diff) | |
download | ruby-a26cec27e1c0a161d24188d0259d0405b82c8b16.tar.gz |
* ext/tk/lib/tkextlib/tile/tprogressbar.rb: Tk::Tile::TProgressbar#start
takes optional argument `interval'.
* ext/tk/sample/tkextlib/tile/demo.rb: emulate Tk::Tile::TProgressbar
with Tk::Tile::TProgress in tile 0.4. (repeating buttons demo)
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8889 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample')
-rw-r--r-- | ext/tk/sample/tkextlib/tile/demo.rb | 8 |
1 files changed, 4 insertions, 4 deletions
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} |