sws 0.4

data/lib/sws/Core/components/Repetition/Repetition.sws

@@ -0,0 +1,2 @@
+content: 
+  _class: SWS::Content

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

@@ -0,0 +1,5 @@
+value:
+  required: true
+  default: "'Reset'"
+
+other_tag_string:

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

@@ -0,0 +1,28 @@
+module SWS
+
+	# Represents <INPUT type=reset tag
+	# Bindings:
+	# - value (required, default: "Reset") - string to display on the button
+	# - other_tag_string - generic string to add to the tag
+	class ResetButton < FormElement
+
+
+		# Appends #generate_html() output to response
+		def append_to_response ( response )
+			response << generate_html()
+		end
+
+
+		# Generates HTML code for Reset button
+		def generate_html ()
+
+			string = "<INPUT type=\"reset\""
+			string << bound_slot_string( "value" )
+			string << generic_attr_string() << ">"
+			return string
+
+		end
+
+	end
+
+end

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

@@ -0,0 +1,24 @@
+list:
+  required: true
+
+item:
+  required: true
+  settable: true
+
+display_string:
+
+selections:
+  required: true
+  settable: true
+
+size:
+  default: 5
+
+multiple:
+  required: true
+
+empty_string:
+
+disabled:
+
+other_tag_string:

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

@@ -0,0 +1,57 @@
+module SWS
+
+	# Represents <SELECT> HTML tag
+	# Bindings:
+  # - list (required) - array of object to be displayed in the form of
+  # options
+  # - item (required,settable) - an object to use as list iterator
+  # - selections (required,settable) - object(s) selected from this element (if
+	# multiple objects are selected, array is returned here - otherwise the
+	# selected object itself)
+  # - display_string - string to display (if not set, the item itself will be
+  # used)
+  # - disabled - if true, the tag will be inactive
+	# - size (default: 5) - size attribute of the tag
+	# - multiple (required) - if true, multiple object can be selected
+	# - other_tag_string - generic string to add to the tag
+	class Select < MultipleSelectionList
+
+
+		def generate_html ()
+
+			string = "<SELECT name=\"#{element_name()}.selections\" "
+			string << @slots["size"].to_tag_attribute()
+			if ( @slots["multiple"].value() == true )
+				string << " multiple"
+			end
+			if ( slot_bound?( "disabled" ) && @slots["disabled"].value() == true )
+				string << " disabled"
+			end
+			string << generic_attr_string() << ">"
+			if ( slot_bound?( "empty_string" ) )
+				string << "<OPTION value=__empty_string>"
+				string << @slots["empty_string"].value()
+				string << "</OPTION>"
+			end
+			list().each_index do |index|
+				item = list[index]
+				@slots["item"].value = item
+				if ( slot_bound?( "display_string" ) )
+					display_string = @slots["display_string"].value()
+				else
+					display_string = item
+				end
+				string << "<OPTION value=#{index}"
+				if ( (selections().is_a?(Array) && selections().include?(item)) || (selections() == item) )
+					string << " selected"
+				end
+				string << ">#{display_string}</OPTION>"
+			end
+			string << "</SELECT>"
+			return string
+
+		end
+
+	end
+
+end

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

@@ -0,0 +1,5 @@
+value:
+  required: true
+
+escape_html:
+  default: true

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

@@ -0,0 +1,28 @@
+module SWS
+
+	# Represents some text to be rendered literally in HTML. Very commonly used
+	# component.
+	# Bindings: 
+	# - value (required) - string to display
+	class String < Component
+
+
+		def append_to_response ( response )
+
+			value = @slots["value"].value.to_s
+			if ( @slots["escape_html"].value )
+				value.gsub!( /</,"&lt;" )
+				value.gsub!( />/,"&gt;" )
+			end
+			response << value
+
+		end
+
+
+		def container? ()
+			return false
+		end
+
+	end
+
+end

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

@@ -0,0 +1,6 @@
+value:
+  default: "'Submit'"
+
+action:
+
+other_tag_string:

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

@@ -0,0 +1,53 @@
+module SWS
+
+	# Represents <INPUT type=submit HTML tag
+	# Bindings:
+	# - value (required,default: "Submit") - string to be displayed on the button.
+	# - action - method to be called on button click
+	# - other_tag_string - generic string to add to the tag
+	class SubmitButton < FormElement
+
+
+		def initialize (*args)
+			super
+			@action = nil
+		end
+
+		# Overriden method from Component class - sets the action to perform if
+		# the "value" parameter is not empty
+		def update_binding ( key, value )
+
+			if ( key == "value" )
+				@action = @slots["action"].bound_object()
+			end
+
+		end
+
+
+		# If the action has been set up (see #update_binding( key,value )) it is
+		# called now. Otherwise just nil is returned.
+		def perform_action ()
+
+			if ( @action )
+				return @action.call()
+			else
+				return nil
+			end
+
+		end
+
+
+		# Appends #generate_html() output to response
+		def append_to_response ( response )
+			response << generate_html()
+		end
+
+
+		# Generates HTML output containing <INPUT type="submit" tag
+		def generate_html ()
+			return "<INPUT TYPE=\"submit\" NAME=\"#{element_name()}.value\" VALUE=\"#{@slots["value"].value}\"#{generic_attr_string()}>"
+		end
+
+	end
+
+end

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

@@ -0,0 +1,9 @@
+value:
+  required: true
+  settable: true
+
+rows:
+
+cols:
+
+other_tag_string:

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

