Code : Sélectionner tout - Visualiser dans une fenêtre à part
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?






J'ai essayé sans succès avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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,