* *.tcl: Bumped the version number to 5.17.

csaba · csaba · commit e77e77d0cc6e · 2017-03-22T13:15:21.000Z
* COPYRIGHT.txt:
	* README.txt:
	* ../../examples/*.tcl:
diff --git a/examples/tablelist/browse.tcl b/examples/tablelist/browse.tcl
@@ -2,10 +2,10 @@
 # Demonstrates how to use a tablelist widget for displaying information about
 # the children of an arbitrary widget.
 #
-# Copyright (c) 2000-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2000-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist 5.16
+package require tablelist 5.17
 
 namespace eval demo {
     variable dir [file dirname [info script]]
diff --git a/examples/tablelist/browseTree.tcl b/examples/tablelist/browseTree.tcl
@@ -2,11 +2,11 @@
 # Demonstrates how to use a tablelist widget for displaying information about
 # the children of an arbitrary widget.
 #
-# Copyright (c) 2010-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2010-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
 package require Tk 8.3
-package require tablelist 5.16
+package require tablelist 5.17
 
 namespace eval demo {
     variable dir [file dirname [info script]]
@@ -55,7 +55,7 @@ proc demo::displayChildren w {
     set tbl $tf.tbl
     set vsb $tf.vsb
     tablelist::tablelist $tbl \
-	-columns {0 "Path Name"	left
+	-columns {0 "Name"	left
 		  0 "Class"	left
 		  0 "X"		right
 		  0 "Y"		right
@@ -424,7 +424,7 @@ proc demo::restoreExpandedStates {tbl nodeIdx expandedWidgetsName} {
 
     foreach key [$tbl childkeys $nodeIdx] {
 	set pathName [$tbl rowattrib $key pathName]
-	if {[info exists expandedWidgets($pathName)]} {
+	if {[info exists expandedWidgets($)]} {
 	    $tbl expand $key -partly
 	    restoreExpandedStates $tbl $key expandedWidgets
 	}
diff --git a/examples/tablelist/browseTree_tile.tcl b/examples/tablelist/browseTree_tile.tcl
@@ -2,10 +2,10 @@
 # Demonstrates how to use a tablelist widget for displaying information about
 # the children of an arbitrary widget.
 #
-# Copyright (c) 2010-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2010-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist_tile 5.16
+package require tablelist_tile 5.17
 
 namespace eval demo {
     variable dir [file dirname [info script]]
@@ -61,7 +61,7 @@ proc demo::displayChildren w {
     set tbl $tf.tbl
     set vsb $tf.vsb
     tablelist::tablelist $tbl \
-	-columns {0 "Path Name"	left
+	-columns {0 "Name"	left
 		  0 "Class"	left
 		  0 "X"		right
 		  0 "Y"		right
diff --git a/examples/tablelist/browse_tile.tcl b/examples/tablelist/browse_tile.tcl
@@ -2,10 +2,10 @@
 # Demonstrates how to use a tablelist widget for displaying information about
 # children of an arbitrary widget.
 #
-# Copyright (c) 2000-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2000-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist_tile 5.16
+package require tablelist_tile 5.17
 
 namespace eval demo {
     variable dir [file dirname [info script]]
diff --git a/examples/tablelist/bwidget.tcl b/examples/tablelist/bwidget.tcl
@@ -5,11 +5,11 @@
 # widgets from the BWidget package and of the Tk core checkbutton and
 # menubutton widgets.
 #
-# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
 package require Tk 8.4				;# because of "-compound"
-package require tablelist 5.16
+package require tablelist 5.17
 package require BWidget
 
 wm title . "Serial Line Configuration"
diff --git a/examples/tablelist/bwidget_tile.tcl b/examples/tablelist/bwidget_tile.tcl
@@ -5,10 +5,10 @@
 # widgets from the BWidget package and of the Tk core checkbutton and
 # menubutton widgets.
 #
-# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist_tile 5.16
+package require tablelist_tile 5.17
 package require BWidget
 
 wm title . "Serial Line Configuration"
diff --git a/examples/tablelist/config.tcl b/examples/tablelist/config.tcl
@@ -2,10 +2,10 @@
 # Demonstrates how to use a tablelist widget for displaying and editing the
 # configuration options of an arbitrary widget.
 #
-# Copyright (c) 2000-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2000-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist 5.16
+package require tablelist 5.17
 
 namespace eval demo {
     #
@@ -36,7 +36,7 @@ namespace eval demo {
 	catch {font create TkDefaultFont -family Helvetica -size -12}
 
 	option add *DemoTop*Font			TkDefaultFont
-	option add *DemoTop*selectBackground		#678db2
+	option add *DemoTop*selectBackground		#5294e2
 	option add *DemoTop*selectForeground		white
     } else {
 	option add *DemoTop.tf.borderWidth		1
diff --git a/examples/tablelist/config_tile.tcl b/examples/tablelist/config_tile.tcl
@@ -2,10 +2,10 @@
 # Demonstrates how to use a tablelist widget for displaying and editing the
 # configuration options of an arbitrary widget.
 #
-# Copyright (c) 2000-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2000-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist_tile 5.16
+package require tablelist_tile 5.17
 
 namespace eval demo {
     #
diff --git a/examples/tablelist/dirViewer.tcl b/examples/tablelist/dirViewer.tcl
@@ -4,11 +4,11 @@
 # Demonstrates how to use a tablelist widget for displaying the contents of a
 # directory.
 #
-# Copyright (c) 2010-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2010-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
 package require Tk 8.3
-package require tablelist 5.16
+package require tablelist 5.17
 
 #
 # Add some entries to the Tk option database
diff --git a/examples/tablelist/dirViewer_tile.tcl b/examples/tablelist/dirViewer_tile.tcl
@@ -4,10 +4,10 @@
 # Demonstrates how to use a tablelist widget for displaying the contents of a
 # directory.
 #
-# Copyright (c) 2010-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2010-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist_tile 5.16
+package require tablelist_tile 5.17
 
 #
 # Add some entries to the Tk option database
diff --git a/examples/tablelist/embeddedWindows.tcl b/examples/tablelist/embeddedWindows.tcl
@@ -3,10 +3,10 @@
 #==============================================================================
 # Demonstrates the use of embedded windows in tablelist widgets.
 #
-# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist 5.16
+package require tablelist 5.17
 
 wm title . "Tk Library Scripts"
 
@@ -52,7 +52,15 @@ scrollbar $vsb -orient vertical -command [list $tbl yview]
 
 proc emptyStr val { return "" }
 
-eval font create BoldFont [font actual [$tbl cget -font]] -weight bold
+#
+# Create a bold font
+#
+set tblFont [$tbl cget -font]
+set size [font actual $tblFont -size]
+if {$size == 0} {					;# e.g., on Ubuntu
+    set size -12
+}
+eval font create BoldFont [font actual $tblFont] -size $size -weight bold
 
 #
 # Populate the tablelist widget
diff --git a/examples/tablelist/embeddedWindows_tile.tcl b/examples/tablelist/embeddedWindows_tile.tcl
@@ -3,10 +3,10 @@
 #==============================================================================
 # Demonstrates the use of embedded windows in tablelist widgets.
 #
-# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist_tile 5.16
+package require tablelist_tile 5.17
 
 wm title . "Tile Library Scripts"
 
@@ -77,7 +77,15 @@ ttk::scrollbar $vsb -orient vertical -command [list $tbl yview]
 
 proc emptyStr val { return "" }
 
-eval font create BoldFont [font actual [$tbl cget -font]] -weight bold
+#
+# Create a bold font
+#
+set tblFont [$tbl cget -font]
+set size [font actual $tblFont -size]
+if {$size == 0} {					;# e.g., on Ubuntu
+    set size -12
+}
+eval font create BoldFont [font actual $tblFont] -size $size -weight bold
 
 #
 # Populate the tablelist widget
diff --git a/examples/tablelist/images.tcl b/examples/tablelist/images.tcl
@@ -1,7 +1,7 @@
 #==============================================================================
 # Creates some images.
 #
-# Copyright (c) 2011-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2011-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
 #
diff --git a/examples/tablelist/iwidgets.tcl b/examples/tablelist/iwidgets.tcl
@@ -5,11 +5,11 @@
 # widgets from the Iwidgets package and of the Tk core checkbutton and
 # menubutton widgets.
 #
-# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
 package require Tk 8.4				;# because of "-compound"
-package require tablelist 5.16
+package require tablelist 5.17
 package require Iwidgets
 
 wm title . "Serial Line Configuration"
diff --git a/examples/tablelist/iwidgets_tile.tcl b/examples/tablelist/iwidgets_tile.tcl
@@ -5,10 +5,10 @@
 # widgets from the Iwidgets package and of the Tk core checkbutton and
 # menubutton widgets.
 #
-# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist_tile 5.16
+package require tablelist_tile 5.17
 package require Iwidgets
 
 wm title . "Serial Line Configuration"
diff --git a/examples/tablelist/miscWidgets.tcl b/examples/tablelist/miscWidgets.tcl
@@ -5,11 +5,11 @@
 # Oakley's combobox, the mentry widgets of type "Date" and "Time", and of the
 # Tk core entry, spinbox, checkbutton, and menubutton widgets.
 #
-# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
 package require Tk 8.4		;# because of "-compound" and the spinbox widget
-package require tablelist 5.16
+package require tablelist 5.17
 package require combobox
 package require mentry
 
diff --git a/examples/tablelist/miscWidgets_tile.tcl b/examples/tablelist/miscWidgets_tile.tcl
@@ -5,10 +5,10 @@
 # Oakley's combobox, the mentry widgets of type "Date" and "Time", and of the
 # Tk core entry, spinbox, checkbutton, and menubutton widgets.
 #
-# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist_tile 5.16
+package require tablelist_tile 5.17
 package require combobox
 package require mentry
 
diff --git a/examples/tablelist/option.tcl b/examples/tablelist/option.tcl
@@ -1,7 +1,7 @@
 #==============================================================================
 # Contains some Tk option database settings.
 #
-# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
 #
@@ -25,7 +25,7 @@ if {[string compare $winSys "x11"] == 0} {
     catch {font create TkDefaultFont -family Helvetica -size -12}
 
     option add *Font			TkDefaultFont
-    option add *selectBackground	#678db2
+    option add *selectBackground	#5294e2
     option add *selectForeground	white
 } else {
     option add *ScrollArea.borderWidth			1
diff --git a/examples/tablelist/option_tile.tcl b/examples/tablelist/option_tile.tcl
@@ -1,7 +1,7 @@
 #==============================================================================
 # Contains some Tk option database settings.
 #
-# Copyright (c) 2004-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2004-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
 #
diff --git a/examples/tablelist/styles.tcl b/examples/tablelist/styles.tcl
@@ -3,10 +3,10 @@
 #==============================================================================
 # Demonstrates some ways of improving the look & feel of a tablelist widget.
 #
-# Copyright (c) 2002-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2002-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist 5.16
+package require tablelist 5.17
 
 wm title . "Tablelist Styles"
 
@@ -28,7 +28,7 @@ if {[string compare $winSys "x11"] == 0} {
     catch {font create TkDefaultFont -family Helvetica -size -12}
 
     option add *Font			TkDefaultFont
-    option add *selectBackground	#678db2
+    option add *selectBackground	#5294e2
     option add *selectForeground	white
 }
 
diff --git a/examples/tablelist/styles_tile.tcl b/examples/tablelist/styles_tile.tcl
@@ -3,10 +3,10 @@
 #==============================================================================
 # Demonstrates some ways of improving the look & feel of a tablelist widget.
 #
-# Copyright (c) 2002-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2002-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist_tile 5.16
+package require tablelist_tile 5.17
 
 wm title . "Tablelist Styles"
 
diff --git a/examples/tablelist/tileWidgets.tcl b/examples/tablelist/tileWidgets.tcl
@@ -4,10 +4,10 @@
 # Demonstrates the interactive tablelist cell editing with the aid of some
 # widgets from the tile package and of the Tk core spinbox widget.
 #
-# Copyright (c) 2005-2016  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
+# Copyright (c) 2005-2017  Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
 #==============================================================================
 
-package require tablelist_tile 5.16
+package require tablelist_tile 5.17
 
 wm title . "Serial Line Configuration"
 

Original file line number	Diff line number	Diff line change
`@@ -2,10 +2,10 @@`
`2`	`2`	`# Demonstrates how to use a tablelist widget for displaying and editing the`
`3`	`3`	`# configuration options of an arbitrary widget.`
`4`	`4`	`#`
`5`		`-# Copyright (c) 2000-2016 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)`
	`5`	`+# Copyright (c) 2000-2017 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)`
`6`	`6`	`#==============================================================================`
`7`	`7`
`8`		`-package require tablelist_tile 5.16`
	`8`	`+package require tablelist_tile 5.17`
`9`	`9`
`10`	`10`	`namespace eval demo {`
`11`	`11`	`#`
Original file line number	Diff line number	Diff line change
`@@ -4,11 +4,11 @@`
`4`	`4`	`# Demonstrates how to use a tablelist widget for displaying the contents of a`
`5`	`5`	`# directory.`
`6`	`6`	`#`
`7`		`-# Copyright (c) 2010-2016 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)`
	`7`	`+# Copyright (c) 2010-2017 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)`
`8`	`8`	`#==============================================================================`
`9`	`9`
`10`	`10`	`package require Tk 8.3`
`11`		`-package require tablelist 5.16`
	`11`	`+package require tablelist 5.17`
`12`	`12`
`13`	`13`	`#`
`14`	`14`	`# Add some entries to the Tk option database`
Original file line number	Diff line number	Diff line change
`@@ -4,10 +4,10 @@`
`4`	`4`	`# Demonstrates how to use a tablelist widget for displaying the contents of a`
`5`	`5`	`# directory.`
`6`	`6`	`#`
`7`		`-# Copyright (c) 2010-2016 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)`
	`7`	`+# Copyright (c) 2010-2017 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)`
`8`	`8`	`#==============================================================================`
`9`	`9`
`10`		`-package require tablelist_tile 5.16`
	`10`	`+package require tablelist_tile 5.17`
`11`	`11`
`12`	`12`	`#`
`13`	`13`	`# Add some entries to the Tk option database`