Select Code to Download

    our $dis = $mw->Entry( -width => '30' )->pack;    # Changed width 
+from 10 to 30

    sub CLxsub
    {
...
    $res='s';
    }

   sub CLxsub {
       $x = 0;
...
       $res = 's';
   }

       my $STO = $mw->Button(
                          -text => 'STO',
...
                          -background => 'black'
                          )->pack;
               $STO->place(-x=>100 + $xxx,-y=>'170');

sub button($$$$$;$$$$) {
            my ($parent, $text, $pcmd, $x, $y, $fg, $bg, $width, $heig
+ht) = @_;
...
            $b->place(-x => $x, -y => $y);
            return $b;
          }

          button($mw, 'Enter', [\&entersub],    197,      155);
          button($mw, '+',     [\&somasub],     353,      170);
...
          button($mw, 'f',     0,               $xxx+33,  170,  0, 'dg
+');
          button($mw, 'OFF',   sub{exit},       $xxx,     170);