[Chicago-talk] concurrent processes w/ Perl Tk

[Richard Reina]

Imran,

Thanks very much for the help.  

---- Chicago.pm chatter <chicago-talk at pm.org> wrote:
>
> try this (it is a better version of the link i suggested earlier):
> 
> use strict;
> use Tk;
> 
> my $animal = getInput();
> print $animal;
> 
> sub getInput {
>   my $input = "";
> 
>   my $mw = MainWindow->new;
>   # Mainwindow: sizex/y, positionx/y
>   $mw->geometry("320x50+100+120");
> 
>   # A label to show what to type in
>   my $label = $mw->Label(
>         -text => 'Your animal:',
>   );
>   $label->place( -x => 5, -y => 10);
> 
>   # This is the text-userinput field
>   my $entry = $mw->Text(
>         # width is in characters, not pixel
>         -width => 20,
>         -height => 1,
>   );
>   $entry->place( -x => 80, -y => 10);
> 
>   my $button = $mw->Button(
>      -text    => 'Submit',
>      -width   => 8,
>      -command => sub { chomp($input = $entry->Contents); destroy $mw; },
>   );
>   $button->place( -x => 230, -y => 10);
> 
>   MainLoop;
>   return $input;
> }
> 
> 
> On Tue, Mar 9, 2010 at 9:20 PM, Richard Reina <richard at rushlogistics.com> wrote:
> > Imran,
> >
> > Thank you very much for you perlTk suggestion.  I've been playing around with it and I like it.  However, I have one big problem. I can't figure out how I can get the the values from buttons returned as a array or scalar. I execute the program and whoof! Where did the values I just selected go? If anyone has sample code of a very simple button that returns value, I would really appreciate it?
> >
> > Thanks
> _______________________________________________
> Chicago-talk mailing list
> Chicago-talk at pm.org
> http://mail.pm.org/mailman/listinfo/chicago-talk
>