resin 0.0.1 → 0.0.2

data/amber/st/Canvas.st

@@ -1,4 +1,339 @@
 Smalltalk current createPackage: 'Canvas' properties: #{}!
+Object subclass: #Widget
+	instanceVariableNames: ''
+	category: 'Canvas'!
+
+!Widget methodsFor: 'adding'!
+
+appendToBrush: aTagBrush
+    self appendToJQuery: aTagBrush asJQuery
+!
+
+appendToJQuery: aJQuery
+   self renderOn: (HTMLCanvas onJQuery: aJQuery)
+! !
+
+!Widget methodsFor: 'rendering'!
+
+renderOn: html
+    self
+! !
+
+Object subclass: #TagBrush
+	instanceVariableNames: 'canvas element'
+	category: 'Canvas'!
+
+!TagBrush methodsFor: 'accessing'!
+
+element
+    ^element
+! !
+
+!TagBrush methodsFor: 'adding'!
+
+contents: anObject
+    self 
+	empty;
+   	append: anObject
+!
+
+addBrush: aTagBrush
+    self appendChild: aTagBrush element.
+    ^aTagBrush
+!
+
+with: anObject
+    self append: anObject
+!
+
+append: anObject
+    anObject appendToBrush: self
+!
+
+appendToBrush: aTagBrush
+    aTagBrush addBrush: self
+!
+
+appendBlock: aBlock
+    | root |
+    root := canvas root.
+    canvas root: self.
+    aBlock value: canvas.
+    canvas root: root
+!
+
+appendChild: anElement
+	"In IE7 and IE8 appendChild fails on several node types. So we need to check" 
+ 	<var element=self['@element'];
+ 	if (null == element.canHaveChildren || element.canHaveChildren) {
+		element.appendChild(anElement);
+ 	} else {
+ 		element.text = String(element.text) +  anElement.innerHTML;
+ 	} >
+!
+
+appendString: aString
+    self appendChild: (self createTextNodeFor: aString)
+!
+
+empty
+	self asJQuery empty
+! !
+
+!TagBrush methodsFor: 'attributes'!
+
+at: aString put: aValue
+    <self['@element'].setAttribute(aString, aValue)>
+!
+
+removeAt: aString
+    <self['@element'].removeAttribute(aString)>
+!
+
+class: aString
+      <self['@element'].className = aString>
+!
+
+id: aString
+    self at: 'id' put: aString
+!
+
+src: aString
+    self  at: 'src' put: aString
+!
+
+href: aString
+    self at: 'href' put: aString
+!
+
+title: aString
+    self at: 'title' put: aString
+!
+
+style: aString
+    self at: 'style' put: aString
+!
+
+type: aString
+    self at: 'type' put: aString
+!
+
+media: aString
+    self at: 'media' put: aString
+!
+
+rel: aString
+    self  at: 'rel' put: aString
+!
+
+width: aString
+    self  at: 'width' put: aString
+!
+
+height: aString
+    self  at: 'height' put: aString
+!
+
+value: aString
+    self  at: 'value' put: aString
+!
+
+for: aString
+	self at: 'for' put: aString
+!
+
+placeholder: aString
+	self at: 'placeholder' put: aString
+!
+
+accesskey: aString
+	self at: 'accesskey' put: aString
+!
+
+contenteditable: aString
+	self at: 'contenteditable' put: aString
+!
+
+contextmenu: aString
+	self at: 'contextmenu' put: aString
+!
+
+draggable: aString
+	self at: 'draggable' put: aString
+!
+
+hidden
+	self at: 'hidden' put: 'hidden'
+!
+
+tabindex: aNumber
+	self at: 'tabindex' put: aNumber
+!
+
+target: aString
+	self at: 'target' put: aString
+!
+
+align: aString
+	self at: 'align' put: aString
+!
+
+alt: aString
+	self at: 'alt' put: aString
+!
+
+name: aString
+	self at: 'name' put: aString
+!
+
+valign: aString
+	self at: 'valign' put: aString
+!
+
+method: aString
+	self at: 'method' put: aString
+!
+
+action: aString
+	self at: 'action' put: aString
+!
+
+rows: aString
+	self at: 'rows' put: aString
+!
+
+cols: aString
+	self at: 'cols' put: aString
+! !
+
+!TagBrush methodsFor: 'converting'!
+
+asJQuery
+    ^window jQuery: self element
+! !
+
+!TagBrush methodsFor: 'events'!
+
+onKeyDown: aBlock
+    self asJQuery bind: 'keydown' do: aBlock
+!
+
+onKeyPress: aBlock
+    self asJQuery bind: 'keypress' do: aBlock
+!
+
+onKeyUp: aBlock
+    self asJQuery bind: 'keyup' do: aBlock
+!
+
+onFocus: aBlock
+    self asJQuery bind: 'focus' do: aBlock
+!
+
+onBlur: aBlock
+    self asJQuery bind: 'blur' do: aBlock
+!
+
+onChange: aBlock
+    self asJQuery bind: 'change' do: aBlock
+!
+
+onClick: aBlock
+    self asJQuery bind: 'click' do: aBlock
+!
+
+onSubmit: aBlock
+	self asJQuery bind: 'submit' do: aBlock
+!
+
+onDblClick: aBlock
+	self asJQuery bind: 'dblclick' do: aBlock
+!
+
+onHover: aBlock
+	self asJQuery bind: 'hover' do: aBlock
+!
+
+onFocusIn: aBlock
+	self asJQuery bind: 'focusin' do: aBlock
+!
+
+onFocusOut: aBlock
+	self asJQuery bind: 'focusout' do: aBlock
+!
+
+onMouseDown: aBlock
+	self asJQuery bind: 'mousedown' do: aBlock
+!
+
+onMouseUp: aBlock
+	self asJQuery bind: 'mouseup' do: aBlock
+!
+
+onMouseEnter: aBlock
+	self asJQuery bind: 'mouseenter' do: aBlock
+!
+
+onMouseLeave: aBlock
+	self asJQuery bind: 'mouseleave' do: aBlock
+!
+
+onMouseMove: aBlock
+	self asJQuery bind: 'mousemove' do: aBlock
+!
+
+onMouseOut: aBlock
+	self asJQuery bind: 'mouseout' do: aBlock
+!
+
+onMouseOver: aBlock
+	self asJQuery bind: 'mouseover' do: aBlock
+!
+
+onSelect: aBlock
+	self asJQuery bind: 'select' do: aBlock
+!
+
+onUnload: aBlock
+	self asJQuery bind: 'unload' do: aBlock
+! !
+
+!TagBrush methodsFor: 'initialization'!
+
+initializeFromString: aString canvas: aCanvas
+    element := self createElementFor: aString.
+    canvas := aCanvas
+!
+
+initializeFromJQuery: aJQuery canvas: aCanvas
+    element := aJQuery get: 0.
+    canvas := aCanvas
+! !
+
+!TagBrush methodsFor: 'private'!
+
+createElementFor: aString
+	<return document.createElement(String(aString))>
+!
+
+createTextNodeFor: aString
+	<return document.createTextNode(String(aString))>
+! !
+
+!TagBrush class methodsFor: 'instance creation'!
+
+fromString: aString canvas: aCanvas
+    ^self new
+	initializeFromString: aString canvas: aCanvas;
+	yourself
+!
+
+fromJQuery: aJQuery canvas: aCanvas
+    ^self new
+	initializeFromJQuery: aJQuery canvas: aCanvas;
+	yourself
+! !
+
 Object subclass: #HTMLCanvas
 	instanceVariableNames: 'root'
 	category: 'Canvas'!
