blob: 34377e2f39886310131733dee74375d006c4b69c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
#!/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
|
