f



Not able to run Tk::ExecuteCommand

i am trying to run simple script

use Tk;
use Tk::ExecuteCommand;

$ec = tkinit()->ExecuteCommand(
     -command    => '',
     -entryWidth => 50,
     -height     => 10,
     -label      => '',
     -text       => 'Execute',
 )->pack;
 $ec->configure(-command => 'perl hello.pl');
 $ec->execute_command;
 $ec->update;

and saved in tk-hello.pl

# hello.pl is another script that i want to call via Tk.

while running perl tk-hello.pl, i am getting following error

bad option "pady": must be -after, -anchor, -before, -expand, -fill, -in, -ipadx
, -ipady, -padx, -pady, or -side at C:/Strawberry/perl/site/lib/Tk/Widget.pm lin
e 1218.
 at C:/Strawberry/perl/site/lib/Tk/Widget.pm line 203.

please help me to solve this issue.

0
archana
9/29/2015 12:21:28 PM
comp.lang.perl.tk 4721 articles. 0 followers. pharrendorf (19) is leader. Post Follow

1 Replies
467 Views

Similar Articles

[PageSpeed] 21

On 9/29/2015 05:21, archana bhardwaj wrote:
> i am trying to run simple script
>
> use Tk;
> use Tk::ExecuteCommand;
>
> $ec = tkinit()->ExecuteCommand(
>       -command    => '',
>       -entryWidth => 50,
>       -height     => 10,
>       -label      => '',
>       -text       => 'Execute',
>   )->pack;
>   $ec->configure(-command => 'perl hello.pl');
>   $ec->execute_command;
>   $ec->update;
>
> and saved in tk-hello.pl
>
> # hello.pl is another script that i want to call via Tk.
>
> while running perl tk-hello.pl, i am getting following error
>
> bad option "pady": must be -after, -anchor, -before, -expand, -fill, -in, -ipadx
> , -ipady, -padx, -pady, or -side at C:/Strawberry/perl/site/lib/Tk/Widget.pm lin
> e 1218.
>   at C:/Strawberry/perl/site/lib/Tk/Widget.pm line 203.
>
> please help me to solve this issue.

Just FYI:
On Windoze 8.1 with AS Perl 5.20.2:
I get a window with the command in the input box and a cancel button to the right
and an output window that says "Command's stdout and stderr" that is empty and
a different error in the terminal window:
    Proc::ProcessTable missing, can't kill sub-children. at C:/Perl/site/lib/Proc/Killfam.pm line 22.
Clicking Cancel, changes the button to Execute, clicking Execute reverts it back.
Also started locking up when playing with it and had to kill perl.
Obviously not very robust.  ;)
0
Bill
9/29/2015 7:01:24 PM
Reply: