Searched refs:fill (Results 1 - 25 of 69) sorted by relevance

123

/ast/src/lib/libtk/library/demos/
H A Dfloor.tcl41 $w create rect 0 100 1 101 -fill {} -outline {} -tags marker
97 "$w create polygon [$w coords $item] -fill $colors(active) \
109 # fill - Fill color to use for the floor's background.
112 proc bg1 {w fill outline} {
126 -tags {floor1 bg} -fill $fill
127 $w create line 386 129 398 129 -fill $outline -tags {floor1 bg}
128 $w create line 258 355 258 387 -fill $outline -tags {floor1 bg}
129 $w create line 60 387 60 391 -fill $outline -tags {floor1 bg}
130 $w create line 0 337 0 391 -fill
[all...]
H A Dtimer18 pack .counter -side bottom -fill both
19 pack .start -side left -fill both -expand yes
20 pack .stop -side right -fill both -expand yes
H A Dbitmap.tcl19 pack $w -side top -fill both
23 pack $w.$i -side left -fill both -pady .25c -padx .25c
43 pack $w.buttons -side bottom -fill x -pady 2m
51 pack $w.frame -side top -expand yes -fill both
H A Dcscroll.tcl20 pack $w.buttons -side bottom -fill x -pady 2m
31 pack $w.grid -expand yes -fill both -padx 1 -pady 1
48 -outline black -fill $bg -tags rect
66 set oldFill [lindex [$canvas itemconfig $id -fill] 4]
68 $canvas itemconfigure $id -fill SeaGreen1
70 $canvas itemconfigure $id -fill black
71 $canvas itemconfigure [expr $id+1] -fill white
81 $canvas itemconfigure $id -fill $oldFill
82 $canvas itemconfigure [expr $id+1] -fill black
H A Dmsgbox.tcl18 pack $w.buttons -side bottom -fill x -pady 2m
27 pack $w.left $w.right -side left -expand yes -fill y -pady .5c -padx .5c
32 pack $w.left.sep -side top -fill x -expand no
38 pack $w.left.b$i -side top -pady 2 -anchor w -fill x
44 pack $w.right.sep -side top -fill x -expand no
50 pack $w.right.$t -side top -pady 2 -anchor w -fill x
H A Dstates.tcl19 pack $w.buttons -side bottom -fill x -pady 2m
25 pack $w.frame -side top -expand yes -fill y
29 pack $w.frame.scroll -side right -fill y
30 pack $w.frame.list -side left -expand 1 -fill both
H A Dhscale.tcl18 pack $w.buttons -side bottom -fill x -pady 2m
24 pack $w.frame -side top -fill x
27 $w.frame.canvas create polygon 0 0 1 1 2 2 -fill DeepSkyBlue3 -tags poly
28 $w.frame.canvas create line 0 0 1 1 2 2 0 0 -fill black -tags line
31 pack $w.frame.canvas -side top -expand yes -anchor s -fill x -padx 15
H A Dentry2.tcl19 pack $w.buttons -side bottom -fill x -pady 2m
25 pack $w.frame -side top -fill x -expand 1
39 $w.frame.spacer2 $w.frame.e3 $w.frame.s3 -side top -fill x
H A Dfilebox.tcl18 pack $w.buttons -side bottom -fill x -pady 2m
29 pack $f.ent -side left -expand yes -fill x
31 pack $f -fill x -padx 1c -pady 3
H A Dbrowse16 pack .scroll -side right -fill y
19 pack .list -side left -fill both -expand yes
H A Dentry1.tcl19 pack $w.buttons -side bottom -fill x -pady 2m
27 pack $w.e1 $w.e2 $w.e3 -side top -pady 5 -padx 10 -fill x
H A Dform.tcl19 pack $w.buttons -side bottom -fill x -pady 2m
34 pack $w.msg $w.f1 $w.f2 $w.f3 $w.f4 $w.f5 -side top -fill x
H A Dvscale.tcl18 pack $w.buttons -side bottom -fill x -pady 2m
29 $w.frame.canvas create polygon 0 0 1 1 2 2 -fill SeaGreen3 -tags poly
30 $w.frame.canvas create line 0 0 1 1 2 2 0 0 -fill black -tags line
33 pack $w.frame.canvas -side left -anchor nw -fill y
H A Dctext.tcl27 pack $w.buttons -side bottom -fill x -pady 2m
33 pack $w.c -side top -expand yes -fill both
37 $c create rectangle 245 195 255 205 -outline black -fill red
58 -outline black -fill $color -width 1]
76 -outline black -fill red]
79 -font -*-times-medium-r-normal--*-240-*-*-*-*-*-* -fill brown
91 -font -*-times-medium-r-normal--*-240-*-*-*-*-*-* -fill brown
94 $c bind config <Leave> "$c itemconf current -fill \$textConfigFill"
100 set textConfigFill [lindex [$w itemconfig current -fill] 4]
101 $w itemconfig current -fill blac
[all...]
H A Ditems.tcl20 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
[all...]
H A Dlabel.tcl19 pack $w.buttons -side bottom -fill x -pady 2m
26 pack $w.left $w.right -side left -expand yes -padx 10 -pady 10 -fill both
H A Dplot.tcl20 pack $w.buttons -side bottom -fill x -pady 2m
26 pack $w.c -side top -fill x
32 $c create text 225 20 -text "A Simple Plot" -font $plotFont -fill brown
51 -fill SkyBlue2]
55 $c bind point <Any-Enter> "$c itemconfig current -fill red"
56 $c bind point <Any-Leave> "$c itemconfig current -fill SkyBlue2"
H A Dsayings.tcl20 pack $w.buttons -side bottom -fill x -pady 2m
26 pack $w.frame -side top -expand yes -fill y
H A Dsearch.tcl82 pack $w.buttons -side bottom -fill x -pady 2m
111 pack $w.file $w.string -side top -fill x
112 pack $w.scroll -side right -fill y
113 pack $w.text -expand yes -fill both
H A Dbutton.tcl19 pack $w.buttons -side bottom -fill x -pady 2m
H A Dcheck.tcl19 pack $w.buttons -side bottom -fill x -pady 2m
/ast/src/lib/libuu/
H A Duulib.h51 int fill; member in struct:__anon446
/ast/src/lib/libtk/library/
H A Dbgerror.tcl51 pack $w.scroll -side right -fill y
52 pack $w.text -side left -expand yes -fill both
H A Ddialog.tcl51 pack $w.bot -side bottom -fill both
53 pack $w.top -side top -fill both -expand 1
64 pack $w.msg -in $w.top -side right -expand 1 -fill both -padx 3m -pady 3m
H A Dclrpick.tcl231 pack $box.label -side left -fill y -padx 2 -pady 3
233 pack $box -side left -fill both
243 pack $f.color -expand yes -fill both
244 pack $f.sel -expand yes -fill both
246 pack $f -side top -fill x -padx 0 -pady 2
267 pack $stripsFrame -side left -fill both -padx 4 -pady 10
279 pack $lab $ent -side top -fill x -padx 4 -pady 2
280 pack $f1 -expand yes -anchor nw -fill both -padx 6 -pady 10
281 pack $data(finalCanvas) -expand yes -fill both
285 pack $selFrame -side left -fill non
[all...]

Completed in 76 milliseconds

123