fond de page bleu

Version imprimable

fond de page bleu

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
 
my $main = MainWindow->new(
    -background => 'blue',
    -title      => 'Files formatting',
);
$main->minsize( 250, 150 );
 
 
my $tabs = $main -> NoteBook ( -backpagecolor => 'blue') ;
 
my $format_files_tab = $tabs-> add ( "Format files" , -label => "Format files" ) ;
my $merge_files_tab = $tabs-> add ( "Merge files" , -label => "Merge files" ) ;
 
$tabs -> grid();
 
 
 
 
my $InFileLabel = $format_files_tab->Label(
    -text       => "Input file : ",
    -background => 'blue',
    -foreground => 'white',
    -justify    => 'left',
);

J'aimerais que le fond de la fenêtre où apparaissent mes boutons soit bleu, quelle option dois-je changer?

http://img29.imageshack.us/img29/8155/fileformat.png

J'ai essayé sans succès avec

Code:

1
2
3
my $format_files_tab = $tabs-> add ( "Format files" , -label => "Format files", -background => 'blue' ) ;
# et
my $format_files_tab = $tabs-> add ( "Format files" , -label => "Format files", -font => 'blue' ) ;

Tk::NoteBook

Merci,

24/08/2009, 12h24
djibril

Tu enlèves tous les

Code:

-background => 'blue',
24/08/2009, 12h31
Jasmine80

Cela ne fonctionne pas, maintenant tout est gris :(. Je voudrais que tout soit bleu.
24/08/2009, 18h50
Viduc

j'ai pas de réponse mais une question... :D

comment tu fais pour avoir ton menu déroulant (listbox j'imagine) sur une seule ligne?
24/08/2009, 19h04
djibril

Citation:

Envoyé par Viduc

j'ai pas de réponse mais une question... :D

comment tu fais pour avoir ton menu déroulant (listbox j'imagine) sur une seule ligne?

Ce sont des questions à mettre ici afin que je puisse mettre la réponse dans la FAQ Perl/Tk dès que j'ai du temps.
25/08/2009, 01h16
djibril

La question est désormais dans la FAQ Perl/Tk section onglet.

Bonne lecture.
25/08/2009, 08h44
Jasmine80

Citation:

Envoyé par djibril

La question est désormais dans la FAQ Perl/Tk section onglet.

Bonne lecture.

Ca serait bien de rajouter l'explication de l'option -variable => \$var, cela me parait le plus important car quand on crée une liste déroulante, c'est dans le but de récupérer la réponse.

et voici le lien CPAN TK::BrowseEntry
25/08/2009, 12h56
djibril

Citation:

Envoyé par Jasmine80

Ca serait bien de rajouter l'explication de l'option -variable => \$var, cela me parait le plus important car quand on crée une liste déroulante, c'est dans le but de récupérer la réponse.

et voici le lien CPAN TK::BrowseEntry

C'est fait.

Sinon pour la couleur de ton onglet, c'est OK ?
25/08/2009, 12h58
Jasmine80

Citation:

Envoyé par djibril

Sinon pour la couleur de ton onglet, c'est OK ?

Non :cry:.
25/08/2009, 13h00
djibril

qu'est ce qui ne va pas, la FAQ t'aide pas (ici) ?
25/08/2009, 13h25
Jasmine80

Citation:

Envoyé par djibril

qu'est ce qui ne va pas, la FAQ t'aide pas (ici) ?

Code:

$format_files_tab->configure( -background => 'blue',);

Ca fonctionne, merci beaucoup.