* [PATCH/libgui] tkTable.tcl "string equal"
@ 2001-08-24 8:32 Keith Seitz
0 siblings, 0 replies; only message in thread
From: Keith Seitz @ 2001-08-24 8:32 UTC (permalink / raw)
To: Insight Maling List
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] \
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2001-08-24 8:32 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2001-08-24 8:32 [PATCH/libgui] tkTable.tcl "string equal" Keith Seitz
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).