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',
); |