$MW->Label(-text=>$cal, -font => "courier 10 bold", -justify=>"left")->grid();