Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 6 sur 6
  1. #1
    Invité de passage
    Inscrit en
    février 2007
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : février 2007
    Messages : 3
    Points : 3
    Points
    3

    Par défaut [Perl:TK] le widget notebook et la disposition des onglets

    Bonjour,
    Je trouve le widget notebook très pratique.
    J'ai écrit un programme dont le nombre d'onglets dépend de la configuration des utilisateurs. Il peut y en avoir beaucoup.
    De base, avec le widget 'notebook', les onglets sont disposés à l'horizontale, de gauche à droite.
    Savez vous s'il est possible d'avoir des onglets placés à la verticale, de haut en bas ?
    Merci beaucoup,
    S.

  2. #2
    Responsable Perl et Outils

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

    Informations forums :
    Inscription : avril 2004
    Messages : 16 576
    Points : 465 307
    Points
    465 307

    Par défaut

    Bonjour,

    Je ne pense pas que cela soit possible. Par contre, tu peux faire un cadre qui de scroll dans lequel tu mets tes onglets.

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

  3. #3
    Invité de passage
    Inscrit en
    février 2007
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : février 2007
    Messages : 3
    Points : 3
    Points
    3

    Par défaut DynaTabFrame

    Citation Envoyé par djibril Voir le message
    Bonjour,

    Je ne pense pas que cela soit possible. Par contre, tu peux faire un cadre qui de scroll dans lequel tu mets tes onglets.
    Bonjour Djibril,

    Merci pour ton aide.

    Je suis tombé sur le widget "DynaTabFrame" qui fait l'affaire me concernant.

    Ça n'est effectivement pas possible avec le widget "notebook"

    A bientôt,
    S.

  4. #4
    Responsable Perl et Outils

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

    Informations forums :
    Inscription : avril 2004
    Messages : 16 576
    Points : 465 307
    Points
    465 307

    Par défaut

    C'est vrai que DynaTabFrame permet aussi de faire des onglets.

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

  5. #5
    Responsable Perl et Outils

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

    Informations forums :
    Inscription : avril 2004
    Messages : 16 576
    Points : 465 307
    Points
    465 307

    Par défaut

    Peux-tu nous montrer un code fonctionnel de ce que tu as fait. Cela peut aider d'autres personnes.
    De plus, n'oublie pas le tag résolu.


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

  6. #6
    Invité de passage
    Inscrit en
    février 2007
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : février 2007
    Messages : 3
    Points : 3
    Points
    3

    Par défaut Code utilisé.

    Bonjour,
    Voici la base de la solution utilisée.
    Merci pour votre aide.
    Cordialement,
    S.

    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
    #! /usr/bin/perl
    use strict;
    use warnings;
    use Tk;
    use Tk::DynaTabFrame;
     
    my $mw = MainWindow->new();
    $mw->geometry('200x200');
     
     
    my $TabbedFrame = $mw->DynaTabFrame
    	(
    	-tabside => 'wn',
    	-textalign => 0
    	)->pack(
    	-side => 'top',
    	-expand => 1,
    	-fill => 'both'
    	);
     
    my $frame = $TabbedFrame->add
    	(
            -caption => 'Tab 1',
            -hidden => 0
          	);
     
    my $button = $frame->ROText()->pack();
     
    my $frame2 = $TabbedFrame->add(
            -caption => 'Tab 2',
            -hidden => 0
          	);
     
    my $button2 = $frame2->Button
    	(
    	-text => 'Button 1 on Tab 2' 
    	)->pack();
     
    MainLoop();

+ 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
  •