Since you seem to be spinning your wheels on the console-based
prompt function, why not make use of the fact that you're in a GUI environment, and make a
Win32::GUI::DialogBox?
Add an entry to your tray, like
$tray->setMenu (
"> &Test" => sub { print "Hello from the Tray\n"; },
"> &Dialog" => \&interact_using_dialog,
">-" => 0,
"> E&xit" => sub { return -1 },
);
then define the
sub interact_using_dialog(), where it creates a new
Win32::GUI::Dialog with the appropriate form entries, and on clicking OK in that Dialog, grab the values from the form and close the Dialog, sending the data on to whatever data structures you are trying to populate.
I would think that would be a faster debug path than continuing to play with trying to get console and GUI to mesh together properly.
edit: fix link to Win32::GUI::DialogBox
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.