Discussion :

[joe11]

J’utilise FreeWrap 6.2 sous Windows 2000. Dans mon code TCL, j’utilise des BWidget, j’ai donc ajouté ces deux lignes dans mon fichier .tcl :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
lappend auto_path /tcl/lib/bwidget1.7 
package require BWidget

J’ai créé un fichier d’index comme cela :

C:\Tcl\lib\bwidget1.7
C:\Tcl\lib\bwidget1.7\arrow.Tcl
C:\Tcl\lib\bwidget1.7\bitmap.Tcl
C:\Tcl\lib\bwidget1.7\button.Tcl
C:\Tcl\lib\bwidget1.7\buttonbox.Tcl
C:\Tcl\lib\bwidget1.7\bwidget.tap
C:\Tcl\lib\bwidget1.7\color.Tcl
C:\Tcl\lib\bwidget1.7\combobox.Tcl
C:\Tcl\lib\bwidget1.7\dialog.Tcl
C:\Tcl\lib\bwidget1.7\dragsite.Tcl
C:\Tcl\lib\bwidget1.7\dropsite.Tcl
C:\Tcl\lib\bwidget1.7\dynhelp.Tcl
C:\Tcl\lib\bwidget1.7\entry.Tcl
C:\Tcl\lib\bwidget1.7\font.Tcl
C:\Tcl\lib\bwidget1.7\images
.....

Et je wrap le fichier avec la commande suivante :
Freewrap myfile.tcl -f myindexfile.txt

Je peux exécuter sans problème l’.exe généré sur le disque dur mais, lorsque je copie cet exe sur un autre disque dur, j’ai le message suivant : "Can't find package BWidget"

Je ne vois pas où est mon erreur. Quelqu’un peut il m’aider ?

Merci par avance.

[HRS]

ouvrez votre .exe avec winzip

verifiez que tous les composants sont présents et que les paths sont identiques
à la "casse" près

[joe11]

Voici le chemin que j’ai spécifié dans mon fichier.tcl:
append auto_path /tcl/lib/bwidget1.7

Lorsque j’ouvre l’exe avec Winzip l’arborescence est la suivante :
• Repertoir [Freewrap] -> monfichier.tcl
• Repertoir [tcl] -> lib -> Bwidget1.7 -> …
->…
• Repertoir [tk] -> …
-> …
• Fichier (_freewrap_init.txt)
• Fichier (freewrap.ico)
• Fichier (freewrap.tcl)
• Fichier (freewrapCmds.tcl)

Il y a donc, peut être, un problème de path, car tcl/lib… ne se trouve pas dans le même arbre que monfichier.tcl. Comment faut faire?

[HRS]

contrairement à une exécution directe où les adresses
relatives des fichiers peuvent suffire,

Freewrap EXIGE les adresses absolues

par conséquent, puisque monfichier.tcl se trouve sous c:\Freewrap

append auto_path /tcl/lib/bwidget1.7

par

append auto_path c:/Freewrap /tcl/lib/bwidget1.7