#TODO: shadow, shadow_color, shadow_offset use strict; use warnings; use lib '../lib'; use SDL; use SDLx::App; use SDLx::Text; my $app = SDLx::App->new( eoq => 1, width => 400, height => 100 ); my $text = SDLx::Text->new; my $size = 1; my $direction = 1; $app->add_move_handler( sub { $size += $direction; $text->size( $size ); if ($direction == 1) { $direction = -1 if $size > 60; } else { $direction = 1 if $size < 2; } }); $app->add_show_handler( sub { $app->draw_rect( [0, 0, $app->w, $app->h], 0x00ffff ); $text->write_to( $app, 'Hello, World!' ); $app->update; }); $app->run;