Newbie GTK3 /Perl

Marsh Posté le 30-10-2006 à 08:29:35

J'essaye de créer une petite interface toute simple qui me permettrait de demarrer un service sous /etc/init.d/

J'ai besoin de 4 boutons (start, stop, restart et Quitter) dont l'activation respectivement demarrerait, arrêterait, redémarrerait le service et quitterait la gui.

J'ai essayé de codé cela en gtk2 / perl.

Mais je crois que mon objectif est un peu naïf car je ne parviens pas gérer l'évenement exécute le service.

Code :

#!/usr/bin/perl -w
use strict;
use Gtk2 '-init';
use constant TRUE => 1;
use constant FALSE => 0;
my $window = Gtk2::Window->new;
$window->set_title ('VNC server');
$window->signal_connect (destroy => sub { Gtk2->main_quit; });
$window->set_border_width(3);
my $vbox = Gtk2::VBox->new(FALSE, 6);
$window->add($vbox);
my $frame = Gtk2::Frame->new('Boutons');
$vbox->pack_start($frame, TRUE, TRUE, 0);
$frame->set_border_width(3);
my $hbox = Gtk2::HBox->new(FALSE, 6);
$frame->add($hbox);
$hbox->set_border_width(3);
my $inc_button = Gtk2::Button->new('_Start');
$hbox->pack_start($inc_button, FALSE, FALSE, 0);
my $stop_button = Gtk2::Button->new('_Stop');
$hbox->pack_start($stop_button, FALSE, FALSE, 0);
my $quit_button = Gtk2::Button->new('_Restart');
$hbox->pack_start($quit_button, FALSE, FALSE, 0);
# Ajoute un bouton pour sortir du programme
my $label1 = Gtk2::Button->new('_Quitter');
#$label1->signal_connect( clicked , sub { Gtk2->main_quit ; } ) ;
$vbox->pack_start($label1, FALSE, FALSE, 0);
$label1->signal_connect( clicked => sub {
Gtk2->main_quit;
});
$window->show_all;
Gtk2->main;

Une aide serait la bienvenue.

Merci

Message édité par sneakz le 30-10-2006 à 08:48:13

Reply

Marsh Posté le 30-10-2006 à 08:29:35

Reply

Marsh Posté le 09-11-2006 à 19:26:51

Je ne vois pas ce qui te bloque. Tu as bien réussi à assigné la fonction de fermeture du programme sur le boutton quitter. Il suffit de faire pareil pour les autres.

Code :

my $inc_button = Gtk2::Button->new('_Start');
$inc_button->signal_connect( 'clicked' => \\&sub_start );
$hbox->pack_start($inc_button, FALSE, FALSE, 0);
...
sub sub_start {
system("ta commande avec init bidule" );
}

Message édité par oliwer le 09-11-2006 à 20:05:08

Reply

Marsh Posté le 09-11-2006 à 20:05:39

GTK3 [:marc]

Message cité 1 fois

Reply

Marsh Posté le 10-11-2006 à 09:01:43

push a écrit :

GTK3 [:marc]

Me disais aussi ... [:pingouino]

---------------
Wedge#2487 @HS -#- PW: +∞ -#- Khaz-Modan/Boltiz @WoW

Reply

Newbie GTK3 /Perl

Sujets relatifs:

Leave a Replay