Re: [perl-win32-gui-users] Window doesn't redraw

[Aldo C. <da...@pe...>]

On Mon, April 1, 2013 11:24 am, Soren Hein wrote:
> I'm drawing stuff in a window, then minimizing the window to the bottom
> part of the screen using the Windows underscore symbol.  When my mouse
> hovers over the minimized icon, the content is still there.  When I click
>  on the icon to reopen the window, the content is gone.

that's how it is supposed to work. paint operations in a window are
non-persistent. what you want is a custom "Paint" event. eg. instead of
make_example, add this sub in your program:

sub win_Paint {
    my($dc) = @_;
    # your drawing code from make_example
    $dc->Validate();
}

cheers,
Aldo