Onglets et sous onglets Perl/Tk

Version imprimable

06/09/2010, 16h56
r9air

Onglets et sous onglets Perl/Tk

Salut à tous,
je debute en Perl/Tk et j'en suis à ma 1ère interface graphique.
Mon interface comporte 2 onglets qui ont 2 sous-onglets chacun...et pour éviter que je me retrouve sur un des sous-onglets sans qu'il ne soit actif je voudrais donner la priorité d'affichage au 1er sous-onglets de chaque onglets....comme ça dès que je clique sur un onglets Parents c'est le 1er sous-onglets qui apparait...
Pas trop méchant à 1ère vue mais j'ai essayé raise,focus,focusforce et raised sans succès.
06/09/2010, 18h21
djibril

Il faut utiliser la méthode raise en précisant en argument le nom de cet onglet.

Citation:

raise(pageName)

Raise the page identified by pageName.
06/09/2010, 19h15
r9air

Onglets et sous onglets Perl/tk

Merci djibril, pour la précision d'usage du raise...mais quand je place un raise(pagename) dans la section sub de l'onglet parent j'ai une erreur du genre:
XS_Tk__Callback_Call error:bad window path name "pagename" ....

Je revois mon code spaghetti pour voir exactement où placer cette solution miracle....:-)
06/09/2010, 20h44
djibril

montre nous ton code.

Voici le code pas très lisible mais ...

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
use strict;
#use warnings;
use Tk; # Appel du module Tk
use Tk::NoteBook;
 
 
 
my $mw=MainWindow->new(-title=>"onglets",-background=>"white");
      $mw->geometry("900x700");
      $mw->minsize( 850, 685 );
      my $onglet_1_a;
      my $onglet_1_b;
      #création d'onglet
      my $blocnote = $mw->NoteBook(
	-backpagecolor => 'white',
	-bg=>'darkorange3',
	-inactivebackground=>"white",
	)->pack( qw/-fill both -expand 1/ );
 
      # onglets a et b
	my $ongleta = $blocnote->add("ongleta", -label => "AMBA-a protocol",
	                                                                    -raisecmd=>sub{
                                                                                       $onglet_1_a->raise;
	                                                                    });
	$ongleta->configure( -background => 'white');#donner le background white à l'onglet crée
	my $ongletb = $blocnote->add("ongletb", -label => "AMBA-b protocol",
	                                                                    -raisecmd=>sub{
                                                                                         $onglet_1_b->raise;
											});
	$ongletb->configure( -background => 'white');
 
 
      # onglets a1 et 2 pour a 
      my $blocnote_a = $ongleta->NoteBook(
	-backpagecolor => 'white',
	-bg=>'darkorange3',
	-inactivebackground=>"white",
	)->pack( qw/-fill both -expand 1/ );
      $onglet_1_a = $blocnote_a->add("onglet_1_a", -label => "a1",
                                                                                      -raisecmd=>sub{});
 
      $onglet_1_a->configure( -background => 'white',);
      my $onglet_2_a =$blocnote_a->add("onglet_2_a", -label => "2",
                                                                                      -raisecmd=>sub{});
      $onglet_2_a->configure( -background => 'white',);
 
      # onglets a1 et 2 pour b 
      my $blocnote_b = $ongletb->NoteBook(
	-backpagecolor => 'white',
	-bg=>'darkorange3',
	-inactivebackground=>"white",
	)->pack( qw/-fill both -expand 1/ );
      $onglet_1_b = $blocnote_b->add("onglet_1_b", -label => "a1",
                                                                                      -raisecmd=>sub{});
      $onglet_1_b->configure( -background => 'white',);
      my $onglet_2_b =$blocnote_b->add("onglet_2_b", -label => "2",
                                                                                   -raisecmd=>sub{});;
      $onglet_2_b->configure( -background => 'white',);
MainLoop;

Bien indenté son code est déjà une bonne façon de travailler.
Voici un code fonctionnel.

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
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::NoteBook;
 
my $mw = MainWindow->new( -title => "onglets", -background => "white" );
$mw->geometry("900x700");
$mw->minsize( 850, 685 );
 
