← Back to branch summary

~ubuntu-branches/ubuntu/hardy/ruby1.8/hardy-updates

« back to all changes in this revision

Viewing changes to ext/tk/sample/tktimer.rb

  • Committer: Bazaar Package Importer
  • Author(s): akira yamada
  • Date: 2007-03-13 22:11:58 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20070313221158-h3oql37brlaf2go2
Tags: 1.8.6-1
http://bugs.debian.org/410018
* new upstream version, 1.8.6.
* libruby1.8 conflicts with libopenssl-ruby1.8 (< 1.8.6) (closes: #410018)
* changed packaging style to cdbs from dbs.

Show diffs side-by-side

added added

removed removed

Lines of Context:
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