Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Langage Perl [TK] sous Mac, Linux BSD ou autres

[TK] sous Mac, Linux BSD ou autres

8 réponses
Avatar
perlgenome
Bonjour,

J'aurais besoin que des personnes poss=E9dant un OS MAC ou Linux BSD
puisse m'ex=E9cuter ce code Tk sur son PC ou serveur afin de me donner
le r=E9sultat obtenu. J'en ai besoin pour mettre =E0 jour un module sur le
CPAN.

Merci aux amis perl=E9ens.

NB : D'ailleurs, sur un OS autre que Windows, MAC et BSD m'int=E9resse
=E9galement. Merci

Voici le code en question

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

my $mw =3D new MainWindow();

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

my $active =3D $mw->Button( -text =3D> '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 =3D> 'normal',
-state =3D> '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 =3D $mw->Button(
-text =3D> 'disabled normal',
-state =3D> 'disabled',
)->pack(qw/-pady 20/);
print "-disabledforeground : ", $active->cget( -disabledforeground ),
"\n";
print "-background : ", $active->cget( -background ),
"\n";
print "\n";

MainLoop();

Genomart
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Paul Gaborit
À (at) Thu, 4 Nov 2010 07:15:42 -0700 (PDT),
perlgenome écrivait (wrote):

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 - <http://perso.mines-albi.fr/~gaborit/>
Perl en français - <http://perl.mines-albi.fr/>
Avatar
perlgenome
On 4 nov, 16:35, Paul Gaborit wrote:
(at) Thu, 4 Nov 2010 07:15:42 -0700 (PDT),
perlgenome crivait (wrote):

> 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 - <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
Avatar
xavier
perlgenome wrote:

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)
Avatar
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, "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;
Avatar
xavier
perlgenome 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 = '
';

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)
Avatar
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.
Avatar
Frantz DORSEMAINE
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
Avatar
Olivier Miakinen
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