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 "=================================="
13 puts "=================================="
15 puts "=================================="
16 puts "It takes visual check for this BUG"
17 puts "=================================="
20 restore [locate_data_file buc60569a.rle] result
39 checkcolor $x_coord $y_coord 0.8 0.8 0.8
42 puts "Error : The right face is NOT Selected by Shift Select command"
50 checkcolor $x_coord $y_coord 0.8 0.8 0.8
53 puts "Error : The left face is Selected by Shift Select command"