Small changes in tkfbox.tcl

--- tkfbox.tcl.orig     2007-11-02 13:02:34.000000000 -0300
+++ tkfbox.tcl  2007-11-02 13:04:25.000000000 -0300
@@ -227,7 +227,7 @@
     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 \
+    $data(canvas) configure -background white;# why this? I find white better \
            [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}
@@ -1156,7 +1156,7 @@
 
     # grid the widgets in f2
     #
-    grid $f2.lab $f2.ent $data(okBtn) -padx 4 -sticky ew
+    grid $f2.lab $f2.ent $data(okBtn) -padx 4 -pady 3 -sticky ew
     grid configure $f2.ent -padx 2
     if {$class eq "TkFDialog"} {
        grid $data(typeMenuLab) $data(typeMenuBtn) $data(cancelBtn) \
@@ -1171,7 +1171,7 @@
     # Pack all the frames together. We are done with widget construction.
     #
     pack $f1 -side top -fill x -pady 4
-    pack $f2 -side bottom -fill x
+    pack $f2 -side bottom -fill x -pady 4
     pack $data(icons) -expand yes -fill both -padx 4 -pady 1
 
     # Set up the event handlers that are common to Directory and File Dialogs