[occt.git] / tests / bugs / demo / bug25344_1

puts "========"
puts "OCC25344"
puts "========"
puts ""
#######################################################
# Draw variables do not follow the scope of TCL level
#######################################################

proc setproc {} {
  dset local_var 1.1
  puts "in setproc scope: local_var=[dval local_var]"
}

setproc
puts "in global scope: local_var=[dval local_var]"

if {[dval local_var] != 0} {
  puts "ERROR: local_var is set, but must not"
  if {[lsearch [directory] local_var] == -1} {
    puts "ERROR: as it is absent among TCL variables"
  }
}
Commit	Line	Data
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	}