[perl-win32-gui-users] MenuItem NEM

[Blair S. <bs...@nu...>]

Hi, 

I was wondering if there is any reason for MenuItem objects to forward the 
main Window class as their first argument to NEM subs and not the MenuItem 
object itself? 

I.e. 

<pre> 

use Win32::GUI;
my $M = new Win32::GUI::Menu();
my $B = $M->AddMenuButton(-text=>'B');
my $I = $B->AddMenuItem(-text=>'I', -onClick=>sub { print ref($_[0])."\n"});
my $W = new GUI::Window(-height=>60,-width=>100,-menu=>$M);
$W->Center();
$W->Show();
Win32::GUI::Dialog; 

</pre> 

Clicking the MenuItem 'I' returns a reference to a "Win32::GUI::Window" but 
not a "Win32::GUI::MenuItem" object. 

If not, how hard would it be to change this? Where is this coded within the 
XS scheme of things? 

Blair