module Symbiont
  module WebObjects

    class TextArea < WebObject
      def initialize(web_object)
        @web_object = web_object
      end

      def value=(value)
        web_object.set value
      end

      def clear
        web_object.wd.clear
      end

      def self.usable_selectors
        super + [:title, :value, :text, :label]
      end

    end # class: TextArea

    ::Symbiont::WebObjects.class_for_tag[:textarea] = ::Symbiont::WebObjects::TextArea

  end # module: WebObjects
end # module: Symbiont