#
# is_a_positive_integer
#
# Validate Numbers
#
# Arguments: $Number
#
# Returns: $Number or undef on Failure
#
sub is_a_positive_integer ($)
{
   my $Number = shift;

   if(!Data::Validate::is_integer($Number))
      {
      return undef;
      }
   elsif(!Data::Validate::is_greater_than($Number, 0))
      {
      return undef;
      }
   else
      {
      return $Number;
      }
}

#
# Validate_Number
#
# Tk validateCommand Callback
#
# Arguments: $NewValue, $CharChange, $CurrentValue, $Index, $ActionType
#
# Returns: 0 on Failure to Validate 1 Otherwise
#
sub Validate_Number ($$$$$)
{
   my $NewValue     = shift;
   my $CharChange   = shift;
   my $CurrentValue = shift;
   my $Index        = shift;
   my $ActionType   = shift;

   if(defined(is_a_positive_integer($NewValue)))
      {
      return(1);
      }
   else
      {
      return(0);
      }
}