* src/tkTable.tcl: Use "string compare" instead of "string

	equal". The latter is only available in newer versions of
	tcl.

diff --git a/libgui/ChangeLog b/libgui/ChangeLog
index f55204d..a4cea2c 100644 (file)
--- a/libgui/ChangeLog
+++ b/libgui/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-24  Keith Seitz  <keiths@redhat.com>
+
+       * 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  <mdejong@redhat.com>
 
        * src/tkCanvEdge.c: Work around Windows gcc problem

diff --git a/libgui/src/tkTable.tcl b/libgui/src/tkTable.tcl
index 4083311..14ec7e6 100644 (file)
--- 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] \