352ffd73 |
1 | ### by apn (no regresion in CR23352_3 |
2 | ###if { [array get env os_type] != "" } { |
3 | ### set os $env(os_type) |
4 | ###} |
5 | ###if { [string compare $os "windows"] == 0 } { |
746bb46a |
6 | puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too" |
7 | puts "TODO ?OCC12345 ALL: Error : The style of edge is NOT dash" |
352ffd73 |
8 | ### by apn: Image is not correct on WNT |
9 | ###} |
10 | |
11 | puts "========================" |
12 | puts "BUC60738" |
13 | puts "========================" |
14 | puts "" |
15 | puts "==================================" |
16 | puts "It takes visual check for this BUG" |
17 | puts "==================================" |
18 | |
19 | vinit |
20 | BUC60738 |
21 | vfit |
22 | vsetdispmode 1 |
23 | |
352ffd73 |
24 | |
25 | set x_coord 261 |
26 | set y_coord 314 |
27 | |
28 | checkcolor $x_coord $y_coord 0 1 0 |
29 | |
30 | if {$stat != 1} { |
31 | puts "Error : The style of edge is NOT dash" |
32 | } |
33 | |
34 | set only_screen 1 |