blob: 0911f9cd51cb4a52ae0d8db27f9a188ff1f15dbf (
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
51
52
53
54
55
|
# -*-Tcl-*-
#
# Checking Type definition
#
verbose "auto_path: >[set auto_path]<"
verbose [Type A 100]
verbose [set A]
verbose $A
verbose [A value]
namespace eval TN {
verbose [Type B 200]
verbose [set B]
verbose $B
verbose [B value]
verbose [::itcl::find objects]
}
verbose [::itcl::find objects]
namespace eval TN {
verbose [::itcl::find objects]
}
proc Y {} {
proc YY {} {
puts "in YY"
}
set Tmp 100
verbose {[Type C 200]}
verbose {[set C]}
verbose {$C}
verbose {[C value]}
verbose {[set C 400]}
verbose {[set C]}
verbose {Locals: >[info locals]<}
verbose {Globals: >[info globals]<}
verbose {Vars: >[info vars]<}
verbose {Commands: >[lsort [split [info commands]]]<}
verbose {[::itcl::find objects]}
verbose {A: >[A value]<}
}
verbose "################################ Doing Y"
Y
YY
rename Y ""
YY
verbose {[::itcl::find objects]}
verbose [Type Z text]
delete object Z
|
