#!/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 );
##</code><code>##


$ 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)


##</code><code>##

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

##</code><code>##


$ 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)