8 NewDocument D MDTV-Standard
11 # Close/Open transaction
14 # Set NamedShape attribute
17 SetShape D ${aLabel} aBox1
19 # Initialize 3D viewer
22 # Add AISPresentation attribute with parameter NS
25 # Display presentation of NamedShape in the viewer
26 AISDisplay D ${aLabel}
28 # Get a selection mode of the shape
29 set SelectionMode0 [OCC73_SelectionMode D ${aLabel}]
31 # Set a selection mode of the shape as 1
33 OCC73_SelectionMode D ${aLabel} ${SelectionMode}
35 # Get a selection mode of the shape
36 set SelectionMode1 [OCC73_SelectionMode D ${aLabel}]
38 # Close/Open transaction
41 # Forget the attribute
50 # Get a selection mode of the shape
51 set IsDone [catch {set SelectionMode2 [OCC73_SelectionMode D ${aLabel}]} aResult]
53 if { ${IsDone} != 0 } {
58 puts "SelectionMode0 = ${SelectionMode0}"
59 puts "SelectionMode1 = ${SelectionMode1}"
60 puts "SelectionMode = ${SelectionMode}"
61 puts "SelectionMode2 = ${SelectionMode2}"
63 if {${SelectionMode0} == ${SelectionMode1} || ${SelectionMode1} != ${SelectionMode} || ${SelectionMode1} != ${SelectionMode2}} then {