Le Terrier » [old] Calcul Réfléchi

Problème d'insertion de la de la libimg

Error in startup script: couldn't load file "Img1.4/libimg1.2.so": Img1.4/libimg1.2.so: cannot open shared object file: No such file or directory
while executing
"load [file join Img1.4 libimg1.2.so]"
(procedure "loadlib" line 10)
invoked from within
"loadlib $plateforme"
(file "oeuf.tcl" line 55)

En cause la procédure du fichier path.tcl
-----------
unix {
if {[info tclversion] "8.4"} {
load [file join Img1.3 libimg1.2.so]
} else {
load [file join Img1.4 libimg1.2.so]
}
----------

Pour corriger cette erreur il changer ce code
----------
proc loadlib {plateforme} {

switch $plateforme {

unix {
if {[info tclversion]  "8.4"} {

load [file join Img1.3 libimg1.2.so]

} else {

package require Img

}
}

windows {

package require Img

}

}

}
---------------
Je pense même que l'on peut réduire la procédure à ça

proc loadlib {plateforme} {
package require Img
}

Mais je n'ai pas d'autres versions de tcl à tester sous la main. Et encore moins de Windows...