In sub create_fields add
{ my($x,$y) = $paned_win->sash( coord => 0) ; $paned_win->sash( place => 0, $x + 400, $y ); }
That will grow the left pane ; adjust this code as you require.
In reply to Re: Perl Tk Panedwindow Pane Width Sash Position
by Anonymous Monk
in thread Perl Tk Scrolled Width Question
by buzzthebuzzsaw
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |