tests/bugs/caf/bug26290_newattribute_1

   1 # OCAF VISUALIZATION
   2 # Presentation attributes
   3 #
   4 # Testing attributes: TPrsStd_AISPresentation & TDataXtd_Presentation
   5 #
   6 # Testing command:   standard set of commands
   7 #
   8 # The test checks joint work of these attributes (including Undo/Redo) and keeps result in 'bug26290_new_1.cbf' file
   9
  10 pload OCAF VISUALIZATION
  11
  12 box b 100 200 300
  13 NewDocument D BinOcaf
  14 UndoLimit D 100
  15 NewCommand D
  16 set Lab1 [Label D 0:1:1]
  17 SetShape D $Lab1 b
  18 AISInitViewer D
  19 vsetdispmode 1
  20 AISSet D $Lab1 NS
  21 AISDisplay D $Lab1
  22 vfit
  23 NewCommand D
  24 Undo D 1
  25 Redo D 1
  26 AISColor D $Lab1 11
  27 NewCommand D
  28 SaveAs D $imagedir/bug26290_new_1.cbf
  29
  30 AISErase D $Lab1
  31 ## DFBrowse D # - for debug purpose only
  32 AISUnset D $Lab1
  33 NewCommand D
  34 Undo D 1
  35 Redo D 1
  36 Close D
  37
  38 ## reopen just kept file
  39 Open $imagedir/bug26290_new_1.cbf D
  40
  41 ## DFBrowse D
  42 AISInitViewer D
  43 vsetdispmode 1
  44 vfit
  45 AISColor D $Lab1 9
  46 AISErase D $Lab1
  47 Close D