Handling User Input: Example
- Creating a TixControl widget that accepts % value:
tixControl .c -variable pcnt -value 100% \
-validatecmd Validate -command Cmd
proc Validate {v} {
regsub {%} $v 涛 v
if [catch {set v [expr int($v)]%}] {
set v 100%
}
return $v
}
proc Cmd {v} {puts 土ou have selected $v媒