Icones Tk

Le Sun, 20 Mar 2005 22:04:39 +0100
Spy <toi-et-moi@libertysurf.fr> a écrit:

Comment fait-on pour modifier l'icone Tk qui apparait sur le coin gauche
d'une fenêtre ?
J'aimerais pouvoir mettre ma propre image.
Si c'est possible, y a-t-il une taille particulière et un format ?

Ça dépend un peu de l'OS.
Tout est dans perldoc Tk::Wm.
Attention: la transparence ne fonctionne pas (encore) bien.

--
nicolas //

Le Sun, 20 Mar 2005 22:04:39 +0100
Spy <toi-et-moi@libertysurf.fr> a écrit:

Comment fait-on pour modifier l'icone Tk qui apparait sur le coin gauche
d'une fenêtre ?
J'aimerais pouvoir mettre ma propre image.
Si c'est possible, y a-t-il une taille particulière et un format ?

Ça dépend un peu de l'OS.
Tout est dans perldoc Tk::Wm.
Attention: la transparence ne fonctionne pas (encore) bien.

Qd je rentre le nom du fichier "icône", il me dit que ça n'existe pas....

A l'aide please !!

Merci d'avance

Spy <toi-et-moi@libertysurf.fr> wrote in message news:<42480732$0$28359$636a15ce@news.free.fr>...

Le Sun, 20 Mar 2005 22:04:39 +0100
Spy <toi-et-moi@libertysurf.fr> a écrit:

Comment fait-on pour modifier l'icone Tk qui apparait sur le coin gauche
d'une fenêtre ?
J'aimerais pouvoir mettre ma propre image.
Si c'est possible, y a-t-il une taille particulière et un format ?

Ça dépend un peu de l'OS.
Tout est dans perldoc Tk::Wm.
Attention: la transparence ne fonctionne pas (encore) bien.

Qd je rentre le nom du fichier "icône", il me dit que ça n'existe pas....

A l'aide please !!

Merci d'avance

essaie

use strict;

use Tk;
use Tk::Photo;


$Fenetre = new MainWindow() ;
$Fenetre->withdraw;
(my $w, my $h) = ($Fenetre->screenwidth - 500 ,$Fenetre->screenheight - 300 );
$Fenetre->geometry("${w}x${h}+0+0");
($w,$h) = $Fenetre->maxsize;

$Fenetre -> title ( " Test" ) ;
my $Icone = $Fenetre ->Photo(-file =>"XXX.gif"); # ta photo
$Fenetre->Icon(-image =>$Icone);

....
MainLoop;