From: <du...@gm...> - 2004-06-14 21:20:12
|
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:du...@gm... |
From: Alex L. <sim...@ya...> - 2004-06-15 17:20:31
|
Hi, try Grid->Hide; this works for me! al --- du...@gm... wrote: > 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:du...@gm... > > > > ------------------------------------------------------- > This SF.Net email is sponsored by The 2004 JavaOne(SM) Conference > Learn from the experts at JavaOne(SM), Sun's Worldwide Java Developer > Conference, June 28 - July 1 at the Moscone Center in San Francisco, CA > REGISTER AND SAVE! http://java.sun.com/javaone/sf Priority Code NWMGYKND > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > ===== ************************** ***** END OF MESSAGE ***** __________________________________ Do you Yahoo!? Read only the mail you want - Yahoo! Mail SpamGuard. http://promotions.yahoo.com/new_mail |