Select Code to Download

#!/usr/bin/perl --
use strict;
use warnings;
...
$demo->show_demo_window;
$app->MainLoop;
exit( 0 );

$ perl -MWx -le"print for Wx::Window->new->ClientToScreen( 0,0  )"
...
$ perl -MWx -le"print for Wx::Window->new->ClientToScreen( Wx::Point->
+new( 0,0 )  )"
Wx::Point=SCALAR(0xda76e4)

$ perl -MWx -le"print for grep /clienttoscreen/i, keys %Wx::Window::"
ClientToScreenPoint
ClientToScreen
ClientToScreenXY

$ perl -MWx -le"print for Wx::Window->new->ClientToScreenXY( 0,0  )"
...

$ perl -MWx -le"print for Wx::Window->new->ClientToScreenPoint( Wx::Po
+int->new( 0,0 )  )"
Wx::Point=SCALAR(0x9cf5c4)