#!/usr/bin/perl --
use strict;
use warnings;
use Tk;
use Tk::ProgressBar;

TheAnonymous();
TheAnonymousMonk();

sub TheAnonymous {
    use Tk;
    my $mw = tkinit;
    my $bf = $mw->Frame( -bg => 'pink', -height, 150 )
      ->pack( qw/ -side bottom -fill x / );
    my $tf = $mw->Frame( -bg => 'lightgreen', -height, 150 )
      ->pack( qw/ -side top -fill x / );
    $mw->Label( -text, 'Hit tab space , tab space , tab space , tab sp
+ace' )
      ->pack;
    $tf->Button( -text => 'center', -command => [ \&TheToggle, 2, $bf 
+] )
      ->pack( qw/ -anchor center / );
    $tf->Button( -text => 'left', -command => [ \&TheToggle, 0, $bf ] 
+)
      ->pack( qw/ -side left / );
    $tf->Button( -text => 'right', -command => [ \&TheToggle, 1, $bf ]
+ )
      ->pack( qw/ -side right / );
    $bf->Pane( -bg => 'blue', )->pack( qw/ -side left / );
    $bf->Pane( -bg => 'green', )->pack( qw/ -side right / );
    $bf->Pane( -bg => 'red', )->pack( qw/ -anchor center / );
    $mw->withdraw;
    $mw->geometry( '480x480' );
    $mw->deiconify;
    $mw->focusForce;
    $mw->MainLoop;
} ## end sub TheAnonymous

sub TheAnonymousMonk {
    use Tk;
    my $mw = tkinit;
    my $bf = $mw->Frame( -bg => 'pink', -height, 150 )
      ->pack( qw/ -side bottom -fill x / );
    my $tf = $mw->Frame( -bg => 'lightgreen', -height, 150 )
      ->pack( qw/ -side top -fill x / );
    $mw->Label( -text, 'Hit tab space , tab space , tab space , tab sp
+ace' )
      ->pack;
    $tf->Button( -text => 'center', -command => [ \&TheToggle, 2, $bf 
+] )
      ->pack( qw/ -anchor center / );
    $tf->Button( -text => 'left', -command => [ \&TheToggle, 0, $bf ] 
+)
      ->pack( qw/ -side left / );
    $tf->Button( -text => 'right', -command => [ \&TheToggle, 1, $bf ]
+ )
      ->pack( qw/ -side right / );
    $bf->Pane( -bg => 'blue', )->pack( qw/ -side left -expand 1 -fill 
+both / )
      ->Label( -text, -left )->pack;
    $bf->Pane( -bg => 'green', )
      ->pack( qw/ -side right -expand 1 -fill  both / )->Label( -text,
+ -right )
      ->pack;
    $bf->Pane( -bg => 'red', )
      ->pack( qw/ -anchor center -expand 1 -fill both  / )
      ->Label( -text, -center )->pack;
    $mw->withdraw;
    $mw->geometry( '480x480' );
    $mw->deiconify;
    $mw->focusForce;
    $mw->MainLoop;
} ## end sub TheAnonymousMonk

sub TheToggle {
    my( $kidid, $parent ) = @_;
    my $kid = ( $parent->children )[$kidid];
    if( my %info = eval { $kid->packInfo } ) {
        delete $info{-in};
        $kid->{"\0_packInfo"} = \%info;
        $kid->packForget;
        $parent->packPropagate;
    } else {
        $kid->pack( %{ delete $kid->{"\0_packInfo"} } );
    }
} ## end sub TheToggle
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.