htmlgrid 1.0.0

data/lib/htmlgrid/label.rb

@@ -0,0 +1,90 @@
+#!/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
+#
+# Label -- htmlgrid -- 26.11.2002 -- hwyss@ywesee.com 
+
+require 'delegate'
+require 'htmlgrid/namedcomponent'
+
+module HtmlGrid
+	class SimpleLabel < NamedComponent
+		def init
+			super
+			@value = @lookandfeel.lookup(@name)
+      state = @session.state
+      if(state.respond_to?(:mandatory?) && state.mandatory?(@name))
+        @value += "*"
+      end 
+		end
+		def to_html(context)
+			context.label(@attributes) { @value }
+		end
+	end
+	class Label < SimpleDelegator
+		include Enumerable
+		def initialize(component, session, label_key=nil)
+			@component = component
+			@attributes = {}
+			@session = session
+			@lookandfeel = session.lookandfeel
+			@label_key = label_key 
+			if(@component.respond_to? :name)
+				@attributes['for'] = @component.name.to_s
+				@label_key ||= @component.name
+			end
+			if(@component.respond_to?(:data_origin) \
+				 && (origin = @component.data_origin))
+				@attributes.store('title', origin.to_s)
+			end
+			if(@session.error(@label_key) \
+         || (@component.respond_to?(:name) && @session.error(@component.name)))
+				@attributes["class"] = "error" 
+			end
+			if(@component.respond_to?(:attributes) \
+				&& (id = @component.attributes['id']))
+				@attributes.store('id', "label_#{id}")
+			end
+			super(component)
+		end
+		def each
+			yield self if(@component.respond_to?(:label?) && @component.label?)
+			yield @component
+		end
+		def to_html(context)
+      key = @label_key
+			label = @lookandfeel.lookup(key) 
+      if(!label && @component.respond_to?(:name))
+        key = @component.name
+				label = @lookandfeel.lookup(key)
+			end
+      state = @session.state
+      if(label && state.respond_to?(:mandatory?) && state.mandatory?(key))
+        label += "*"
+      end 
+			if(label)
+				context.label(@attributes) { label }
+			end
+		end
+	end
+end

data/lib/htmlgrid/labeltext.rb

@@ -0,0 +1,35 @@
+#!/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
+#
+# LabelText -- oddb -- 22.07.2003 -- hwyss@ywesee.com 
+
+require 'htmlgrid/text'
+
+module HtmlGrid
+	class LabelText < Text
+		def to_html(context)
+			context.label { super }
+		end
+	end
+end

data/lib/htmlgrid/link.rb

@@ -0,0 +1,54 @@
+#!/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
+#
+# Link -- htmlgrid -- 19.11.2002 -- hwyss@ywesee.com 
+
+require 'htmlgrid/namedcomponent'
+
+module HtmlGrid
+	class Link < NamedComponent
+		def init
+			super
+			@value = @lookandfeel.lookup(@name)
+		end
+		def href
+			@attributes['href']
+		end
+		def href=(url)
+			@attributes['href'] = url
+		end
+		def target=(trg)
+			@attributes['target']	= trg
+		end
+		def to_html(context)
+			context.a(@attributes) { 
+				if(@value.respond_to?(:to_html))
+					@value.to_html(context)
+				else
+					super
+				end
+			} << dynamic_html(context)
+		end
+	end
+end

data/lib/htmlgrid/list.rb

