arcadia 0.11.0 → 0.11.1

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/ChangeLog

@@ -1,4 +1,82 @@
-2010-01-17 Harald Oehlmann <oehhar@users.sourceforge.net>
+2011-06-24 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	**** BWidget 1.9.5 tagged ****
+
+2011-06-23 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* listbox.tcl (listbox::generate_data) fixed last patch
+	by ryotakatsuki [Bug 3324610]
+
+	2011-06-23 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* listbox.tcl Fix of Bug 3000293 broke listbox tags.
+	The bindImage subcommand did not report right tag.
+	Patch by ryotakatsuki [Bug 3324610]
+
+2011-06-23 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* listbox.tcl, tree.tcl (_update_scrollregion) the linewise
+	scrolling did not always scroll up to the end on windows 7.
+	Report and patch by Wojciech Kocjan, review and modification
+	by Koen Danckaert [Bug 3317772]
+
+2011-05-25 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	*mainframe.tcl: Add a boolean readonly option -sizegrip
+	to show a sizegrip widget in themed mode.
+
+2011-05-24 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	*lang/pl.rc updated by Wojciech Kocjan.
+
+2011-04-26 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	*notebook.tcl The user frame of the notebook is now a themed
+	frame in themed mode. The set background color does not apply
+	to the user frame in this case.
+
+2011-04-26 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	label.tcl configuring foreground color caused error when
+	themed [Bug 3292977]
+
+2011-04-20 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	lang/hu.rc by Rezso updated
+
+2011-04-20 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* font.tcl, lang/*.rc: Add translation possibility
+	for color picker button of font dialog.
+	Used google translater to translate "Color" to all languages.
+	Please check if this is correct. [Bug 3289573] reported by Rezso
+
+2011-04-19 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* lang/*.rc [Bug 3289573] : Add translation (templates) for the
+	Color picker widget text "Base colors" and "User colors".
+	Only german and english locals are provided so far.
+
+2011-02-14 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* combobox.tcl: [Bug 3182287] : ComboBox failes in themed mode
+	due to the use of the themed entry widget. The following options
+	are not supported (and thus called) any more: -relief
+	-highlightbackground -highlightforeground
+
+2011-02-14 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	* entry.tcl, labelentry.tcl, labelframe.tcl, mainframe.tcl,
+	pagesmgr.tcl, scrollw.tcl: [Bug 3168761]:
+	entry failes when themed support activated with:
+	unknown option "-highlightthickness" (reported by George
+	on clt 27 Jan., 16:55).
+	The patch by Wojciech Kocjan fixes this and enhances
+	labelentry, labelframe and pagesmgr to also use themed frames.
+	Within scrollw.tcl, a bug for empty background handling is fixed.
+	The scrollbar background is not set any more for not-themed widget.
+
+2011-01-17 Harald Oehlmann <oehhar@users.sourceforge.net>
 
 	* pkgIndex.tcl: corrected package version in package provide
 

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/button.tcl

@@ -389,4 +389,5 @@ proc Button::_repeat { path } {
           [set delay [Widget::getMegawidgetOption $path -repeatdelay]] > 0) } {
         after $delay "Button::_repeat $path"
     }
-}
+}
+

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/combobox.tcl

@@ -1,7 +1,7 @@
 # ----------------------------------------------------------------------------
 #  combobox.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: combobox.tcl,v 1.42.2.1 2009/08/10 11:28:50 oehhar Exp $
+#  $Id: combobox.tcl,v 1.42.2.2 2011/03/02 13:11:12 oehhar Exp $
 # ----------------------------------------------------------------------------
 #  Index of commands:
 #     - ComboBox::create
@@ -86,8 +86,13 @@ proc ComboBox::create { path args } {
 
     bindtags $path [list $path BwComboBox [winfo toplevel $path] all]
 
-    set entry [eval [list Entry::create $path.e] $maps(.e) \
-		   [list -relief flat -borderwidth 0 -takefocus 1]]
+    if {[Widget::theme]} {
+        set entry [eval [list Entry::create $path.e] $maps(.e) \
+            [list -takefocus 1]]
+    } else {
+        set entry [eval [list Entry::create $path.e] $maps(.e) \
+            [list -relief flat -borderwidth 0 -takefocus 1]]
+    }
 
     ::bind $path.e <FocusOut>      [list $path _focus_out]
     ::bind $path   <<TraverseIn>>  [list $path _traverse_in]
@@ -477,14 +482,23 @@ proc ComboBox::_create_popup { path } {
     set sw [ScrolledWindow $shell.sw -managed 1 -size $sbwidth -ipad 0]
 
     if {$bw} {
-        set listb  [ListBox $shell.listb \
-                -relief flat -borderwidth 0 -highlightthickness 0 \
-                -selectmode single -selectfill 1 -autofocus 0 -height $h \
-                -font [Widget::cget $path -font]  \
-                -bg [Widget::cget $path -entrybg] \
-                -fg [Widget::cget $path -foreground] \
-                -selectbackground [Widget::cget $path -selectbackground] \
-                -selectforeground [Widget::cget $path -selectforeground]]
+        if {[Widget::theme]} {
+            set listb  [ListBox $shell.listb \
+                    -relief flat -borderwidth 0 -highlightthickness 0 \
+                    -selectmode single -selectfill 1 -autofocus 0 -height $h \
+                    -font [Widget::cget $path -font]  \
+                    -bg [Widget::cget $path -entrybg] \
+                    -fg [Widget::cget $path -foreground]]
+        } else {
+            set listb  [ListBox $shell.listb \
+                    -relief flat -borderwidth 0 -highlightthickness 0 \
+                    -selectmode single -selectfill 1 -autofocus 0 -height $h \
+                    -font [Widget::cget $path -font]  \
+                    -bg [Widget::cget $path -entrybg] \
+                    -fg [Widget::cget $path -foreground] \
+                    -selectbackground [Widget::cget $path -selectbackground] \
+                    -selectforeground [Widget::cget $path -selectforeground]]
+        }
 
         set values [Widget::cget $path -values]
         set images [Widget::cget $path -images]
@@ -498,16 +512,27 @@ proc ComboBox::_create_popup { path } {
             $listb bindImage <Enter> [list $listb selection set]
         }
     } else {
-        set listb  [listbox $shell.listb \
-                -relief flat -borderwidth 0 -highlightthickness 0 \
-                -exportselection false \
-                -font	[Widget::cget $path -font]  \
-                -height $h \
-                -bg [Widget::cget $path -entrybg] \
-                -fg [Widget::cget $path -foreground] \
-                -selectbackground [Widget::cget $path -selectbackground] \
-                -selectforeground [Widget::cget $path -selectforeground] \
-                -listvariable [Widget::varForOption $path -values]]
+        if {[Widget::theme]} {
+            set listb  [listbox $shell.listb \
+                    -relief flat -borderwidth 0 -highlightthickness 0 \
+                    -exportselection false \
+                    -font	[Widget::cget $path -font]  \
+                    -height $h \
+                    -bg [Widget::cget $path -entrybg] \
+                    -fg [Widget::cget $path -foreground] \
+                    -listvariable [Widget::varForOption $path -values]]
+        } else {
+            set listb  [listbox $shell.listb \
+                    -relief flat -borderwidth 0 -highlightthickness 0 \
+                    -exportselection false \
+                    -font	[Widget::cget $path -font]  \
+                    -height $h \
+                    -bg [Widget::cget $path -entrybg] \
+                    -fg [Widget::cget $path -foreground] \
+                    -selectbackground [Widget::cget $path -selectbackground] \
+                    -selectforeground [Widget::cget $path -selectforeground] \
+                    -listvariable [Widget::varForOption $path -values]]
+        }
         ::bind $listb <ButtonRelease-1> [list ComboBox::_select $path @%x,%y]
 
         if {[Widget::cget $path -hottrack]} {
@@ -567,9 +592,12 @@ proc ComboBox::_recreate_popup { path } {
             -height $h \
             -font   [Widget::cget $path -font] \
             -bg     [Widget::cget $path -entrybg] \
-            -fg     [Widget::cget $path -foreground] \
-            -selectbackground [Widget::cget $path -selectbackground] \
-            -selectforeground [Widget::cget $path -selectforeground]
+            -fg     [Widget::cget $path -foreground]
+    if {![Widget::theme]} {
+        $listb configure \
+                -selectbackground [Widget::cget $path -selectbackground] \
+                -selectforeground [Widget::cget $path -selectforeground]
+    }
     pack $sw -fill both -expand yes
     $sw setwidget $listb
     raise $listb

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/entry.tcl

@@ -1,7 +1,7 @@
 # ------------------------------------------------------------------------------
 #  entry.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: entry.tcl,v 1.22 2009/06/10 08:48:06 oehhar Exp $
+#  $Id: entry.tcl,v 1.22.2.1 2011/02/14 16:56:09 oehhar Exp $
 # ------------------------------------------------------------------------------
 #  Index of commands:
 #     - Entry::create
@@ -64,9 +64,15 @@ namespace eval Entry {
         COLOR   {move {}}
     }
 
-    foreach event [bind Entry] {
-        bind BwEntry $event [bind Entry $event]
-    }
+    if {[Widget::theme]} {
+        foreach event [bind TEntry] {
+            bind BwEntry $event [bind TEntry $event]
+        }
+    }  else  {
+        foreach event [bind Entry] {
+            bind BwEntry $event [bind Entry $event]
+        }
+     }
 
     # Copy is kind of a special event.  It should be enabled when the
     # widget is editable but not disabled, and not when the widget is disabled.
@@ -92,17 +98,29 @@ proc Entry::create { path args } {
     array set maps [Widget::parseArgs Entry $args]
 
     set data(afterid) ""
-    eval [list entry $path] $maps(:cmd)
+    if {[Widget::theme]} {
+        eval [list ttk::entry $path] $maps(:cmd)
+    }  else  {
+        eval [list entry $path] $maps(:cmd)
+    }
     Widget::initFromODB Entry $path $maps(Entry)
     set state    [Widget::getMegawidgetOption $path -state]
     set editable [Widget::getMegawidgetOption $path -editable]
     set text     [Widget::getMegawidgetOption $path -text]
     if { $editable && [string equal $state "normal"] } {
         bindtags $path [list $path BwEntry [winfo toplevel $path] all]
-        $path configure -takefocus 1 -insertontime 600
+        if {[Widget::theme]} {
+            $path configure -takefocus 1
+        } else {
+            $path configure -takefocus 1 -insertontime 600
+        }
     } else {
         bindtags $path [list $path BwDisabledEntry [winfo toplevel $path] all]
-        $path configure -takefocus 0 -insertontime 0
+        if {[Widget::theme]} {
+            $path configure -takefocus 0
+        } else {
+            $path configure -takefocus 0 -insertontime 0
+        }
     }
     if { $editable == 0 } {
         $path configure -cursor left_ptr
@@ -166,20 +184,28 @@ proc Entry::configure { path args } {
             if { $idx != -1 } {
                 bindtags $path [lreplace $btags $idx $idx BwEntry]
             }
-            $path:cmd configure -takefocus 1 -insertontime 600
+            if {[Widget::theme]} {
+                $path:cmd configure -takefocus 1
+            } else {
+                $path:cmd configure -takefocus 1 -insertontime 600
+            }
         } else {
             set idx [lsearch $btags BwEntry]
             if { $idx != -1 } {
                 bindtags $path [lreplace $btags $idx $idx BwDisabledEntry]
             }
-            $path:cmd configure -takefocus 0 -insertontime 0
+            if {[Widget::theme]} {
+                $path:cmd configure -takefocus 0
+            } else {
+                 $path:cmd configure -takefocus 0 -insertontime 0
+            }
             if { [string equal [focus] $path] } {
                 focus .
             }
         }
     }
 
-    if { $chstate || $chfg || $chdfg || $chbg || $chdbg } {
+    if { ![Widget::theme] && ($chstate || $chfg || $chdfg || $chbg || $chdbg) } {
 	set state [Widget::getMegawidgetOption $path -state]
         if { [string equal $state "disabled"] } {
             $path:cmd configure \
@@ -267,7 +293,7 @@ proc Entry::_path_command { path cmd larg } {
             return [eval [linsert $larg 0 Entry::$cmd $path]]
         }
         default {
-            return [eval [linsert $larg 0 $path:cmd $cmd]]
+            return [uplevel 2 [linsert $larg 0 $path:cmd $cmd]]
         }
     }
 }

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/font.tcl

@@ -227,8 +227,12 @@ proc SelectFont::create { path args } {
 		set script "set [list SelectFont::${path}(fontcolor)] \[tk_chooseColor -parent $colf.button -initialcolor \[set [list SelectFont::${path}(fontcolor)]\]\];\
 			SelectFont::_update [list $path]"
 		
+		set name [lindex [BWidget::getname colorPicker] 0]
+		if { $name == "" } {
+			set name "Color..."
+		}
 		set but  [button $colf.button -command $script \
-			-text "Color..."]
+			-text $name]
 		
 		$lab configure -foreground $thecolor
 		$frc configure -bg $thecolor

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/label.tcl

@@ -1,7 +1,7 @@
 # ------------------------------------------------------------------------------
 #  label.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: label.tcl,v 1.10.2.2 2010/11/21 19:35:48 oehhar Exp $
+#  $Id: label.tcl,v 1.10.2.3 2011/04/26 08:24:28 oehhar Exp $
 # ------------------------------------------------------------------------------
 #  Index of commands:
 #     - Label::create
@@ -138,7 +138,7 @@ proc Label::configure { path args } {
 
     if {$::Widget::_theme} {
         if { $cfg } {
-            $path.l configure -fg $fg
+            $path.l configure -foreground $fg
         }
         if { $cst } {
             if { $state == "normal" } {