sub OnAbout {
    # Construct the DialogBox
    my $about = $mw->DialogBox(
		   -title=>"About ",
		   -buttons=>["OK"]
		   );

       $about->add('Label',
		-anchor => 'w',
		-justify => 'left',
		-text => qq( xxxxxx very long text xxxxxx)
		)->pack;

    $about->Show();
}