[perl-win32-gui-users] Disabling Grid

[du4mi]

Hello perl-win32-gui-users,

I am trying to disable Win32::GUI::Grid.

changing -visible and -enable to 0 with subsequent repainting window
dont disable Grid.

please see my script below:

use strict;
use warnings;
use Win32::GUI;
use Win32::GUI::Grid;

my $window = new Win32::GUI::Window(-name=>"Window",-size=>[300,300]);
my $Grid   = $window->AddGrid(-name=>"Grid",
                              -size=>[200,200],
                              -rows=>10,
                              -columns=>10,);
my $button = $window->AddButton(-name=>"But",-pos=>[260,100],-text=>"go");
$window->Show();
Win32::GUI::Dialog();

sub But_Click{
    $Grid->Change(-enable=>0);
    $Grid->Change(-visible=>0);
    $window->{Grid}->Change(-enable=>0);     # ?
    $window->{Grid}->Change(-visible=>0);    # ?
    return 1;
}
-- 
Best regards,
Pavel                            mailto:[EMAIL PROTECTED]