1 if { [array get env os_type] != "" } {
4 if { [string compare $os "windows"] != 0 } {
5 puts "TODO ?OCC12345 ALL: An exception was caught"
6 puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
7 puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
10 puts "================"
12 puts "================"
18 puts "Highlighting by 'Move To' command in shading mode"
23 checkcolor $x_coord $y_coord 0 1 1
26 puts "Error : Highlighting by Move To command in shading mode is WRONG."