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]