htmlgrid 1.0.0

data/lib/htmlgrid/grid.rb

@@ -0,0 +1,286 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+# Grid -- htmlgrid -- hwyss@ywesee.com
+begin
+  VERSION = '1.0.0'
+	require 'htmlgrid.so'
+rescue LoadError
+	puts "could not find htmlgrid.so, falling back to pure-ruby class"
+	module HtmlGrid
+		class Grid 
+			attr_accessor :width, :height
+			private
+			class Row
+				class Field
+					attr_reader :components
+					attr_accessor :tag
+					ALLOWED_ATTRIBUTES = [
+						'align',
+						'class',
+						'colspan',
+						'style',
+						'tag',
+						'title',
+					]
+					def initialize
+						@components = []
+						@attributes = {}
+					end
+					def add(item)
+						if(item.is_a? Array)
+							@components += item
+						else
+							@components.push item
+						end
+					end
+					def add_background
+						compose
+						@components.each { |component| 
+							component.add_background
+						}
+						if(@attributes["class"])
+							@attributes["class"] += "-bg" unless @attributes["class"] =~ /-bg/
+						else
+							@attributes["class"] = "bg"
+						end
+					end
+					def add_attribute(key, value)
+						@attributes.store(key.to_s, value.to_s)
+					end
+					def add_component_style(style)
+						@components.each { |cmp| 
+							cmp.set_attribute("class", style) if cmp.respond_to?(:set_attribute)
+						}
+					end
+					def add_style(style)
+						@attributes["class"] = style
+					end
+					def attribute(key)
+						@attributes[key]
+					end
+					def colspan
+						@attributes.fetch("colspan", 1).to_i
+					end
+					def colspan=(span)
+						@attributes["colspan"] = span.to_s if span.to_i > 1
+					end
+					def component_html(cgi)
+						html = ''
+						@components.each { |component| 
+							if component.respond_to? :to_html
+								html << component.to_html(cgi).to_s
+							else
+								html << component.to_s
+							end
+						}
+						html = "&nbsp;" if html.empty?
+						html
+					end
+					def tag=(tag)
+						@tag = tag.to_s.downcase
+					end
+					def to_html(context)
+						if(@tag && context.respond_to?(@tag))
+							context.send(@tag, @attributes) { 
+								component_html(context) }
+						else
+							context.td(@attributes) {
+								component_html(context) }
+						end
+					end
+				end
+				def initialize
+					@width = 1
+					@fields = [Field.new]
+					@attributes = {}
+				end
+				def initialize_row w
+					if(w > @width)
+						@width.upto(w-1) { |ii| @fields[ii] ||= Field.new }
+						@width = w
+					end
+				end
+				def add(item, x)
+					(@fields[x] ||= Field.new).add item
+				end
+				def each_field(x, w=1)
+					x.upto([x+w, @width].min - 1) { |xx|
+						yield(@fields[xx])
+					}
+				end
+				def to_html cgi
+					cgi.tr(@attributes) {
+						field_html(cgi)
+					}
+				end
+				def field_attribute(key, x=0)
+					@fields[x].attribute(key)
+				end
+				def field_html(cgi)
+					html = ""
+					span = 1
+					@fields.each { |field|
+						if(span < 2)
+							html << field.to_html(cgi)
+							span = field.colspan
+						else
+							span.step(-1)
+						end
+					}
+					html
+				end
+				def set_attributes(attr)
+					@attributes = attr
+				end
+				def [](x)
+					begin
+						@fields[x]
+					rescue StandardError
+						nil
+					end
+				end
+			end
+			public
+			def initialize(attributes={})
+				@height = 1
+				@width = 1
+				@rows = [Row.new]
+				@attributes = {
+					"cellspacing" =>  "0",
+				}.update(attributes)
+			end
+			def initialize_grid(w, h)
+				if(w > @width || h > @height)
+					floor = (w > @width) ? 0 : @height
+					@width = [w, @width].max
+					@height = [h, @height].max
+					floor.upto(@height - 1) { |ii|
+						(@rows[ii] ||= Row.new).initialize_row(@width)
+					}
+				end
+			end
+			def add(arg, x, y, col=false)
+				if arg.kind_of? Enumerable
+					if(col)
+						add_column(arg, x, y)
+					else
+						add_row(arg, x, y)
+					end
+				else
+					add_field(arg, x, y)
+				end
+			end
+			def add_attribute(key, value, x, y, w=1, h=1)
+				each_field(x, y, w, h) { |field|
+					field.add_attribute(key, value)
+				}
+			end
+			def add_background(x, y, w=1, h=1)
+				each_field(x, y, w, h) { |field| 
+					field.add_background(x, w)
+				}
+			end
+			def add_column(arg, x, y)
+				offset = 0
+				arg.each do |item|
+					add_field(item, x, y + offset)
+					offset = offset.next
+				end
+			end
+			def add_component_style(style, x, y, w=1, h=1)
+				each_field(x, y, w, h) { |field|
+					field.add_component_style(style)
+				}
+			end
+			def add_field(arg, x, y)
+				initialize_grid(x+1, y+1)
+				(@rows[y] ||= Row.new).add(arg, x)
+			end
+			def add_row(arg, x, y)
+				offset = 0
+				arg.each do |item|
+					add_field(item, x + offset, y)
+					offset = offset.next
+				end
+			end
+			def add_style(style, x, y, w=1, h=1)
+				each_field(x, y, w, h) { |field|
+					field.add_style(style)
+				}
+			end
+			def add_tag(tag, x, y, w=1, h=1)
+				initialize_grid(x+w, y+h)
+				each_field(x, y, w, h) { |field| 
+					field.tag = tag
+				}
+			end
+			def each_field(x, y, w=1, h=1)
+				y.upto([y+h, @height].min - 1) { |yy| 
+					@rows[yy].each_field(x,w) { |field|
+						yield(field)
+					}
+				}
+			end
+			def field_attribute(key, x=0, y=0)
+				@rows[y].field_attribute(key, x)
+			end
+			def insert_row(y=0, arg=nil)
+				@rows[y, 0] = Row.new	
+				@height += 1
+				add(arg, 0, y)
+			end
+			def push(arg, x=0, y=height)
+				add(arg, x, y)
+				set_colspan(x,y)
+			end
+			def set_attribute(key, value)
+				@attributes[key] = value
+			end
+			def set_attributes(hash)
+				@attributes.update(hash)
+			end
+			def set_colspan(x=0, y=0, span=(@width - x))
+				initialize_grid(x+span, y+1)
+				self[x,y].colspan = span
+			end
+			def set_row_attributes(attr={}, y=0)
+				initialize_grid(0, y+1)
+				@rows[y].set_attributes(attr)
+			end
+			def to_html(cgi)
+				cgi.table(@attributes) {
+					@rows.collect { |row| row.to_html(cgi) }.join
+				}
+			end
+			def [](x, y)
+				begin
+					@rows[y][x]
+				rescue StandardError
+					nil
+				end
+			end
+		end
+	end
+end