@@ -224,10 +559,6 @@ style: aString
 	^ self style with: aString; yourself
 !
 
-articles
-    ^self tag: 'articles'
-!
-
 audio
     ^self tag: 'audio'
 !
@@ -266,226 +597,231 @@ thead
 
 video
     ^self tag: 'video'
-! !
+!
 
-!HTMLCanvas class methodsFor: 'instance creation'!
+label
+	^self tag: 'label'
+!
 
-onJQuery: aJQuery
-	^self basicNew
-		initializeFromJQuery: aJQuery;
-		initialize;
-		yourself
-! !
+title
+	^self tag: 'title'
+!
 
-Object subclass: #TagBrush
-	instanceVariableNames: 'canvas element'
-	category: 'Canvas'!
+time
+	^self tag: 'time'
+!
 
-!TagBrush methodsFor: 'accessing'!
+sup
+	^self tag: 'sup'
+!
 
-element
-    ^element
-! !
+summary
+	^self tag: 'summary'
+!
 
-!TagBrush methodsFor: 'adding'!
+sub
+	^self tag: 'sub'
+!
 
-contents: anObject
-    self 
-	empty;
-   	append: anObject
+strong
+	^self tag: 'strong'
 !
 
-addBrush: aTagBrush
-    self appendChild: aTagBrush element.
-    ^aTagBrush
+strong: anObject
+	^self strong with: anObject
 !
 
