arcadia 0.13.1 → 1.0.0

data/tcl/{bwidget-1.9.7 → bwidget-1.9.8}/ChangeLog

@@ -1,3 +1,68 @@
+2014-09-10 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	**** BWidget 1.9.8 tagged ****
+
+2014-09-05 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	widget.tcl: Widget::which errors when option not present.
+	Ticket [397db23424]
+
+2014-05-21 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+        widget.tcl: Don't invoke unqualified upvar in callers
+        scope. Patch by Adrian Medrano Calvo. Ticket [046fa04231]
+
+        widget.tcl: Don't double creation of temporary widget for
+        default values retrieval. Use result of _get_tkwidget_options
+        instead. By Adrian Medrano Calvo. Ticket [393b67ab19]
+
+        widget.tcl: New procedure Widget::which (as in [namespace which]),
+        that returns the fully qualified name for a widget option or
+        widget variable. By Adrian Medrano Calvo. Ticket [a8705e5fd9]
+
+        widget.tcl: Remove unneeded upvar. By Adrian Medrano Calvo.
+        Ticket [43f93e0a97]
+        
+        widget.tcl et al: remove apparently unused procedure
+        Widget::syncoptions and all calls. By Adrian Medrano Calvo.
+        Ticket [3c2b8eafc6]
+
+
+2013-12-13 Harald Oehlmann <oehhar@users.sourceforge.net>
+
+	scrollframe.tcl: Make -constrainedwidth 1 and
+	-constrainedheight 1 work together.
+	Patch by Simon Bachmann. Ticket [2fa44401d5]
+
+	2013-10-17 Harald Oehlmann <oehhar@users.sourceforge.net>
+	widget.tcl: Remove temporary widget.
+	By Wolfgang S. Kechel. Ticket [6cd041bcc1]
+
+2013-10-15 Harald Oehlmann <oehhar@users.sourceforge.net>
+	combobox.tcl: Themed ComboBox color specifications
+	are honored. By Wolfgang S. Kechel. Ticket [6c6704e40f]
+
+2013-10-14 Harald Oehlmann <oehhar@users.sourceforge.net>
+	combobox.tcl: Fails in themed mode with "unknown
+	option -bg". Patch solves this but listbox items
+	are white on white when "-foreground" is specified.
+	By Wolfgang S. Kechel. Ticket [6632134ce9]
+	
+	listbox.tcl: Update on option -deltay added.
+	Set x0 to 2 to make highlight work and look nice for
+	listbox with image.
+	Take image into account to show selection.
+	By Wolfgang S. Kechel. Ticket [ff1787af9c]
+
+	scrollw.tcl: Raise scrolled window if it is below in
+	the window hierarchy. By Wolfgang S. Kechel.
+	Ticket [ff1787af9c]
+
+2013-10-07 Harald Oehlmann <oehhar@users.sourceforge.net>
+	dynhelp.tcl: Sometimes the tooltip does not occur under
+	gnome/metacity on ubuntu. By Wolfgang S. Kechel.
+	Ticket [a588d2f800]
+
 2013-09-15 Harald Oehlmann <oehhar@users.sourceforge.net>
 
 	**** BWidget 1.9.7 tagged ****

data/tcl/{bwidget-1.9.7 → bwidget-1.9.8}/button.tcl

@@ -42,8 +42,6 @@ namespace eval Button {
 
     DynamicHelp::include Button balloon
 
-    Widget::syncoptions Button "" :cmd {-text {} -underline {}}
-
     variable _current ""
     variable _pressed ""
 

data/tcl/{bwidget-1.9.7 → bwidget-1.9.8}/combobox.tcl

@@ -10,7 +10,7 @@
 #     - ComboBox::setvalue
 #     - ComboBox::getvalue
 #     - ComboBox::clearvalue
-#     - ComboBox::getentrypath
+#     - ComboBox::getentry
 #     - ComboBox::_create_popup
 #     - ComboBox::_mapliste
 #     - ComboBox::_unmapliste
@@ -61,8 +61,6 @@ namespace eval ComboBox {
 	}
     }
 
-    Widget::syncoptions ComboBox Entry .e {-text {}}
-
     ::bind BwComboBox <FocusIn> [list after idle {BWidget::refocus %W %W.e}]
     ::bind BwComboBox <Destroy> [list ComboBox::_destroy %W]
 
@@ -300,10 +298,13 @@ proc ComboBox::configure { path args } {
     #  is shown it'll get the actual colors anyway
     if {[winfo exists $path.shell.listb]} {
 	$path.shell.listb configure \
-		-bg [Widget::cget $path -entrybg] \
-		-fg [Widget::cget $path -foreground] \
+	    -bg [_getbg $path] \
+	    -fg [_getfg $path]
+	if {![Widget::theme]} {
+	    $path.shell.listb configure \
 		-selectbackground [Widget::cget $path -selectbackground] \
 		-selectforeground [Widget::cget $path -selectforeground]
+	}
     }
 
     return $res
@@ -458,6 +459,29 @@ proc ComboBox::getentry { path } {
     return $path.e
 }
 
+proc ComboBox::_getfg {path} {
+    # First try to retrieve option
+    set fg [Widget::cget $path -foreground];
+    if { 0 == [string length $fg] && [Widget::theme] } {
+	# fall back to style settings when not configured for widget
+	return [::ttk::style lookup TEntry -foreground];
+    }
+    return $fg;
+}
+proc ComboBox::_getbg {path} {
+    if {[Widget::theme]} {
+	# First try to retrieve option
+	set bg [Widget::cget $path -background];
+	if {0 == [string length $bg]} {
+	    # fall back to style settings when not configured for widget
+	    return [::ttk::style lookup TEntry -backround];
+	}
+    } else {
+	# fetch the entrybg resource value
+	set bg [Widget::cget $path -entrybg]
+    }
+    return $bg;
+}
 # ----------------------------------------------------------------------------
 #  Command ComboBox::_create_popup
 # ----------------------------------------------------------------------------
@@ -504,16 +528,16 @@ proc ComboBox::_create_popup { path } {
             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]]
