my $Dialog = $mw->DialogBox(
  -title=>"Add Comments",
  -buttons=>["OK","Cancel"]
);
$Dialog->add('Label',
	    -text=>"Comments:"
	    )->pack(-side=>"top",-anchor=>"w");
$Dialog->add('Text',
	     -width=>30,
	     -height=>10
	    )->pack(-side=>"top",-anchor=>"w");