Log.tcl

[aliasangelius]

Moi son stripcodes je serait partis sur du lindex $text 0

tclcopier

set text [stripcodes bcruag [lindex $text 0]]

Après appeler set text comme dans sa proc je trouve sa pas terrible j'aurais vraiment fait à ma façon comme ceci :

tclcopier

### Tertiary Commands
proc logger:strip {text} {
global logger numversion
if {$logger(strip) == "1"} {
    if {$numversion >= "1061700"} {
      set cmd [lindex $text 1]
      set text [stripcodes bcruag [lindex $text 0]]
    } else {
      regsub -all -- {\002,\003([0-9][0-9]?(,[0-9][0-9]?)?)?,\017,\026,\037} $text "" text
    }
}
return $text
}

Voila moi je préfère lorsque c'est comme ceci.
Pour faire au niveau des binds je ne vois pas trop.