[TK] sous Mac, Linux BSD ou autres

[perlgenome]

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,"\n\n";

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

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

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

MainLoop();

Genomart

[Paul Gaborit]

À (at) Thu, 4 Nov 2010 07:15:42 -0700 (PDT),

Post by perlgenome
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.

Sur Linux (Ubuntu 10.10, perl 5.10.1, Tk 804.029) :

OS : linux

Bouton Actif
-activeforeground : Black
-activebackground : #ececec

Bouton Normal
-foreground : #a3a3a3
-background : white

Bouton Desactive
-disabledforeground : #a3a3a3
-background : white

[perlgenome]

Post by Paul Gaborit
(at) Thu, 4 Nov 2010 07:15:42 -0700 (PDT),

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.

OS : linux
Bouton Actif
-activeforeground : Black
-activebackground : #ececec
Bouton Normal
-foreground : #a3a3a3
-background : white
Bouton Desactive
-disabledforeground : #a3a3a3
-background : white
--
Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/>
Perl en fran ais - <http://perl.mines-albi.fr/>

Merci Paul,

J'ai pu tester ce programme sur Windows, Linux Suse, Debian, plus
Ubuntu pour toi. Il me reste Mac et peut être d'autres OS si possible.

Djibril

[Xavier]

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

MacOSX 10.6.4, perl 5.10.0, Tk 804.029-19_x86_64 (installé via fink)

OS : darwin

Bouton Actif
-activeforeground : Black
-activebackground : #ececec

Bouton Normal
-foreground : #a3a3a3
-background : #d9d9d9

Bouton Desactive
-disabledforeground : #a3a3a3
-background : #d9d9d9

[perlgenome]

Merci Xavier.

Ayant fait une petite erreur dans mon programme je vous recolle mon
programme a testé chez vous, il y a le font en plus.

Merci beaucoup.

#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Data::Dumper;

my $mw = new MainWindow();

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

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

print "Bouton Normal\n";
my $normal = $mw->Button(
-text => 'normal',
-state => 'normal',
)->pack(qw/-pady 20/);
print "-foreground : ", $normal->cget( -foreground ), "\n";
print "-background : ", $normal->cget( -background ), "\n";
print "-font : ", Dumper $normal->cget( -font ), "\n";
print "\n";

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

MainLoop;

[Xavier]

perlgenome <***@gmail.com> wrote:

OS : darwin

Bouton Actif
-activeforeground : Black
-activebackground : #ececec
-font : $VAR1 = bless( do{\(my $o = 'Helvetica -12 bold')}, 'Tk::Font'
);
$VAR2 = '
';

Bouton Normal
-foreground : Black
-background : #d9d9d9
-font : $VAR1 = bless( do{\(my $o = 'Helvetica -12 bold')}, 'Tk::Font'
);
$VAR2 = '
';

Bouton Desactive
-disabledforeground : #a3a3a3
-background : #d9d9d9
-font : $VAR1 = bless( do{\(my $o = 'Helvetica -12 bold')}, 'Tk::Font'
);
$VAR2 = '
';

Post by perlgenome
Merci beaucoup.

Pas de quoi !

[perlgenome]

Merci à vous 2.
Je constate que l'affichage des boutons sous Linux et Mac donne le
même résultat sous perl Tk. Je vais pouvoir mettre à jour mon module.

[Frantz DORSEMAINE]

Post by perlgenome
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = new MainWindow();
print "OS : ",$^O,"\n\n";
my $active = $mw->Button( -text => 'active' )->pack(qw/-pady 20/);
print "Bouton Actif\n";
print "-activeforeground : ", $active->cget( -activeforeground ),
"\n";
print "-activebackground : ", $active->cget( -activebackground ),
"\n";
print "\n";
print "Bouton Normal\n";
$mw->Button(
-text => 'normal',
-state => 'normal',
)->pack(qw/-pady 20/);
print "-foreground : ", $active->cget( -disabledforeground ), "\n";
print "-background : ", $active->cget( -background ), "\n";
print "\n";
print "Bouton Desactive\n";
my $disabled = $mw->Button(
-text => 'disabled normal',
-state => 'disabled',
)->pack(qw/-pady 20/);
print "-disabledforeground : ", $active->cget( -disabledforeground ),
"\n";
print "-background : ", $active->cget( -background ),
"\n";
print "\n";
MainLoop();

Bonjour, j'ai tester ton script sous MacOsX 10.6.5
Ca marche bien mais j'ai testé les accents remplacent 'active' par
'activé' et là il y a un problème d'affichage. On obtient \x(8e) a la
place du é. Il que j'arrive à résoudre se problème. Si quelqu'un a une idée?
Frantz

[Olivier Miakinen]

[...] il y a un problème d'affichage. On obtient \x(8e) a la
place du é. [...]

Cf. ma réponse à ton autre question.