summaryrefslogtreecommitdiffstats
path: root/library/tkfbox.tcl
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-10-29 09:40:34 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-10-29 09:40:34 (GMT)
commit2606b69761592d7f8b81cd7708ad34fbeb77bf05 (patch)
tree9157eb2428d551a5887b19b4802c76baf43df293 /library/tkfbox.tcl
parenta7c7a127f08dea7bf35ca679def72e1688bd19e3 (diff)
downloadtk-2606b69761592d7f8b81cd7708ad34fbeb77bf05.zip
tk-2606b69761592d7f8b81cd7708ad34fbeb77bf05.tar.gz
tk-2606b69761592d7f8b81cd7708ad34fbeb77bf05.tar.bz2
* library/tkfbox.tcl (IconList_Create,IconList_Add): Added option
munging to allow some control of foreground colours on Unix in the same way that you can influence the background. [Bug 795717]
Diffstat (limited to 'library/tkfbox.tcl')
-rw-r--r--library/tkfbox.tcl10
1 files changed, 8 insertions, 2 deletions
diff --git a/library/tkfbox.tcl b/library/tkfbox.tcl
index fb4a8e4..384a473 100644
--- a/library/tkfbox.tcl
+++ b/library/tkfbox.tcl
@@ -11,7 +11,7 @@
# files by clicking on the file icons or by entering a filename
# in the "Filename:" entry.
#
-# RCS: @(#) $Id: tkfbox.tcl,v 1.38 2003/02/21 14:13:26 dkf Exp $
+# RCS: @(#) $Id: tkfbox.tcl,v 1.38.2.1 2003/10/29 09:40:34 dkf Exp $
#
# Copyright (c) 1994-1998 Sun Microsystems, Inc.
#
@@ -238,6 +238,12 @@ proc ::tk::IconList_Create {w} {
set data(noScroll) 1
set data(selection) {}
set data(index,anchor) ""
+ set fg [option get $data(canvas) foreground Foreground]
+ if {$fg eq ""} {
+ set data(fill) black
+ } else {
+ set data(fill) $fg
+ }
# Creates the event bindings.
#
@@ -342,7 +348,7 @@ proc ::tk::IconList_Add {w image items} {
set iTag [$data(canvas) create image 0 0 -image $image -anchor nw \
-tags [list icon $data(numItems) item$data(numItems)]]
set tTag [$data(canvas) create text 0 0 -text $text -anchor nw \
- -font $data(font) \
+ -font $data(font) -fill $data(fill) \
-tags [list text $data(numItems) item$data(numItems)]]
set rTag [$data(canvas) create rect 0 0 0 0 -fill "" -outline "" \
-tags [list rect $data(numItems) item$data(numItems)]]