aurita-gui 0.1.0

data/lib/aurita-gui/form/checkbox_field.rb

@@ -0,0 +1,34 @@
+
+require('aurita-gui/form/options_field')
+
+module Aurita
+module GUI
+
+  class Checkbox_Field < Options_Field
+    def option_elements
+      options = []
+      @option_elements.each { |option| 
+        if option.kind_of? Hash then
+          option.each_pair { |k,v|
+            options << HTML.input(:type => :checkbox, :value => k, :name => @attrib[:name] ) { v }
+          }
+        elsif option.kind_of? Element then
+          option.name = @attrib[:name]
+          option.tag = :input
+          option.type = :checkbox
+          options << option
+        end
+      }
+      options
+    end
+
+    def element
+      HTML.ul(:class => :checkbox_options) { 
+        option_elements().map { |o| HTML.li() { o } } 
+      }
+    end
+
+  end
+  
+end
+end

data/lib/aurita-gui/form/date_field.rb

@@ -0,0 +1,94 @@
+
+require('aurita-gui/form/form_field')
+require('aurita-gui/form/select_field')
+
+module Aurita
+module GUI
+
+  class Date_Field < Form_Field
+    attr_accessor :day, :month, :year, :years, :day_element, :month_element, :year_element, :date_format
+
+    def initialize(params, &block)
+      @date_format   = params[:date_format]
+      @date_format ||= 'mdy'
+      @year_range    = params[:year_range]
+
+      params.delete(:date_format)
+      params.delete(:date)
+      params.delete(:day)
+      params.delete(:month)
+      params.delete(:year)
+      params.delete(:year_range)
+      super(params, &block)
+    end
+
+    def year_element
+      if !@year_element then
+        @year_element = Select_Field.new(:name  => @attrib[:name] + '_year', 
+                                         :class => :year_select, 
+                                         :value => @year, :options => @year_range)
+      end
+      @year_element
+    end
+    def month_element
+      if !@month_element then
+        @month_element = Select_Field.new(:name  => @attrib[:name] + '_month', 
+                                          :class => :month_select, 
+                                          :value => @month, :options => (1..12))
+      end
+      @month_element
+    end
+    def day_element
+      if !@day_element then
+        @day_element = Select_Field.new(:name  => @attrib[:name] + '_day', 
+                                        :class => :day_select, 
+                                        :value => @day, :options => (1..31))
+      end
+      @day_element
+    end
+
+    def element
+      select_fields = []
+      @date_format.scan(/./).each { |c|
+        case c
+        when 'y' then
+          select_fields << year_element() 
+        when 'm' then
+          select_fields << month_element() 
+        when 'd' then
+          select_fields << day_element() 
+        end
+      }
+      HTML.div(@attrib) { 
+        select_fields
+      }
+    end
+
+    def value=(date)
+      case date 
+      when Hash then
+        @value = date
+      when Datetime then
+        @value = { :year  => date.year, 
+                   :month => date.month, 
+                   :day   => date.day }
+      when Date then
+        @value = { :year  => date.year, 
+                   :month => date.month, 
+                   :day   => date.day }
+      when String then
+        date = Datetime.strptime(date)
+        @value = { :year  => date.year, 
+                   :month => date.month, 
+                   :day   => date.day }
+      else
+      end
+    end
+
+    def value
+      { :day => @day, :month => @month, :year => @year }
+    end
+  end
+  
+end
+end

data/lib/aurita-gui/form/datetime_field.rb

