Searched refs:black (Results 1 - 15 of 15) sorted by relevance

/ast/src/lib/libtk/library/demos/
H A Dcscroll.tcl48 -outline black -fill $bg -tags rect
70 $canvas itemconfigure $id -fill black
82 $canvas itemconfigure [expr $id+1] -fill black
H A Dctext.tcl37 $c create rectangle 245 195 255 205 -outline black -fill red
58 -outline black -fill $color -width 1]
76 -outline black -fill red]
101 $w itemconfig current -fill black
H A Ditems.tcl60 set blue black
61 set red black
62 set bisque black
63 set green black
95 -outline black -width 4 -tags item
101 -outline black -tags item
130 $c create arc 0.5c 17c 7c 20c -fill $green -outline black \
228 -outline black]
H A Dstyle.tcl39 $w.text tag configure color1 -background black -foreground white
40 $w.text tag configure color2 -background black -foreground white
46 $w.text tag configure bgstipple -background black -borderwidth 0 \
H A Dhscale.tcl28 $w.frame.canvas create line 0 0 1 1 2 2 0 0 -fill black -tags line
H A Dvscale.tcl30 $w.frame.canvas create line 0 0 1 1 2 2 0 0 -fill black -tags line
H A Druler.tcl49 set demo_rulerInfo(normalStyle) "-fill black"
55 set demo_rulerInfo(activeStyle) "-fill black -stipple {}"
56 set demo_rulerInfo(deleteStyle) [list -fill black \
70 -outline black -fill [lindex [$c config -bg] 4]]
H A Dplot.tcl50 [expr $x+6] [expr $y+6] -width 1 -outline black \
H A Dtwind.tcl141 [expr $x+6] [expr $y+6] -width 1 -outline black \
H A Dwidget73 .t tag configure hot -background black -foreground white
H A Dfloor.tcl1344 set colors(outline1) black
1346 set colors(outline2) black
1348 set colors(outline3) black
1350 set colors(active) black
/ast/src/lib/libtk/library/
H A Dpalette.tcl41 set new(foreground) black
193 tk_setPalette activeBackground #e6ceb1 activeForeground black \
194 background #ffe4c4 disabledForeground #b0b0b0 foreground black \
195 highlightBackground #ffe4c4 highlightColor black \
196 insertBackground black selectColor #b03060 \
197 selectBackground #e6ceb1 selectForeground black \
H A Dconsole.tcl39 -selectbackground black -selectforeground white \
43 .console configure -selectbackground black -selectforeground white }
45 .console configure -selectbackground white -selectforeground black }
H A Dclrpick.tcl672 $data($color,sel) itemconfig $data($color,index) -fill black
/ast/src/lib/libtk/generic/
H A DtkImgPhoto.c117 * BLACK_AND_WHITE: 1 means only black and white colors are
1607 XColor *white, *black;
1736 * Make a GC with background = black and foreground = white.
1740 black = Tk_GetColor(masterPtr->interp, tkwin, "black");
1743 gcValues.background = (black != NULL)? black->pixel:
3863 * quantization is simpler (we only have black = 0
1600 XColor *white, *black; local

Completed in 1981 milliseconds