* [patch] fix srctextwin warning
@ 2002-01-11 15:27 Martin M. Hunt
0 siblings, 0 replies; only message in thread
From: Martin M. Hunt @ 2002-01-11 15:27 UTC (permalink / raw)
To: Insight Mailing List
I checked this in as an obvious fix.
--
Martin Hunt
GDB Engineer
Red Hat, Inc.
2002-01-11 Martin M. Hunt <hunt@redhat.com>
* library/srctextwin.itb: Check for existence of $twin.
Index: library/srctextwin.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/srctextwin.itb,v
retrieving revision 1.29
diff -u -p -r1.29 srctextwin.itb
--- srctextwin.itb 2002/01/03 21:13:03 1.29
+++ srctextwin.itb 2002/01/11 23:24:00
@@ -349,19 +349,19 @@ body SrcTextWin::enable {on} {
set status disabled
}
- bind $twin <B1-Motion> $bnd
- bind $twin <Double-1> $bnd
- bind $twin <Triple-1> $bnd
- enable_disable_src_tags $twin $status
+ if {[winfo exists $twin]} {
+ bind $twin <B1-Motion> $bnd
+ bind $twin <Double-1> $bnd
+ bind $twin <Triple-1> $bnd
+ enable_disable_src_tags $twin $status
+ $twin configure -cursor $glyph
+ }
+
if {$bwin != ""} {
bind $bwin <B1-Motion> $bnd
bind $bwin <Double-1> $bnd
bind $bwin <Triple-1> $bnd
enable_disable_src_tags $bwin $status
- }
-
- $twin configure -cursor $glyph
- if {$bwin != ""} {
$bwin configure -cursor $glyph
}
}
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2002-01-11 23:27 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2002-01-11 15:27 [patch] fix srctextwin warning Martin M. Hunt
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).