Re: Scrolled frame within a window

On 2012-07-31, at 3:10 PM, Scott Parrill <[email protected]> wrote:
> I have been trying to get a window that has a frame that is scrolled and a
> frame that is not scrolled.  Using the very helpful post archived at
> http://www.nntp.perl.org/group/perl.tcltk/2010/03/msg393.html, I think I
> have gotten very close to what I want.  The problem I still have is that
> the widgets in the frame with the scrollbar do not move when I move the
> scrollbar.  I'm certain I'm missing something simple but I don't see what.
> 
> If anyone can suggest what silly little piece I have missed, I would be
> grateful.  Here is the code I am using:
> 
> use Tkx;
> Tkx::package_require("BWidget");
> 
> $rows = 10;
> $columns = 20;
> 
> $mw = Tkx::widget->new(".");
> $mw->g_grid_columnconfigure(0, -weight => 1);
> $mw->g_grid_rowconfigure(0, -weight => 1);
> 
>  $mwf1 = $mw->new_ttk__frame();
>  $mwf1->g_grid(-column => 0, -row => 0, -sticky => 'ew');
>  $mwf1->g_grid_columnconfigure(0, -weight => 1);
>  $mwf1->g_grid_rowconfigure(0, -weight => 1);
>    $button = $mwf1->new_ttk__button(-text => 'button');
>    $button->g_grid(-column => 0, -row => 0);
> 
>  $mwf2 = $mw->new_ttk__frame();
>  $mwf2->g_grid(-column => 0, -row => 1, -sticky => 'ew');
>  $mwf2->g_grid_columnconfigure(0, -weight => 1);
>  $mwf2->g_grid_rowconfigure(0, -weight => 1);
> 
>    $mwsw = $mwf2->new_ScrolledWindow(-managed => 0);
>      $mwswf1 = $mwsw->new_ScrollableFrame();
>    $mwsw->setwidget($mwswf1);
>    $mwsw->g_grid(-column => 0, -row => 0, -sticky => 'ew');

I believe this g_grid call here isn't what you want.  The setwidget call above will place the widget in the parent with the correct parameters.

>    $mwsw->g_grid_columnconfigure($mwswf1, -weight => 1);
>    $mwsw->g_grid_rowconfigure($mwswf1, -weight => 1);
> 
>  $f = Tkx::widget->new($mwswf1->getframe());
>  $f->g_grid(-column => 0, -row => 0, -sticky => 'ew');
> 
> for $i (0 .. ($rows - 1)) {
>  for $j (0 .. ($columns - 1)) {
>    $cell[$i][$j] = $f->new_ttk__entry(-width => 10);
>    $cell[$i][$j]->g_grid(-column => $j, -row => $i, -padx => 0, -pady =>
> 0, -sticky => 'nsew');
>    $cell[$i][$j]->insert(0, "$i, $j");
>  }
> }
> 
> 
> Tkx::update('idletasks');
> Tkx::wm_geometry($mw, "600x" . Tkx::winfo_reqheight($mw));
> 
> Thanks,
> Scott