htmlgrid 1.0.0

data/test/test_list.rb

@@ -0,0 +1,146 @@
+#!/usr/bin/env ruby
+#
+#	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
+#
+# TestList -- htmlgrid -- 03.03.2003 -- hwyss@ywesee.com 
+
+$: << File.dirname(__FILE__)
+$: << File.expand_path("../lib", File.dirname(__FILE__))
+
+require 'test/unit'
+require 'htmlgrid/list'
+require 'stub/cgi'
+
+module HtmlGrid
+	class Grid
+		class Row
+			class Field
+				attr_reader	:attributes
+			end
+		end
+	end
+	class List < Composite
+		attr_reader :grid
+		public :lookandfeel_key
+	end
+end
+class StubListViewColumnNames < HtmlGrid::List
+	LOOKANDFEEL_MAP = {
+		:raffi	=>	:waltert,
+		:andy		=>	:schrafl,
+	}
+	COMPONENTS = {}
+end
+class StubList < HtmlGrid::List
+	attr_reader :model
+	COMPONENTS = {
+		[0,0]	=>	:jaguar,
+		[1,0]	=>	:panther,
+	}	
+	CSS_MAP = {
+		[0,0]	=>	'flecken',
+		[1,0]	=>	'schwarz',
+	}
+	SORT_HEADER = false
+	SORT_DEFAULT = :foo
+end
+class StubListLookandfeel
+	def lookup(key)
+		key
+	end
+	def attributes(key)
+		{}
+	end
+end
+class StubListSession
+	attr_accessor :event
+	def lookandfeel
+		StubListLookandfeel.new
+	end
+end
+class StubListModel
+	attr_reader :foo
+	def initialize(foo)
+		@foo = foo
+	end
+	def jaguar
+		'Jaguar'
+	end
+	def panther
+		'Panther'
+	end
+end	
+
+class TestList < Test::Unit::TestCase
+	def setup
+		model = [
+			StubListModel.new(3),
+			StubListModel.new(2),
+			StubListModel.new(4),
+			StubListModel.new(1),
+		]
+		@list = StubList.new(model, StubListSession.new)
+	end
+	def test_compose
+		@list.compose
+		assert_equal(5, @list.grid.height)
+		assert_equal(2, @list.grid.width)
+	end
+	def test_default_sort
+		foos = @list.model.collect { |item| item.foo }
+		expected = [ 1,2,3,4 ]
+		assert_equal(expected, foos)
+	end
+	def test_header
+		expected = '<TABLE cellspacing="0"><TR><TH title="th_jaguar_title">th_jaguar</TH><TH title="th_panther_title">th_panther</TH>'
+		assert_equal(0, @list.to_html(CGI.new).index(expected))
+	end
+	def test_lookandfeel_key
+		list = StubListViewColumnNames.new([], StubListSession.new)
+		assert_equal(:waltert, list.lookandfeel_key(:raffi))	
+		assert_equal(:hannes, list.lookandfeel_key(:hannes))	
+	end
+	def test_nil_robust
+		assert_nothing_raised {
+			StubList.new(nil, StubListSession.new)
+		}
+	end
+	def test_suffix
+		@list.compose
+		expected = {
+			[0,1]	=>	"flecken",
+			[1,1]	=>	"schwarz",
+			[0,2]	=>	"flecken-bg",
+			[1,2]	=>	"schwarz-bg",
+			[0,3]	=>	"flecken",
+			[1,3]	=>	"schwarz",
+			[0,4]	=>	"flecken-bg",
+			[1,4]	=>	"schwarz-bg",
+		}
+		expected.each { |key, value|
+			assert_equal(value, @list.grid.field_attribute("class", *key))
+		}
+	end
+	def test_title
+		assert_equal('th_jaguar_title', @list.grid.field_attribute('title', 0, 0))
+	end
+end

data/test/test_select.rb

@@ -0,0 +1,78 @@
+#!/usr/bin/env ruby
+#
+#	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
+#
+# TestSelect -- htmlgrid -- 10.03.2003 -- hwyss@ywesee.com 
+
+$: << File.expand_path("../lib", File.dirname(__FILE__))
+
+require 'test/unit'
+require 'htmlgrid/select'
+require 'stub/cgi'
+
+class StubSelectLookandfeel
+	def attributes(key)
+		{}
+	end
+	def lookup(key)
+		{
+			'foofoo'	=>	'Foo Nr. 1',
+			'foobar'	=>	'Foo Nr. 2',
+			'barfoo'	=>	'Bar Nr. 1',
+			'barbar'	=>	'Bar Nr. 2',
+			'foovals'	=>	'FooLabel',
+		}.fetch(key)
+	end
+end
+class StubSelectSession
+	def valid_values(key)
+		[ 'foofoo', 'foobar', 'barfoo', 'barbar' ]
+	end
+	def lookandfeel
+		StubSelectLookandfeel.new
+	end
+end
+class StubSelectData
+	def foovals
+		'foobar'
+	end
+end
+
+class TestSelect < Test::Unit::TestCase
+	def setup
+		@component = HtmlGrid::Select.new(:foovals, StubSelectData.new,
+			StubSelectSession.new)
+	end
+	def test_to_html
+		expected = []
+		expected << '<SELECT name="foovals">'
+		expected << '<OPTION value="foofoo">Foo Nr. 1</OPTION>'
+		expected << '<OPTION selected value="foobar">Foo Nr. 2</OPTION>'
+		expected << '<OPTION value="barfoo">Bar Nr. 1</OPTION>'
+		expected << '<OPTION value="barbar">Bar Nr. 2</OPTION>'
+		expected << '</SELECT>'
+		result = @component.to_html(CGI.new).to_s
+		expected.each { |line|
+			assert(result.index(line), "Missing line:\n#{line}\nin:\n#{result}")
+		}
+	end
+end

