Discussion :

[djibril]

Salut,
Je souhaiterais comment faire pour qu'il n'y ait pas de couleur grise sur le contour de mon premier boutton.
Merci

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
#!/usr/bin/perl
use strict;
use Carp;
use warnings;
 
use Tk;
use Tk::StyledButton;
use warnings;
use strict;
 
 
my $mw = MainWindow->new(-title=>"test image", -background=>"black");
 
 
$mw->StyledButton(-command => [ sub {exit;} ],"-background"  => "blue",-text=>"Quitter")->pack();
$mw->Button(-command => [ sub {exit;} ],"-activebackground"=>"red","-width" => 20,"-background"  => "blue",-text=>"Quitter")->pack();
MainLoop();

[djibril]

J'utilise maintenant Tk::ColoredButton