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}}
}