sws 0.4

data/lib/sws/Core/components/Form/Form.api

@@ -0,0 +1,9 @@
+method:
+  default: "'POST'"
+
+enctype:
+  default: "'multipart/form-data'"
+
+other_tag_string:
+
+action:

data/lib/sws/Core/components/Form/Form.html

@@ -0,0 +1,3 @@
+<span sws="header"></span>
+<span sws="content"></span>
+<span sws="footer"></span>

data/lib/sws/Core/components/Form/Form.rb

@@ -0,0 +1,55 @@
+module SWS
+
+	# Represents <FORM> tag.
+	# Bindings:
+	# - method (default: "POST") - HTTP methods to send form data
+	# - enctype - as "enctype" parameter of HTML form
+	# - other_tag_string - generic string to add to the FORM tag
+	# - action - method to call on form submission (you shouldn't use both Form's
+	# and SubmitButton's action at the same time)
+	class Form < Component
+
+		def initialize (*args)
+			super
+			@action = nil
+		end
+
+		# Generates opening <FORM> tag with proper attributes. Do NOT use other
+		# methods than default POST
+		def generate_head ()
+
+			string = "<FORM"
+			string << " #{@slots["method"].to_tag_attribute()}"
+			string << " action=\"#{app.adaptor.base_path}#{app.component_request_handler_key}/#{page.url_string}"
+			if (slot_bound?( "action" ))				
+				page.action_components[ self.object_id ] = self
+				string << "/#{self.object_id}"
+			end
+			string << "\" #{@slots["enctype"].to_tag_attribute()}"
+			string << generic_attr_string()
+			string << ">"
+			return string
+
+		end
+
+
+		# Generates closing </FORM> tag
+		def generate_footer ()
+			return "</FORM>"
+		end
+		
+		# Enables the action of the receiver, so that the action will be performed.
+		# Called by request handler, when it finds this form id in url
+    def enable_action ()
+      @action = @slots["action"].bound_object()
+    end
+
+
+    # Performs the action if it has been set up
+    def perform_action ()
+      return @action ? @action.call() : super;
+    end
+
+	end
+
+end

data/lib/sws/Core/components/Form/Form.sws

@@ -0,0 +1,12 @@
+header:
+  _class: SWS::String
+  value: generate_head
+  escape_html: false
+
+footer:
+  _class: SWS::String
+  value: generate_footer
+  escape_html: false
+
+content:
+  _class: SWS::Content

data/lib/sws/Core/components/GenericContainer/GenericContainer.api

@@ -0,0 +1,10 @@
+tag_name:
+  required: true
+
+class:
+
+id:
+
+name:
+
+other_tag_string:

data/lib/sws/Core/components/GenericContainer/GenericContainer.html

@@ -0,0 +1 @@
+<span sws="prefix"></span><span sws="content"></span><span sws="suffix"></span>

data/lib/sws/Core/components/GenericContainer/GenericContainer.rb

@@ -0,0 +1,39 @@
+module SWS
+
+
+	# Represents a custom container component. Used to display HTML tags that do
+	# not (yet) have dedicated components.
+	# Bindings:
+	# - tag_name (required) - name of the tag to use
+	# - class - CSS class of the tag
+	# - name - name attribute of the tag
+	# - other_tag_string - generic string to add to the tag
+	class GenericContainer < Component
+
+		def container? ()
+			return true
+		end
+
+
+		def prefix ()
+
+			tag_name = @slots["tag_name"].value()
+			string = "<#{tag_name}"
+			string << bound_slot_string( "class","name","id" )
+			string << generic_attr_string() << ">"
+			return string
+
+		end
+
+
+		def suffix ()
+
+			tag_name = @slots["tag_name"].value()
+			return "</#{tag_name}>"
+
+		end
+
+
+	end
+
+end

data/lib/sws/Core/components/GenericContainer/GenericContainer.sws

