1 puts "TODO ?OCC12345 ALL: An exception was caught"
2 puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
3 puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
8 #######################################################################
9 # Implementation of gradient background style
11 # vsetgradientbg: vsetgradientbg R1 G1 B1 R2 G2 B2 Type
12 # R1\G1\B1 - First color [0..255]
13 # R2\G2\B2 - Second color [0..255]
24 #######################################################################
26 set BugNumber OCC21747
39 puts "Type=DIAGONAL2, Color from RED to BLUE, Direction from RIGHT TOP CORNER to LEFT BOTTOM CORNER"
40 puts "R1=${R1} G1=${G1} B1=${B1} R2=${R2} G2=${G2} B2=${B2} Type=${Type}"
42 vsetgradientbg ${R1} ${G1} ${B1} ${R2} ${G2} ${B2} ${Type}