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
