{
my ($app, %args) = @_;
- $app->fill( $args{ bg }, $args{ bg_color } );
- $app->fill( $args{rect}, $args{rect_color} );
- $app->update( $args{bg} );
+ SDL::Video::fill_rect($app, $args{bg}, $args{bg_color} );
+ SDL::Video::fill_rect($app, $args{rect}, $args{rect_color} );
+ SDL::Video::update_rects($app, $args{bg} );
}
</pre>
{
my ($app, %args) = @_;
- $app->fill( $args{old_rect}, $args{bg_color} );
- $app->fill( $args{rect], $args{rect_color} );
- $app->update( $args{old_rect}, $args{rect} );
+ SDL::Video::fill_rect($app, $args{old_rect}, $args{bg_color} );
+ SDL::Video::fill_rect($app, $args{rect}, $args{rect_color} );
+ SDL::Video::update_rects($app, $args{old_rect} );
+ SDL::Video::update_rects($app, $args{rect} );
}
</pre>
<h1 id="AUTHOR">AUTHOR</h1><p><a href="#TOP" class="toplink">Top</a></p>
<div id="AUTHOR_CONTENT">
<p>chromatic, <chromatic@wgz.org></p>
+<p>updated by kthakore, <kthakore@cpan.org></p>
<p>Written for and maintained by the Perl SDL project, <a href="http://sdl.perl.org/">http://sdl.perl.org/</a>.</p>
</div>