@@ -0,0 +1,28 @@
+module SWS
+
+	# Represents <TEXTAREA> tag<br>
+	# Bindings:
+	# - value (required,settable) - contents of the tag
+	# - cols - number of textarea cols
+	# - rows - number of textarea rows
+	# - other_tag_string - generic string to add to the tag
+	class TextArea < FormElement
+
+
+		def append_to_response ( response )
+			response << generate_html()
+		end
+
+
+		def generate_html ()
+			
+			string = "<TEXTAREA name=\"#{element_name()}.value\""
+			string << bound_slot_string( "cols","rows" )
+			string << "#{generic_attr_string()}>#{@slots["value"].value}</TEXTAREA>"
+			return string
+			
+		end
+
+	end
+
+end

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

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

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

@@ -0,0 +1,46 @@
+module SWS
+
+	#	Represents tag <INPUT type=text
+	#	Bindings: 
+	#	- value (required,settable) - contents of the textfield
+	#	- format - method of "value" object to be used before updating it (eg. for a
+	#	Float you can use to_i() method here to get Fixnum object)
+	#	- other_tag_string - generic string to add to the tag
+	class TextField < FormElement
+
+
+		def generate_html ()
+
+			string = "<INPUT TYPE=\"text\" NAME=\"#{element_name()}.value\" VALUE=\"#{@slots["value"].value}\""
+			string << bound_slot_string( "size" )
+			string << "#{generic_attr_string()}>"
+			return string
+			
+		end
+
+
+		def append_to_response ( response )
+			response << generate_html()
+		end
+
+
+		# If the "format" slot value has been set, uses it to format "value" slot
+		# value
+		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
+
+	end
+
+end

data/lib/sws/Core/framework.yaml

@@ -0,0 +1,25 @@
+components:
+  SWS::CheckBox: components/CheckBox
+  SWS::CheckBoxList: components/CheckBoxList
+  SWS::Conditional: components/Conditional
+  SWS::Content: components/Content
+  SWS::FileUpload: components/FileUpload
+  SWS::Form: components/Form
+  SWS::GenericContainer: components/GenericContainer
+  SWS::GenericElement: components/GenericElement
+  SWS::HiddenField: components/HiddenField
+  SWS::Hyperlink: components/Hyperlink
+  SWS::Image: components/Image
+  SWS::ImageButton: components/ImageButton
+  SWS::Link: components/Link
+  SWS::PasswordField: components/PasswordField
+  SWS::RadioButton: components/RadioButton
+  SWS::RadioButtonList: components/RadioButtonList
+  SWS::Repetition: components/Repetition
+  SWS::ResetButton: components/ResetButton
+  SWS::Select: components/Select
+  SWS::String: components/String
+  SWS::SubmitButton: components/SubmitButton
+  SWS::TextArea: components/TextArea
+  SWS::TextField: components/TextField
+  SWS::ExceptionPage: components/ExceptionPage

data/lib/sws/JSComponents/components/JSMenu/JSMenu.api

@@ -0,0 +1,5 @@
+actions:
+  required: true
+
+menu_class:
+

data/lib/sws/JSComponents/components/JSMenu/JSMenu.html

@@ -0,0 +1,58 @@
+<script language="javascript">
+  function doPopupMenu<span sws="menu_id_string"/>(event) {
+    if( document.menu_opened != 1 )
+    {
+			document.onmousedown = null;
+			document.menu_opened = 1;
+      var menu = document.getElementById("menu<span sws="menu_id_string"/>");
+
+			var X = 0;
+      var Y = 0;
+      // Gecko part
+			if( event.pageX != 0 )
+				X = event.pageX;
+			if( event.pageY != 0 )
+        X = event.pageY;
+      // IE part
+      // TODO: test it on IE ! (only tested on Firefox and Opera)
+			if( event.x != 0 )
+				X = event.x;
+			if( event.y != 0 )
+				Y = event.y;
+			
+      menu.style.top = event.pageY+15;
+			menu.style.left = event.pageX;
+      menu.style.visibility = "visible";
+      document.menu_opened = 1;
+    }
+  }
+
+  function doCloseMenu<span sws="menu_id_string"/>() {
+    if ( document.menu_opened == 1 )
+    {
+      var menu = document.getElementById("menu<span sws="menu_id_string"/>");
+
+      menu.style.visibility = "hidden";
+      document.menu_opened = 0;
+    }
+  }
+
+function toggleCloseMenu<span sws="menu_id_string"/>() {
+  if( document.menu_opened == 1) {
+    document.onmousedown = doCloseMenu<span sws="menu_id_string"/>
+  }
+  else
+    document.onmousedown = null;
+}
+</script>
+
+<a sws="menu_link"><span sws="contento"></span></a>
+<span sws="menu_div">
+  <table sws="menu_table">
+    <span sws="actions_repetition">
+      <tr><td>
+          <a sws="action_link"><span sws="action_string"></span></a>
+      </td></tr>
+    </span> 
+  </table>
+</span>

data/lib/sws/JSComponents/components/JSMenu/JSMenu.rb

@@ -0,0 +1,34 @@
+module JSComponents
+
+  class JSMenu < SWS::Component
+
+    synchronize_slot :actions
+    synchronize_slot :menu_class
+
+    attr_reader :actions, :menu_class
+
+    attr_accessor :action_cursor
+
+    def action_for_cursor
+      return action_cursor["action"].call()
+    end
+
+    def name_for_cursor
+      return action_cursor["name"]
+    end
+
+    def menu_link_js_events
+      return "onMouseDown=\"doPopupMenu#{menu_id()}(event);\" onMouseUp=\"toggleCloseMenu#{menu_id()}();\""
+    end
+
+    def menu_id
+      return self.object_id.abs     
+    end
+
+    def menu_div_id
+      return "menu#{menu_id()}"
+    end
+    
+  end
+
+end