Hey! This worked perfectly! Thanks!
Tim
----------------------------------------------------------------------------
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281 · Pager 800-545-3704
mailto:[EMAIL PROTECTED]
Pager: mailto:[EMAIL PROTECTED]
----------------------------------------------------------------------------
---------------------
> -----Original Message-----
> From: David Hiltz [SMTP:[EMAIL PROTECTED]]
> Sent: Saturday, February 26, 2000 8:06 AM
> To: [EMAIL PROTECTED]
> Subject: Re: [perl-win32-gui] Last Menu Item Clicked?
>
> > Not exactly what I was looking for. I am building the menu within my
> code
> > and so there is no _Click subroutine for each menu item. Unless I can
> build
> > subroutines within my code as well, but I don't know how to go about
> doing
> > that.
>
> I've done that. Define the code then use eval to set it up:
>
> foreach $item (@somelist) {
> $sub_code=<<end_code;
> sub MySub_${item}_Click {
> \$SomeFlag = "$item";
> ...
> }
> end_code
>
> eval $sub_code;
> }