Re: changement de formes avec shape

Bonjour,

david cobac a écrit :
> Bonjour,
> 
> ....
> proc t {fen icone {xoff 0} {yoff 0}} {
>     shape set $fen.c photo $icone
>     shape set $fen   window $fen.c
>     shape offset $fen $xoff $yoff
> }
> 

Avec un canvas de borderwith et highlightthickness 0, et le toplevel 
bien mis en [wm overrideredirect] (ce qui est bien le cas dans ton 
code), alors tu peux tout simplement appliquer le shape sur le toplevel, 
et ignorer les fenetres enfants. Cette variante de la procedure t, qui 
applique le masque, semble marcher a premiere vue:

proc t {fen icone {xoff 0} {yoff 0}} {
     shape set $fen photo $icone
     shape offset $fen $xoff $yoff
}

Eric