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

puts "========"
puts "OCC200"
puts "========"
puts ""

#######################################################
##puts "2D Viewer. Changing of background color from BLACK to R (R is missing color name)"
##puts "(visual checking for this case is desirable)"
#######################################################

set mistake 0
v2dinit
if [catch {v2dsetbgcolor R} ] {
   set mistake 1
}

if {$mistake != 0} {
   puts "Faulty : Changing of backgroundcolor was NOT MADE properly"
} else {
   puts "Changing of backgroundcolor was made properly"
}

set only_screen2d 1
Commit	Line	Data
	1	puts "========"
	2	puts "OCC200"
	3	puts "========"
	4	puts ""
	5
	6	#######################################################
	7	##puts "2D Viewer. Changing of background color from BLACK to R (R is missing color name)"
	8	##puts "(visual checking for this case is desirable)"
	9	#######################################################
	10
	11	set mistake 0
	12	v2dinit
	13	if [catch {v2dsetbgcolor R} ] {
	14	set mistake 1
	15	}
	16
	17	if {$mistake != 0} {
	18	puts "Faulty : Changing of backgroundcolor was NOT MADE properly"
	19	} else {
	20	puts "Changing of backgroundcolor was made properly"
	21	}
	22
	23	set only_screen2d 1