in reply to Perl Tk compound formatting

Something like this perhaps? (using built in bitmaps in lieu of png images)

use strict;
use warnings;
use Tk;

my %w;

$w{mw} = MainWindow->new;

for (qw/ this that a_longer_name X /){
    my $bttn = $w{mw}->Button(
        -text     => "$_ ",
        -font     => 'times 19',
        -justify  => 'right',
        -compound => 'right',
        -bitmap   => 'warning',
       #-image    => $w{mw}->Photo( -file => 'whatever' ),
        -anchor   => 'e',
        -padx     => 4,
    )->pack;
    push @{$w{buttons}}, $bttn;
}

$w{mw}->update;

{
    my $width = 0;
    for (@{$w{buttons}}) {
        $width = $_->width if $_->width > $width;
    }
    for (@{$w{buttons}}) {
        $_->configure( -width => $width );
    }
}

MainLoop;

[download]

Replies are listed 'Best First'.
Re^2: Perl Tk compound formatting
by CColin (Scribe) on Jun 06, 2013 at 23:09 UTC
    Question: Sorry to bother you again, but how to add a scrollbar to this since the number of buttons may disappear off the page. I see that you have aded a mainwindow and a child window (somehow). I have tried the following code to create a scrollbar, but it only appears in the main window where there are no buttons displayed, rather than the child window: 
    my $scrollbar = $mw->Scrollbar( );
my $lb = $mw->Listbox(-yscrollcommand => ['set' => $scrollbar]);
#Configure the Scrollbar to talk to the Listbox widget
$scrollbar->configure(-command => ['yview' => $lb]);

#Pack the Scrollbar first so that it doesn't disappear when we resize
$scrollbar->pack(-side => 'right', -fill => 'y');
$lb->pack(-side => 'left', -fill => 'both');

    [download]

    How to get this scrollbar to appear alongside the buttons that are listed in the child window?

[reply]
[d/l]
      scrollbars are kind of PITA to setup, which is why there is  $parent->Scrolled( 'widgetname', ... widgetoptions ... )->pack see Tk::Scrolled
[reply]
[d/l]

      You don't want to (can't actually) scroll the main window directly. You need to insert a scrolled Frame or Pane into the toplevel (main window) then pack your widgets inside that.

      use strict;
use warnings;
use Tk;
use Tk::Pane;

my %w;

$w{mw} = MainWindow->new;

$w{mw}->geometry('220x350');

$w{bframe} = $w{mw}->Scrolled(
    'Frame',
    -scrollbars => 'oe'
)->pack(
    -expand => 1,
    -fill   => 'both'
);

for (qw/ this that a_longer_name X cheese verb witty_retort superstiti
+on A..Z whatever/){
    my $bttn = $w{bframe}->Button(
        -text     => "$_",
        -font     => 'times 19',
        -justify  => 'left',
        -compound => 'right',
        -bitmap   => ('error','info','question','warning')[rand 4],
        -anchor   => 'e',
        -padx     => 4,
    )->pack;
    push @{$w{buttons}}, $bttn;
}

$w{mw}->update;

{
    my $width = 0;
    for (@{$w{buttons}}) {
        $width = $_->width if $_->width > $width;
    }
    for (@{$w{buttons}}) {
        $_->configure(-width => $width);
    }
}

MainLoop;

      [download]
[reply]
[d/l]
        Great, works well again. The geometry introduced has squashed the buttons but that reconfigures easily. Thanks.
[reply]

In Section Seekers of Perl Wisdom