Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Re: Re: perl2exe

by dree (Monsignor)
on Jan 30, 2003 at 01:20 UTC ( #231150=note: print w/ replies, xml ) Need Help??


in reply to Re: Re: perl2exe
in thread perl2exe -gui fails

What type of GUI module do you use? There are a lot of GUI packages available in Perl:

Tk
Wx
Gtk
Qt
Prima
Win32::GUI

You can try yourself with the tksample.pl shipped with perl2exe:

perl2exe -gui tksample.pl

At this point you can execute the program and only AFTER you close it the shareware notice appears.


Comment on Re: Re: Re: perl2exe
Re: Re: Re: Re: perl2exe
by Anonymous Monk on Jan 30, 2003 at 01:32 UTC
    yeah, i ran the tksample program and it worked, i dont know what the problem is. I am using Tk.
      Ok, please post your script here! Or at least a significant part.
        ok, here it is:
        #!/usr/bin/perl -w use Tk; sub grab; sub st; my $me = MainWindow->new; $menubar = $me -> Frame() -> pack('-side' => 'top','-fill' => 'x'); $filemenu = $menubar -> Menubutton('-text' =>'file') -> pack('-side' = +> 'left'); $filemenu -> command( -label => 'help', -command => sub{st;} ); $filemenu->separator(); $filemenu->command('-label'=>'exit','-command'=>sub {exit}); $me->Button(-text => 'translate to 1337', -command => sub{grab;} )->pack; $text1 = $me->Text (-font=>'14','-width'=>40, '-height'=> 1 )->pack; $me->Label(-text=> '1337 5p34k' )->pack; $text2 = $me->Text (-font=>'14','-width'=>40, '-height'=> 1 )->pack; MainLoop; sub grab { my $take = $text1->get('1.0','end'); $take =~ s/you/joo/ig; $take =~ s/\b(own)/pwn/ig; $take =~ s/good/leet/ig; $take =~ s/great/leet/ig; $take =~ s/cool/dope/ig; $take =~ s/kill/frag/ig; $take =~ s/hack/hax/ig; $take =~ s/ing/xoring/ig; $take =~ s/stupid/nub/ig; $take =~ s/dumb/nub/ig; $take =~ s/soo+/uber/ig; $take =~ s/very/uber/ig; $take =~ s/beginner/nub/ig; $take =~ s/fear/phear/ig; $take =~ tr/aA/4/; $take =~ tr/oO/0/; $take =~ tr/Ee/3/; $take =~ tr/lL/1/; $take =~ tr/tT/7/; $take =~ tr/sS/5/; $take =~ tr/zZ/2/; $text2->delete('1.0','end'); $text2->insert('1.0',"$take"); } sub st { my $me2=MainWindow->new; $me2->Label(-text=>'Created By: Narmak', -font=>'20')->pack; $me2->Label(-text=>'1337 5p34k Visual Version 1.0', -font=>'20')->pack; }
Re: Re: Re: Re: perl2exe
by Anonymous Monk on Jan 30, 2003 at 01:35 UTC
    yeah i tried th tksample program and it worked, but i try it with my program and it doesnt. i am using Tk.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://231150]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2015-07-04 18:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls