This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
[PATCH/libgui] tkTable.tcl "string equal"
- To: Insight Maling List <insight at sources dot redhat dot com>
- Subject: [PATCH/libgui] tkTable.tcl "string equal"
- From: Keith Seitz <keiths at cygnus dot com>
- Date: Fri, 24 Aug 2001 08:32:09 -0700 (PDT)
Hi,
Given that we're still using Tcl8.0 for a little while, I am changing
tkTable.tcl's use of "string equal" (which does not exist until Tcl8.1) to
"string compare".
Keith
ChangeLog
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.
Patch
Index: src/tkTable.tcl
===================================================================
RCS file: /cvs/src/src/libgui/src/tkTable.tcl,v
retrieving revision 1.2
diff -u -p -r1.2 tkTable.tcl
--- tkTable.tcl 2001/08/13 17:53:52 1.2
+++ tkTable.tcl 2001/08/24 15:30:27
@@ -189,7 +189,7 @@ if {[string match "macintosh" $tcl_platf
# 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] \