summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-11-02 14:24:11 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-11-02 14:24:11 (GMT)
commit63424abd4d8684595aa5844db0aae5bcc3bb39dd (patch)
tree93c90a9207d610631981e5c2b6d5ecf2b9ffc2c1
parent745a43fe6145ffaed0373c165415098358824088 (diff)
downloadtk-63424abd4d8684595aa5844db0aae5bcc3bb39dd.zip
tk-63424abd4d8684595aa5844db0aae5bcc3bb39dd.tar.gz
tk-63424abd4d8684595aa5844db0aae5bcc3bb39dd.tar.bz2
GOOBE tweak; get background from theme
-rw-r--r--library/tkfbox.tcl4
1 files changed, 3 insertions, 1 deletions
diff --git a/library/tkfbox.tcl b/library/tkfbox.tcl
index 52cc36c..72c3ad0 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.63 2007/11/02 14:20:23 dkf Exp $
+# RCS: @(#) $Id: tkfbox.tcl,v 1.64 2007/11/02 14:24:11 dkf Exp $
#
# Copyright (c) 1994-1998 Sun Microsystems, Inc.
#
@@ -227,6 +227,8 @@ proc ::tk::IconList_Create {w} {
catch {$data(sbar) configure -highlightthickness 0}
set data(canvas) [canvas $w.cHull.canvas -highlightthick 0 \
-width 400 -height 120 -takefocus 1]
+ $data(canvas) configure -background \
+ [ttk::style lookup $::ttk::currentTheme -background]
pack $data(sbar) -side bottom -fill x -padx 2 -in $w.cHull -pady {0 2}
pack $data(canvas) -expand yes -fill both -padx 2 -pady {2 0}
pack $w.cHull -expand yes -fill both -ipadx 2 -ipady 2