not to sure what your problem is so
Here is How I get the variables back
sub test{
my $type=$_[0]; #$rb_val
my $number=$_[2]; #$bonobo
my $path1=$_[1]; #$oracleid
(these are string but I use the same process)
Laurent coudeur
Oliver Schaedlich <[EMAIL PROTECTED]>
15/12/2003 12:41
Please respond to Oliver Schaedlich
To: [EMAIL PROTECTED]
cc:
Subject: Re: pass vars to sub via TK/Button
Greetings,
15.12.2003, [EMAIL PROTECTED] wrote:
>$mw->>Button (-text=>"run",
> -command=> sub {test($rb_val,$bonobo,$oracleid)})
> ->place(-x=>320,-y=>>250 ,-width=>75);
thanks for your reply.
I tried to adapt to your example:
$main->Button
( -text => 'Add',
-command => sub { add_item($var1, $var2) }
) -> pack;
but the output &add_item delivers looks more like hash references
than the content of aforementioned variables:
Added Tk::Entry=HASH(0x1c1956c) Tk::Entry=HASH(0x1c1e3a8)
Is it possible to pass simple variables via Entry/Button in the
first place, and if, how?
Best regards,
oliver.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