-with: anObject
-    self append: anObject
+source
+	^self tag: 'source'
 !
 
-append: anObject
-    anObject appendToBrush: self
+small
+	^self tag: 'small'
 !
 
-appendToBrush: aTagBrush
-    aTagBrush addBrush: self
+progress
+	^self tag: 'progress'
 !
 
-appendBlock: aBlock
-    | root |
-    root := canvas root.
-    canvas root: self.
-    aBlock value: canvas.
-    canvas root: root
+param
+	^self tag: 'param'
 !
 
-appendChild: anElement
-	"In IE7 and IE8 appendChild fails on several node types. So we need to check" 
- 	<var element=self['@element'];
- 	if (null == element.canHaveChildren || element.canHaveChildren) {
-		element.appendChild(anElement);
- 	} else {
- 		element.text = String(element.text) +  anElement.innerHTML;
- 	} >
+output
+	^self tag: 'output'
 !
 
-appendString: aString
-    self appendChild: (self createTextNodeFor: aString)
+optgroup
+	^self tag: 'optgroup'
 !
 
-empty
-	self asJQuery empty
-! !
+object
+	^self tag: 'object'
+!
 
-!TagBrush methodsFor: 'attributes'!
+noscript
+	^self tag: 'noscript'
+!
 
-at: aString put: aValue
-    <self['@element'].setAttribute(aString, aValue)>
+nav
+	^self tag: 'nav'
 !
 
-removeAt: aString
-    <self['@element'].removeAttribute(aString)>
+meta
+	^self tag: 'meta'
 !
 
-class: aString
-      <self['@element'].className = aString>
+menu
+	^self tag: 'menu'
 !
 
-id: aString
-    self at: 'id' put: aString
+mark
+	^self tag: 'mark'
 !
 
-src: aString
-    self  at: 'src' put: aString
+map
+	^self tag: 'map'
 !
 
-href: aString
-    self at: 'href' put: aString
+legend
+	^self tag: 'legend'
 !
 
-title: aString
-    self at: 'title' put: aString
+html
+	^self tag: 'html'
 !
 
-style: aString
-    self at: 'style' put: aString
+hgroup
+	^self tag: 'hgroup'
 !
 
-type: aString
-    self at: 'type' put: aString
+head
+	^self tag: 'head'
 !
 
-media: aString
-    self at: 'media' put: aString
+figure
+	^self tag: 'figure'
 !
 
-rel: aString
-    self  at: 'rel' put: aString
+figcaption
+	^self tag: 'figcaption'
 !
 
-width: aString
-    self  at: 'width' put: aString
+embed
+	^self tag: 'embed'
 !
 
-height: aString
-    self  at: 'height' put: aString
+em
+	^self tag: 'em'
 !
 
-value: aString
-    self  at: 'value' put: aString
-! !
+dt
+	^self tag: 'dt'
+!
 
-!TagBrush methodsFor: 'converting'!
+dl
+	^self tag: 'dl'
+!
 
-asJQuery
-    ^window jQuery: self element
-! !
+details
+	^self tag: 'details'
+!
 
-!TagBrush methodsFor: 'events'!
+del
+	^self tag: 'del'
+!
 
