le retour de la transparence

Bonjour,

Je suis interessé par la création de fenêtres visuellement non
rectangulaires, donc à fond transparent. Cette page du wiki traite du
sujet http://wfr.tcl.tk/1291, on y découvre qu'une extension permet
d'élaborer ce type d'effet : shape.

Dans un post de notre regretté ulis, Éric H. répond en donnant notamment
un lien vers une application signée de sa propre main :
http://www.evolane.com/download/devel/clock-20071219.etk
Impressionant ! Étonnant ! on peut vraiment faire ça en Tcl !

Je m'en vais donc regardé le package 'shape' directement disponible sous
eTcl et m'en vais trouver la doc sur Internet. Je crée presque
immédiatement un petit morceau de code (cf. ci-dessous) mais la
transparence, bien qu'au rendez-vous, ne se met pas à jour en bougeant
la fenêtre, que faut-il donc faire...?


package require Tk
package require shape


wm geometry . 100x100

set i /usr/lib/firefox-3.0b5/chrome/icons/default/default32.png
set j [image create photo -file $i]

pack [canvas .c -bd 0 -highlightt 0] -expand 1 -fill both
shape set .c photo $j
shape set .  window .c

..c create image 0 0 -anchor nw -image $j


#####

Merci

david