* 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

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}