Index: panedw.tcl
===================================================================
RCS file: /cvsroot/tcllib/bwidget/panedw.tcl,v
retrieving revision 1.10
diff -r1.10 panedw.tcl
59a60
>     set _panedw($path,configuredone) 0
199c200,203
<     _realize $path [winfo width $path] [winfo height $path]
---
> 
>     if { $_panedw($path,configuredone) } {
> 	_realize $path [winfo width $path] [winfo height $path]
>     }
348a353,355
> 
>     set _panedw($path,configuredone) 1
> 
