Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 7 sur 7
  1. #1
    Invité régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    juillet 2012
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : juillet 2012
    Messages : 10
    Points : 5
    Points
    5

    Par défaut Grid et allignement de widget.

    Bonjour,

    j'aimerai vous demander s'il est possible de bien alligner les widgets contenus dans un grid ou non ?!

    Pour commencer voici le code que j'utilise :

    Code :
    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
    {
     
     $main = new MainWindow( );
     
    my $param_frame = $main->Frame( -relief => 'groove', 
                                                    -borderwidth => 1
                                                  )->pack( -side => 'top',
    						            -fill => 'x' ) ; 
     
    my @param = ('P000001','P002','P03','P00000004','P5') ;
    my $p ;	
     
    for ($p = 0 ; $p < scalar (@param)  ; $p++ )
    {
     
       		$main ->minsize (350,436+($p*20));
     
     
       		my $particular_frame = $param_frame->Frame( -relief => 'groove', 
                                                    -borderwidth => 0
                                                  )->pack( -side => 'top',
    						                               -fill => 'x' ) ;
     
       		my $name_title = $particular_frame ->Label() ;
       		$name_title->configure( -text => "$param[$p]" );
     
    		my $param_title = $particular_frame ->Label() ;
       		$param_title->configure( -text => "Paramétrage" ) ;
     
    		my $priority_title = $particular_frame ->Label() ;
       		$priority_title->configure( -text => " Priorité  " ) ;
     
       		my $param_textbox = $particular_frame ->Entry( -width => 20, 
                                                   -background => 'white' 
                                                 );
    		my $priority_textbox = $particular_frame->Entry( -width => 7, 
                                                   -background => 'white' 
                                                 );
     
    		$param_title->grid ( -column => 1 , - row => 0 ) ;
    		$priority_title ->grid ( -column => 2 , - row => 0 ) ;
    		$param_textbox ->grid ( -column => 1 , - row => 1 ) ;
    		$priority_textbox->grid ( -column => 2 , - row => 1 ) ;
    		$name_title->grid ( -column => 0 , - row => 1 ) ;
     
     
    }
    # Affichage d'un boutton 'Lancement' en bas à gauche
        	$build_button = 
          	$main->Button( -text => "Construire",
                                 -width => 10, 
                       )->place(-x=> 1, -y => 28+($p*74),
    	                        -height => 40,
    			                -width => 115);
     
    		# Bouton RaZ en bas de la fenetre 
        	$RaZ_button =
          	$main->Button(-text => "RaZ",
    	                -width => 10,
    	               )->place(-x=> 115, -y => 28+($p*74),
    	                        -height => 40,
    			                -width => 115);
     
    		# Bouton quitter en bas de la fenetre
       		$quit_button = 
          	$main->Button( -text => " Quitter ",
                         -width => 10,
                         -command => sub { $main->destroy;} 							 
                       )->place(-x=> 230, -y => 28+($p*74),
    	                        -height => 40,
    			                -width => 115) ;
    }
    Un petit screen vaut mieux que des centaines de mots :

    Capture-3.png

    Comme vous pouvez le constater ce n'est pas propre, j'aimerai donc savoir s'il y est possible de d'alligner tout ça et que ce soit moins sensible au nombre de caractères de mes élements contenus dans le tableau.

    Et seconde question mais qui est plus de l'ordre du langage, en mettant la création d'Entry dans une boucle, elles auront toutes le même nom. J'aurai surement un problème pour récuperer les information de l'Entry 2 par exemple.
    J'ai vu en parcourant le forum qu'en déclarant "use no strict " c'était possible mais pas très recommandé. De plus j'utilise "use strict"...

    Dans l'attente de vos réponses, je poursuis mes investigations !

    Cdlt, Xav.

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    16 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 738
    Points : 490 673
    Points
    490 673

    Par défaut

    Bonjour,

    C'est tout à fait possible d'aligner correctement ses widgets à l'aide du gestionnaire d'espaces avec grid au lieu de pack.

    Je vous recommande de consultez la FAQ Perl/Tk à votre disposition contenant des exemples de codes.

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

  3. #3
    Invité régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    juillet 2012
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : juillet 2012
    Messages : 10
    Points : 5
    Points
    5

    Par défaut

    Bonjour,

    Après moult essais j'ai réussi à tout aligner

    Voici le bout de code que j'ai rajouté à mon Grid :

    Code :
    1
    2
    3
    4
     
    $particular_frame->gridColumnconfigure(0, -uniform => 50) ;
    $particular_frame->gridColumnconfigure(1, -uniform => 50) ;
    $particular_frame->gridColumnconfigure(2, -uniform => 2) ;
    Par contre, pour ma seconde question :

    étant donné que je génère mes widgets via une boucle, ils portent tous le même nom, comment je peux faire pour récupérer le contenu des textbox dans une hash ?!

  4. #4
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    16 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 738
    Points : 490 673
    Points
    490 673

    Par défaut

    Lorsque vous créez un widget, vous écrivez le code suivant :
    Code :
    my $mon_widget = $particular_frame->Widget(...) ;
    $mon_widget peut tout à fait être mis dans une table de hachage.

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

  5. #5
    Invité régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    juillet 2012
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : juillet 2012
    Messages : 10
    Points : 5
    Points
    5

    Par défaut

    Bonjour,

    J'ai également réussi à récupérer le contenu de mes textbox, je ne sais pas pourquoi j'ai voulu récupérer la valeur de mes label puisqu' aprés quelques recherches ce n'est pas possible étant donné que c'est moi qui fixe leurs valeur.

    Voici le code que j'ai utilisé pour récupérer la valeur des textbox si ça peut aider quelqu'un :

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
     
    my $parametre = $parametre_textbox->get() ;
    push (@parametre, $parametre) ;
     
    my $priorite = $priorite_textbox->get() ;
    push (@priorite, $priorite) ;
     
    my $t = 0 ;
     
    for ($t = 0 ; $t < scalar (@param) ; $t++ )
    {
     
    $data{$param[$t]}{parametre} = $parametre[$t] ;
    $data{$param[$t]}{priorite} = $priorite[$t] ;
     
    }
    Voilà problème résolu !

  6. #6
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    16 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 738
    Points : 490 673
    Points
    490 673

    Par défaut

    N'oubliez pas le tag

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

  7. #7
    Invité régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    juillet 2012
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : juillet 2012
    Messages : 10
    Points : 5
    Points
    5

    Par défaut

    Désolé, je ne l'avais pas vu avant

    Chose faite !

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •