[perl-win32-gui-users] Tabstrip - button property changes event behavior

[Michael Alaly]

In version .665 it seems that when I change my tabstrip to use
the -buttons property the events change.

Here is what I'm doing:

sub ::tsMain_Changing
{
        print "changing";
        print $win->tsMain->SelectedItem();
}

sub ::tsMain_Click
{
        print "clicked";
        print $win->tsMain->SelectedItem();
}

With the buttons property set to 1 this will output the following
when I click on the 2nd tab (index 1):
clicked0 changing0

With the buttons property set to 0:
changing0 clicked1

I know that the docs say to use Change() and Changing() however
it appears in .665 that the Change() even has been replaced with
the Click() event. Change() appears to have no effect. Is there a
reason that the clicked event gets called before changing with
buttons enabled? Is there a way I can change this behavior?

I have tried to use other click events to defeat this
(tsMain_MouseDown etc) and nothing seems to work.

Thanks,
Michael