[web]

**Slippers** · 24/05/2005, 13h15

Bonjour à tous j'ai utilisé un grid,et j aimerai le vider, donc j ai vu que la methode gridRemove le permettait. Le probleme est que je n arrive pas a la faire fonctionner correctement. Quelqu un pourrait il m aider sur ce coup svp =)

Exemple de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
 
 use strict;
use Tk::BrowseEntry;
use Tk 800;
use Tk::HList;
use Tk::Table ;
 
require Tk::Pane;
require Tk::LabFrame;
my $fenetre=();
my $pointer=();
my $saisie_device=();
my $select_device=();
my $t_infos =();
my @Etiquettes = (
                'Identifiant : ' , 'Nom  Prénom :' , 'Ville : ' , 'Code postal :' , 
                'Téléphone :' , 'Fax :' , 'e-mail :','Identifiant : ' , 'Nom :' , 'Prénom :' , 'Ville : ' , 'Code postal :' , 
                'Téléphone :' , 'Fax :' , 'e-mail :','Téléphone :' , 'Fax :' , 'e-mail :','Identifiant : ' , 'Nom :' , 'Prénom :' , 'Ville : ' , 'Code postal :' , 
                'Téléphone :' , 'Fax :' , 'e-mail :'
              ) ;
 
my @Valeurs = ( ) ;
 
$fenetre = new MainWindow () ;
my $texte_du_message = () ;
my $var=();
$fenetre -> title ( "Création Input" ) ;
$fenetre->geometry("600x510");
my $frame=$fenetre->Frame(-relief => 'raised' ,
                     -borderwidth => 2,
                     -width =>600,
                     -height=>480
                     );
my $f1 = $frame->LabFrame(-label => "Configuration des champs",
                            -labelside => "acrosstop",
                            -width =>580,
                            -height=>440);
my $f2 = $frame->Frame(
                          -relief => 'sunken' ,
                          -borderwidth => 2 ,
                            -width =>520,
                            -height=>320);
 
 
my $nom_label = $f1-> Label ( -text => 'Nom de l\'Input' ) ;
my $device_label = $f1 -> Label ( -text => 'Device' ) ;
 
my $saisie_nom = $f1-> BrowseEntry(
                                        -variable => \$pointer->{UTinput},
                                        -command => sub{});
$saisie_device = $f1 -> BrowseEntry(
                                        -variable => \$select_device,
                                        -command => sub{});
 
$t_infos = $frame-> Scrolled  ( "Frame", ,
                               -borderwidth => 2 ,
                               -width =>498,
                               -scrollbars => 'osoe',
                               -height=>299) ;
 
 
 
 
