tests/bugs/vis/buc60821

   1 puts "==========="
   2 puts "BUC60821"
   3 puts "==========="
   4 puts "=================================="
   5 puts "It takes visual check for this BUG"
   6 puts "=================================="
   7 puts ""
   8
   9 vinit
  10
  11 catch {BUC60821 100 200 300}
  12
  13 set x_coord 206
  14 set y_coord 195
  15
  16 checkcolor $x_coord $y_coord 0 0 0
  17
  18 if {$stat != 1} {
  19    puts "Error : The texts have identical height"
  20 }
  21
  22 set only_screen 1
  23