From f7cf101fc82c5bd598037585acef931bd106ed4d Mon Sep 17 00:00:00 2001 From: kseitz Date: Fri, 24 Aug 2001 15:32:08 +0000 Subject: [PATCH] * src/tkTable.tcl: Use "string compare" instead of "string equal". The latter is only available in newer versions of tcl. --- libgui/ChangeLog | 6 ++++++ libgui/src/tkTable.tcl | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/libgui/ChangeLog b/libgui/ChangeLog index f55204da83..a4cea2c234 100644 --- a/libgui/ChangeLog +++ b/libgui/ChangeLog @@ -1,3 +1,9 @@ +2001-08-24 Keith Seitz + + * src/tkTable.tcl: Use "string compare" instead of "string + equal". The latter is only available in newer versions of + tcl. + 2001-08-12 Mo DeJong * src/tkCanvEdge.c: Work around Windows gcc problem diff --git a/libgui/src/tkTable.tcl b/libgui/src/tkTable.tcl index 40833110fd..14ec7e6d51 100644 --- a/libgui/src/tkTable.tcl +++ b/libgui/src/tkTable.tcl @@ -189,7 +189,7 @@ if {[string match "macintosh" $tcl_platform(platform)]} { # Results: # Returns the selection, or an error if none could be found # -if {[string equal $tcl_platform(platform) "unix"]} { +if {[string compare $tcl_platform(platform) "unix"] == 0} { proc ::tk::table::GetSelection {w {sel PRIMARY}} { if {[catch {selection get -displayof $w -selection $sel \ -type UTF8_STRING} txt] \ -- 2.11.0