Artifact be3f96c7375f445cc91fd82ce1af1c30b2616d72:

• File widgets/textarea.tcl — part of check-in [6fac808ec7] at 2012-12-13 23:31:34 on branch trunk — Broke widgets out into separate files and places pieces into subdirectories. Fixes ticket [9ef22504a1]. (user: gerald size: 496)

# TextArea widgets
snit::type textarea {
    _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.createTextarea('[$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}}
}