[TK] sous Mac, Linux BSD ou autres

Bonjour,

J'aurais besoin que des personnes possédant un OS MAC ou Linux BSD
puisse m'exécuter ce code Tk sur son PC ou serveur afin de me donner
le résultat obtenu. J'en ai besoin pour mettre à jour un module sur le
CPAN.

Merci aux amis perléens.

NB : D'ailleurs, sur un OS autre que Windows, MAC et BSD m'intéresse
également. Merci

Voici le code en question

#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = new MainWindow();

print "OS : ",$^O,"";

my $active = $mw->Button( -text => 'active' )->pack(qw/-pady 20/);
print "Bouton Actif";
print "-activeforeground : ", $active->cget( -activeforeground ),
"";
print "-activebackground : ", $active->cget( -activebackground ),
"";
print "";

print "Bouton Normal";
$mw->Button(
-text => 'normal',
-state => 'normal',
)->pack(qw/-pady 20/);
print "-foreground : ", $active->cget( -disabledforeground ), "";
print "-background : ", $active->cget( -background ), "";
print "";

print "Bouton Desactive";
my $disabled = $mw->Button(
-text => 'disabled normal',
-state => 'disabled',
)->pack(qw/-pady 20/);
print "-disabledforeground : ", $active->cget( -disabledforeground ),
"";
print "-background : ", $active->cget( -background ),
"";
print "";

MainLoop();

Genomart