projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
0025344: Draw variables do not follow the scope of TCL level
[occt.git]
/
tests
/
bugs
/
fclasses
/
bug24863_2
1
# Test for #24863: creation of variables
2
3
box b 10 10 10
4
set is_ok [whatis b]
5
6
set b aaaa
7
8
box b 10 10 10
9
10
set check_ok [whatis b]
11
if {$is_ok != $check_ok} {
12
puts "Error : results of command \"whatis\" are different"
13
}
14
15
if {$b != "b"} {
16
puts "Error : tcl variable doesn't point to same-named draw variable"
17
}