Select Code to Download

   my($frame_Limit) = $root->Frame (
      -relief  => 'raised',
...
      -validate => 'focusout',
      -validatecommand => \&Validate_Number,
   );

#
# is_a_positive_integer
...
      return(0);
      }
}