# NOTE: Derived from blib/lib/Newt.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Newt::Scale;

#line 668 "blib/lib/Newt.pm (autosplit into blib/lib/auto/Newt/Scale/Set.al)"
########################### Newt::Scale

sub Newt::Scale::Set {
  my ($self, $amount) = @_;

  Newt::newtScaleSet($self->{co}, $amount || 0);
  $self;
}

# end of Newt::Scale::Set
1;