data/lib/htmlgrid/image.rb

@@ -0,0 +1,43 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+# Image -- htmlgrid -- 27.11.2002 -- hwyss@ywesee.com 
+
+require 'htmlgrid/namedcomponent'
+
+module HtmlGrid
+	class Image < NamedComponent
+		def init
+			super
+			if(@lookandfeel)
+				@attributes['src'] = @lookandfeel.resource(@name)
+				@attributes['alt'] = @lookandfeel.lookup(@name)
+			end
+			#@attributes['border'] = "0"
+		end
+		def to_html(context)
+			context.img(@attributes)
+		end
+	end
+end

data/lib/htmlgrid/infomessage.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+# InfoMessage -- htmlgrid -- 25.08.2003 -- mhuggler@ywesee.com
+
+module HtmlGrid
+	module InfoMessage
+		private
+		def info_message
+			if @session.info?
+				@session.infos.each { |info|
+					txt = HtmlGrid::Text.new(info, @model, @session, self)
+					@grid.insert_row(0, txt)
+					@grid.set_colspan(0,0)
+					@grid.add_style('info', 0, 0)
+				}
+			end
+		end
+	end
+end

data/lib/htmlgrid/input.rb

@@ -0,0 +1,59 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+# Input -- htmlgrid -- 24.10.2002 -- hwyss@ywesee.com 
+
+require 'htmlgrid/namedcomponent'
+
+module HtmlGrid
+	class Input < NamedComponent
+		def init
+			super
+			@attributes['name'] = @name.to_s
+			value = nil
+			if(@model.respond_to?(@name))
+				value = @model.send(@name)
+			end
+			if(value.nil? \
+				&& @session.respond_to?(:user_input))
+				value = @session.user_input(@name)
+			end
+			if(value.nil? && autofill? \
+				&& @session.respond_to?(:get_cookie_input))
+				value = @session.get_cookie_input(@name)
+			end
+			if(value.is_a? RuntimeError)
+				value = value.value 
+			end
+			self.value = value
+		end
+		def value=(value)
+			@attributes.store("value", value.to_s)
+			@value = value
+		end
+		def to_html(context)
+			context.input(@attributes)
+		end
+	end
+end

