#!/usr/bin/perl -l --
use Wx qw/ :allclasses /;

print Wx::wxPORTRAIT();
print Wx::wxLANDSCAPE();

my $pd = Wx::PrintData->new;
print $pd->GetOrientation;
$pd->SetOrientation( Wx::wxPORTRAIT() );
print $pd->GetOrientation;

$pd->SetOrientation( Wx::wxLANDSCAPE() );
print $pd->GetOrientation;

$pd->SetOrientation( 666 );
print $pd->GetOrientation;
__END__
1
2
1
1
2
666