tests/bugs/caf/buc60917

   1 puts "==========="
   2 puts "BUC60917"
   3 puts "==========="
   4
   5 pload QAcommands
   6
   7 NewDocument D BinOcaf
   8 UndoLimit D 100
   9
  10 box b 10 10 10
  11 SetShape D 0:1:1 b
  12
  13 AISInitViewer D
  14
  15 OpenCommand D
  16
  17 AISSet   D 0:1:1 NS
  18 AISWidth D 0:1:1 1.0
  19 set W [AISWidth D 0:1:1]
  20 if { ${W} != 1 } {
  21     puts "Error : 1"
  22 } else {
  23     AISDisplay D 0:1:1
  24     vfit
  25     CommitCommand D
  26
  27     puts "Doing Undo... "
  28
  29     Undo D
  30     AISRepaint D
  31     AISRepaint D
  32
  33     puts "And now, look: Redo!"
  34
  35     Redo D
  36     AISRepaint D
  37
  38     set W [AISWidth D 0:1:1]
  39     if { ${W} != 1 } {
  40         puts "Error : 2"
  41     }
  42 }
  43
  44 # This TCL script demonstrates bug in AIS/OCAF viewer
  45 #
  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.
  49 #
  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.