Lines Matching refs:fill
20 pack $w.buttons -side bottom -fill x -pady 2m
26 pack $w.frame -side top -fill both -expand yes
69 $c create line 1c 1c 3c 1c 1c 4c 3c 4c -width 2m -fill $blue \
75 -width 3 -fill $red -tags item
84 -fill $blue -tags item
90 -fill $red -tags item
94 24c 4.0c 22.5c 3.25c 21c 4.0c 21.75c 2.5c -fill $green \
97 29c 1c 29c 4c 29c 4c -fill $red -smooth on -tags item
105 $c create rectangle 0.5c 13.5c 4.5c 15.5c -fill $green -tags item
108 -fill $blue -tags item
112 $c create oval 10.5c 13.5c 14.5c 15.5c -fill $green -tags item
115 -fill $blue -tags item
122 $c create text 25.5c 11c -anchor w -font $font1 -fill $blue \
126 $c create text 25c 14c -font $font2 -anchor c -fill $red -stipple gray50 \
130 $c create arc 0.5c 17c 7c 20c -fill $green -outline black \
136 -fill {} -outline $red -start 225 -extent -90 -tags item
138 -fill $blue -outline {} -start 45 -extent 270 -tags item
193 set fill [lindex [$c itemconfig current -fill] 4]
195 && ($fill == "")} {
200 set restoreCmd "$c itemconfig current -fill $fill"
201 $c itemconfig current -fill SteelBlue2
279 set i [$w create text 25c 18.1c -text "Ouch!!" -fill $color -anchor n]