Select Code to Download

use Tk 800;
use Tk::Dialog;
...
    $status_menu->command(-label => "M~essages",   -command => sub { m
+essages_function(\$frame) });

....

sub event_function
{
...
        
        $view = $$top->Frame(qw/-width 800 -height 400 -background whi
+te/)->pack(-expand => 1, -fill => 'both');
...

sub messages_function
{
...
    }    
  $view = $$top->Frame(qw/-width 400 -height 400 -background white/)->
+pack();
...