|
| Home | Accessibility | Courses | Diary | The Mouth | Forum | Resources | Site Map | About Us | Contact |
how to make permanent button
Posted by xramm (xramm), 4 March 2009
I am new GUIs and tried Perl/tk in HP UX environment, so I created little GUI and there are some buttons to call shell scripts, tcl, perl scripts. it is OK so far, only problem when I click on button the GUI dissapears, not remains to re-use.code clause:
$window->title("UNIX Test World");
$window->configure(-background=>'#D2B48C');
$window->Label(-text => "PNM ServisNET Toolbar", -font=> "Helvetica -14 bold", -
background=> "#D2B48C")->pack;
$window->Button(-text => "IDLE Users for 5 Hours! ", -command => \&action1,)->pack;
---
MainLoop();
sub action1 {
exec "/aydin/idles\n";
}
Posted by KevinAD (KevinAD), 7 March 2009
exec replaces the perl program with whatever program you run. But not knowing what you are doing all I can suggest is look into open() or IPC::Cmd or IPC:
pen2 or IPC:pen3 or maybe Tk (which I have no experience with) has functions/methods builtin that you can use. Posted by admin (Graham Ellis), 7 March 2009
You may also want to run the command in backquotes - so that the result of running it gets returned into a variable which you can then process as you wish.As Kevin says, exec replaces your existing program, so is indeed going to get rid of the GUI!
Posted by xramm (xramm), 9 March 2009
I solved my problem by replacing "exec" with "system". Thanks for your help.This page is a thread posted to the opentalk forum
at www.opentalk.org.uk and
archived here for reference. To jump to the archive index please
follow this link.
Other Forum Posts
Follow us on ...
 |  |  |
PH: 01144 1225 708225 • FAX: 01144 1225 899360 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho