191082ac |
1 | puts "========" |
2 | puts "OCC25344" |
3 | puts "========" |
4 | puts "" |
5 | ####################################################### |
6 | # Draw variables do not follow the scope of TCL level |
7 | ####################################################### |
8 | |
9 | proc setproc {} { |
10 | dset local_var 1.1 |
11 | puts "in setproc scope: local_var=[dval local_var]" |
12 | } |
13 | |
14 | setproc |
15 | puts "in global scope: local_var=[dval local_var]" |
16 | |
17 | if {[dval local_var] != 0} { |
18 | puts "ERROR: local_var is set, but must not" |
19 | if {[lsearch [directory] local_var] == -1} { |
20 | puts "ERROR: as it is absent among TCL variables" |
21 | } |
22 | } |