#!/usr/bin/perl --
use strict;
use warnings;
use Wx;
use Wx::Demo;
my $app = Wx::SimpleApp->new;
my $demo = Wx::Demo->new;
$demo->show_module( 'Wx::DemoModules::wxRichTextCtrl');
$demo->show_demo_window;
$app->MainLoop;
exit( 0 );
####
$ perl -MWx -le"print for Wx::Window->new->ClientToScreen( 0,0 )"
0
0
$ perl -MWx -le"print for Wx::Window->new->ClientToScreen( [0,0] )"
Wx::Point=SCALAR(0x98a3c4)
$ 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 )"
0
0
$ perl -MWx -le"print for Wx::Window->new->ClientToScreenPoint( [0,0] )"
Wx::Point=SCALAR(0x3e8b64)
$ perl -MWx -le"print for Wx::Window->new->ClientToScreenPoint( Wx::Point->new( 0,0 ) )"
Wx::Point=SCALAR(0x9cf5c4)