public inbox for insight@sourceware.org
 help / color / mirror / Atom feed
From: Keith Seitz <keiths@cygnus.com>
To: Insight Maling List <insight@sources.redhat.com>
Subject: [PATCH/libgui] tkTable.tcl "string equal"
Date: Fri, 24 Aug 2001 08:32:00 -0000	[thread overview]
Message-ID: <Pine.GSO.4.33.0108240830300.6607-100000@makita.cygnus.com> (raw)

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] \

                 reply	other threads:[~2001-08-24  8:32 UTC|newest]

Thread overview: [no followups] expand[flat|nested]  mbox.gz  Atom feed

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=Pine.GSO.4.33.0108240830300.6607-100000@makita.cygnus.com \
    --to=keiths@cygnus.com \
    --cc=insight@sources.redhat.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
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).