jesus guys, ur all thicko or what? :P
[pre]
mkd = TCL ..\scripts\mkdir.itcl
Code:
set banned {
"\?"
"\*"
"\'"
" "
}
foreach ban $banned {
if {[string match *$ban* [lindex $args 1]} {
regsub -all -- [subst -nocommands {$ban}] [lindex $args 1] {_} narg
set args "MKD $narg"
}
}
return 0