theme related mod's done

Author: oberdorfer

pagesmgr.tcl

@@ -1,7 +1,7 @@
 # ------------------------------------------------------------------------------
 #  pagesmgr.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: pagesmgr.tcl,v 1.6 2003/10/20 21:23:52 damonc Exp $
+#  $Id: pagesmgr.tcl,v 1.61 2009/09/06 21:28:51 oberdorfer Exp $
 # ------------------------------------------------------------------------------
 #  Index of commands:
 #     - PagesManager::create
@@ -26,7 +26,7 @@ namespace eval PagesManager {
     Widget::define PagesManager pagesmgr
 
     Widget::declare PagesManager {
-        {-background TkResource "" 0 frame}
+        {-background Color      "SystemWindow" 0}
         {-cursor     TkResource "" 0 frame}
         {-width      Int        0  0 "%d >= 0"}
         {-height     Int        0  0 "%d >= 0"}
@@ -50,7 +50,6 @@ proc PagesManager::create { path args } {
     set data(cpt)      0
     set data(realized) 0
 
-    # --- creation du canvas -----------------------------------------------------------------
     eval canvas $path -relief flat -bd 0 -highlightthickness 0 \
 	    [Widget::subcget $path :cmd]
 
@@ -110,7 +109,8 @@ proc PagesManager::add { path page } {
 
     lappend data(pages) $page
 
-    frame $path.f$page -relief flat \
+    BWidget::wrap \
+       frame $path.f$page -relief flat \
 	    -background [Widget::cget $path -background] -borderwidth 0
 
     return $path.f$page

panedw.tcl

@@ -1,6 +1,7 @@
 # ----------------------------------------------------------------------------
 #  panedw.tcl
 #  This file is part of Unifix BWidget Toolkit
+#  $Id: panedw.tcl,v 1.15 2009/09/06 21:29:34 oberdorfer Exp $
 # ----------------------------------------------------------------------------
 #  Index of commands:
 #     - PanedWindow::create
@@ -34,13 +35,20 @@ namespace eval PanedWindow {
         {-side       Enum       top   1 {top left bottom right}}
         {-width      Int        10    1 "%d >=3"}
         {-pad        Int        4     1 "%d >= 0"}
-        {-background TkResource ""    0 frame}
+        {-background Color      "SystemWindowFrame" 0}
         {-bg         Synonym    -background}
         {-activator  Enum       ""    1 {line button}}
 	{-weights    Enum       extra 1 {extra available}}
     }
 
     variable _panedw
+
+    if { [BWidget::using ttk] } {
+        if {[lsearch [bindtags .] PanedWThemeChanged] < 0} {
+            bindtags . [linsert [bindtags .] 1 PanedWThemeChanged]
+        }
+    }
+
 }
 
 
@@ -52,8 +60,9 @@ proc PanedWindow::create { path args } {
     variable _panedw
 
     Widget::init PanedWindow $path $args
+    frame $path -background [Widget::cget $path -background] \
+                -class PanedWindow
 
-    frame $path -background [Widget::cget $path -background] -class PanedWindow
     set _panedw($path,nbpanes) 0
     set _panedw($path,weights) ""
     set _panedw($path,configuredone) 0
@@ -73,6 +82,12 @@ proc PanedWindow::create { path args } {
     bind $path <Configure> [list PanedWindow::_realize $path %w %h]
     bind $path <Destroy>   [list PanedWindow::_destroy $path]
 
+    if { [BWidget::using ttk] } {
+        bind PanedWThemeChanged <<ThemeChanged>> \
+	       "+[namespace current]::_themechanged $path"
+    }
+
+
     return [Widget::create PanedWindow $path]
 }
 
@@ -383,3 +398,16 @@ proc PanedWindow::_destroy { path } {
     unset _panedw($path,nbpanes)
     Widget::destroy $path
 }
+
+
+# ----------------------------------------------------------------------------
+#  Command PanedWindow::_themechanged
+# ----------------------------------------------------------------------------
+proc PanedWindow::_themechanged { path } {
+
+    if { ![winfo exists $path] } { return }
+    BWidget::set_themedefaults
+    
+    $path configure \
+           -background $BWidget::colors(SystemWindowFrame)
+}