summaryrefslogtreecommitdiffstats
path: root/sample/tktimer.rb
diff options
context:
space:
mode:
authormatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1999-08-13 06:09:54 +0000
committermatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1999-08-13 06:09:54 +0000
commite627014ff6de5270f129150c6789e0468413443e (patch)
treebf2d0e2f5e93c927aa7a8d1fd809a26c955fb1ba /sample/tktimer.rb
parent07bb9f21f56b0d066c44c62b0e6be35eb0e0fd51 (diff)
downloadruby-e627014ff6de5270f129150c6789e0468413443e.tar.gz
ruby-e627014ff6de5270f129150c6789e0468413443e.tar.xz
ruby-e627014ff6de5270f129150c6789e0468413443e.zip
remove obsolete files
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@521 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'sample/tktimer.rb')
-rw-r--r--sample/tktimer.rb50
1 files changed, 0 insertions, 50 deletions
diff --git a/sample/tktimer.rb b/sample/tktimer.rb
deleted file mode 100644
index 34377e2f3..000000000
--- a/sample/tktimer.rb
+++ /dev/null
@@ -1,50 +0,0 @@
-#!/usr/local/bin/ruby
-# This script generates a counter with start and stop buttons.
-
-require "tk"
-$label = TkLabel.new {
- text '0.00'
- relief 'raised'
- width 10
- pack('side'=>'bottom', 'fill'=>'both')
-}
-
-TkButton.new {
- text 'Start'
- command proc {
- if $stopped
- $stopped = FALSE
- tick
- end
- }
- pack('side'=>'left','fill'=>'both','expand'=>'yes')
-}
-TkButton.new {
- text 'Stop'
- command proc{
- exit if $stopped
- $stopped = TRUE
- }
- pack('side'=>'right','fill'=>'both','expand'=>'yes')
-}
-
-$seconds=0
-$hundredths=0
-$stopped=TRUE
-
-def tick
- if $stopped then return end
- Tk.after 50, proc{tick}
- $hundredths+=5
- if $hundredths >= 100
- $hundredths=0
- $seconds+=1
- end
- $label.text format("%d.%02d", $seconds, $hundredths)
-end
-
-root = Tk.root
-root.bind "Control-c", proc{root.destroy}
-root.bind "Control-q", proc{root.destroy}
-Tk.root.focus
-Tk.mainloop