Artifact 54448ad14e5d62d1d7df107a6512e9aff2e1753d:
- File widgets/text.tcl — part of check-in [5c95dd93e2] at 2013-01-08 23:46:53 on branch trunk — change tk textarea widget to text as it should be (user: stever size: 488)
# TextArea widgets snit::type text { _wtkwidget -usetextvar _wtkoption -cols "" {$JS.cols=$V;} _wtkoption -rows "" {$JS.rows=$V;} _wtkoption -bg "" {$JS.style.background='$V';} _wtkoption -fg "" {$JS.style.color='$V';} method _createjs {} {return "wtk.createText('[$self id]','[$self cget -text]');"} method _textchangejs {txt} {return "[$self jqobj].val('$txt');"} method _event {which args} {if {$which eq "value"} {$self _textchanged -text $args 1}} }