diff options
Diffstat (limited to 'ruby_1_9_3/ext/tk/sample/tktimer.rb')
-rw-r--r-- | ruby_1_9_3/ext/tk/sample/tktimer.rb | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/ruby_1_9_3/ext/tk/sample/tktimer.rb b/ruby_1_9_3/ext/tk/sample/tktimer.rb deleted file mode 100644 index b1adb5b506..0000000000 --- a/ruby_1_9_3/ext/tk/sample/tktimer.rb +++ /dev/null @@ -1,50 +0,0 @@ -#!/usr/bin/env 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 |