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 {var val} { |
10 | upvar $var local_var |
11 | dset local_var $val |
12 | } |
13 | |
14 | setproc a 1.1 |
15 | |
16 | puts "dval a = [dval a]" |
17 | puts "dval local_var = [dval local_var]" |
18 | |
19 | if {[dval a] == 0} { |
20 | puts "ERROR: value is not set" |
21 | } |
22 | if {[dval local_var] == -1} { |
23 | puts "ERROR: local_var is set, but must not" |
24 | if {[lsearch [directory] local_var] == -1} { |
25 | puts "ERROR: as it is absent among TCL variables" |
26 | } |
27 | } |