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 61 62 63 64 65 66 67 68 69 70 71 72
| {
$main = new MainWindow( );
my $param_frame = $main->Frame( -relief => 'groove',
-borderwidth => 1
)->pack( -side => 'top',
-fill => 'x' ) ;
my @param = ('P000001','P002','P03','P00000004','P5') ;
my $p ;
for ($p = 0 ; $p < scalar (@param) ; $p++ )
{
$main ->minsize (350,436+($p*20));
my $particular_frame = $param_frame->Frame( -relief => 'groove',
-borderwidth => 0
)->pack( -side => 'top',
-fill => 'x' ) ;
my $name_title = $particular_frame ->Label() ;
$name_title->configure( -text => "$param[$p]" );
my $param_title = $particular_frame ->Label() ;
$param_title->configure( -text => "Paramétrage" ) ;
my $priority_title = $particular_frame ->Label() ;
$priority_title->configure( -text => " Priorité " ) ;
my $param_textbox = $particular_frame ->Entry( -width => 20,
-background => 'white'
);
my $priority_textbox = $particular_frame->Entry( -width => 7,
-background => 'white'
);
$param_title->grid ( -column => 1 , - row => 0 ) ;
$priority_title ->grid ( -column => 2 , - row => 0 ) ;
$param_textbox ->grid ( -column => 1 , - row => 1 ) ;
$priority_textbox->grid ( -column => 2 , - row => 1 ) ;
$name_title->grid ( -column => 0 , - row => 1 ) ;
}
# Affichage d'un boutton 'Lancement' en bas à gauche
$build_button =
$main->Button( -text => "Construire",
-width => 10,
)->place(-x=> 1, -y => 28+($p*74),
-height => 40,
-width => 115);
# Bouton RaZ en bas de la fenetre
$RaZ_button =
$main->Button(-text => "RaZ",
-width => 10,
)->place(-x=> 115, -y => 28+($p*74),
-height => 40,
-width => 115);
# Bouton quitter en bas de la fenetre
$quit_button =
$main->Button( -text => " Quitter ",
-width => 10,
-command => sub { $main->destroy;}
)->place(-x=> 230, -y => 28+($p*74),
-height => 40,
-width => 115) ;
} |
Partager