using PerlTk from runrev - does this work on mac?

[Sarah Reichelt]

I get the same as Josh using OS X 10.5.1 (except that it is using Perl 5.8.8).
Sarah


On Jan 18, 2008 3:22 AM, Joshua Lawrence <jjsonick at yahoo.com> wrote:
> 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
> >
>
> _______________________________________________
> 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
>