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