Commit | Line | Data |
---|---|---|
a87752f3 | 1 | puts "========" |
2 | puts "OCC204" | |
3 | puts "========" | |
4 | ||
5 | vinit | |
6 | OCC204 1 | |
7 | vfit | |
8 | ||
f1aa2b62 | 9 | set x_coord 150 |
10 | set y_coord 200 | |
a87752f3 | 11 | |
f1aa2b62 | 12 | checkcolor $x_coord $y_coord 0 0 0 |
a87752f3 | 13 | |
f1aa2b62 | 14 | if { ${stat} != 1 } { |
15 | puts "Error : There are 3 boxes in the viewer! (should be nothing)" | |
a87752f3 | 16 | } |
17 | ||
18 | set only_screen 1 | |
f1aa2b62 | 19 |