Fix #88: Run asUnHtml only once when attributes are set.

Author: MrSerth

packages/HTML.package/HtmlDOMNode.class/instance/attributes..st

@@ -3,8 +3,10 @@ attributes: anObject
 	"Set the value of attributes"
 
 	| cstr |
-
-	attributes := anObject.
+	
+	attributes := Dictionary new.
+	anObject keysAndValuesDo: 
+		[ :eachKey :eachValue | attributes at: eachKey put: eachValue asUnHtml].
 	id := (attributes at: 'id' ifAbsent: [nil]).
 	cstr := attributes at: 'class' ifAbsent: [nil].
 	classes := cstr isNil ifTrue: [#()] ifFalse: [cstr findTokens: ' '].

packages/HTML.package/HtmlDOMNode.class/instance/attributes.st

@@ -2,7 +2,4 @@ accessing
 attributes
 	"Answer the value of attributes"
 
-	attributes ifNil: [attributes:=Dictionary new].
-	attributes keysAndValuesDo: 
-		[ :eachKey :eachValue | attributes at: eachKey put: eachValue asUnHtml].
-	^ attributes
+	^ attributes ifNil: [attributes:=Dictionary new]

packages/HTML.package/HtmlDOMNode.class/methodProperties.json

@@ -8,8 +8,8 @@
 		"addToFormatter:" : "rs 5/18/2014 15:33:20.542",
 		"addToHtmlMorph:" : "rs 5/28/2014 12:40:28.418",
 		"associatedForm" : "rs 5/29/2014 23:10:34.728",
-		"attributes" : "SS 6/5/2014 11:32",
-		"attributes:" : "rs 5/30/2014 16:40:08.186",
+		"attributes" : "tb 11/30/2005 12:26",
+		"attributes:" : "SS 6/7/2014 10:27",
 		"childDTDTags" : "tb 12/1/2005 09:11",
 		"childTags" : "tb 12/1/2005 09:12",
 		"classes" : "tb 1/4/2006 13:52",

packages/HTML.package/monticello.meta/version

@@ -1 +1 @@
-265cd527-7860-4ed2-9ef0-84086c072947
+429e44ef-e21e-4f8a-9b16-0d1f975279c6

packages/HTML.package/monticello.meta/version.d/HTML-SS.74_429e44ef-e21e-4f8a-9b16-0d1f975279c6

@@ -0,0 +1 @@
+(name 'HTML-SS.74'message 'Run asUnHtml only once when attributes are set.'id '429e44ef-e21e-4f8a-9b16-0d1f975279c6'date '7 June 2014'time '10:29:46.122 am'author 'SS'ancestors ((id '265cd527-7860-4ed2-9ef0-84086c072947'))stepChildren ())