Help for this page
my $y1 = ($w->{_BE_Style} eq 'MSWin32' ? $a->rooty + $a->height ... : $e->rootx # : $b->rootx #edited );