Posted to tcl by emiliano at Mon Sep 04 15:17:01 GMT 2023view pretty

tklib trunk breaks tablelist_tile, mentry_tile and 

emiliano@LE-PB01:~/src/tklib/modules/tablelist/scripts$ TCLLIBPATH="/home/emiliano/src/tklib/modules" wish8.7
% package require tablelist_tile
missing operand at _@_
in expression "...$::tk_version == 8.6- _@_&&
	 [package vcompare..."

Index: modules/mentry/scripts/mentryWidget.tcl
==================================================================
--- modules/mentry/scripts/mentryWidget.tcl
+++ modules/mentry/scripts/mentryWidget.tcl
@@ -81,11 +81,11 @@
 	    set colorScheme [getKdeConfigVal "KDE" "colorScheme"]
 	}
     }
 
     variable newAquaSupport [expr {
-	($::tk_version == 8.6- &&
+	($::tk_version == 8.6 &&
 	 [package vcompare $::tk_patchLevel "8.6.10"] >= 0) ||
 	($::tk_version >= 8.7 &&
 	 [package vcompare $::tk_patchLevel "8.7a3"] >= 0)}]
 
     variable extendedAquaSupport \

Index: modules/scrollutil/scripts/scrollarea.tcl
==================================================================
--- modules/scrollutil/scripts/scrollarea.tcl
+++ modules/scrollutil/scripts/scrollarea.tcl
@@ -55,11 +55,11 @@
 	    }
 	}
     }
 
     variable newAquaSupport [expr {
-	($::tk_version == 8.6- &&
+	($::tk_version == 8.6 &&
 	 [package vcompare $::tk_patchLevel "8.6.10"] >= 0) ||
 	($::tk_version >= 8.7 &&
 	 [package vcompare $::tk_patchLevel "8.7a3"] >= 0)}]
 
     variable svgSupported \
@@ -154,11 +154,11 @@
     variable cmdOpts        [list attrib cget configure hasattrib setwidget \
 			     unsetattrib widget]
     variable scrollbarModes [list static dynamic none]
 
     variable newSetFocusPolicy [expr {
-	($::tk_version == 8.6- &&
+	($::tk_version == 8.6 &&
 	 [package vcompare $::tk_patchLevel "8.6.11"] >= 0) ||
 	($::tk_version >= 8.7 &&
 	 [package vcompare $::tk_patchLevel "8.7a4"] >= 0)}]
 }
 

Index: modules/tablelist/scripts/tablelistWidget.tcl
==================================================================
--- modules/tablelist/scripts/tablelistWidget.tcl
+++ modules/tablelist/scripts/tablelistWidget.tcl
@@ -124,11 +124,11 @@
 
     variable svgSupported [expr {
 	$::tk_version >= 8.7 || [catch {package require tksvg}] == 0}]
 
     variable newAquaSupport [expr {
-	($::tk_version == 8.6- &&
+	($::tk_version == 8.6 &&
 	 [package vcompare $::tk_patchLevel "8.6.10"] >= 0) ||
 	($::tk_version >= 8.7 &&
 	 [package vcompare $::tk_patchLevel "8.7a3"] >= 0)}]
 
     variable scaled4 [::scaleutil::scale 4 $::scaleutil::scalingPct]