352ffd73 |
1 | if { [array get env os_type] != "" } { |
2 | set os $env(os_type) |
3 | } |
4 | if { [string compare $os "windows"] != 0 } { |
09494223 |
5 | puts "TODO ?OCC12345 ALL: An exception was caught" |
6 | puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*" |
7 | puts "TODO ?OCC12345 ALL: TEST INCOMPLETE" |
352ffd73 |
8 | } |
9 | |
10 | puts "================" |
11 | puts "BUC60632" |
12 | puts "================" |
13 | |
14 | vinit |
15 | BUC60632 0 100 |
16 | vfit |
4754e164 |
17 | vmoveto 313 254 |
352ffd73 |
18 | puts "Highlighting by 'Move To' command in wireframe mode" |
19 | |
20 | set x_coord 315 |
21 | set y_coord 256 |
22 | |
23 | checkcolor $x_coord $y_coord 0 1 1 |
24 | |
25 | if { $stat != 1 } { |
26 | puts "Error : Highlighting by Move To command in wireframe mode is WRONG." |
27 | } |
28 | |
29 | set only_screen 1 |
30 | |
31 | |