use strict;
use Tk;

my $mw = MainWindow->new;               # Main window

my $top = $mw->Frame(
             -background => '#239867',
             -borderwidth => 2, 
          )->pack(-fill => 'both');

my $lbltxt = $top->Label(        
                -text => 'Just some text',
                -background => 'white',
             )->pack(-side => 'right', -padx => 10);

my $GoBtn = $top->Button(
               -text => ' Pop It! ',
               -command => \&AddItem
            )->pack(-side => 'left', -padx => 10, -pady => 5);

my $DoneBtn = $top->Button(
                 -text => ' Exit ',
                 -command => \&Cleanup
              )->pack(-side => 'right', -padx => 10, -pady => 5);

$mw->focus;  # Ensure we're talking to the main window

MainLoop;    # Run the program, watching for events

# ----

sub Cleanup {
   $mw->destroy;
}

# ----

sub AddItem {


   my $tp = $mw->Toplevel(
               -title => ' AddItem'
            ); # ->pack(-fill => 'both');

   my $tpfrm = $tp->Frame(                
                  -background => '#22cc00',
               )->pack(-side => 'top', -fill => 'x'); 


   my $tplbl = $tpfrm->Label(
                  -text => 'Working...',
                  -background => 'white',
                  -foreground => 'black'
               )->pack(-side => 'top', -padx => 10);

   my $tpbtn = $tpfrm->Button(              
                  -text => 'Close',
                  -command => [$tp => 'destroy'],
               )->pack(-side => 'top', -padx => 10, -pady => 5);

}