data/test/test_template.rb

@@ -0,0 +1,97 @@
+#!/usr/bin/env ruby
+#
+#	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, downloads.ywesee.com/ruby/htmlgrid
+#
+# TestTemplate -- htmlgrid -- 19.11.2002 -- hwyss@ywesee.com 
+
+$: << File.expand_path("../lib", File.dirname(__FILE__))
+$: << File.dirname(__FILE__)
+
+require 'test/unit'
+require 'stub/cgi'
+require 'sbsm/lookandfeel'
+require 'htmlgrid/template'
+
+class StubTemplateSession
+	def flavor
+		"gcc"
+	end
+	def language
+		"de"
+	end
+  def http_protocol
+    'http'
+  end
+  def server_name
+    "testserver.com"
+  end
+	alias :default_language :language
+end
+class StubTemplateLookandfeel < SBSM::Lookandfeel
+	RESOURCES = {
+		:css	=>	"test.css"
+	}
+	DICTIONARIES = {
+		"de"	=>	{
+			:html_title	=>	"Test",
+		}
+	}
+	def lookandfeel
+		self
+	end
+end
+class Template < HtmlGrid::Template
+	META_TAGS = [
+		{
+			"http-equiv"	=>	"robots",
+			"content"			=>	"follow, index",
+		},
+	]
+	COMPONENTS = {
+		[0,0]	=>	:foo,	
+	}
+	LEGACY_INTERFACE = false
+	def foo(model)
+		'foo'
+	end
+end
+
+class TestTemplate < Test::Unit::TestCase
+	def setup
+		lookandfeel = StubTemplateLookandfeel.new(StubTemplateSession.new)
+		@template = Template.new(nil, lookandfeel, nil)
+	end
+	def test_to_html
+		result = ""
+		assert_nothing_raised {
+			result << @template.to_html(CGI.new)
+		}
+		expected = [
+			'<TITLE>Test</TITLE>',
+			'<LINK href="http://testserver.com/resources/gcc/test.css" rel="stylesheet" type="text/css">',
+			'<META content="follow, index" http-equiv="robots">',
+		]
+		expected.each { |line|
+			assert(result.index(line), "Missing: #{line}")
+		}
+	end
+end

data/test/test_text.rb

@@ -0,0 +1,63 @@
+#!/usr/bin/env ruby
+#
+#	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
+#
+# TextText -- htmlgrid -- 20.11.2002 -- hwyss@ywesee.com 
+
+$: << File.expand_path("../lib", File.dirname(__FILE__))
+
+require 'test/unit'
+require 'htmlgrid/text'
+
+class StubTextLookandfeel
+	def lookup(key)
+		{
+			:foo	=>	"Foo Text!",
+			:navigation_divider =>	"&nbsp;|&nbsp;",
+		}[key]
+	end
+	def attributes(key)
+		{"foo"	=>	"bar"} if key==:foo
+	end
+	def lookandfeel
+		self
+	end
+end
+
+class TestText < Test::Unit::TestCase
+	def setup
+		@view = HtmlGrid::Text.new(:foo, nil, StubTextLookandfeel.new)
+	end
+	def test_respond_to_attributes
+		assert_respond_to(@view, :attributes)
+	end
+	def test_to_html
+		assert_equal("Foo Text!", @view.to_html(nil))
+	end
+	def test_init
+		expected = {
+			"foo"		=>	"bar",
+			"name"	=>	"foo",
+		}
+		assert_equal(expected, @view.attributes)
+	end
+end

data/usage-en.txt

