Perl GTK2 rendre impossible la fermeture de fenetre
Bonjour,
Je ne sais pas si mon post serai plus approprié dans la partie module et je m'en excuse par avance. Merci donc au modérateur de diriger ce post vers la bonne partie.
J'aimerais, donc, savoir comment rendre impossible la fermeture d'une fenêtre issue du module GTK2 de perl. J'aimerais aussi que cette fenêtre reste au dessus des autres. Tout comme une boite de dialogue sans en être une.
J'ai trouvé l'objet set_modal mais il ne répond pas à mes attente car la fenêtre passe dessous les autres, si je focalise ou démarre sur un autre programme par exemple.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| #
#!/usr/bin/perl -w
use strict ;
use Gtk2 '-init' ;
Création de la fenêtre
my $window = Gtk2::Window->new( 'toplevel' ) ;
$window->signal_connect('delete_event' , sub { Gtk2->main_quit ; } ) ;
$window->set_title( 'Test' ) ;
$window->set_size_request(450, 200);
$window->set_border_width(15);
$window->set_position('center-always');
$window->set_modal(1);
#Fenetre non modifialble FALSE
$window->set_resizable (0);
$window->show() |
Merci de votre aide .....
