$align -> command(-label =>"Left",-command=>sub
{
     #$txt->configure( -justify =>'left');
     $txt->tagConfigure('left', -justify => 'left');
}   );

$align -> command(-label =>"Right",-command=>sub
{
    #$txt->configure(-justify=>'right');
    $txt->tagConfigure('right', -justify => 'right');
}   );

$align -> command(-label =>"Center",-command=>sub
{
     #$txt->configure(-justify=>'center');
     $txt->tagConfigure('center', -justify => 'center');
}  );