for (my $i = 0 ; $i <= $#Etiquettes ; $i++ )
{
   $t_infos -> Label (
                       -text => $Etiquettes[$i] ,
                       -anchor => 'w'
                     ) -> grid ( -row => $i , -column => 0 , -sticky => 'w' ) ;
 
   $t_infos -> Entry (
                       -textvariable => \$Valeurs[$i]
                     ) -> grid ( -row => $i , -column => 1 , -sticky => 'e' ) ;
   $t_infos -> Entry (
                       -textvariable => \$Valeurs[$i]
                     ) -> grid ( -row => $i , -column => 2 , -sticky => 'e' ) ;
 
}
 
$t_infos -> gridRemove($t_infos);
 
 
 
 
my $save_button = $f1 -> Button ( -text => 'Sauvegarder' ,
                                      -command => sub{});
my $add_button = $f1 -> Button ( -text => 'Configurer' ,-width =>10,
                                      -command => sub{});
my $suivant_button = $fenetre -> Button ( -text => 'Suivant' ,-width =>10,
                                      -command => sub{});
my $precedent_button = $fenetre -> Button ( -text => 'Précédent' ,-width =>10,
                                      -command => sub{
 
                                        });
 
$frame   ->place( -x => 0, -y => 0 );
$f1      ->place( -x => 4, -y => 4);
$f2      ->place( -x => 40, -y => 90);
$nom_label    ->place( -x => 340, -y => 4);
$device_label ->place( -x => 340, -y => 25);
$saisie_nom    ->place( -x => 425, -y => 4);
$saisie_device ->place( -x => 425, -y => 25);
$t_infos ->place( -x => 42, -y => 92);
$save_button ->place( -x => 500, -y => 405);
$add_button ->place( -x => 420, -y => 405);
$suivant_button ->place( -x => 527, -y => 485);
$precedent_button ->place( -x => 4, -y => 485);
MainLoop ( ) ;

**Slippers** · 24/05/2005, 13h36

J ai beau essaye j arrive pas a utiliser ce truc qd je matte le site il me dit ca :

$slave->gridRemove?($slave, ...)?
Removes each of the $slaves from grid for its master and unmaps their windows. The slaves will no longer be managed by the grid geometry manager. However, the configuration options for that window are remembered, so that if the slave is managed once more by the grid geometry manager, the previous values are retained.

**Slippers** · 24/05/2005, 15h29

J'ai trouve un patch [PATCH]

gridRemove missing in Tk804.027
The patch below enables the gridRemove method in Perl/Tk.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
--- ./Tk/Widget.pm.orig	2004-03-17 17:00:32.000000000 +0100
+++ ./Tk/Widget.pm	2004-08-05 02:15:35.000000000 +0200
@@ -63,7 +63,7 @@ sub False { 0 }
use Tk::Submethods( 'grab' =>  [qw(current status release -global)],
'focus' => [qw(-force -lastfor)],
'pack'  => [qw(configure forget info propagate slaves)],
-                    'grid'  => [qw(bbox columnconfigure configure forget in
fo location propagate rowconfigure size slaves)],
+                    'grid'  => [qw(bbox columnconfigure configure forget in
fo location propagate remove rowconfigure size slaves)],
'form'  => [qw(check configure forget grid info slaves)],
'event' => [qw(add delete generate info)],
'place' => [qw(configure forget info slaves)],
@@ -1151,7 +1151,7 @@ sub grid
{
local $SIG{'__DIE__'} = \&Carp::croak;
my $w = shift;
- if (@_ && $_[0] =~ /^(? :bbox|columnconfigure|configure|forget|i
nfo|locatio
n|propagate|rowconfigure|size|slaves)$/x)
+ if (@_ && $_[0] =~ /^(? :bbox|columnconfigure|configure|forget|i
nfo|locatio
 n|propagate|remove|rowconfigure|size|sla
ves)$/x)
{
my $opt = shift;
Tk::grid($opt,$w,@_);
--- ./t/geomgr.t.orig	2004-08-05 02:25:26.000000000 +0200
+++ ./t/geomgr.t	2004-08-05 02:26:33.000000000 +0200
@@ -4,7 +4,7 @@ BEGIN { $|=1; $^W=1; }
use strict;
use Test;
 
-BEGIN { plan tests => 19 };
+BEGIN { plan tests => 21 };
 
use Tk;
use Tk::Button;
@@ -73,6 +73,18 @@ eval { $mw->geometry('+10+10'); };  # Th
 
$b->destroy;
}
+##
+## gridRemove is missing in Tk804.027 and earlier
+##
+{
+    my $b = $mw->Button();
+    $b->grid;
+    $b->gridRemove;
+    ok(1);
+    $b->grid;
+    $b->grid('remove');
+    ok(1);
+}
1;
__END__

Malheureusement je ne sais pas comment l'utiliser quelqu un de doué pourrais m'aider svp c hyper important. Merci d'avance

**djibril** · 24/05/2005, 16h02

pourquoi ne pas utiliser un autre gestionnaire d'espace,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pack();

**Slippers** · 24/05/2005, 16h06

On c creer une des accensseur avec des pack ? :o et on c raffraichir toute une liste ?

**djibril** · 24/05/2005, 16h13

si je comprends bien, tu voudrais faire un bon reset par exemple qui remet tous les champs de saisie à 0 (du moins vide)?

**Slippers** · 24/05/2005, 16h19

oui c'est cela je veux que ca soit comme a l affichage du debut le frame doit etre vide sans rien clean,...

**djibril** · 24/05/2005, 16h39

tu peux reinitialiser @Valeurs à 0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

@Valeurs = ( ) ;

**Slippers** · 24/05/2005, 16h43

Oui d accord ms tout ce qui se trouve dans le frame va rester.
Je veux que la table soit completement vide que les label et les entry ne soit plus affiche ni meme existant jusqu a ce que je decide de les reafficher peut etre sous une autre forme

Il y a un moyen de faire ca ? Tu vois ou je veux en venir ?

**djibril** · 24/05/2005, 16h48

je comprends plus, je croyais que tu voulais juste remettre les champs à 0 ie
nom: rien
prenom :rien
etc

ne voyant pas trop l'interet, bref, pourquoi detruire le frame, la fenetre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

destroy -> fenetre();

et en creer une autre apres un clik sur un bouton??

**Slippers** · 24/05/2005, 17h02

Ben mon tableau est variable par exemple:
il peut y avoir une liste de de label et pour chaque de c label j associe plusieur entry.

Ms je peux tres bien avoir une configuration de plusieur label et j associe a ca un seul entry.

Donc mon probleme est le suivant si je commence par creer un tableau avec plusieur colonne d entry et qu apres je veux creeer un tableau contenant une seul colonne d entry. La deuxieme colonne d entry reste affichee alors qu elle n a plus lieux d etre. Donc je dois me debrouiler pour que le tableau redevienne basique Donc vide.

Si j utilise un destroy je ferme toute ma fenetre :s non ?

**Slippers** · 24/05/2005, 20h52

Donc le destroy fonctionne ms apres il faut que je relance tout le prog c vraiment pas pratique il y a pas un myen de juste vierer les grid ?

[web]

Web Perl

Discussions similaires

Partager

Partager