tests/bugs/caf/bug1033

   1 puts "================"
   2 puts "OCC1033"
   3 puts "================"
   4 puts ""
   5 #
   6 # Note:   Numerical control of setting mode
   7 #
   8
   9 pload QAcommands
  10
  11 NewDocument D MDTV-Standard
  12 UndoLimit D 100
  13 NewCommand D
  14
  15 # Set NamedShape attribute
  16 box aBox1 100 200 300
  17 set aLabel1 0:2
  18 SetShape D ${aLabel1} aBox1
  19
  20 # Initialize 3D viewer
  21 AISInitViewer D
  22
  23 # Add AISPresentation attribute with parameter NS
  24 AISSet D ${aLabel1} NS
  25
  26 # Close/Open transaction
  27 NewCommand D
  28
  29 set list [OCC1033_AISMode D ${aLabel1}]
  30 set AISMode1 [lindex ${list} [expr [llength ${list}] - 1] ]
  31
  32 # Display presentation of NamedShape in the viewer
  33 AISDisplay D ${aLabel1}
  34
  35 # Close/Open transaction
  36 NewCommand D
  37
  38 # Set a mode
  39 set SetMode 2
  40 OCC1033_AISMode D ${aLabel1} ${SetMode}
  41
  42 set list [OCC1033_AISMode D ${aLabel1}]
  43 set AISMode2 [lindex ${list} [expr [llength ${list}] - 1] ]
  44
  45 # Close/Open transaction
  46 NewCommand D
  47
  48 # Undo
  49 Undo D
  50
  51 # Update the viewer
  52 AISRepaint D
  53
  54 set list [OCC1033_AISMode D ${aLabel1}]
  55 set AISMode3 [lindex ${list} [expr [llength ${list}] - 1] ]
  56
  57 # Redo
  58 Redo D
  59
  60 # Update the viewer
  61 AISRepaint D
  62
  63 set list [OCC1033_AISMode D ${aLabel1}]
  64 set AISMode4 [lindex ${list} [expr [llength ${list}] - 1] ]
  65
  66 # Check the mode
  67 puts "AISMode1 = ${AISMode1}"
  68 puts "AISMode2 = ${AISMode2}"
  69 puts "AISMode3 = ${AISMode3}"
  70 puts "AISMode4 = ${AISMode4}"
  71
  72 set DefaultAISMode 0
  73 set status 0
  74 if { ${AISMode1} != ${DefaultAISMode} } {
  75         puts "OCC1033_AISMode command: Error (case 1)"
  76         set status 1
  77 }
  78 if { ${AISMode2} != ${SetMode} } {
  79         puts "OCC1033_AISMode command: Error (case 2)"
  80         set status 1
  81 }
  82 if { ${AISMode3} != ${DefaultAISMode} } {
  83         puts "OCC1033_AISMode command: Error (case 3)"
  84         set status 1
  85 }
  86 if { ${AISMode4} != ${SetMode} } {
  87         puts "OCC1033_AISMode command: Error (case 4)"
  88         set status 1
  89 }
  90
  91 if { ${status} == 0} {
  92         puts "OCC1033_AISMode command: OK"
  93 }
  94