-onKeyDown: aBlock
-    self asJQuery bind: 'keydown' do: aBlock
+dd
+	^self tag: 'dd'
 !
 
-onKeyPress: aBlock
-    self asJQuery bind: 'keypress' do: aBlock
+datalist
+	^self tag: 'datalist'
 !
 
-onKeyUp: aBlock
-    self asJQuery bind: 'keyup' do: aBlock
+command
+	^self tag: 'command'
 !
 
-onFocus: aBlock
-    self asJQuery bind: 'focus' do: aBlock
+colgroup
+	^self tag: 'colgroup'
 !
 
-onBlur: aBlock
-    self asJQuery bind: 'blur' do: aBlock
+col
+	^self tag: 'col'
 !
 
-onChange: aBlock
-    self asJQuery bind: 'change' do: aBlock
+cite
+	^self tag: 'cite'
 !
 
-onClick: aBlock
-    self asJQuery bind: 'click' do: aBlock
-! !
+caption
+	^self tag: 'caption'
+!
 
-!TagBrush methodsFor: 'initialization'!
+body
+	^self tag: 'body'
+!
 
-initializeFromString: aString canvas: aCanvas
-    element := self createElementFor: aString.
-    canvas := aCanvas
+blockquote
+	^self tag: 'blockquote'
 !
 
-initializeFromJQuery: aJQuery canvas: aCanvas
-    element := aJQuery get: 0.
-    canvas := aCanvas
-! !
+base
+	^self tag: 'base'
+!
 
-!TagBrush methodsFor: 'private'!
+aside
+	^self tag: 'aside'
+!
 
-createElementFor: aString
-	<return document.createElement(String(aString))>
+article
+    ^self tag: 'article'
 !
 
-createTextNodeFor: aString
-	<return document.createTextNode(String(aString))>
-! !
+area
+	^self tag: 'area'
+!
 
-!TagBrush class methodsFor: 'instance creation'!
+address
+	^self tag: 'address'
+!
 
-fromString: aString canvas: aCanvas
-    ^self new
-	initializeFromString: aString canvas: aCanvas;
-	yourself
+abbr
+	^self tag: 'abbr'
 !
 
-fromJQuery: aJQuery canvas: aCanvas
-    ^self new
-	initializeFromJQuery: aJQuery canvas: aCanvas;
-	yourself
+div: aBlock
+    ^self div with: aBlock
 ! !
 
-Object subclass: #Widget
-	instanceVariableNames: ''
-	category: 'Canvas'!
+!HTMLCanvas class methodsFor: 'instance creation'!
 
-!Widget methodsFor: 'adding'!
+onJQuery: aJQuery
+	^self basicNew
+		initializeFromJQuery: aJQuery;
+		initialize;
+		yourself
+!
 
-appendToBrush: aTagBrush
-    self appendToJQuery: aTagBrush asJQuery
+isMSIE
+	^((jQuery at: #browser) at: #msie) notNil
 !
 
-appendToJQuery: aJQuery
-   self renderOn: (HTMLCanvas onJQuery: aJQuery)
-! !
+isOpera
+	^((jQuery at: #browser) at: #opera) notNil
+!
 
-!Widget methodsFor: 'rendering'!
+isMozilla
+	^((jQuery at: #browser) at: #mozilla) notNil
+!
 
-renderOn: html
-    self
+isWebkit
+	^((jQuery at: #browser) at: #webkit) notNil
+!
+
+browserVersion
+	^(jQuery at: #browser) version
 ! !
 
 TagBrush subclass: #StyleTag
@@ -499,19 +835,11 @@ For inlining handle IE compatibility problems.!
 !StyleTag methodsFor: 'adding'!
 
 with: aString
-	self isBrowserIE
+	HTMLCanvas isMSIE
 		ifTrue: [self element styleSheet cssText: aString ]
 		ifFalse: [super with: aString ].
 ! !
 
-!StyleTag methodsFor: 'testing'!
-
-isBrowserIE
-	|ie|
-	ie := <jQuery.browser.msie>.
-	^ ie notNil.
-! !
-
 !StyleTag class methodsFor: 'instance creation'!
 
 canvas: aCanvas