using PerlTk from runrev - does this work on mac?
Sarah Reichelt
sarah.reichelt at gmail.com
Thu Jan 17 19:35:41 EST 2008
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
>
More information about the use-livecode
mailing list