#INTERFACE CAF
# Presentation attributes
#
# Testing attribute: TPrsStd_AISPresentation
#
# Testing command:   AISMode, storage of display mode in XML file
#

NewDocument D1 XmlOcaf
AISInitViewer D1
box b 100 100 100
SetShape D1 0:1 b
AISSet D1 0:1 NS
AISDisplay D1 0:1
AISMode D1 0:1 1

set aFile ${imagedir}/testmode.xml
file delete ${aFile}
SaveAs D1 ${aFile}
if { ![file exists ${aFile}] } {
	puts "There is not ${aFile} file; SaveAs command: Error"
	return
}

Close D1
Open ${aFile} D2
AISInitViewer D2
AISDisplay D2 0:1
set mode [AISMode D2 0:1]
if { ${mode} != 1 } {
	puts ${mode}
	puts "Storage of display mode of TPrsStd_AISPresentation attribute in XML document: Error"
    return
}