tests/bugs/caf/bug1034

   1 puts "================"
   2 puts "OCC1034"
   3 puts "================"
   4 puts ""
   5 #
   6 # Note:   Numerical control of setting selection mode
   7 #
   8
   9 pload QAcommands
  10
  11 NewDocument D BinOcaf
  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 [OCC1034_AISSelectionMode D ${aLabel1}]
  30 set AISSelectionMode1 [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 SetSelectionMode 2
  40 OCC1034_AISSelectionMode D ${aLabel1} ${SetSelectionMode}
  41
  42 set list [OCC1034_AISSelectionMode D ${aLabel1}]
  43 set AISSelectionMode2 [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 [OCC1034_AISSelectionMode D ${aLabel1}]
  55 set AISSelectionMode3 [lindex ${list} [expr [llength ${list}] - 1] ]
  56
  57 # Redo
  58 Redo D
  59
  60 # Update the viewer
  61 AISRepaint D
  62
  63 set list [OCC1034_AISSelectionMode D ${aLabel1}]
  64 set AISSelectionMode4 [lindex ${list} [expr [llength ${list}] - 1] ]
  65
  66 # Check the mode
  67 puts "AISSelectionMode1 = ${AISSelectionMode1}"
  68 puts "AISSelectionMode2 = ${AISSelectionMode2}"
  69 puts "AISSelectionMode3 = ${AISSelectionMode3}"
  70 puts "AISSelectionMode4 = ${AISSelectionMode4}"
  71
  72 set DefaultAISSelectionMode 0
  73 set status 0
  74 if { ${AISSelectionMode1} != ${DefaultAISSelectionMode} } {
  75         puts "OCC1034_AISSelectionMode command: Error (case 1)"
  76         set status 1
  77 }
  78 if { ${AISSelectionMode2} != ${SetSelectionMode} } {
  79         puts "OCC1034_AISSelectionMode command: Error (case 2)"
  80         set status 1
  81 }
  82 if { ${AISSelectionMode3} != ${DefaultAISSelectionMode} } {
  83         puts "OCC1034_AISSelectionMode command: Error (case 3)"
  84         set status 1
  85 }
  86 if { ${AISSelectionMode4} != ${SetSelectionMode} } {
  87         puts "OCC1034_AISSelectionMode command: Error (case 4)"
  88         set status 1
  89 }
  90
  91 if { ${status} == 0} {
  92         puts "OCC1034_AISSelectionMode command: OK"
  93 }
  94