[occt.git] / tests / bugs / vis / bug16950_3

puts "==========="
puts "OCC16950"
puts "==========="
######################################################
# OCC Visualization fails to display empty nested compounds
######################################################

pload DCAF

set BugNumber OCC16950

puts "Make compound containing another (empty) one"
compound c
compound c result

pload XDE
puts "Add it to the new XCAF document"
NewDocument D
XAddShape D result

puts "Then display it"
XShow D

# Resume
if [catch { vsetdispmode 1 } res] {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"
}
Commit	Line	Data
3bea4c16	1	puts "==========="
	2	puts "OCC16950"
	3	puts "==========="
	4	######################################################
	5	# OCC Visualization fails to display empty nested compounds
	6	######################################################
	7
	8	pload DCAF
	9
	10	set BugNumber OCC16950
	11
	12	puts "Make compound containing another (empty) one"
	13	compound c
	14	compound c result
	15
	16	pload XDE
	17	puts "Add it to the new XCAF document"
	18	NewDocument D
	19	XAddShape D result
	20
	21	puts "Then display it"
	22	XShow D
	23
	24	# Resume
	25	if [catch { vsetdispmode 1 } res] {
	26	puts "Faulty ${BugNumber}"
	27	} else {
	28	puts "OK ${BugNumber}"
	29	}
	30