From: Peter E. <Pet...@at...> - 2004-12-03 21:08:58
|
I would change it to: $my_but->Enable(); $my_but->Disable(); instead of trying to change the -disabled parameter of the button itself. > -----Original Message----- > From: Vassiliy Truskov [mailto:vas...@sa...] > Sent: Friday, December 03, 2004 3:55 PM > To: per...@li... > Subject: [perl-win32-gui-users] Button disabled ? > > > Hello, everybody. > > I'm having a problem with Button view when i set status as > 'disabled => > 0'. After I change status of button to "disabled => 1', > I'm able to push button, but is still has a gray status > "disabled". It > will be 'viewable' after i change status back to "disabled" > Here is a simple code to reproduce the problem: > > > use Win32::GUI; > > $W = new Win32::GUI::Window( > -title => "Win32::GUI::Button test", > -left => 100, > -top => 100, > -width => 360, > -height => 260, > -name => "Window", > ); > > $i = 0; > $my_but = $W->AddButton( > -name => "Sample", > -left => 5, > -top => 5, > -text => "Click button", > -disabled => 1, > ); > > $check1 = $W->AddCheckbox( > -name => "Check1", > -left => 8, > -top => 50, > -text => "Checkbox 1", > ); > > $W->Show; > > Win32::GUI::Dialog(); > > sub Window_Terminate { > return -1; > } > > > sub Check1_Click { > if($i==0) > { > $my_but->Change(-disabled => 0); > $i = 1; > } else { > $my_but->Change(-disabled => 1); > $i = 0; > } > return 1; > } > > > Any help is appreciated, > > Vassiliy > > > > ------------------------------------------------------- > SF email is sponsored by - The IT Product Guide > Read honest & candid reviews on hundreds of IT Products from > real users. > Discover which products truly live up to the hype. Start reading now. > http://productguide.itmanagersjournal.com/ > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > > __________________________________________________________ > Message transport security by GatewayDefender.com > 3:56:24 PM ET - 12/3/2004 > |
From: Peter E. <Pet...@at...> - 2004-12-03 21:34:57
|
> Any recommendation about Win32::GUI documentation? I red attached with the module, > but it is not covering everything very much. Jeb created a website/project for the documentation. Not sure how complete it is, but I'm sure it's a good place to start: http://jeb.ca/perl/win32-gui-docs/index.pl/home Aldo's original documentation is at http://dada.perl.it/gui_docs/gui.html |
From: Vassiliy T. <vas...@sa...> - 2004-12-03 21:16:51
|
Great! Thanks, Peter. I didn't know about Enable-Disable staff. Any recommendation about Win32::GUI documentation? I red attached with the module, but it is not covering everything very much. Thanks, Vassiliy Peter Eisengrein wrote: > I would change it to: > > $my_but->Enable(); > $my_but->Disable(); > > instead of trying to change the -disabled parameter of the button itself. > > > > > -----Original Message----- > > From: Vassiliy Truskov [mailto:vas...@sa...] > > Sent: Friday, December 03, 2004 3:55 PM > > To: per...@li... > > Subject: [perl-win32-gui-users] Button disabled ? > > > > > > Hello, everybody. > > > > I'm having a problem with Button view when i set status as > > 'disabled => > > 0'. After I change status of button to "disabled => 1', > > I'm able to push button, but is still has a gray status > > "disabled". It > > will be 'viewable' after i change status back to "disabled" > > Here is a simple code to reproduce the problem: > > > > > > use Win32::GUI; > > > > $W = new Win32::GUI::Window( > > -title => "Win32::GUI::Button test", > > -left => 100, > > -top => 100, > > -width => 360, > > -height => 260, > > -name => "Window", > > ); > > > > $i = 0; > > $my_but = $W->AddButton( > > -name => "Sample", > > -left => 5, > > -top => 5, > > -text => "Click button", > > -disabled => 1, > > ); > > > > $check1 = $W->AddCheckbox( > > -name => "Check1", > > -left => 8, > > -top => 50, > > -text => "Checkbox 1", > > ); > > > > $W->Show; > > > > Win32::GUI::Dialog(); > > > > sub Window_Terminate { > > return -1; > > } > > > > > > sub Check1_Click { > > if($i==0) > > { > > $my_but->Change(-disabled => 0); > > $i = 1; > > } else { > > $my_but->Change(-disabled => 1); > > $i = 0; > > } > > return 1; > > } > > > > > > Any help is appreciated, > > > > Vassiliy > > > > > > > > ------------------------------------------------------- > > SF email is sponsored by - The IT Product Guide > > Read honest & candid reviews on hundreds of IT Products from > > real users. > > Discover which products truly live up to the hype. Start reading now. > > http://productguide.itmanagersjournal.com/ > > _______________________________________________ > > Perl-Win32-GUI-Users mailing list > > Per...@li... > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > > > > > > __________________________________________________________ > > Message transport security by GatewayDefender.com > > 3:56:24 PM ET - 12/3/2004 > > > |