tests/bugs/xde/bug21046

   1 puts "============"
   2 puts "OCC21046"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # XShow raises an exception
   7 #######################################################################
   8
   9 pload DCAF
  10
  11 set BugNumber OCC21046
  12
  13 box B 100 100 100
  14 XNewDoc D
  15 SetShape D 0:1 B
  16 XShow D 0:1
  17 if [catch { XShow D 0:1 } ] {
  18   puts "Faulty ${BugNumber} : XShow is wrong"
  19 } elseif [catch { vmoveto 10 10 } ] {
  20   puts "Faulty ${BugNumber} : XShow is wrong"
  21 } else {
  22   puts "OK ${BugNumber}"
  23 }