module Symbiont
  module WebObjects

    class CheckBox < WebObject

      def initialize(web_object)
        @web_object = web_object
      end

      def check
        web_object.set
      end

      def uncheck
        web_object.clear
      end

      def checked?
        web_object.set?
      end

      def self.usable_selectors
        super + [:value]
      end

    end # class: CheckBox
    
    ::Symbiont::WebObjects.class_for_type[:checkbox] = ::Symbiont::WebObjects::CheckBox
    
  end # module: WebObjects
end # module: Symbiont