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 <[EMAIL PROTECTED]> 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 > > > --- "[EMAIL PROTECTED]" <[EMAIL PROTECTED]> 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 > > > > [EMAIL PROTECTED] > > 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: [email protected] > > Cc: [EMAIL PROTECTED] > > > > > > _______________________________________________ > > use-revolution mailing list > > [email protected] > > Please visit this url to subscribe, unsubscribe and > > manage your subscription preferences: > > > http://lists.runrev.com/mailman/listinfo/use-revolution > > > > _______________________________________________ > use-revolution mailing list > [email protected] > Please visit this url to subscribe, unsubscribe and manage your subscription > preferences: > http://lists.runrev.com/mailman/listinfo/use-revolution > _______________________________________________ use-revolution mailing list [email protected] Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-revolution
