note
atcroft
I tried running it on ActiveState build 618, and got the same results as you-nothing. So I decided to try it from the command line with -w for warnings, and got:<BR><BR>
C:\WINDOWS\Desktop> perl -w tk1.pl<BR>
Useless use of a constant in void context at tk1.pl line 5.<BR>
Use of uninitialized value in concatenation (.) at C:/Perl/site/lib/Tk.pm line 350.<BR>
Use of uninitialized value in concatenation (.) at C:/Perl/site/lib/Tk.pm line 350.<BR><BR>
Line 5 was the line you have as "Mainloop;" -when I changed this to "MainLoop();", it worked for me. Trying "-w" gave only:<BR><BR>
C:\WINDOWS\Desktop> perl -w tk1.pl<BR>
Use of uninitialized value in concatenation (.) at C:/Perl/site/lib/Tk.pm line 350.<BR>
Use of uninitialized value in concatenation (.) at C:/Perl/site/lib/Tk.pm line 350.<BR><BR>
I did get the button you intended, then.<BR>
72276
72276