Re: [perl-win32-gui-users] disabling the check on a checkbox???

[Robert M. <rob...@us...>]

Glenn Linderman wrote:

>>>      -remstyle  => BS_AUTOCHECKBOX,
>>>      -addstyle  => BS_CHECKBOX,
> 
> Is there a better way to do this operation?

There are no 'options' to do this, if that's what you mean.

> Not only does it require 
> BS_ constants, the order matters... the code shown works in the test 
> program, but not in my "real" program which runs the parameters through 
> a hash, which reorders the parameters :(  Causing the checkboxes to 
> actually come out as buttons!

The button's 'type' is the bottom 4 bits of the style (see BS_TYPEMASK).

A Win32::GUI::Checkbox is type BS_AUTOCHECKBOX (=3) and you want 
BS_CHECKBOX (=2).

(3 & ~3) | 2 = 2 (BS_CHECKBOX)
but
(3 | 2) & ~3 = 0 (0 = BS_PUSHBUTTON)


-remstyle => 1 should do what you want:
3 & ~1 = 2

but it'll need a good comment to make it maintainable :-(

As an alternative you might be able to use a button, and add 
BS_CHECKBOX, and then re-bless the resulting object into the checkbox 
class.  Something like this (untested):

my $cb = $mw->AddButton(
	-addstyle => BS_CHECKBOX,
	...
);

bless $cb, "Win32::GUI::Checkbox";

The bless may be unnecessary, depending on which class methods you need 
to be able to call.

Regards,
Rob.