@@ -0,0 +1,12 @@
+content: 
+  _class: SWS::Content
+
+prefix: 
+  _class: SWS::String
+  value: prefix
+  escape_html: false
+
+suffix:
+  _class: SWS::String
+  value: suffix
+  escape_html: false

data/lib/sws/Core/components/GenericElement/GenericElement.api

@@ -0,0 +1,10 @@
+tag_name:
+  required: true
+
+class:
+
+id:
+
+name:
+
+other_tag_string:

data/lib/sws/Core/components/GenericElement/GenericElement.rb

@@ -0,0 +1,34 @@
+module SWS
+
+	# Represents a custom non-container component. Used to display HTML tags that do
+	# not (yet) have dedicated components.
+	# Bindings:
+	# - tag_name (required) - name of the tag to use
+	# - class - CSS class of the tag
+	# - name - name attribute of the tag
+	# - other_tag_string - generic string to add to the tag
+	class GenericElement < Component
+
+		def container? ()
+			return false
+		end
+
+
+		def append_to_response ( response )
+			response << generate_html()
+		end
+
+
+		def generate_html ()
+
+			tag_name = @slots["tag_name"].value()
+			string = "<#{tag_name}"
+			string << bound_slot_string( "class","name","id" )
+			string << generic_attr_string() << ">"
+			return string
+
+		end
+
+	end
+
+end

data/lib/sws/Core/components/HiddenField/HiddenField.api

@@ -0,0 +1,7 @@
+value:
+  required: true
+  settable: true
+
+other_tag_string:
+
+format:

data/lib/sws/Core/components/HiddenField/HiddenField.rb

@@ -0,0 +1,37 @@
+module SWS
+
+	# Represents <INPUT type=hidden HTML tag.
+	# Bindings:
+	# - value (required) - the value of the field
+	# - other_tag_string - generic string to add to the tag
+	class HiddenField < FormElement
+
+
+		def update_binding ( key,value )
+
+			if ( key == "value" )
+				if ( slot_bound?("format") )
+					@slots["value"].value = value.method( @slots["format"].value ).call()
+				else
+					@slots["value"].value = value
+				end
+			else
+				#TODO: not sure if necessary - there are no more settable slots beside "value"
+				super
+			end
+
+		end
+
+
+		def append_to_response ( response )
+			response << generate_html()
+		end
+
+
+		def generate_html ()
+			return "<INPUT TYPE=\"hidden\" NAME=\"#{element_name()}.value\" VALUE=\"#{@slots["value"].value}\"#{generic_attr_string()}>"
+		end
+
+	end
+
+end

data/lib/sws/Core/components/Hyperlink/Hyperlink.api

@@ -0,0 +1,13 @@
+href:
+
+page_name:
+
+action:
+
+direct_action_class:
+
+direct_action_method:
+
+direct_action_query_string:
+
+other_tag_string:

data/lib/sws/Core/components/Hyperlink/Hyperlink.html

@@ -0,0 +1 @@
+<span sws="prefix"/><span sws="content"/><span sws="suffix"/>

data/lib/sws/Core/components/Hyperlink/Hyperlink.rb