@@ -0,0 +1,112 @@
+Installing Programs with install.rb / setup.rb
+==============================================
+    
+Overview
+--------
+    
+  Type these lines on command line:
+  ("#" line may require root privilege)
+
+      $ ruby install.rb config
+      $ ruby install.rb setup
+      # ruby install.rb install
+
+    
+  There's no difference in a usage between install.rb
+  and setup.rb.
+
+      $ ruby setup.rb config
+      $ ruby setup.rb setup
+      # ruby setup.rb install
+
+    
+Details
+-------
+    
+  Usage of install.rb/setup.rb is:
+
+      ruby install.rb <global options>
+      ruby install.rb [<global options>] <task> [<task options>]
+
+    
+    -q,--quiet
+        suppress message outputs
+    --verbose
+        output messages verbosely (default)
+    -h,--help
+        prints help and quit
+    -v,--version
+        prints version and quit
+    --copyright
+        prints copyright and quit
+    
+  These are acceptable tasks:
+    config
+        saves configurations
+    show
+        prints current configurations
+    setup
+        compiles extentions
+    install
+        installs files
+    clean
+        cleans created files
+    
+  Task Options for Config
+  -----------------------
+    
+    --prefix=PATH
+        a prefix of the installing directory path
+    --std-ruby=PATH
+        the directory for standard ruby libraries
+    --site-ruby-common=PATH
+        the directory for version-independent non-standard
+        ruby libraries
+    --site-ruby=PATH
+        the directory for non-standard ruby libraries
+    --bin-dir=PATH
+        the directory for commands
+    --rb-dir=PATH
+        the directory for ruby scripts
+    --so-dir=PATH
+        the directory for ruby extentions
+    --data-dir=PATH
+        the directory for shared data
+    --ruby-path=PATH
+        path to set to #! line
+    --ruby-prog=PATH
+        the ruby program using for installation
+    --make-prog=NAME
+        the make program to compile ruby extentions
+    --without-ext
+        forces to install.rb never to compile/install
+        ruby extentions.
+    --rbconfig=PATH
+        your rbconfig.rb to load
+    
+  You can view default values of these options by typing
+
+      $ ruby install.rb --help
+
+    
+  In addition, setup.rb accepts these options:
+    --with=NAME,NAME,NAME...
+        package names which you want to install
+    --without=NAME,NAME,NAME...
+        package names which you do not want to install
+    
+  [NOTE] You can pass options for extconf.rb like this:
+
+      ruby install.rb config -- --with-tklib=/usr/lib/libtk-ja.so.8.0
+
+    
+  Task Options for Install
+  ------------------------
+    
+    --no-harm
+        prints what to do and done nothing really.
+    --prefix=PATH
+        a prefix of the installing directory path.
+        This option may help binary package maintainers.
+        A default value is an empty string.
+    

data/widget/Tooltip.js

@@ -0,0 +1,85 @@
+dojo.provide("ywesee.widget.Tooltip");
+
+dojo.require("dijit.Tooltip");
+dojo.require("dijit.layout.ContentPane");
+
+dojo.declare(
+  "ywesee.widget.Tooltip",    
+  [dijit.Tooltip],
+  {
+    href: null,
+    contentPane: null,
+    _contentNode: null,
+    _hoverContent: false,
+    _handle1: null,
+    _handle2: null,
+    _handle3: null,
+    _handle4: null,
+    _hideTimer: null,
+
+    open: function(){
+      //if(this.isShowingNow) { return; }
+
+      if(!dijit._masterTT){
+        dijit._masterTT=new dijit._MasterTooltip();
+      }
+
+      this._contentNode = dijit._masterTT.domNode;
+      if(this.href && (!this.contentPane)) {
+        this.domNode = document.createElement("div");
+        this.contentPane = new dijit.layout.ContentPane({href:this.href}, this.domNode);
+        this.connect(this.contentPane, 'onLoad', 'onLoad');
+        this.contentPane.startup();
+      }
+      this._handle1 = dojo.connect(this._contentNode, 'onmouseover', this, 'onHoverContent');
+      this._handle2 = dojo.connect(this._contentNode, 'onhover', this, 'onHoverContent');
+      this._handle3 = dojo.connect(this._contentNode, 'onmouseout', this, 'onUnHoverContent');
+      this._handle4 = dojo.connect(this._contentNode, 'onunhover', this, 'onUnHoverContent');
+      this.inherited("open", arguments);
+    },
+
+    close: function(){
+      dojo.disconnect(this._handle1);
+      dojo.disconnect(this._handle2);
+      dojo.disconnect(this._handle3);
+      dojo.disconnect(this._handle4);
+      this.inherited("close", arguments);
+    },
+
+    onLoad: function(){
+      //if(this.isShowingNow){
+        this.close();
+        this.open();
+      //}
+    },
+
+    onHoverContent: function(/*Event*/ e){
+      this._hoverContent = true;
+    },
+
+    onUnHoverContent: function(/*Event*/ e){
+			if(dojo.isDescendant(e.relatedTarget, this._contentNode)){
+				// false event; just moved from target to target child; ignore.
+				return;
+			}
+      this._hoverContent = false;
+      this._onUnHover(e);
+    },
+
+    _onUnHover: function(/*Event*/ e){
+      if(this._hoverContent) { return; }
+      this._hideTimer = setTimeout(dojo.hitch(this, "_deferredOnUnHover", arguments), 100);
+    },
+
+    _deferredOnUnHover: function(/*Event*/ e){
+      if(this._hoverContent) { return; }
+
+			if(this._showTimer){
+				clearTimeout(this._showTimer);
+				delete this._showTimer;
+			}else{
+				this.close();
+			}
+    }
+  }
+);