2002-06-14 Martin M. Hunt <hunt@redhat.com>

	* library/panedwindow.tcl (_placePlanes): Make certain things
	are initialized before attempting to move panes.

diff --git a/libgui/ChangeLog b/libgui/ChangeLog
index 21ff648..15453b5 100644 (file)
--- a/libgui/ChangeLog
+++ b/libgui/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-14  Martin M. Hunt  <hunt@redhat.com>
+
+       * library/panedwindow.tcl (_placePlanes): Make certain things 
+       are initialized before attempting to move panes.
+
 2002-06-07  Martin M. Hunt  <hunt@redhat.com>
 
        * src/tkTableTag.c (Table_TagCmd): Don't decrement past

diff --git a/libgui/library/panedwindow.tcl b/libgui/library/panedwindow.tcl
index a86a07d..7e724ed 100644 (file)
--- a/libgui/library/panedwindow.tcl
+++ b/libgui/library/panedwindow.tcl
@@ -830,6 +830,11 @@ body cyg::PanedWindow::_placeSash {i} {
 # ------------------------------------------------------------------
 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]