[occt.git] / tests / bugs / caf / buc60917

puts "==========="
puts "BUC60917"
puts "==========="

pload QAcommands

NewDocument D BinOcaf
UndoLimit D 100

box b 10 10 10 
SetShape D 0:1:1 b

AISInitViewer D

OpenCommand D

AISSet   D 0:1:1 NS
AISWidth D 0:1:1 1.0
set W [AISWidth D 0:1:1]
if { ${W} != 1 } {
    puts "Error : 1"
} else {
    AISDisplay D 0:1:1
    vfit
    CommitCommand D

    puts "Doing Undo... "

    Undo D
    AISRepaint D
    AISRepaint D

    puts "And now, look: Redo!"

    Redo D
    AISRepaint D

    set W [AISWidth D 0:1:1]
    if { ${W} != 1 } {
	puts "Error : 2"
    }
}

# This TCL script demonstrates bug in AIS/OCAF viewer 
#
# It needs an additional DRAW command to be defined for 
# setting Width parameter of TPrsStd_AISPresentation attribute.
# The code for this command (AISWidth) is provided separately.
# 
# The problem is that when width is set to AISPresentation attribute
# and Undo/redo are made, this causes error 'width is 0' in the viewer.
# It seems that width is not kept during Undo/Redo operations.
Commit	Line	Data
a87752f3	1	puts "==========="
	2	puts "BUC60917"
	3	puts "==========="
	4
	5	pload QAcommands
	6
e837410d	7	NewDocument D BinOcaf
a87752f3	8	UndoLimit D 100
	9
	10	box b 10 10 10
	11	SetShape D 0:1:1 b
	12
	13	AISInitViewer D
	14
	15	OpenCommand D
	16
	17	AISSet D 0:1:1 NS
	18	AISWidth D 0:1:1 1.0
	19	set W [AISWidth D 0:1:1]
	20	if { ${W} != 1 } {
	21	puts "Error : 1"
	22	} else {
	23	AISDisplay D 0:1:1
	24	vfit
	25	CommitCommand D
	26
	27	puts "Doing Undo... "
	28
	29	Undo D
	30	AISRepaint D
	31	AISRepaint D
	32
	33	puts "And now, look: Redo!"
	34
	35	Redo D
	36	AISRepaint D
	37
	38	set W [AISWidth D 0:1:1]
	39	if { ${W} != 1 } {
	40	puts "Error : 2"
	41	}
	42	}
	43
a87752f3	44	# This TCL script demonstrates bug in AIS/OCAF viewer
	45	#
	46	# It needs an additional DRAW command to be defined for
	47	# setting Width parameter of TPrsStd_AISPresentation attribute.
	48	# The code for this command (AISWidth) is provided separately.
	49	#
	50	# The problem is that when width is set to AISPresentation attribute
	51	# and Undo/redo are made, this causes error 'width is 0' in the viewer.
	52	# It seems that width is not kept during Undo/Redo operations.