+                    -font [Widget::cget $path -font] \
+                    -bg [_getbg $path] \
+                    -fg [_getfg $path]]
         } 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] \
+                    -bg [_getbg $path] \
+                    -fg [_getfg $path] \
                     -selectbackground [Widget::cget $path -selectbackground] \
                     -selectforeground [Widget::cget $path -selectforeground]]
         }
@@ -536,8 +560,8 @@ proc ComboBox::_create_popup { path } {
                     -exportselection false \
                     -font	[Widget::cget $path -font]  \
                     -height $h \
-                    -bg [Widget::cget $path -entrybg] \
-                    -fg [Widget::cget $path -foreground] \
+                    -bg [_getbg $path] \
+                    -fg [_getfg $path] \
                     -listvariable [Widget::varForOption $path -values]]
         } else {
             set listb  [listbox $shell.listb \
@@ -545,8 +569,8 @@ proc ComboBox::_create_popup { path } {
                     -exportselection false \
                     -font	[Widget::cget $path -font]  \
                     -height $h \
-                    -bg [Widget::cget $path -entrybg] \
-                    -fg [Widget::cget $path -foreground] \
+                    -bg [_getbg $path] \
+                    -fg [_getfg $path] \
                     -selectbackground [Widget::cget $path -selectbackground] \
                     -selectforeground [Widget::cget $path -selectforeground] \
                     -listvariable [Widget::varForOption $path -values]]
@@ -609,8 +633,8 @@ proc ComboBox::_recreate_popup { path } {
     $listb configure \
             -height $h \
             -font   [Widget::cget $path -font] \
-            -bg     [Widget::cget $path -entrybg] \
-            -fg     [Widget::cget $path -foreground]
+            -bg     [_getbg $path] \
+            -fg     [_getfg $path]
     if {![Widget::theme]} {
         $listb configure \
                 -selectbackground [Widget::cget $path -selectbackground] \

data/tcl/{bwidget-1.9.7 → bwidget-1.9.8}/dynhelp.tcl

@@ -726,6 +726,9 @@ proc DynamicHelp::_show_help { path w x y } {
 	if {![winfo exists $_top]} { return }
         wm deiconify $_top
         raise $_top
+        # Sometimes the tooltip does not occur under
+        # gnome/metacity on ubuntu.
+        after 5;
     }
 }
 

data/tcl/{bwidget-1.9.7 → bwidget-1.9.8}/label.tcl

@@ -48,8 +48,6 @@ namespace eval Label {
         COLOR   {move {}}
     }
 
-    Widget::syncoptions Label "" .l {-text {} -underline {}}
-
     bind BwLabel <FocusIn> [list Label::setfocus %W]
     bind BwLabel <Destroy> [list Label::_destroy %W]
 }

data/tcl/{bwidget-1.9.7 → bwidget-1.9.8}/labelentry.tcl

@@ -24,9 +24,6 @@ namespace eval LabelEntry {
 
     Widget::addmap LabelEntry "" :cmd {-background {}}
 
-    Widget::syncoptions LabelEntry Entry .e {-text {}}
-    Widget::syncoptions LabelEntry LabelFrame .labf {-label -text -underline {}}
-
     ::bind BwLabelEntry <FocusIn> [list focus %W.labf]
     ::bind BwLabelEntry <Destroy> [list LabelEntry::_destroy %W]
 }

data/tcl/{bwidget-1.9.7 → bwidget-1.9.8}/labelframe.tcl

@@ -33,8 +33,6 @@ namespace eval LabelFrame {
     Widget::addmap LabelFrame "" :cmd {-background {}}
     Widget::addmap LabelFrame "" .f   {-background {} -relief {} -borderwidth {}}
 
-    Widget::syncoptions LabelFrame Label .l {-text {} -underline {}}
-
     bind BwLabelFrame <FocusIn> [list Label::setfocus %W.l]
     bind BwLabelFrame <Destroy> [list LabelFrame::_destroy %W]
 }

data/tcl/{bwidget-1.9.7 → bwidget-1.9.8}/lang/da.rc

@@ -56,3 +56,4 @@
 
 *baseColorsName: Base colors
 *userColorsName: User colors
+

data/tcl/{bwidget-1.9.7 → bwidget-1.9.8}/lang/de.rc

@@ -56,3 +56,4 @@
 
 *baseColorsName: Grundfarben
 *userColorsName: Benutzerdefinierte Farben
+

data/tcl/{bwidget-1.9.7 → bwidget-1.9.8}/lang/en.rc

@@ -56,3 +56,4 @@
 
 *baseColorsName: Base colors
 *userColorsName: User colors
+