[Perl:TK] le widget notebook et la disposition des onglets [Résolu]

[xodus_fr]

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.

[djibril]

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.

[xodus_fr]

Envoyé par djibril

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.

[djibril]

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

[djibril]

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.

[xodus_fr]

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();