Select Code to Download

# http://poe.perl.org/?POE_Cookbook/Tk_Interfaces
#
...
sub ui_clear {
    $_[HEAP]->{counter} = 0;
}

perlapp --add "POE::Wheel" --add "POE::Loop::Tk" --add "POE::Loop::Sel
+ect" --add "POE::Resource::Aliases" --add "POE::Resource::Events" --a
+dd "POE::Resource::Extrefs" --add "POE::Resource::FileHandles" --add 
+"POE::Resource::SIDs" --add "POE::Resource::Sessions" --add "POE::Res
+ource::Signals" --add "POE::Resource::Statistics" --add "POE::Session
+" --add "POE::Driver::SysRW" --add "POE::Filter::Line" --verbose --cl
+ean --force --lib lib --exe tst121.exe tst121.pl

# WHY DO I HAVE TO DO THIS????
 my $top = $poe_main_window || MainWindow->new();