FAQ Perl/TkConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl 
use strict; 
use warnings; 
  
use Tk; 
  
my $fenetre_principale = MainWindow->new( -title => 'bouton' ); 
$fenetre_principale->Button ( 
    -text => 'Bouton fermeture',  
    -command => sub { exit; }, 
)->pack(); 
  
MainLoop;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl 
use strict; 
use warnings; 
use Tk; 
use Tk::Photo; 
use Tk::JPEG; 
  
my $fenetre = new MainWindow( 
  -title      => 'button image', 
  -background => 'white', 
);     
  
  
my $objet_image = $fenetre->Photo( -file => 'fermer.jpg' ); 
$fenetre->Button ( 
    -image => $objet_image,  
    -command => sub { exit; }, 
)->pack(); 
  
MainLoop;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl 
use strict; 
use warnings; 
use Tk; 
  
my $fenetre_principale = MainWindow->new( -title => '-command' ); 
$fenetre_principale->Button ( 
    -text => 'Bouton fermeture',  
    -command => [\&fermer, 'perléen'], 
)->pack(); 
  
  
MainLoop; 
  
sub fermer { 
  print "Au revoir ",@_; 
  sleep 2; 
  
  exit; 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl 
use strict; 
use warnings; 
  
use Tk; 
use Tk::ColoredButton; 
  
my $mw = MainWindow->new( -background => 'white', -title => 'ColoredButton example' ); 
  
my $colored_button = $mw->ColoredButton( 
  -text    => 'ColoredButton1', 
  -autofit => 1, 
  -font    => '{arial} 12 bold', 
  -command => sub { print "hello\n"; }, 
)->pack(qw/-padx 10 -pady 10 /); 
  
MainLoop;