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
47 # Get a selection mode of the shape
48 set SelectionMode2 [OCC73_SelectionMode D ${aLabel}]
50 puts "SelectionMode0 = ${SelectionMode0}"
51 puts "SelectionMode1 = ${SelectionMode1}"
52 puts "SelectionMode = ${SelectionMode}"
53 puts "SelectionMode2 = ${SelectionMode2}"
55 if {${SelectionMode0} == ${SelectionMode1} || ${SelectionMode1} != ${SelectionMode} || ${SelectionMode1} != ${SelectionMode2}} then {