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

Version imprimable

18/10/2012, 23h58
xodus_fr

[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.
19/10/2012, 19h03
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.
24/10/2012, 18h02
xodus_fr

DynaTabFrame

Citation:

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.
24/10/2012, 18h10
djibril

C'est vrai que DynaTabFrame permet aussi de faire des onglets.
24/10/2012, 20h48
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.

:merci:

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