5 #######################################################
6 # Draw variables do not follow the scope of TCL level
7 #######################################################
10 upvar $shape local_shape
16 if {[dtyp mybox] == ""} {
17 puts "ERROR: box mybox is not created"
19 puts "SUCCESS: mybox is created"
20 if {[lsearch [directory] mybox] == -1} {
21 puts "ERRROR: but it is absent among TCL variables"
23 puts "SUCCESS: and it is present among TCL variables"
27 if {[dtyp local_shape] != ""} {
28 puts "Box local_shape is created"
29 if {[lsearch [directory] local_shape] == -1} {
30 puts "ERROR: but it is absent among TCL variables"