diff options
| author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1999-08-13 06:09:54 +0000 |
|---|---|---|
| committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1999-08-13 06:09:54 +0000 |
| commit | e627014ff6de5270f129150c6789e0468413443e (patch) | |
| tree | bf2d0e2f5e93c927aa7a8d1fd809a26c955fb1ba /sample/tktimer.rb | |
| parent | 07bb9f21f56b0d066c44c62b0e6be35eb0e0fd51 (diff) | |
| download | ruby-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.rb | 50 |
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 |
