tests/bugs/vis/ger61351_2

   1 puts "==============="
   2 puts "    GER61351   "
   3 puts "     CASE 2    "
   4 puts "==============="
   5 puts ""
   6 puts "=================================="
   7 puts "It takes visual check for this BUG"
   8 puts "=================================="
   9
  10 vinit
  11
  12 GER61351 0 255 0
  13
  14 set x_coord 200
  15 set y_coord 200
  16
  17 checkcolor $x_coord $y_coord 0 1 0
  18
  19 if {$stat != 1} {
  20    puts "Error : Background color is NOT 0 1 0."
  21 }
  22
  23 set only_screen 1