19 set W [AISWidth D 0:1:1]
33 puts "And now, look: Redo!"
38 set W [AISWidth D 0:1:1]
44 # This TCL script demonstrates bug in AIS/OCAF viewer
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.
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.