Select Code to Download

sub change_height {
    my ($widget, $height) = @_;
...
       -font => $myFont,
       -command => sub { change_height($lb, 5); }, 
       )->pack();