#création d'onglet
my $blocnote = $mw->NoteBook(
  -backpagecolor      => 'white',
  -bg                 => 'darkorange3',
  -inactivebackground => "white",
)->pack(qw/-fill both -expand 1/);
 
# onglets APB et AHB
my $ongletapb = $blocnote->add( "ongletapb", -label => "AMBA-APB protocol", );
my $ongletahb = $blocnote->add( "ongletahb", -label => "AMBA-AHB protocol", );
 
# onglets Verilog et VHDL pour APB
my $blocnote_apb = $ongletapb->NoteBook(
  -backpagecolor      => 'white',
  -bg                 => 'darkorange3',
  -inactivebackground => "white",
)->pack(qw/-fill both -expand 1/);
 
my $onglet_vlog_apb = $blocnote_apb->add( "onglet_vlog_apb", -label => "verilog", );
my $onglet_vhdl_apb = $blocnote_apb->add( "onglet_vhdl_apb", -label => "vhdl", );
 
# onglets Verilog et VHDL pour AHB
my $blocnote_ahb = $ongletahb->NoteBook(
  -backpagecolor      => 'white',
  -bg                 => 'darkorange3',
  -inactivebackground => "white",
)->pack(qw/-fill both -expand 1/);
 
my $onglet_vlog_ahb = $blocnote_ahb->add( "onglet_vlog_ahb", -label => "verilog", );
my $onglet_vhdl_ahb = $blocnote_ahb->add( "onglet_vhdl_ahb", -label => "vhdl", );
 
$blocnote->pageconfigure(
  "ongletapb",
  -raisecmd => sub {
    $blocnote_apb->raise("onglet_vlog_apb");
  },
);
 
$blocnote->pageconfigure(
  "ongletahb",
  -raisecmd => sub {
    $blocnote_ahb->raise("onglet_vlog_ahb");
  },
);
$onglet_vlog_apb->configure( -background => 'blue' );
$onglet_vhdl_apb->configure( -background => 'red' );
$onglet_vlog_ahb->configure( -background => 'blue' );
$onglet_vhdl_ahb->configure( -background => 'red' );
 
MainLoop;

Pour apprendre à bien coder en Perl commence par lire les cours et tutoriels : http://perl.developpez.com/cours/

Vraiment djibril, tu merites ton statut de responsable Perl...
Ta solution me semble plus optimisé car pendant tout ce temps, j'étais en train d'interfacer la fonction rechercher à la fonction reflexion:
voici la procedure:
Code:

1 2 3 4 5 6 7 sub fRAISE #pour les curieux traduisez fils RAISE { my ($widget)=@_;#l'onglet parent en question my @me=$widget->pages();#ses fils #print("\n@me"); $widget->raise("$me[0]");#son préféré c'est son premier .... }
c'est celle là que j'applique dans le champ "-raisecmd=>sub{...}
Elle s'applique à un widget Notebook (onglet parent) pour donner les noms des differentes pages de l'onglet(voir tableau @me)...et à partir de là, on donne la priorité au fils qu'on aime le plus...lol! Il faudra declarer tous les onglets à créer bien à l'avance avec my $ongletapb, ....
le mien je l'appelle:

Code:

$ongletapb = $blocnote->add( "ongletapb", -label => "AMBA-APB protocol",-raisecmd=>sub{&fRAISE($blocnote_apb);} );

En ce qui me concerne tout marche à merveille maintenant...
Merci à mon poto Djibril :ccool:pour le declic!

07/09/2010, 08h46
djibril
Pense à baliser ton code sur le forum pour une meilleure lisibilité.
Pense aussi au tag résolu.

NB: Pour ton code suivant :

Code:

$ongletapb = $blocnote->add( "ongletapb", -label => "AMBA-APB protocol",-raisecmd=>sub{&fRAISE($blocnote_apb);} );

Tu pourrais l'écrire ainsi :
Code:

1 2 3 4 5 $ongletapb = $blocnote->add( "ongletapb", -label => "AMBA-APB protocol", -raisecmd => [ \&fRAISE, $blocnote_apb ], );
Voilà !