# 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;