my $sz =  $self->GetSize();
    my ($posx,$posy) = $self->ClientToScreen((0,0));
    my $height = $sz->GetHeight();
    my $width = $sz->GetWidth();