couple of Tk questions

[martymart]

Fellow monks,

I'm on windows 2000 using activestate Perl. I have two Tk related questions really:
1. I have a a segment of code:

my $exit=$mw->Button(-text=>'Exit',-underline=>'3',-command=>[$mw=>'de
+stroy']);

This brings up the button with 'Exit' in it as expected, however 'alt-t' doesn't seem to work (clicking on the button does work & so does tabbing to it). Is this to be expected, or is there a change I could make to the Tk::Button module to rectify this? 2. Does any monk know of a way to change the actual 'TK' icon that appears in the top-left corner of a dialog created with Tk. Has anybody done this? I'd be interested to hear how it was done.

Many Thanks
Martymart

[Mr. Muskrat]

1. You still need to bind 'alt-t' to make it work.
2. See How do I change the icon on Toplevel?.