data/lib/htmlgrid/inputcheckbox.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+# InputCheckbox -- htmlgrid -- 29.04.2003 -- mhuggler@ywesee.com
+
+require 'htmlgrid/input'
+
+module HtmlGrid
+	class InputCheckbox < Input
+		LABEL = true
+		def init
+			super
+			if(@value)
+				@attributes.store('checked', true)
+			end
+			@attributes.store('value', '1') 
+			@attributes['type'] = 'checkbox'
+		end
+	end
+end

data/lib/htmlgrid/inputcurrency.rb

@@ -0,0 +1,36 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+# InputCurrency -- htmlgrid -- 14.03.2003 -- hwyss@ywesee.com 
+
+require 'htmlgrid/inputtext'
+
+module HtmlGrid
+	class InputCurrency < InputText
+		def init
+			super
+			@attributes['value'] = @lookandfeel.format_price(@value)
+		end
+	end
+end

data/lib/htmlgrid/inputdate.rb

@@ -0,0 +1,38 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+#InputDate -- htmlgrid -- 22.04.2003 -- benfay@ywesee.com
+
+require	'htmlgrid/inputtext'
+
+module HtmlGrid
+	class InputDate < InputText
+		def init
+			super
+			if(@value.respond_to?(:strftime))
+				@attributes['value'] = @value.strftime(@lookandfeel.lookup(:date_format))
+			end
+		end
+	end
+end

data/lib/htmlgrid/inputfile.rb

@@ -0,0 +1,40 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com
+#
+# InputFile -- oddb -- 29.07.2003 -- mhuggler@ywesee.com
+
+require 'htmlgrid/namedcomponent'
+
+module HtmlGrid
+	class InputFile < NamedComponent
+		LABEL = true
+		def init
+			super
+			@attributes["type"] = 'file'
+		end
+		def to_html(context)
+			context.input(@attributes)
+		end
+	end
+end

data/lib/htmlgrid/inputradio.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+# InputRadio -- htmlgrid -- 29.04.2003 -- mhuggler@ywesee.com
+
+require 'htmlgrid/input'
+
+module HtmlGrid
+	class InputRadio < Input
+		LABEL = true
+		def init
+			super
+			@attributes['type'] = 'radio'
+		end
+	end
+end

data/lib/htmlgrid/inputtext.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+#
+#	HtmlGrid -- HyperTextMarkupLanguage Framework
+#	Copyright (C) 2003 ywesee - intellectual capital connected
+# Andreas Schrafl, Benjamin Fay, Hannes Wyss, Markus Huggler
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Zuerich, Switzerland
+#	htmlgrid@ywesee.com, www.ywesee.com/htmlgrid
+#
+# InputText -- htmlgrid -- 24.10.2002 -- hwyss@ywesee.com 
+
+require 'htmlgrid/input'
+
+module HtmlGrid
+	class InputText < Input
+		LABEL = true
+		def init
+			super
+			@attributes['type'] = 'text'
+		end
+	end
+end

data/lib/htmlgrid/javascript.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# JavaScript -- htmlgrid -- 25.10.2005 -- hwyss@ywesee.com
+
+require 'htmlgrid/component'
+
+module HtmlGrid
+	class JavaScript < Component
+		def init
+			super
+			@attributes = {
+				'type'		=>	'text/javascript',
+				'language'=>	'JavaScript',
+			}
+		end
+		def to_html(context)
+			context.script(@attributes) {
+				@value.to_s
+			}
+		end
+	end
+end