7 NewDocument D MDTV-Standard
19 set W [AISWidth D 0:1:1]
33 puts "And now, look: Redo!"
38 set W [AISWidth D 0:1:1]
49 # This TCL script demonstrates bug in AIS/OCAF viewer
51 # It needs an additional DRAW command to be defined for
52 # setting Width parameter of TPrsStd_AISPresentation attribute.
53 # The code for this command (AISWidth) is provided separately.
55 # The problem is that when width is set to AISPresentation attribute
56 # and Undo/redo are made, this causes error 'width is 0' in the viewer.
57 # It seems that width is not kept during Undo/Redo operations.