352ffd73 |
1 | if { [array get env os_type] != "" } { |
2 | set os $env(os_type) |
3 | } |
4 | if { [string compare $os "windows"] != 0 } { |
352ffd73 |
5 | } |
6 | |
7 | puts "================" |
8 | puts "BUC60632" |
9 | puts "================" |
10 | |
11 | vinit |
12 | BUC60632 1 100 |
13 | vfit |
a6eb515f |
14 | vmoveto 126 143 |
352ffd73 |
15 | puts "Highlighting by 'Move To' command in shading mode" |
16 | |
a6eb515f |
17 | set x_coord 128 |
18 | set y_coord 143 |
352ffd73 |
19 | |
20 | checkcolor $x_coord $y_coord 0 1 1 |
21 | |
22 | if { $stat != 1 } { |
23 | puts "Error : Highlighting by Move To command in shading mode is WRONG." |
24 | } |
25 | |
26 | set only_screen 1 |
27 | |
28 | |