@@ -0,0 +1,102 @@
+module SWS
+
+	# Represents <A> tag
+	# Bindings:
+	# - href - href attribute of the tag
+	# - page_name - name of the page to display after clicking the link (new
+	# instance of the page will be created)
+	# - action - methods to call of link click
+	# - other_tag_string - generic string to add to the tag
+	# - direct_action_class - name of DirectAction subclass to call. Defaults to
+	# "default_direct_action_class" from application.yaml file
+	# - direct_action_method - method of object of class specified in
+	# "direct_action_class" binding to call on hyperlink click.
+	# - direct_action_query_string - query_string to attach to DirectAction
+	# requests. May be used freely.
+	class Hyperlink < Component
+
+		def initialize (*args)
+			super
+			@action = nil
+		end
+
+		# Returns opening <A> tag
+		def prefix ()
+
+			if ( slot_bound?( "href" ) )	#normal, href hyperlink
+				return generate_href_link( @slots["href"].value() )
+			elsif ( slot_bound?( "page_name" ) )	#page for name
+				return generate_page_link( @slots["page_name"].value() )
+			elsif ( slot_bound?( "action" ) ) #call method on the same component
+				return generate_action_link()
+			elsif ( slot_bound?( "direct_action_class" ) )
+				return generate_direct_action_link()
+			end	#TODO: throw exception if none found?
+
+		end
+
+
+		# Enables the action of the receiver, so that the action will be
+		# performed.  Called by request handler, when it finds this hyperlink id
+		# in url
+		def enable_action ()
+			@action = @slots["action"].bound_object()
+		end
+
+
+		# Performs the action if it has been set up
+		def perform_action ()
+			return @action ? @action.call() : nil;
+		end
+
+
+		# Generates closing </A> tag
+		def suffix ()
+			return "</A>"
+		end
+
+
+		protected
+		def generate_href_link ( href )
+			
+			link = "<A href=\"#{href}\"#{generic_attr_string()}>"
+			return link
+
+		end
+		
+
+		def generate_page_link ( page_name )
+			
+			href = "#{app.adaptor.base_path}#{app.page_name_request_handler_key}/#{page.object_id}/#{page_name}"
+			return generate_href_link( href )
+			
+		end
+		
+
+		def generate_action_link ( )		
+		
+			page.action_components[self.object_id] = self
+			href = "#{app.adaptor.base_path}#{app.component_request_handler_key}/#{page.url_string}/#{self.object_id}"
+			return generate_href_link( href )
+			
+		end
+
+		
+		def generate_direct_action_link()
+
+			href = "#{app.adaptor.base_path}#{app.direct_action_request_handler_key}/"
+			href << @slots["direct_action_class"].value()
+			if ( slot_bound?( "direct_action_method" ) )
+				href << "/#{@slots["direct_action_method"].value()}"
+			end
+			if ( slot_bound?( "direct_action_query_string" ) )
+				href << "?#{@slots["direct_action_query_string"].value()}"
+			end
+
+			return generate_href_link( href )
+
+		end
+
+	end
+
+end

data/lib/sws/Core/components/Hyperlink/Hyperlink.sws

@@ -0,0 +1,12 @@
+content:
+  _class: SWS::Content
+
+prefix:
+  _class: SWS::String
+  value: prefix
+  escape_html: false
+
+suffix:
+  _class: SWS::String
+  value: suffix
+  escape_html: false

data/lib/sws/Core/components/Image/Image.api

@@ -0,0 +1,11 @@
+src:
+
+framework:
+
+resource:
+
+alt:
+
+title:
+
+other_tag_string:

data/lib/sws/Core/components/Image/Image.rb

@@ -0,0 +1,49 @@
+module SWS
+
+	# Represents <IMG HTML tag
+	# Bindings:
+	# - src - src attribute of the tag
+	# - alt - alt attribute of the tag
+	# - resource - resource name to use as data for the image
+	# - framework - framework name to find the resource in
+	# - other_tag_string - generic string to add to the tag
+	class Image < Component
+
+		def container? ()
+			return false
+		end
+
+
+		def append_to_response ( response )
+			response << generate_html()
+		end
+
+
+		def generate_html ()
+
+			string = "<IMG"
+			
+			if ( slot_bound?( "resource" ) )
+				framework = slot_bound?("framework") ? @slots["framework"].value : "app"
+				src = app().adaptor.base_path() + app().resource_request_handler_key + "/" + framework + "/" + @slots["resource"].value
+			elsif ( slot_bound?("src") ) 
+				src = @slots["src"].value()
+			end
+
+			string << " src=\"#{src}\""
+
+			["alt", "title"].each do |attr|
+				if ( slot_bound?(attr) )
+					string << " #{@slots[attr].to_tag_attribute}"
+				end
+			end
+
+			string << generic_attr_string() << ">"
+
+			return string
+
+		end
+
+	end
+
+end