@@ -0,0 +1,101 @@
+
+require('aurita-gui/form/date_field')
+require('aurita-gui/form/select_field')
+
+module Aurita
+module GUI
+
+  class Datetime_Field < Date_Field
+    attr_accessor :hour, :minute, :second, :hour_element, :minute_element, :second_element, :time_format
+
+    def initialize(params, &block)
+      @time_format   = params[:time_format]
+      @time_format ||= 'hms'
+
+      params.delete(:time_format)
+      params.delete(:hour)
+      params.delete(:minute)
+      params.delete(:second)
+      super(params, &block)
+    end
+
+    def hour_element
+      if !@hour_element then
+        @hour_element = Select_Field.new(:name  => @attrib[:name] + '_hour', 
+                                         :class => :hour_select, 
+                                         :value => @hour, :options => (0..23))
+      end
+      @hour_element
+    end
+    def minute_element
+      if !@minute_element then
+        @minute_element = Select_Field.new(:name  => @attrib[:name] + '_minute', 
+                                          :class => :minute_select, 
+                                          :value => @minute, :options => (0..59))
+      end
+      @minute_element
+    end
+    def second_element
+      if !@second_element then
+        @second_element = Select_Field.new(:name  => @attrib[:name] + '_second', 
+                                           :class => :second_select, 
+                                           :value => @second, :options => (0..59))
+      end
+      @second_element
+    end
+
+    def element
+      select_fields = []
+      @date_format.scan(/./).each { |c|
+        case c
+        when 'y' then
+          select_fields << year_element() 
+        when 'm' then
+          select_fields << month_element() 
+        when 'd' then
+          select_fields << day_element() 
+        end
+      }
+      @time_format.scan(/./).each { |c|
+        case c
+        when 'h' then
+          select_fields << hour_element() 
+        when 'm' then
+          select_fields << minute_element() 
+        when 's' then
+          select_fields << second_element() 
+        end
+      }
+      HTML.div(@attrib) { 
+        select_fields
+      }
+    end
+
+    def value=(date)
+      case date 
+      when Hash then
+        @value = date
+      when Datetime then
+        @value = { :hour   => date.hour, 
+                   :minute => date.month, 
+                   :second => date.second }
+      when Date then
+        @value = { :hour   => date.hour, 
+                   :minute => date.minute, 
+                   :second => date.second }
+      when String then
+#       date = Datetime.strptime(date)
+#       @value = { :hour   => date.hour, 
+#                  :minute => date.minute, 
+#                  :second => date.second }
+      else
+      end
+    end
+
+    def value
+      super().update(:second => @second, :minute => @minute, :hour => @hour)
+    end
+  end
+  
+end
+end

data/lib/aurita-gui/form/fieldset.rb

@@ -0,0 +1,55 @@
+
+require('aurita-gui/element')
+
+module Aurita
+module GUI
+
+  class Fieldset < Element
+    attr_accessor :legend, :label, :name
+
+    def initialize(params, &block)
+      params[:tag] = :fieldset
+      @name = params[:name]
+      @elements = []
+      if block_given? then
+        yield.each { |field_element|
+          add(field_element)
+        }
+      end
+      legend_element   = params[:legend]
+      legend_element ||= params[:label]
+      set_legend(legend_element)
+      params.delete(:legend)
+      params.delete(:label)
+      params.delete(:name)
+      super(params, &block)
+    end
+    alias legend label
+
+    def legend=(field)
+      if field.kind_of? Aurita::GUI::Element then
+        @legend = field
+      else
+        @legend = HTML.legend { field }
+      end
+    end
+    alias set_legend legend=
+    alias label= legend=
+
+    def add(field_element)
+      @elements << field_element
+    end
+
+    def content
+      if @legend then
+        @content = [ @legend, @elements ]
+      else 
+        @content = @elements
+      end
+      return @content
+    end
+
+  end
+  
+end
+end

data/lib/aurita-gui/form/file_field.rb

@@ -0,0 +1,30 @@
+
+require('aurita-gui/form/form_field')
+
+module Aurita
+module GUI
+
+  # Usage: 
+  #
+  # Like Input_Field, but skipping attribute @value, 
+  # as file input fields do not support default values
+  # (for good reason). 
+  #
+  #   i = File_Field.new(:name => :the_file, 
+  #                      :label => 'Choose file')
+  #
+  class File_Field < Form_Field
+    def initialize(params)
+      params[:tag]  = :input
+      params[:type] = :file unless params[:type]
+      params.delete(:value)
+      super(params)
+    end
+    def element
+      HTML.input(@attrib)
+    end
+  end
+
+  
+end
+end

