| |||||||||||
| |||||||||||
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:![]() ![]() 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.
|
| ||||||||||
PH: 01144 1225 708225 • FAX: 01144 1225 793803 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho |