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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
#!/usr/bin/env ruby
#
# timer --
# This script generates a counter with start,stop and reset buttons.
#
# Copyright (C) 1998 Takaaki Tateishi (ttate@jaist.ac.jp)
# last update: Sat Jun 27 12:24:14 JST 1998
#
require "tk"
require "thread"
require "tkafter"
$time = "0.00"
$m = Mutex.new
$loop = false
def timer_stop
$loop = false
$m.lock
end
def timer_start
$loop = true
$m.unlock
end
def timer_reset
$time = "0.00"
$root.countframe.counter['text'] = $time
end
def timer_loop
if $loop
$time = $time.succ
$root.countframe.counter['text'] = $time
end
Tk.after(10,proc{timer_loop})
end
#
# thread version
#
def timer_loop2
while true
$m.lock
$time = $time.succ
$root.countframe.counter['text'] = $time
sleep(0.01)
$m.unlock
end
end
#
# TkAfter
#
def timer_loop3
if $loop
$time = $time.succ
$root.countframe.counter['text'] = $time
end
end
class CountFrame < TkFrame
attr_reader :counter
def initialize(parent=nil,keys=nil)
super(parent,keys)
@counter = TkLabel.new(self,
'text'=>$time,
'relief'=>'raised')
@counter.pack('fill'=>'both')
self
end
end
class ButtonFrame < TkFrame
def initialize(parent=nil,keys=nil)
super(parent,keys)
=begin
@stop = TkButton.new(self,
'text'=>'Stop',
'command'=>proc{timer_stop})
@start = TkButton.new(self,
'text'=>'Start',
'command'=>proc{timer_start})
=end
@stop = TkButton.new(self, :text=>'Stop', :state=>:disabled)
@start = TkButton.new(self, :text=>'Start', :state=>:normal)
@stop.command proc{
timer_stop
@start.state(:normal)
@stop.state(:disabled)
}
@start.command proc{
timer_start
@stop.state(:normal)
@start.state(:disabled)
}
@reset = TkButton.new(self,
'text'=>'Reset',
'command'=>proc{timer_reset})
for b in [@stop,@start,@reset]
b.pack('side'=>'left', 'fill'=>'both', 'expand'=>'yes')
end
end
end
class Timer < TkRoot
attr_reader :countframe
def initialize(*args)
super(*args)
@countframe = CountFrame.new(self)
@buttonframe = ButtonFrame.new(self)
for f in [@buttonframe,@countframe]
f.pack('side'=>'top', 'fill'=>'both')
end
self
end
end
$root = Timer.new
#$thread = Thread.start{timer_loop2}
#timer_loop
TkAfter.new(10,-1,proc{timer_loop3}).start
Tk.mainloop
|
