tests/bugs/moddata/bug22554_4

   1 puts "============"
   2 puts "OCC22554"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Application hangs on selection
   7 #######################################################################
   8
   9 set BugNumber OCC22554
  10
  11 vinit
  12 vpoint p1 0 0 0
  13 vpoint p2 50 0 0
  14 vsegment segment p1 p2
  15 verase p1 p2
  16 vfit
  17
  18 puts "OK ${BugNumber}"
  19
  20 set only_screen 1