blob: c84acb07488260bf2235f25ba059afccdf2553fb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!./tclsh
proc func_c {} {
puts "Function C"
after 1000
}
proc func_b {} {
puts "Function B"
after 1000
func_c
}
proc func_a {} {
puts "Function A"
after 1000
func_b
}
func_a
|