tests/bugs/vis/bug153

   1
   2 puts "========================"
   3 puts "OCC153"
   4 puts "========================"
   5
   6 ##########################################
   7 ####### Draw command v2dsetbg hangs up the application
   8 ##########################################
   9
  10 v2dinit
  11 set j 1
  12 repeat 23 {
  13         if [catch { v2dsetbg [locate_data_file OCC153.gif] } res] {
  14            puts [format "%s  ) Faulty OCC153: here is problem with v2dsetbg command" $j]
  15         } else {
  16           puts [format "%s  )  : OCC153 OK" $j]
  17         }
  18         incr j}