RE: [win32-gui] [perl-win32-gui-users] Examples needed.

[Peter Eisengrein]

> By disabled I mean literally the grayed out condition allowing the user to
see (and 
> scroll through) the list but preventing the user from checking/unchecking
any 
> checkboxes.  If I set disabled => 1, in AddListView the control is
definately 
> disabled ... but it doesn't allow the user to scroll through the list.  


This is not quite what you're looking for (greyed out), but it has the same
effect...

use strict;
use Win32::GUI;


our $Window = new Win32::GUI::Window(
        -name   => "Window",
        -left   => 250,
        -top    => 100,
        -width  => 300,
        -height => 300,
        -title  => "Try to disable the checkbox",
);



$Window->AddCheckbox(
        -name => "checkbox",
        -left => 75,
        -top  => 100,
        -width => 100,
        -text => "Don't uncheck this!",
        -check => 1,
);


&checkbox_Click();
$Window->Show();
Win32::GUI::Dialog();


sub checkbox_Click
{
        $Window->checkbox->Checked(1);
        return 0;
}


sub Terminate_Click
{
        exit 0;
}