Index: scrollframe.tcl
===================================================================
RCS file: /cvsroot/tcllib/bwidget/scrollframe.tcl,v
retrieving revision 1.10
diff -b -u -r1.10 scrollframe.tcl
--- scrollframe.tcl	29 Jun 2009 13:28:24 -0000	1.10
+++ scrollframe.tcl	17 Jul 2009 10:09:23 -0000
@@ -33,7 +33,7 @@
     }
 
     Widget::addmap ScrollableFrame "" :cmd {
-        -background {} -width {} -height {} 
+        -width {} -height {}
         -xscrollcommand {} -yscrollcommand {}
         -xscrollincrement {} -yscrollincrement {}
     }
@@ -58,11 +58,15 @@
     if {[Widget::theme]} {
 	set frame [eval [list ttk::frame $path.frame] \
 		       [Widget::subcget $path .frame]]
+        set bg [ttk::style configure . -background]
     } else {
 	set frame [eval [list frame $path.frame] \
 		       [Widget::subcget $path .frame] \
 		       -highlightthickness 0 -borderwidth 0 -relief flat]
+	set bg [$frame cget -background]
     }
+    # Give canvas frame (or theme) background
+    $canvas configure -background $bg
 
     $canvas create window 0 0 -anchor nw -window $frame -tags win \
         -width  [Widget::cget $path -areawidth] \
@@ -226,7 +230,6 @@
 proc ScrollableFrame::_max {a b} {return [expr {$a <= $b ? $b : $a}]}
 proc ScrollableFrame::_frameConfigure {canvas {unmap 0}} {
     # This ensures that we don't get funny scrollability in the frame
-    # when it is smaller than the canvas space
     # when it is smaller than the canvas space.
     # use [winfo] to get height & width of frame
 
