using PerlTk from runrev - does this work on mac?

[Joshua Lawrence]

Hi Franz,

It looks like OS X has some Perl libraries, but not
PerlTK.  I get this in the lower field when I hit the
button:

"Can't locate Tk.pm in @INC (@INC contains:
/System/Library/Perl/5.8.6/darwin-thread-multi-2level
/System/Library/Perl/5.8.6
/Library/Perl/5.8.6/darwin-thread-multi-2level
/Library/Perl/5.8.6 /Library/Perl
/Network/Library/Perl/5.8.6/darwin-thread-multi-2level
/Network/Library/Perl/5.8.6 /Network/Library/Perl
/System/Library/Perl/Extras/5.8.6/darwin-thread-multi-2level
/System/Library/Perl/Extras/5.8.6 /Library/Perl/5.8.1
.) at -e line 1.
BEGIN failed--compilation aborted at -e line 1."

This is on OS X 10.4.11 (Tiger)

Josh

--- "runrev at animabit.de" <runrev at animabit.de> wrote:

> Hello,
> 
> I have done a little stack which runs a perl script
> embedded as a custom property. This works for me on
> my win pcs and servers with perl installed and on
> the linux. Does this work on a modern mac (= do you
> have PerlTk normally on your macs?).
> If it would work on mac too it would allow to extend
> runrev on any machine with the power of perl
> everytime we need it ...
> 
> you can
> 
> go stack URL "http://animabit.de/runrev/perl.rev" 
> 
> or test it on your own:
> 
> [button]
> on mouseUp 
>   replace cr with empty in field "perl"
>   put field "perl" into auftrag
>   replace quote with ("\" & quote) in auftrag
>   put "perl -e " & quote & auftrag & quote into
> auftrag
>   set the hideConsoleWindows to true
>   --answer auftrag
>   put shell(auftrag) into field "ergebnis"
> end mouseUp
> 
> 
> [text of field "perl"]
> 
> 
>         use strict;        use Tk;        my $main =
> new MainWindow;        $main->Label(-text => "At the
> top (default)  \x{5DB}\x{5DC}\x{5DE}
> \x{fe95}\x{fe95}")->pack;        $main->Label(-text
> => 'At the bottom')->pack(-side => 'bottom');       
> $main->Label(-text => 'The middle remains')->pack;  
>      my $top1 = $main->Toplevel;       
> $top1->Label(-text => 'Left')->pack(-side =>
> 'left');        $top1->Label(-text =>
> 'Right')->pack(-side => 'right');       
> $top1->Label(-text => '?Bottom?')->pack(-side =>
> 'bottom');                my $top2 =
> $main->Toplevel;        my $frame = $top2->Frame;   
>     $frame->pack;        $frame->Label(-text =>
> 'Left2')->pack(-side => 'left');       
> $frame->Label(-text => 'Right2')->pack(-side =>
> 'right');        $top2->Label(-text =>
> 'Bottom2')->pack(-side => 'bottom');       
> MainLoop;
> 
> 
> thank you, Franz
> Mit freundlichen Grüßen
> Franz Böhmisch
> 
> boehmisch at animabit.de
> http://www.animabit.de
> GF Animabit Multimedia Software GmbH
> Am Sonnenhang 22
> D-94136 Thyrnau
> Tel +49 (0)8501-8538
> Fax +49 (0)8501-8537
> 
> To: use-revolution at lists.runrev.com
> Cc: boehmisch at animabit.de
> 
> 
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and
> manage your subscription preferences:
>
http://lists.runrev.com/mailman/listinfo/use-revolution
>