@@ -0,0 +1,170 @@
+#!/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
+#
+# List -- htmlgrid -- 03.03.2003 -- hwyss@ywesee.com 
+
+require 'htmlgrid/composite'
+require 'htmlgrid/link'
+require 'htmlgrid/value'
+
+module HtmlGrid
+	class List < Composite
+    BACKGROUND_ROW = nil
+		BACKGROUND_SUFFIX = '-bg'
+		CSS_HEAD_MAP = {}
+		DEFAULT_CLASS = Value
+		DEFAULT_HEAD_CLASS = nil
+		EMPTY_LIST = false 
+		EMPTY_LIST_KEY = :empty_list
+		OFFSET_STEP = [0,1]
+		OMIT_HEADER = false
+		OMIT_HEAD_TAG = false
+		SORT_DEFAULT = :to_s
+		SORT_HEADER = true
+		SORT_REVERSE = false
+		STRIPED_BG = true
+		def compose(model=@model, offset=[0,0])
+			unless (self::class::OMIT_HEADER)
+				offset = compose_header(offset) 
+			end
+			if(model.empty?)
+				offset = compose_empty_list(offset) unless (self::class::EMPTY_LIST)
+			else
+				offset = compose_list(model, offset)
+			end
+			compose_footer(offset)
+		end
+		def compose_footer(offset=[0,0])
+		end
+		def compose_empty_list(offset, klass='list')
+      fill_row(offset, self::class::EMPTY_LIST_KEY, klass)
+		end
+		def compose_list(model=@model, offset=[0,0])
+			bg_flag = false
+			model.each_with_index { |mdl, idx|
+				@list_index = idx
+				_compose(mdl, offset, bg_flag)
+				#compose_components(mdl, offset)
+				#compose_css(offset, resolve_suffix(mdl, bg_flag))
+				#compose_colspan(offset)
+				if(rcss = row_css(mdl, bg_flag))
+					@grid.set_row_attributes({'class' => rcss}, offset.at(1),
+                                  self::class::OFFSET_STEP.at(1))
+				end
+				offset = resolve_offset(offset, self::class::OFFSET_STEP)
+				bg_flag = !bg_flag if self::class::STRIPED_BG
+			}
+			offset
+		end	
+		def compose_header(offset=[0,0])
+			step = if(defined?(self::class::HEAD_OFFSET_STEP))
+				self::class::HEAD_OFFSET_STEP
+			else
+				self::class::OFFSET_STEP
+			end
+			ystep = step.at(1)
+			components.each { |matrix, component|
+				key = lookandfeel_key(component)
+				header_key = 'th_' << key.to_s
+				if(txt = @lookandfeel.lookup(header_key))
+					if(self::class::SORT_HEADER)
+						@grid.add(sort_link(header_key, matrix, component), *matrix)
+					else
+						@grid.add(txt, *matrix)
+					end
+				end
+				if((cls = css_head_map[matrix]) \
+					|| (cls = self::class::DEFAULT_HEAD_CLASS))
+					@grid.add_attribute('class', cls, *matrix)
+					#link.attributes['class'] = cls
+				end
+				unless(self::class::OMIT_HEAD_TAG || matrix.at(1) >= ystep)
+					@grid.add_tag('TH', *matrix) 
+				end
+				if(title = @lookandfeel.lookup(header_key + '_title'))
+					@grid.add_attribute('title', title, *matrix)
+				end
+			}
+			#span = full_colspan || 1
+			resolve_offset(offset, step)
+		end
+		def css_head_map
+			@css_head_map ||= self::class::CSS_HEAD_MAP.dup
+		end
+    def fill_row(offset, key, klass)
+      @grid.add(@lookandfeel.lookup(key), *offset)
+      @grid.add_attribute('class', klass, *offset)
+      @grid.set_colspan(*offset)
+      resolve_offset(offset, self::class::OFFSET_STEP)
+    end
+		private
+		def init
+			@model ||= []
+			@index = 0
+			sort_model()
+			if(self::class::SORT_REVERSE && (@session.event != :sort))
+				@model = @model.reverse 
+			end
+			super
+		end
+    def row_css(model, bg_flag)
+      self::class::BACKGROUND_ROW if(bg_flag)
+    end
+    def sort_link(header_key, matrix, component)
+      link = Link.new(header_key, @model, @session, self)
+      args = {
+        'sortvalue'	=>	component.to_s,
+      }
+      link.attributes['href'] = @lookandfeel.event_url(:sort, args)
+      if((cls = css_head_map[matrix]) \
+        || (cls = self::class::DEFAULT_HEAD_CLASS))
+        link.attributes['class'] = cls
+      end
+      link
+    end
+		def sort_model
+			block = self::class::SORT_DEFAULT
+			if(block && (@session.event != :sort))
+				begin
+					if(block == :self)
+						@model = @model.sort
+					else
+						unless(block.is_a?(Proc))
+							block = Proc.new { |item| 
+								begin
+									item.send(self::class::SORT_DEFAULT) 
+								rescue RuntimeError => e
+									item.to_s
+								end
+							} 
+						end
+						@model = @model.sort_by(&block)
+					end
+				rescue StandardError => e
+					puts "could not sort: #{e.message}"
+				end
+			end
+		end
+	end
+end

data/lib/htmlgrid/namedcomponent.rb

@@ -0,0 +1,52 @@
+#!/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
+#
+# NamedComponent -- htmlgrid -- 19.11.2002 -- hwyss@ywesee.com 
+
+require 'htmlgrid/component'
+
+module HtmlGrid
+	class NamedComponent < Component
+		attr_reader :name
+		def initialize(name, model, session, container=nil)
+			@name = name
+			super(model, session, container)
+			@attributes['name'] = @name.to_s
+		end
+		def init
+			super
+			@attributes.update(@lookandfeel.attributes(@name)) if @lookandfeel
+		end
+		def data_origin
+			if(@model.respond_to?(:data_origin))
+				@model.data_origin(@name)
+			end
+		end
+		def error?
+			if(@model.respond_to?(:error?))
+				@model.error?(@name)
+			end
+		end
+	end
+end

