Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^6: Writing my first PERL/Tk megawidgit

by Anonymous Monk
on Jul 04, 2020 at 22:50 UTC ( #11118920=note: print w/replies, xml ) Need Help??


in reply to Re^5: Writing my first PERL/Tk megawidgit
in thread Writing my first PERL/Tk megawidgit

That version made more sense. If I split the MEGAWIDGET and save it as a *pm file, and call it, it works fine. It returns the key that was chosen. When I stick it in the program I am working on, it fails... It displays the widget and data, but the line below fails to execute.

MainLoop; defined $selection and print "'$selection' was selected\n";

Here you print '$selection' after 'MainLoop;' In the program. all the GUI stuff is in a subroutine called 'create_ui', which is executed after 'MainLoop;'. Will this mess anything up? An idea here? Anyways, I been learning a lot during this adventure -- thanks.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11118920]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (2)
As of 2021-11-28 11:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?