Tkx grid problem

momo33 has asked for the wisdom of the Perl Monks concerning the following question:

Hello Perlmonks

I want/need to make my Perl/Tk app to accept themes.
Tkx seems the way to go. Yesterday I tried to do the
first conversion, but I was not very successful.
The grid does not behave as expected when placing scrollbars.

My original code:

use Tk;
use Tk::HList;
use Tk::LabFrame;

my $mw = MainWindow->new;

my $gui_period_f = $mw->LabFrame(
    -label       => "report month",
    -labelside   => 'acrosstop',
    -relief      => 'groove',
    -borderwidth => '5'
);
my $b_period = $gui_period_f->Button(
    -text       => "change year",
    -command    => sub { &do_select_period },
    -foreground => 'darkgrey'
);
my $gui_period = $gui_period_f->Scrolled(
    qw/HList
      -background grey
      -scrollbars se
      -height 5
      -width 35/
);

#    $gui_period->bind( '<ButtonRelease-1>' => \&show_period );
$gui_period->configure( -selectmode => 'single' );
$gui_period->configure( -browsecmd  => \&show_period );
$gui_period->configure( -separator  => '+' );

$gui_period_f->grid(
    -row     => 1,
    -column  => 0,
    -rowspan => 2,
    -sticky  => 'nsew'
);
$b_period->grid(
    -row     => 1,
    -column  => 0,
    -rowspan => 1,
    -sticky  => 'nsew'
);
$gui_period->grid(
    -row     => 2,
    -column  => 0,
    -rowspan => 1,
    -sticky  => 'nsew'
);

MainLoop;
[download]

This produces: http://img199.imageshack.us/img199/9596/scrolltest.png
A straight conversion to Tkx looks like this:

use Tkx;
my $mw = Tkx::widget->new(".");

my $gui_period_f = $mw->new_ttk__labelframe(
    -text        => "report period",
    -labelanchor => 'ne',
    -relief      => 'groove',
    -borderwidth => '5'
);

my $b_period = $gui_period_f->new_ttk__button(
    -text    => "change year",
    -command => sub { &do_select_period() },

    #-foreground => $dark
);

my $gui_period = $gui_period_f->new_ttk__treeview(

    #-background => 'grey',
    -height => 5,

    #  -width => 35
);

my $gui_period_sbv = $mw->new_ttk__scrollbar(
    -command => [ $gui_period, "yview" ],
    -orient  => "vertical"
);
my $gui_period_sbh = $mw->new_ttk__scrollbar(
    -command => [ $gui_period, "xview" ],
    -orient  => "horizontal"
);
$gui_period->configure( -yscrollcommand => [ $gui_period_sbv, "set" ] 
+);
$gui_period->configure( -xscrollcommand => [ $gui_period_sbh, "set" ] 
+);

$gui_period_f->g_grid(
    -row        => 1,
    -column     => 0,
    -rowspan    => 3,
    -columnspan => 2,
    -sticky     => 'nwes'
);
$b_period->g_grid(
    -row    => 1,
    -column => 0,
    -sticky => 'nwes'
);
$gui_period->g_grid(
    -row    => 2,
    -column => 0,
    -sticky => 'nwes'
);
$gui_period_sbv->g_grid(
    -row    => 2,
    -column => 1,
    -sticky => 'ns'
);
$gui_period_sbh->g_grid(
    -row    => 3,
    -column => 0,
    -sticky => 'we'
);

Tkx::MainLoop();
[download]

The resulting image: http://img194.imageshack.us/img194/503/scrolltesttkx.png

Can someone tell me how to attach scrollbars with Tkx 'the right way'?

Thank you all

Comment on Tkx grid problem Select or Download Code

