my $align       = $fnt -> cascade(-label =>"Juesify",-underline => 0, -tearoff => 0);
   $align -> command(-label =>"Left",-command=>sub

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

                   #$txt->configure(-justify=>'right');
                   $txt->tagConfigure('right', -justify => 'right');
                   print "Right";

           }
   );
   $align -> command(-label =>"Center",-command=>sub

           {

                   #$txt->configure(-justify=>'center');
                   $txt->tagConfigure('center', -justify => 'center');
                   print "Center";

           }
   );