[TK] sous Mac, Linux BSD ou autres

Le
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,"";

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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Paul Gaborit
Le #22759141
À (at) Thu, 4 Nov 2010 07:15:42 -0700 (PDT),
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


--
Paul Gaborit - Perl en français -
perlgenome
Le #22759131
On 4 nov, 16:35, Paul Gaborit
(at) Thu, 4 Nov 2010 07:15:42 -0700 (PDT),
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

--
Paul Gaborit - Perl en fran ais -


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
Le #22759431
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


--
XAv
In your pomp and all your glory you're a poorer man than me,
as you lick the boots of death born out of fear.
(Jethro Tull)
perlgenome
Le #22759521
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, "nn";

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

print "Bouton Normaln";
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 Desactiven";
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
Le #22759691
perlgenome
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 = '
';

Merci beaucoup.



Pas de quoi !

--
XAv
In your pomp and all your glory you're a poorer man than me,
as you lick the boots of death born out of fear.
(Jethro Tull)
perlgenome
Le #22759771
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
Le #22857141
Le 04/11/10 15:15, perlgenome a écrit :
#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = new MainWindow();

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

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

print "Bouton Normaln";
$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 Desactiven";
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
Le #22859311
Le 28/11/2010 16:09, Frantz DORSEMAINE a écrit :

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



Cf. ma réponse à ton autre question.

--
Olivier Miakinen
Publicité
Poster une réponse
Anonyme