diff options
| author | Martin Hunt <hunt@redhat.com> | 2002-01-11 23:28:20 +0000 |
|---|---|---|
| committer | Martin Hunt <hunt@redhat.com> | 2002-01-11 23:28:20 +0000 |
| commit | 13dd1d705044f62bce057d4f4126d82de76c2f9e (patch) | |
| tree | 2b9d2535e9ad6c5383e7d7c98ab95bfe2017990e /gdb/gdbtk | |
| parent | 22902ab6088329048f577f145d6a730ee79f20e7 (diff) | |
| download | gdb-13dd1d705044f62bce057d4f4126d82de76c2f9e.tar.gz | |
2002-01-11 Martin M. Hunt <hunt@redhat.com>
* library/srctextwin.itb: Check for existence of $twin.
Diffstat (limited to 'gdb/gdbtk')
| -rw-r--r-- | gdb/gdbtk/ChangeLog | 2 | ||||
| -rw-r--r-- | gdb/gdbtk/library/srctextwin.itb | 16 |
2 files changed, 10 insertions, 8 deletions
diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index ac15b30c6df..6015d1711c5 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,5 +1,7 @@ 2002-01-11 Martin M. Hunt <hunt@redhat.com> + * library/srctextwin.itb: Check for existence of $twin. + * library/interface.tcl (gdbtk_tcl_exec_file_display): Set pathname in host-independent manner using "file" and gdb_current_directory. diff --git a/gdb/gdbtk/library/srctextwin.itb b/gdb/gdbtk/library/srctextwin.itb index c5571ae69e6..88d94a86738 100644 --- a/gdb/gdbtk/library/srctextwin.itb +++ b/gdb/gdbtk/library/srctextwin.itb @@ -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 } } |