questions pixane

Bonsoir,
deux questions sur pixane :

1/ La bibliothèque seule ne semble pas prévue pour les x86_64 d'ailleurs
le pkgIndex.tcl ne prévoit pas "x86_64-Linux". En essayant de 'loader'
directement le .so, ça ne pardonne pas :
wrong ELF class: ELFCLASS32

Par contre en l'utilisant avec eTcl, pas de problème, pixane est bien
accessible. Y a-t-il donc moyen d'utiliser pixane sans eTcl sous
x86_64-Linux ?

2/ Le code ci-dessous ne fait pas ce que j'attends de lui (on entre dans
l'icône elle rétrécit, on la quitte elle reprend sa taille) ...je dois
faire une bourde mais je vois pas (je triche un peu : c'est pas
forcément une question pixane !) :


package require Tk
package require pixane

proc retailleIcone {src} {
    
    set icone [pixane create]
    pixane load $icone -file $src
    
    ## creation icone en taille ::t
    set nvIcone [pixane create]
    pixane resize $nvIcone $::t $::t
    pixane blank $nvIcone
    pixane scale $nvIcone $icone -width $::t -height $::t
    set i [pixcopy $nvIcone]
    pixane delete $nvIcone

    ## creation icone en taille 3::t/4
    set nvIcone [pixane create]
    set t [expr {3*$::t/4}]
    pixane resize $nvIcone $t $t
    pixane blank $nvIcone
    pixane scale $nvIcone $icone -width $t -height $t
    set j [pixcopy $nvIcone]
    
    pixane delete $nvIcone
    pixane delete $icone

    return [list $i $j]
}

set t 32
set monicone /usr/share/pixmaps/vlc.png

pack [canvas .c -width $t -height $t]

foreach {i1 i2} [retailleIcone $monicone] break
..c create image [expr {$t/2}] [expr {$t/2}] -image $i1 -tags ico
..c bind ico <Enter> ".c itemconfigure ico -image $i2"
..c bind ico <Enter> ".c itemconfigure ico -image $i1"


--
Cordialement
david