je trouve se code :
puis :
sa marche pour moi j'ajoute la commande "putnow"
maintenant j'utilise putnow il es plus rapide
Edit Merci d'utiliser les balises TCL pour les codes
tcl
proc putnow {a {options "-normal"}} {
append a "\n"
putdccraw 0 [string length $a] $a
}
puis :
tcl
rename putserv ""
rename putquick ""
rename puthelp ""
proc putserv {text {options "-normal"}} {
putnow $text
}
proc putquick {text {options "-normal"}} {
putnow $text
}
proc puthelp {text {options "-normal"}} {
putnow $text
}
sa marche pour moi j'ajoute la commande "putnow"
maintenant j'utilise putnow il es plus rapide
Edit Merci d'utiliser les balises TCL pour les codes