data/lib/htmlgrid/pass.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
+#
+# Pass -- htmlgrid -- 03.03.2003 -- hwyss@ywesee.com 
+
+require 'htmlgrid/input'
+
+module HtmlGrid
+	class Pass < Input
+		LABEL = true
+		def init
+			super
+			@attributes['type'] = 'password'
+			@attributes.delete('value')
+		end
+	end
+end

data/lib/htmlgrid/passthru.rb

@@ -0,0 +1,44 @@
+#!/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
+#
+# PassThru -- HtmlGrid -- 29.10.2003 -- hwyss@ywesee.com
+
+module HtmlGrid
+	class PassThru
+		def initialize(model, session, container=nil)
+			@model = model
+			@session = session
+			@lookandfeel = @session.lookandfeel
+			init()
+		end
+		def init
+		end
+		def http_headers
+			{}
+		end
+		def to_html(context)
+			''
+		end
+	end
+end

data/lib/htmlgrid/popuplink.rb

@@ -0,0 +1,66 @@
+#!/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
+#
+# PopupLink -- htmlgrid -- 20.03.2003 -- hwyss@ywesee.com 
+
+require 'htmlgrid/link'
+
+module HtmlGrid 
+	class PopupLink < Link
+		attr_writer :width, :height
+		attr_writer :locationbar, :scrollbars, :resizable, :toolbar, :menubar
+		def init
+			super
+			@scrollbars = true
+			@resizable = true
+			@toolbar = true
+			@menubar = false
+			@locationbar = false
+			@width = 750
+			@height = 460
+		end
+    @@name_ptrn = /[^a-z]+/i
+		def to_html(context)
+			props = {
+				'scrollbars'	=>	yesorno(@scrollbars),
+				'resizable'		=>	yesorno(@resizable),
+				'toolbar'			=>	yesorno(@toolbar),
+				'menubar'			=>	yesorno(@menubar),
+				'locationbar'	=>	yesorno(@locationbar),
+				'width'				=>	@width,
+				'height'			=>	@height,
+			}.collect { |key, val|
+				[key,val].join('=')
+			}.join(',')
+			name = @lookandfeel.lookup(@name).to_s.gsub(@@name_ptrn, '')
+			script = "window.open('#{href}', '#{name}', '#{props}').focus(); return false"
+			@attributes.store('onClick', script)
+			super
+		end
+		private
+		def yesorno(value)
+			value ? 'yes' : 'no'
+		end
+	end
+end

data/lib/htmlgrid/reset.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
+#
+# Reset -- htmlgrid -- 14.01.2003 -- benfay@ywesee.com
+
+require 'htmlgrid/staticinput'
+
+module HtmlGrid
+	class Reset < StaticInput
+		def init
+			super
+			@attributes['type']	=	'reset'
+		end
+	end
+end

data/lib/htmlgrid/richtext.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Richtext -- htmlgrid -- 29.06.2004 -- mhuggler@ywesee.com
+
+require 'htmlgrid/component'
+
+module HtmlGrid
+	class RichText < Component
+		def init
+			super
+			@elements = []
+		end
+		def <<(element)
+			@elements.push(element)
+		end
+		def to_html(context)
+			@elements.collect { |element|
+				if(element.respond_to?(:to_html))
+					element.to_html(context) 
+				else
+					element.to_s
+				end
+			}.join(' ')
+		end
+	end
+end

data/lib/htmlgrid/select.rb

@@ -0,0 +1,53 @@
+#!/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
+#
+# Select -- htmlgrid -- 10.03.2003 -- hwyss@ywesee.com 
+
+require 'htmlgrid/namedcomponent'
+
+module HtmlGrid
+	class AbstractSelect < NamedComponent
+		LABEL = true
+		attr_accessor :selected, :valid_values
+		def to_html(context)
+			context.select(@attributes) {
+				sel = selection(context)
+				sel.is_a?(Array) ? sel.join : sel.to_s
+			}
+		end
+	end
+	class Select < AbstractSelect
+		private
+		def selection(context)
+			@selected ||= (@model.send(@name).to_s if(@model.respond_to?(@name)))
+			@valid_values ||= @session.valid_values(@name)
+			@valid_values.collect { |value|
+				val = value.to_s
+				attributes = { "value" => val }
+				attributes.store("selected", true) if(val == selected)
+				context.option(attributes) { @lookandfeel.lookup(value) { val } }
+			}
+		end
+	end
+end