Themes, continued: package Round3D; @ISA=qw(Prima::Themes::Proxy); sub AUTOLOAD { shift-> {object}-> $method( @_); } sub rect3d { oval3d( @_) } Prima::Button-> create( onPaint => sub { my ( $self, $canvas) = @_; $self-> on_paint( Round3D-> new($canvas)); } );