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

  1. tklib trunk breaks tablelist_tile, mentry_tile and
  2.  
  3. emiliano@LE-PB01:~/src/tklib/modules/tablelist/scripts$ TCLLIBPATH="/home/emiliano/src/tklib/modules" wish8.7
  4. % package require tablelist_tile
  5. missing operand at _@_
  6. in expression "...$::tk_version == 8.6- _@_&&
  7. [package vcompare..."
  8.  
  9. Index: modules/mentry/scripts/mentryWidget.tcl
  10. ==================================================================
  11. --- modules/mentry/scripts/mentryWidget.tcl
  12. +++ modules/mentry/scripts/mentryWidget.tcl
  13. @@ -81,11 +81,11 @@
  14. set colorScheme [getKdeConfigVal "KDE" "colorScheme"]
  15. }
  16. }
  17.  
  18. variable newAquaSupport [expr {
  19. - ($::tk_version == 8.6- &&
  20. + ($::tk_version == 8.6 &&
  21. [package vcompare $::tk_patchLevel "8.6.10"] >= 0) ||
  22. ($::tk_version >= 8.7 &&
  23. [package vcompare $::tk_patchLevel "8.7a3"] >= 0)}]
  24.  
  25. variable extendedAquaSupport \
  26.  
  27. Index: modules/scrollutil/scripts/scrollarea.tcl
  28. ==================================================================
  29. --- modules/scrollutil/scripts/scrollarea.tcl
  30. +++ modules/scrollutil/scripts/scrollarea.tcl
  31. @@ -55,11 +55,11 @@
  32. }
  33. }
  34. }
  35.  
  36. variable newAquaSupport [expr {
  37. - ($::tk_version == 8.6- &&
  38. + ($::tk_version == 8.6 &&
  39. [package vcompare $::tk_patchLevel "8.6.10"] >= 0) ||
  40. ($::tk_version >= 8.7 &&
  41. [package vcompare $::tk_patchLevel "8.7a3"] >= 0)}]
  42.  
  43. variable svgSupported \
  44. @@ -154,11 +154,11 @@
  45. variable cmdOpts [list attrib cget configure hasattrib setwidget \
  46. unsetattrib widget]
  47. variable scrollbarModes [list static dynamic none]
  48.  
  49. variable newSetFocusPolicy [expr {
  50. - ($::tk_version == 8.6- &&
  51. + ($::tk_version == 8.6 &&
  52. [package vcompare $::tk_patchLevel "8.6.11"] >= 0) ||
  53. ($::tk_version >= 8.7 &&
  54. [package vcompare $::tk_patchLevel "8.7a4"] >= 0)}]
  55. }
  56.  
  57.  
  58. Index: modules/tablelist/scripts/tablelistWidget.tcl
  59. ==================================================================
  60. --- modules/tablelist/scripts/tablelistWidget.tcl
  61. +++ modules/tablelist/scripts/tablelistWidget.tcl
  62. @@ -124,11 +124,11 @@
  63.  
  64. variable svgSupported [expr {
  65. $::tk_version >= 8.7 || [catch {package require tksvg}] == 0}]
  66.  
  67. variable newAquaSupport [expr {
  68. - ($::tk_version == 8.6- &&
  69. + ($::tk_version == 8.6 &&
  70. [package vcompare $::tk_patchLevel "8.6.10"] >= 0) ||
  71. ($::tk_version >= 8.7 &&
  72. [package vcompare $::tk_patchLevel "8.7a3"] >= 0)}]
  73.  
  74. variable scaled4 [::scaleutil::scale 4 $::scaleutil::scalingPct]
  75.  
  76.