5 #######################################################
6 ##puts "Choosing of the font index color for font number 23"
7 #######################################################
20 set Position_X [expr $i*50]
21 set Position_Y [expr $j*20]
23 if [catch {v2dsettextcolor $a $k} ] {
32 puts "Faulty : Changing of text index color was NOT MADE properly"
34 puts "Changing of text index color was made properly"