Newbie GTK3 /Perl

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Newbie GTK3 /Perl

sneakz

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

Publicité

oliwer

La cuistrerie ne passera pas !

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

push

/dev/random

GTK3 [:marc]

Message cité 1 fois

wedgeant

Da penguin inside

push a écrit :

GTK3 [:marc]

Me disais aussi ... [:pingouino]

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

FORUM HardWare.fr

Linux et OS Alternatifs

Codes et scripts

Newbie GTK3 /Perl

Sujets relatifs
[PERL] changer de répertoire dans le shell	Remplacer un texte dans fichier avec sed ou perl
Adresse IP sous réseau, et script perl, shell	script perl et verification de variable
le handle de fichier est il parametrable? (Perl)	[newbie] creer un script simple
mandriva 2006 free, newbie (désolé) cherche aide	[Perl/Mandrake/résolu] problème d'upgrade @INC
tutos openldap pour newbie	Apache2 et PERL : Help me please ;-(
Plus de sujets relatifs à : Newbie GTK3 /Perl

Page générée en 0.031 secondes