lib/ruby-1.9.1-rc1/ext/tk/sample/tktimer.rb

   1 #!/usr/bin/env ruby
   2 # This script generates a counter with start and stop buttons.
   3
   4 require "tk"
   5 $label = TkLabel.new {
   6   text '0.00'
   7   relief 'raised'
   8   width 10
   9   pack('side'=>'bottom', 'fill'=>'both')
  10 }
  11
  12 TkButton.new {
  13   text 'Start'
  14   command proc {
  15     if $stopped
  16       $stopped = FALSE
  17       tick
  18     end
  19   }
  20   pack('side'=>'left','fill'=>'both','expand'=>'yes')
  21 }
  22 TkButton.new {
  23   text 'Stop'
  24   command proc{
  25     exit if $stopped
  26     $stopped = TRUE
  27   }
  28   pack('side'=>'right','fill'=>'both','expand'=>'yes')
  29 }
  30
  31 $seconds=0
  32 $hundredths=0
  33 $stopped=TRUE
  34
  35 def tick
  36   if $stopped then return end
  37   Tk.after 50, proc{tick}
  38   $hundredths+=5
  39   if $hundredths >= 100
  40     $hundredths=0
  41     $seconds+=1
  42   end
  43   $label.text format("%d.%02d", $seconds, $hundredths)
  44 end
  45
  46 root = Tk.root
  47 root.bind "Control-c", proc{root.destroy}
  48 root.bind "Control-q", proc{root.destroy}
  49 Tk.root.focus
  50 Tk.mainloop