This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
[patch] possible panedwindow problem
- From: "Martin M. Hunt" <hunt at redhat dot com>
- To: insight at sources dot redhat dot com
- Date: Wed, 3 Jul 2002 13:34:15 -0700
- Subject: [patch] possible panedwindow problem
- Organization: Red Hat Inc
We had a report of an initialization problem in the panedwindow that we could
not reproduce. However, just to be sure there was no race condition, I have
checked in this patch.
--
Martin Hunt
GDB Engineer
Red Hat, Inc.
2002-07-03 Martin M. Hunt <hunt@redhat.com>
* library/panedwindow.tcl (_placePlanes): Make certain things
are initialized before attempting to move panes.
Index: libgui/library/panedwindow.tcl
===================================================================
RCS file: /cvs/src/src/libgui/library/panedwindow.tcl,v
retrieving revision 1.3
diff -u -u -r1.3 panedwindow.tcl
--- libgui/library/panedwindow.tcl 8 Sep 2001 22:34:46 -0000 1.3
+++ libgui/library/panedwindow.tcl 3 Jul 2002 20:32:18 -0000
@@ -830,6 +830,11 @@
# ------------------------------------------------------------------
body cyg::PanedWindow::_placePanes {{start 0} {end end} {forget 0}} {
#puts "placeplanes $start $end"
+
+ if {!$_initialized} {
+ return
+ }
+
if {$end=="end"} { set end [expr [llength $_activePanes] - 1] }
set _updatePanes [lrange $_activePanes $start $end]