Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: converting a command-line program to one with a "pretty" interface

by bl0rf (Pilgrim)
on Dec 07, 2004 at 00:50 UTC ( #412795=note: print w/ replies, xml ) Need Help??


in reply to converting a command-line program to one with a "pretty" interface

Hello!
I don't know much about Tk ( seems to be more than the average programmer though :-), here is a mighty ugly demo program which will get you on the way. Forking should work...although it doesn't on my windows computer...

use Tk; $SIG{ CHLD } = sub{ wait }; my $top = new MainWindow; $top->Label(-text => 'Welcome to My Mail Program')->pack; $top->Button(-text => 'Start', -command => \&myStartRoutine )->pack; $top->Button(-text => 'Stop', -command => sub{ kill($pid); exit; } )->pack; $top->Label(-text => 'Enter server name')->pack; my $servname = $top->Entry(-width => 10); $servname->pack; $top->Button(-text => 'Configure', -command => sub{ print "The server name is: ",$s +ervname->get() ,"\n"} )->pack; MainLoop; sub myStartRoutine { if( !($pid = fork) ) # child has the main loop looping for ever { while( 1 ) { print "program started\n"; sleep( 1 ); } } }
Hope this helps!


Comment on Re: converting a command-line program to one with a "pretty" interface
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2014-07-12 14:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (240 votes), past polls