Replies are listed 'Best First'.
Re: Tkx grid problem by Anonymous Monk on Jul 04, 2009 at 12:28 UTC
You should be referencing Tcl/Tk #!/usr/bin/perl -- use strict; use warnings; use Tkx; $Tkx::TRACE=64; Tkx::package_require('tile'); use Tkx; my $mw = Tkx::widget->new("."); my $f_report_period = $mw->new_ttk__labelframe( -text => "report period", -labelanchor => 'nw', -relief => 'groove', -borderwidth => '5' ); my $b_change_year = $f_report_period->new_ttk__button( -text => "change year", -command => sub { warn(@_) }, ); my $treeview = $f_report_period->new_ttk__treeview( -height => 5, ); $treeview->insert("", "end", -text => "T $_") for 1 .. 20; my $tree_sbv = $f_report_period->new_ttk__scrollbar( -command => [ $treeview, "yview" ], -orient => "vertical" ); my $tree_sbh = $f_report_period->new_ttk__scrollbar( -command => [ $treeview, "xview" ], -orient => "horizontal" ); $treeview->configure( -yscrollcommand => [ $tree_sbv, "set" ] ); $treeview->configure( -xscrollcommand => [ $tree_sbh, "set" ] ); $f_report_period->g_grid( -row => 1, -column => 0, -rowspan => 2, -sticky => 'nsew' ); $b_change_year->g_grid( -row => 0, -column => 0, -columnspan => 2, -sticky => 'nsew', ); $treeview->g_grid( -row => 1, -column => 0, -rowspan => 1, -sticky => 'nsew' ); $tree_sbv->g_grid( -row => 1, -column => 1, -sticky => 'ns' ); $tree_sbh->g_grid( -row => 2, -column => 0, -sticky => 'we' ); Tkx::MainLoop(); __END__ Tkx-1-0.0s-temp-8: package require tile Tkx-2-0.0s-temp-13: winfo children . Tkx-3-0.0s-temp-13: ttk::labelframe .l -text {report period} -labelanc +hor nw -relief groove -borderwidth 5 Tkx-4-0.0s-temp-23: winfo children .l Tkx-5-0.0s-temp-23: ttk::button .l.b -text {change year} -command perl +::callback Tkx-6-0.0s-temp-25: winfo children .l Tkx-7-0.0s-temp-25: ttk::treeview .l.t -height 5 Tkx-8-0.0s-temp-29: .l.t insert end -text {T 1} Tkx-9-0.0s-temp-29: .l.t insert end -text {T 2} Tkx-10-0.0s-temp-29: .l.t insert end -text {T 3} Tkx-11-0.0s-temp-29: .l.t insert end -text {T 4} Tkx-12-0.0s-temp-29: .l.t insert end -text {T 5} Tkx-13-0.0s-temp-29: .l.t insert end -text {T 6} Tkx-14-0.0s-temp-29: .l.t insert end -text {T 7} Tkx-15-0.0s-temp-29: .l.t insert end -text {T 8} Tkx-16-0.0s-temp-29: .l.t insert end -text {T 9} Tkx-17-0.0s-temp-29: .l.t insert end -text {T 10} Tkx-18-0.0s-temp-29: .l.t insert end -text {T 11} Tkx-19-0.0s-temp-29: .l.t insert end -text {T 12} Tkx-20-0.0s-temp-29: .l.t insert end -text {T 13} Tkx-21-0.0s-temp-29: .l.t insert end -text {T 14} Tkx-22-0.0s-temp-29: .l.t insert end -text {T 15} Tkx-23-0.0s-temp-29: .l.t insert end -text {T 16} Tkx-24-0.0s-temp-29: .l.t insert end -text {T 17} Tkx-25-0.0s-temp-29: .l.t insert end -text {T 18} Tkx-26-0.0s-temp-29: .l.t insert end -text {T 19} Tkx-27-0.0s-temp-29: .l.t insert end -text {T 20} Tkx-28-0.0s-temp-32: winfo children .l Tkx-29-0.0s-temp-32: ttk::scrollbar .l.s -command [list .l.t yview] -o +rient vertical Tkx-30-0.0s-temp-36: winfo children .l Tkx-31-0.0s-temp-36: ttk::scrollbar .l.s2 -command [list .l.t xview] - +orient horizontal Tkx-32-0.0s-temp-40: .l.t configure -yscrollcommand [list .l.s set] Tkx-33-0.0s-temp-41: .l.t configure -xscrollcommand [list .l.s2 set] Tkx-34-0.0s-temp-43: grid .l -row 1 -column 0 -rowspan 2 -sticky nsew Tkx-35-0.0s-temp-50: grid .l.b -row 0 -column 0 -columnspan 2 -sticky +nsew Tkx-36-0.0s-temp-57: grid .l.t -row 1 -column 0 -rowspan 1 -sticky nse +w Tkx-37-0.0s-temp-65: grid .l.s -row 1 -column 1 -sticky ns Tkx-38-0.0s-temp-71: grid .l.s2 -row 2 -column 0 -sticky we [download] http://www.tkdocs.com/tutorial/	[reply] [d/l]
Re^2: Tkx grid problem by momo33 (Beadle) on Jul 06, 2009 at 05:54 UTC
Your advice was the small step. Thank you.	[reply]
Re: Tkx grid problem by Anonymous Monk on Jul 04, 2009 at 11:05 UTC
invalid command name "ttk::labelframe"	[reply]