PERL Beginners - GUI-based menu-ing script for UNIX

Author

GUI-based menu-ing script for UNIX

William Ampeh

2005-08-25, 9:55 pm

Is there any easy to customize GUI-based menu-ing script for UNIX? I
currently have a text-base menu program for gluing my applications, and I
am interested in putting in revising it to a GUI-based (for a change).
Currently I am looking at aumenu, which according to the documentation, was
developed way back.

http://members.aol.com/aumenu/index.html

Thank you.
__________________

William Ampeh (x3939)
Federal Reserve Board

Timothy Johnson

2005-08-25, 9:55 pm

That all depends on how involved you want this project to be. Have you
looked at Tk?

-----Original Message-----
From: William.Ampeh@frb.gov [mailto:William.Ampeh@frb.gov]=20
Sent: Thursday, August 25, 2005 11:24 AM
To: beginners@perl.org
Subject: GUI-based menu-ing script for UNIX

Is there any easy to customize GUI-based menu-ing script for UNIX? I
currently have a text-base menu program for gluing my applications, and
I
am interested in putting in revising it to a GUI-based (for a change).
Currently I am looking at aumenu, which according to the documentation,
was
developed way back.

http://members.aol.com/aumenu/index.html

Timothy Johnson

2005-08-25, 9:55 pm

CORRECTION: Perl/Tk?

-----Original Message-----
From: Timothy Johnson=20
Sent: Thursday, August 25, 2005 11:34 AM
To: William.Ampeh@frb.gov; beginners@perl.org
Subject: RE: GUI-based menu-ing script for UNIX

That all depends on how involved you want this project to be. Have you
looked at Tk?

-----Original Message-----
From: William.Ampeh@frb.gov [mailto:William.Ampeh@frb.gov]=20
Sent: Thursday, August 25, 2005 11:24 AM
To: beginners@perl.org
Subject: GUI-based menu-ing script for UNIX

Is there any easy to customize GUI-based menu-ing script for UNIX? I
currently have a text-base menu program for gluing my applications, and
I
am interested in putting in revising it to a GUI-based (for a change).
Currently I am looking at aumenu, which according to the documentation,
was
developed way back.

http://members.aol.com/aumenu/index.html

--=20
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Zentara

2005-08-26, 6:56 pm

On Thu, 25 Aug 2005 14:23:33 -0400, William.Ampeh@frb.gov (William
Ampeh) wrote:

>Is there any easy to customize GUI-based menu-ing script for UNIX? I
>currently have a text-base menu program for gluing my applications, and I
>am interested in putting in revising it to a GUI-based (for a change).
>Currently I am looking at aumenu, which according to the documentation, was
>developed way back.

Here is a bare minimum program using Tk. Also look at Tk::ExecuteCommand
which has more "bells and whistles".
#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = tkinit;
$mw->geometry("100x200+40+40");

my %buttons;
my %commands = (
DATE => {text => 'Date', com =>'date', color=> 'pink'},
ls => {text => 'ls', com => 'ls -la', color => 'lightblue'}
);

#create the buttons
foreach my $key(keys %commands){
$buttons{$key}{'button'} = $mw->Button(
-text => $commands{$key}{'text'},
-background => $commands{$key}{'color'},
-command => sub{ &launch( $key ) }
)->pack;
}

MainLoop;
########################################
#####
sub launch {
my $key = shift;
my $command = $commands{$key}{'com'};
if(fork==0){ exec "xterm -hold -e $command" }
}
__END__

--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html

Daniel Kasak

2005-08-31, 6:56 pm

William.Ampeh@frb.gov wrote:

>
>
>Is there any easy to customize GUI-based menu-ing script for UNIX? I
>currently have a text-base menu program for gluing my applications, and I
>am interested in putting in revising it to a GUI-based (for a change).
>Currently I am looking at aumenu, which according to the documentation, was
>developed way back.
>
>http://members.aol.com/aumenu/index.html
>
>Thank you.
>
>
Try gtk2-perl:
http://gtk2-perl.sourceforge.net/

It rocks. It *seriously* rocks. You can use Glade to build your GUI too
:) Glade is very nice. Check it out if you haven't already.

--
Daniel Kasak
IT Developer
NUS Consulting Group
Level 5, 77 Pacific Highway
North Sydney, NSW, Australia 2060
T: (+61) 2 9922-7676 / F: (+61) 2 9922 7989
email: dkasak@nusconsulting.com.au
website: http://www.nusconsulting.com.au

Sponsored Links