data/lib/aurita-gui/form/form_error.rb

@@ -0,0 +1,10 @@
+
+module Aurita
+module GUI
+
+  class Form_Error < ::Exception
+  end
+
+end
+end
+

data/lib/aurita-gui/form/form_field.rb

@@ -0,0 +1,93 @@
+
+require('aurita-gui/element')
+require('aurita-gui/html')
+require('aurita-gui/form/form_error')
+
+module Aurita
+module GUI
+
+  # Class Form_Field is an abstract base class for 
+  # built-in form fields (Input_Field, Hidden_Field, 
+  # Radio_Field, Checkbox_Field, Select_Field, 
+  # Textarea_Field) or any custom form field type. 
+  # It is a wrapper for GUI::Element, extending it 
+  # by parameters @name, @label and @value. 
+  #
+  # Usage: 
+  #
+  #   i = Input_Field.new(:name => :description, 
+  #                       :label => 'Description', 
+  #                       :value => 'Lorem ipsum dolor')
+  #
+  # Apart from this special attributes, Form_Field instances
+  # behave like any GUI::Element: 
+  #
+  #   i.onclick = "alert('i have been clicked');"
+  #   i.class   = 'css_class'
+  #
+  #
+  class Form_Field < Element
+
+    attr_accessor :type, :form, :label, :value
+
+    def initialize(params)
+      # @value  = params[:value]
+      raise Form_Error.new('Must provide parameter :name for ' << self.class.to_s) unless params[:name]
+      @form   = params[:parent]
+      @form ||= params[:form]
+      @label  = params[:label]
+      # Get value from params unless set by derived constructor: 
+      @value  = params[:value] unless @value 
+      # Do not delete parameter value, as it is a 
+      # standard for <input> elements. 
+      # Field types not supporting the value attribute
+      # (Textarea_Field, Option_Field, ...)
+      # must delete it themselves. 
+      @readonly = false
+      params.delete(:form)
+      params.delete(:parent)
+      params.delete(:label)
+      params[:parent] = @form
+      super(params)
+    end
+
+    def form=(form_instance)
+      @form = form_instance
+      @params[:parent] = @form
+    end
+
+    def element
+      raise Form_Error.new('Cannot render abstract class Form_Field')
+    end
+    def readonly_element
+      HTML.div(@attrib) { @value }
+    end
+
+    def to_s
+      return element().string unless @readonly
+      return readonly_element().string
+    end
+    alias string to_s
+
+    def editable!
+      @reaonly = false
+    end
+    def readonly!
+      @attrib[:class] = @attrib[:class].to_s << ' readonly'
+      @readonly = true
+    end
+    def readonly? 
+      @readonly
+    end
+    def disable! 
+      @attrib[:disabled] = true
+    end
+    def enable! 
+      @attrib.delete(:disabled)
+    end
+
+  end
+
+
+end
+end

data/lib/aurita-gui/form/hidden_field.rb

@@ -0,0 +1,43 @@
+
+require('aurita-gui/form/form_field')
+
+module Aurita
+module GUI
+
+  # Usage: 
+  #
+  #   i = Hidden_Field.new(:name => :description, 
+  #                        :label => 'Description', 
+  #                        :value => 'Lorem ipsum dolor')
+  #
+  # Tag attributes like onclick, onchange, class etc. 
+  # can be set, but will either be ignored or have 
+  # no effect. 
+  #
+  class Hidden_Field < Form_Field
+    def initialize(params, &block)
+      params[:tag]  = :input
+      params[:type] = :hidden
+      if block_given? then
+        params[:value] = yield
+      end
+      super(params)
+    end
+    def element
+      HTML.input(@attrib)
+    end
+  end
+
+  class Form < Element
+
+    def add_hidden(params)
+      params.each_pair { |k,v| 
+        add(Hidden_Field.new(:name => k, :value => v))
+      }
+    end
+    alias add_hidden_fields add_hidden
+
+  end
+  
+end
+end