a87752f3 |
1 | puts "========================" |
2 | puts "OCC153" |
3 | puts "========================" |
4 | |
5 | ########################################## |
6 | ####### Draw command v2dsetbg hangs up the application |
7 | ########################################## |
8 | |
9 | v2dinit |
10 | set j 1 |
11 | repeat 23 { |
12 | if [catch { v2dsetbg [locate_data_file OCC153.gif] } res] { |
13 | puts [format "%s ) Faulty OCC153: here is problem with v2dsetbg command" $j] |
14 | } else { |
f1aa2b62 |
15 | puts [format "%s ) : OCC153 OK" $j] |
a87752f3 |
16 | } |
f1aa2b62 |
17 | incr j |
18 | } |