mdbe 0.1.0

data/public/amber/st/Benchfib.js

@@ -0,0 +1,297 @@
+define("amber_core/Benchfib", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_vm/globals", "amber_core/Kernel-Objects"], function(smalltalk,nil,_st, globals){
+smalltalk.addPackage('Benchfib');
+smalltalk.packages["Benchfib"].transport = {"type":"amd","amdNamespace":"amber_core"};
+
+smalltalk.addClass('Benchfib', globals.Object, [], 'Benchfib');
+
+smalltalk.addMethod(
+smalltalk.method({
+selector: "main",
+protocol: 'not yet classified',
+fn: function (){
+var self=this;
+var result;
+return smalltalk.withContext(function($ctx1) { 
+result=(0)._tinyBenchmarks();
+_st(console)._log_("0 tinyBenchmarks => ".__comma(result));
+return self}, function($ctx1) {$ctx1.fill(self,"main",{result:result},globals.Benchfib.klass)})},
+args: [],
+source: "main\x0a\x0a\x09| result |\x0a\x09result := 0 tinyBenchmarks.\x0a\x09console log: '0 tinyBenchmarks => ' , result",
+messageSends: ["tinyBenchmarks", "log:", ","],
+referencedClasses: []
+}),
+globals.Benchfib.klass);
+
+smalltalk.addMethod(
+smalltalk.method({
+selector: "benchFib",
+protocol: '*Benchfib',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$5,$4,$3,$1;
+$2=self.__lt((2));
+if(smalltalk.assert($2)){
+$1=(1);
+} else {
+$5=self.__minus((1));
+$ctx1.sendIdx["-"]=1;
+$4=_st($5)._benchFib();
+$ctx1.sendIdx["benchFib"]=1;
+$3=_st($4).__plus(_st(self.__minus((2)))._benchFib());
+$1=_st($3).__plus((1));
+$ctx1.sendIdx["+"]=1;
+};
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"benchFib",{},globals.Number)})},
+args: [],
+source: "benchFib \x0a\x09\x22Handy send-heavy benchmark\x22\x0a\x09\x22(result // seconds to run) = approx calls per second\x22\x0a\x09\x22 | r t |\x0a\x09  t := Time millisecondsToRun: [r := 26 benchFib].\x0a\x09  (r * 1000) // t\x22\x0a\x09\x22138000 on a Mac 8100/100\x22\x0a\x09^ self < 2 \x0a\x09\x09ifTrue: [1] \x0a\x09\x09ifFalse: [(self-1) benchFib + (self-2) benchFib + 1]",
+messageSends: ["ifTrue:ifFalse:", "<", "+", "benchFib", "-"],
+referencedClasses: []
+}),
+globals.Number);
+
+smalltalk.addMethod(
+smalltalk.method({
+selector: "benchmark",
+protocol: '*Benchfib',
+fn: function (){
+var self=this;
+var size,flags,prime,k,count;
+function $Array(){return globals.Array||(typeof Array=="undefined"?nil:Array)}
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
+size=(8190);
+(1)._to_do_(self,(function(iter){
+return smalltalk.withContext(function($ctx2) {
+count=(0);
+count;
+flags=_st($Array())._new();
+flags;
+_st(size)._timesRepeat_((function(){
+return smalltalk.withContext(function($ctx3) {
+return _st(flags)._add_(true);
+}, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
+return (1)._to_do_(size,(function(i){
+return smalltalk.withContext(function($ctx3) {
+$1=_st(flags)._at_(i);
+if(smalltalk.assert($1)){
+prime=_st(i).__plus((1));
+$ctx3.sendIdx["+"]=1;
+prime;
+k=_st(i).__plus(prime);
+$ctx3.sendIdx["+"]=2;
+k;
+_st((function(){
+return smalltalk.withContext(function($ctx4) {
+return _st(k).__lt_eq(size);
+}, function($ctx4) {$ctx4.fillBlock({},$ctx3,5)})}))._whileTrue_((function(){
+return smalltalk.withContext(function($ctx4) {
+_st(flags)._at_put_(k,false);
+k=_st(k).__plus(prime);
+$ctx4.sendIdx["+"]=3;
+return k;
+}, function($ctx4) {$ctx4.fillBlock({},$ctx3,6)})}));
+count=_st(count).__plus((1));
+return count;
+};
+}, function($ctx3) {$ctx3.fillBlock({i:i},$ctx2,3)})}));
+}, function($ctx2) {$ctx2.fillBlock({iter:iter},$ctx1,1)})}));
+$ctx1.sendIdx["to:do:"]=1;
+$2=count;
+return $2;
+}, function($ctx1) {$ctx1.fill(self,"benchmark",{size:size,flags:flags,prime:prime,k:k,count:count},globals.Number)})},
+args: [],
+source: "benchmark \x0a\x09\x22Handy bytecode-heavy benchmark\x22\x0a\x09\x22(500000 // time to run) = approx bytecodes per second\x22\x0a\x09\x225000000 // (Time millisecondsToRun: [10 benchmark]) * 1000\x22\x0a\x09\x223059000 on a Mac 8100/100\x22\x0a    | size flags prime k count |\x0a    size := 8190.\x0a    1 to: self do:\x0a        [:iter |\x0a        count := 0.\x0a        flags := Array new.\x0a        size timesRepeat: [ flags add: true].\x0a        1 to: size do:\x0a            [:i | (flags at: i) ifTrue:\x0a                [prime := i+1.\x0a                k := i + prime.\x0a                [k <= size] whileTrue:\x0a                    [flags at: k put: false.\x0a                    k := k + prime].\x0a                count := count + 1]]].\x0a    ^ count",
+messageSends: ["to:do:", "new", "timesRepeat:", "add:", "ifTrue:", "at:", "+", "whileTrue:", "<=", "at:put:"],
+referencedClasses: ["Array"]
+}),
+globals.Number);
+
+smalltalk.addMethod(
+smalltalk.method({
+selector: "jsbenchFib",
+protocol: '*Benchfib',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+if (this < 2) {
+return 1;
+} else {
+return (this-1)._jsbenchFib() + (this-2)._jsbenchFib() + 1;};
+return self}, function($ctx1) {$ctx1.fill(self,"jsbenchFib",{},globals.Number)})},
+args: [],
+source: "jsbenchFib\x0a \x0a\x09<if (this < 2) {\x0areturn 1;\x0a} else {\x0areturn (this-1)._jsbenchFib() + (this-2)._jsbenchFib() + 1;}>",
+messageSends: [],
+referencedClasses: []
+}),
+globals.Number);
+
+smalltalk.addMethod(
+smalltalk.method({
+selector: "jsbenchmark",
+protocol: '*Benchfib',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+
+var size = 8190;
+var count;
+for (var z=0;z<this;z++) {
+  count = 0;
+  var flags = new Array();
+  for (var p=0; p<size; p++) {
+    flags[p] = true;
+  }
+  for (var i=1;i<=size;i++) {
+    if (flags[i-1]) {
+      var prime = i+1;
+      var k = i + prime;
+      while (k <= size) {
+        flags[k-1] = false;
+        k = k + prime;
+      }
+      count = count + 1;
+    }
+  }
+}
+return count;
+return self}, function($ctx1) {$ctx1.fill(self,"jsbenchmark",{},globals.Number)})},
+args: [],
+source: "jsbenchmark\x0a\x0a<\x0avar size = 8190;\x0avar count;\x0afor (var z=0;z<this;z++) {\x0a  count = 0;\x0a  var flags = new Array();\x0a  for (var p=0; p<size; p++) {\x0a    flags[p] = true;\x0a  }\x0a  for (var i=1;i<=size;i++) {\x0a    if (flags[i-1]) {\x0a      var prime = i+1;\x0a      var k = i + prime;\x0a      while (k <= size) {\x0a        flags[k-1] = false;\x0a        k = k + prime;\x0a      }\x0a      count = count + 1;\x0a    }\x0a  }\x0a}\x0areturn count>",
+messageSends: [],
+referencedClasses: []
+}),
+globals.Number);
+
+smalltalk.addMethod(
+smalltalk.method({
+selector: "jstinyBenchmarks",
+protocol: '*Benchfib',
+fn: function (){
+var self=this;
+var t1,t2,r,n1,n2;
+function $Date(){return globals.Date||(typeof Date=="undefined"?nil:Date)}
+return smalltalk.withContext(function($ctx1) { 
+var $7,$6,$5,$4,$3,$2,$1;
+n1=(1);
+_st((function(){
+return smalltalk.withContext(function($ctx2) {
+t1=_st($Date())._millisecondsToRun_((function(){
+return smalltalk.withContext(function($ctx3) {
+return _st(n1)._jsbenchmark();
+}, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
+$ctx2.sendIdx["millisecondsToRun:"]=1;
+t1;
+return _st(t1).__lt((1000));
+$ctx2.sendIdx["<"]=1;
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}))._whileTrue_((function(){
+return smalltalk.withContext(function($ctx2) {
+n1=_st(n1).__star((2));
+$ctx2.sendIdx["*"]=1;
+return n1;
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})}));
+$ctx1.sendIdx["whileTrue:"]=1;
+n2=(28);
+_st((function(){
+return smalltalk.withContext(function($ctx2) {
+t2=_st($Date())._millisecondsToRun_((function(){
+return smalltalk.withContext(function($ctx3) {
+r=_st(n2)._jsbenchFib();
+return r;
+}, function($ctx3) {$ctx3.fillBlock({},$ctx2,5)})}));
+t2;
+return _st(t2).__lt((1000));
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)})}))._whileTrue_((function(){
+return smalltalk.withContext(function($ctx2) {
+n2=_st(n2).__plus((1));
+return n2;
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1,6)})}));
+$7=_st(n1).__star((500000));
+$ctx1.sendIdx["*"]=3;
+$6=_st($7).__star((1000));
+$ctx1.sendIdx["*"]=2;
+$5=_st($6).__slash(t1);
+$ctx1.sendIdx["/"]=1;
+$4=_st($5)._printString();
+$ctx1.sendIdx["printString"]=1;
+$3=_st($4).__comma(" bytecodes/sec; ");
+$2=_st($3).__comma(_st(_st(_st(r).__star((1000))).__slash(t2))._printString());
+$ctx1.sendIdx[","]=2;
+$1=_st($2).__comma(" sends/sec");
+$ctx1.sendIdx[","]=1;
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"jstinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2},globals.Number)})},
+args: [],
+source: "jstinyBenchmarks\x0a\x09\x220 jstinyBenchmarks\x22\x0a\x0a\x09| t1 t2 r n1 n2 |\x0a\x09n1 := 1.\x0a\x09[t1 := Date millisecondsToRun: [n1 jsbenchmark].\x0a\x09t1 < 1000] whileTrue:[n1 := n1 * 2]. \x22Note: #benchmark's runtime is about O(n)\x22\x0a\x0a\x09n2 := 28.\x0a\x09[t2 := Date millisecondsToRun: [r := n2 jsbenchFib].\x0a\x09t2 < 1000] whileTrue:[n2 := n2 + 1]. \x0a\x09\x22Note: #jsbenchFib's runtime is about O(k^n),\x0a\x09\x09where k is the golden number = (1 + 5 sqrt) / 2 = 1.618....\x22\x0a\x0a\x09^ ((n1 * 500000 * 1000) / t1) printString, ' bytecodes/sec; ',\x0a\x09  ((r * 1000) / t2) printString, ' sends/sec'",
+messageSends: ["whileTrue:", "millisecondsToRun:", "jsbenchmark", "<", "*", "jsbenchFib", "+", ",", "printString", "/"],
+referencedClasses: ["Date"]
+}),
+globals.Number);
+
+smalltalk.addMethod(
+smalltalk.method({
+selector: "tinyBenchmarks",
+protocol: '*Benchfib',
+fn: function (){
+var self=this;
+var t1,t2,r,n1,n2;
+function $Date(){return globals.Date||(typeof Date=="undefined"?nil:Date)}
+return smalltalk.withContext(function($ctx1) { 
+var $7,$6,$5,$4,$3,$2,$1;
+n1=(1);
+_st((function(){
+return smalltalk.withContext(function($ctx2) {
+t1=_st($Date())._millisecondsToRun_((function(){
+return smalltalk.withContext(function($ctx3) {
+return _st(n1)._benchmark();
+}, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
+$ctx2.sendIdx["millisecondsToRun:"]=1;
+t1;
+return _st(t1).__lt((1000));
+$ctx2.sendIdx["<"]=1;
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}))._whileTrue_((function(){
+return smalltalk.withContext(function($ctx2) {
+n1=_st(n1).__star((2));
+$ctx2.sendIdx["*"]=1;
+return n1;
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})}));
+$ctx1.sendIdx["whileTrue:"]=1;
+n2=(16);
+_st((function(){
+return smalltalk.withContext(function($ctx2) {
+t2=_st($Date())._millisecondsToRun_((function(){
+return smalltalk.withContext(function($ctx3) {
+r=_st(n2)._benchFib();
+return r;
+}, function($ctx3) {$ctx3.fillBlock({},$ctx2,5)})}));
+t2;
+return _st(t2).__lt((1000));
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)})}))._whileTrue_((function(){
+return smalltalk.withContext(function($ctx2) {
+n2=_st(n2).__plus((1));
+return n2;
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1,6)})}));
+$7=_st(n1).__star((500000));
+$ctx1.sendIdx["*"]=3;
+$6=_st($7).__star((1000));
+$ctx1.sendIdx["*"]=2;
+$5=_st($6).__slash(t1);
+$ctx1.sendIdx["/"]=1;
+$4=_st($5)._printString();
+$ctx1.sendIdx["printString"]=1;
+$3=_st($4).__comma(" bytecodes/sec; ");
+$2=_st($3).__comma(_st(_st(_st(r).__star((1000))).__slash(t2))._printString());
+$ctx1.sendIdx[","]=2;
+$1=_st($2).__comma(" sends/sec");
+$ctx1.sendIdx[","]=1;
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"tinyBenchmarks",{t1:t1,t2:t2,r:r,n1:n1,n2:n2},globals.Number)})},
+args: [],
+source: "tinyBenchmarks \x0a\x09\x22Report the results of running the two tiny Squeak benchmarks.\x0a\x09ar 9/10/1999: Adjusted to run at least 1 sec to get more stable results\x22\x0a\x09\x220 tinyBenchmarks\x22\x0a\x09\x22On a 292 MHz G3 Mac: 22727272 bytecodes/sec; 984169 sends/sec\x22\x0a\x09\x22On a 400 MHz PII/Win98:  18028169 bytecodes/sec; 1081272 sends/sec\x22\x0a\x09| t1 t2 r n1 n2 |\x0a\x09n1 := 1.\x0a\x09[t1 := Date millisecondsToRun: [n1 benchmark].\x0a\x09t1 < 1000] whileTrue:[n1 := n1 * 2]. \x22Note: #benchmark's runtime is about O(n)\x22\x0a\x0a\x09n2 := 16.\x0a\x09[t2 := Date millisecondsToRun: [r := n2 benchFib].\x0a\x09t2 < 1000] whileTrue:[n2 := n2 + 1]. \x0a\x09\x22Note: #benchFib's runtime is about O(k^n),\x0a\x09\x09where k is the golden number = (1 + 5 sqrt) / 2 = 1.618....\x22\x0a\x0a\x09^ ((n1 * 500000 * 1000) / t1) printString, ' bytecodes/sec; ',\x0a\x09  ((r * 1000) / t2) printString, ' sends/sec'",
+messageSends: ["whileTrue:", "millisecondsToRun:", "benchmark", "<", "*", "benchFib", "+", ",", "printString", "/"],
+referencedClasses: ["Date"]
+}),
+globals.Number);
+
+});

data/public/amber/st/Benchfib.st

@@ -0,0 +1,124 @@
+Smalltalk current createPackage: 'Benchfib' properties: #{}!
+Object subclass: #Benchfib
+	instanceVariableNames: ''
+	package: 'Benchfib'!
+
+!Benchfib class methodsFor: 'not yet classified'!
+
+main
+
+	| result |
+	result := 0 tinyBenchmarks.
+	console log: '0 tinyBenchmarks => ' , result
+! !
+
+!Number methodsFor: '*Benchfib'!
+
+benchFib 
+	"Handy send-heavy benchmark"
+	"(result // seconds to run) = approx calls per second"
+	" | r t |
+	  t := Time millisecondsToRun: [r := 26 benchFib].
+	  (r * 1000) // t"
+	"138000 on a Mac 8100/100"
+	^ self < 2 
+		ifTrue: [1] 
+		ifFalse: [(self-1) benchFib + (self-2) benchFib + 1]
+!
+
+benchmark 
+	"Handy bytecode-heavy benchmark"
+	"(500000 // time to run) = approx bytecodes per second"
+	"5000000 // (Time millisecondsToRun: [10 benchmark]) * 1000"
+	"3059000 on a Mac 8100/100"
+    | size flags prime k count |
+    size := 8190.
+    1 to: self do:
+        [:iter |
+        count := 0.
+        flags := Array new.
+        size timesRepeat: [ flags add: true].
+        1 to: size do:
+            [:i | (flags at: i) ifTrue:
+                [prime := i+1.
+                k := i + prime.
+                [k <= size] whileTrue:
+                    [flags at: k put: false.
+                    k := k + prime].
+                count := count + 1]]].
+    ^ count
+!
+
+jsbenchFib
+ 
+	<if (this < 2) {
+return 1;
+} else {
+return (this-1)._jsbenchFib() + (this-2)._jsbenchFib() + 1;}>
+!
+
+jsbenchmark
+
+<
+var size = 8190;
+var count;
+for (var z=0;z<this;z++) {
+  count = 0;
+  var flags = new Array();
+  for (var p=0; p<size; p++) {
+    flags[p] = true;
+  }
+  for (var i=1;i<=size;i++) {
+    if (flags[i-1]) {
+      var prime = i+1;
+      var k = i + prime;
+      while (k <= size) {
+        flags[k-1] = false;
+        k = k + prime;
+      }
+      count = count + 1;
+    }
+  }
+}
+return count>
+!
+
+jstinyBenchmarks
+	"0 jstinyBenchmarks"
+
+	| t1 t2 r n1 n2 |
+	n1 := 1.
+	[t1 := Date millisecondsToRun: [n1 jsbenchmark].
+	t1 < 1000] whileTrue:[n1 := n1 * 2]. "Note: #benchmark's runtime is about O(n)"
+
+	n2 := 28.
+	[t2 := Date millisecondsToRun: [r := n2 jsbenchFib].
+	t2 < 1000] whileTrue:[n2 := n2 + 1]. 
+	"Note: #jsbenchFib's runtime is about O(k^n),
+		where k is the golden number = (1 + 5 sqrt) / 2 = 1.618...."
+
+	^ ((n1 * 500000 * 1000) / t1) printString, ' bytecodes/sec; ',
+	  ((r * 1000) / t2) printString, ' sends/sec'
+!
+
+tinyBenchmarks 
+	"Report the results of running the two tiny Squeak benchmarks.
+	ar 9/10/1999: Adjusted to run at least 1 sec to get more stable results"
+	"0 tinyBenchmarks"
+	"On a 292 MHz G3 Mac: 22727272 bytecodes/sec; 984169 sends/sec"
+	"On a 400 MHz PII/Win98:  18028169 bytecodes/sec; 1081272 sends/sec"
+	| t1 t2 r n1 n2 |
+	n1 := 1.
+	[t1 := Date millisecondsToRun: [n1 benchmark].
+	t1 < 1000] whileTrue:[n1 := n1 * 2]. "Note: #benchmark's runtime is about O(n)"
+
+	n2 := 16.
+	[t2 := Date millisecondsToRun: [r := n2 benchFib].
+	t2 < 1000] whileTrue:[n2 := n2 + 1]. 
+	"Note: #benchFib's runtime is about O(k^n),
+		where k is the golden number = (1 + 5 sqrt) / 2 = 1.618...."
+
+	^ ((n1 * 500000 * 1000) / t1) printString, ' bytecodes/sec; ',
+	  ((r * 1000) / t2) printString, ' sends/sec'
+! !
+

data/public/amber/st/Canvas.st

@@ -0,0 +1,968 @@
+Smalltalk current createPackage: 'Canvas' properties: #{}!
+Object subclass: #HTMLCanvas
+	instanceVariableNames: 'root'
+	package: 'Canvas'!
+
+!HTMLCanvas methodsFor: 'accessing'!
+
+root
+    ^root
+!
+
+root: aTagBrush
+    root := aTagBrush
+! !
+
+!HTMLCanvas methodsFor: 'adding'!
+
+with: anObject
+    ^self root with: anObject
+! !
+
+!HTMLCanvas methodsFor: 'initialization'!
+
+initialize
+    super initialize.
+    root ifNil: [root := TagBrush fromString: 'div' canvas: self]
+!
+
+initializeFromJQuery: aJQuery
+    root := TagBrush fromJQuery: aJQuery canvas: self
+! !
+
+!HTMLCanvas methodsFor: 'tags'!
+
+a
+    ^self tag: 'a'
+!
+
+abbr
+	^self tag: 'abbr'
+!
+
+address
+	^self tag: 'address'
+!
+
+area
+	^self tag: 'area'
+!
+
+article
+    ^self tag: 'article'
+!
+
+aside
+	^self tag: 'aside'
+!
+
+audio
+    ^self tag: 'audio'
+!
+
+b
+    ^self tag: 'b'
+!
+
+base
+	^self tag: 'base'
+!
+
+blockquote
+	^self tag: 'blockquote'
+!
+
+body
+	^self tag: 'body'
+!
+
+br
+    ^self tag: 'br'
+!
+
+button
+    ^self tag: 'button'
+!
+
+canvas
+	^self tag: 'canvas'
+!
+
+caption
+	^self tag: 'caption'
+!
+
+cite
+	^self tag: 'cite'
+!
+
+code
+    ^self tag: 'code'
+!
+
+col
+	^self tag: 'col'
+!
+
+colgroup
+	^self tag: 'colgroup'
+!
+
+command
+	^self tag: 'command'
+!
+
+datalist
+	^self tag: 'datalist'
+!
+
+dd
+	^self tag: 'dd'
+!
+
+del
+	^self tag: 'del'
+!
+
+details
+	^self tag: 'details'
+!
+
+div
+    ^self tag: 'div'
+!
+
+div: aBlock
+    ^self div with: aBlock
+!
+
+dl
+	^self tag: 'dl'
+!
+
+dt
+	^self tag: 'dt'
+!
+
+em
+	^self tag: 'em'
+!
+
+embed
+	^self tag: 'embed'
+!
+
+fieldset
+    ^self tag: 'fieldset'
+!
+
+figcaption
+	^self tag: 'figcaption'
+!
+
+figure
+	^self tag: 'figure'
+!
+
+footer
+    ^self tag: 'footer'
+!
+
+form
+    ^self tag: 'form'
+!
+
+h1
+    ^self tag: 'h1'
+!
+
+h1: anObject
+    ^self h1 with: anObject
+!
+
+h2
+    ^self tag: 'h2'
+!
+
+h2: anObject
+    ^ self h2 with: anObject
+!
+
+h3
+    ^self tag: 'h3'
+!
+
+h3: anObject
+    ^self h3 with: anObject
+!
+
+h4
+    ^self tag: 'h4'
+!
+
+h4: anObject
+    ^self h4 with: anObject
+!
+
+h5
+    ^self tag: 'h5'
+!
+
+h5: anObject
+    ^self h5 with: anObject
+!
+
+h6
+    ^self tag: 'h6'
+!
+
+h6: anObject
+    ^self h6 with: anObject
+!
+
+head
+	^self tag: 'head'
+!
+
+header
+    ^self tag: 'header'
+!
+
+hgroup
+	^self tag: 'hgroup'
+!
+
+hr
+    ^self tag: 'hr'
+!
+
+html
+	^self tag: 'html'
+!
+
+iframe
+    ^self tag: 'iframe'
+!
+
+iframe: aString
+    ^self iframe src: aString
+!
+
+img
+    ^self tag: 'img'
+!
+
+img: aString
+    ^self img src: aString
+!
+
+input
+    ^self tag: 'input'
+!
+
+label
+	^self tag: 'label'
+!
+
+legend
+	^self tag: 'legend'
+!
+
+li
+    ^self tag: 'li'
+!
+
+li: anObject
+    ^self li with: anObject
+!
+
+link
+    ^self tag: 'link'
+!
+
+map
+	^self tag: 'map'
+!
+
+mark
+	^self tag: 'mark'
+!
+
+menu
+	^self tag: 'menu'
+!
+
+meta
+	^self tag: 'meta'
+!
+
+nav
+	^self tag: 'nav'
+!
+
+newTag: aString
+    ^TagBrush fromString: aString canvas: self
+!
+
+noscript
+	^self tag: 'noscript'
+!
+
+object
+	^self tag: 'object'
+!
+
+ol
+    ^self tag: 'ol'
+!
+
+ol: anObject
+    ^self ol with: anObject
+!
+
+optgroup
+	^self tag: 'optgroup'
+!
+
+option
+    ^self tag: 'option'
+!
+
+output
+	^self tag: 'output'
+!
+
+p
+    ^self tag: 'p'
+!
+
+p: anObject
+    ^self p with: anObject
+!
+
+param
+	^self tag: 'param'
+!
+
+pre
+    ^self tag: 'pre'
+!
+
+progress
+	^self tag: 'progress'
+!
+
+script
+    ^self tag: 'script'
+!
+
+section
+    ^self tag: 'section'
+!
+
+select
+    ^self tag: 'select'
+!
+
+small
+	^self tag: 'small'
+!
+
+source
+	^self tag: 'source'
+!
+
+span
+    ^self tag: 'span'
+!
+
+span: anObject
+    ^self span with: anObject
+!
+
+strong
+	^self tag: 'strong'
+!
+
+strong: anObject
+	^self strong with: anObject
+!
+
+style
+	^ root addBrush:  (StyleTag canvas: self)
+!
+
+style: aString
+	^ self style with: aString; yourself
+!
+
+sub
+	^self tag: 'sub'
+!
+
+summary
+	^self tag: 'summary'
+!
+
+sup
+	^self tag: 'sup'
+!
+
+table
+    ^self tag: 'table'
+!
+
+tag: aString
+    ^root addBrush: (self newTag: aString)
+!
+
+tbody
+    ^self tag: 'tbody'
+!
+
+td 
+    ^self tag: 'td'
+!
+
+text: aString
+	self with: aString.
+!
+
+textarea
+    ^self tag: 'textarea'
+!
+
+tfoot
+    ^self tag: 'tfoot'
+!
+
+th
+    ^self tag: 'th'
+!
+
+thead
+    ^self tag: 'thead'
+!
+
+time
+	^self tag: 'time'
+!
+
+title
+	^self tag: 'title'
+!
+
+tr
+    ^self tag: 'tr'
+!
+
+ul
+    ^self tag: 'ul'
+!
+
+ul: anObject
+    ^self ul with: anObject
+!
+
+video
+    ^self tag: 'video'
+! !
+
+!HTMLCanvas class methodsFor: 'instance creation'!
+
+browserVersion
+	^(jQuery at: #browser) version
+!
+
+isMSIE
+	^((jQuery at: #browser) at: #msie) notNil
+!
+
+isMozilla
+	^((jQuery at: #browser) at: #mozilla) notNil
+!
+
+isOpera
+	^((jQuery at: #browser) at: #opera) notNil
+!
+
+isWebkit
+	^((jQuery at: #browser) at: #webkit) notNil
+!
+
+onJQuery: aJQuery
+	^self basicNew
+		initializeFromJQuery: aJQuery;
+		initialize;
+		yourself
+! !
+
+Object subclass: #TagBrush
+	instanceVariableNames: 'canvas element'
+	package: 'Canvas'!
+
+!TagBrush methodsFor: 'accessing'!
+
+element
+    ^element
+! !
+
+!TagBrush methodsFor: 'adding'!
+
+addBrush: aTagBrush
+    self appendChild: aTagBrush element.
+    ^aTagBrush
+!
+
+append: anObject
+    anObject appendToBrush: self
+!
+
+append: anObject as: aParameter
+    anObject appendToBrush: self as: aParameter
+!
+
+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)
+!
+
+appendToBrush: aTagBrush
+    aTagBrush addBrush: self
+!
+
+contents: anObject
+    self 
+	empty;
+   	append: anObject
+!
+
+empty
+	self asJQuery empty
+!
+
+with: anObject
+    self append: anObject
+!
+
+with: anObject as: aParameter
+    self append: anObject as: aParameter.
+! !
+
+!TagBrush methodsFor: 'attributes'!
+
+accesskey: aString
+	self at: 'accesskey' put: aString
+!
+
+action: aString
+	self at: 'action' put: aString
+!
+
+addClass: aString
+	self asJQuery addClass: aString.
+!
+
+align: aString
+	self at: 'align' put: aString
+!
+
+alt: aString
+	self at: 'alt' put: aString
+!
+
+at: aString put: aValue
+    <self['@element'].setAttribute(aString, aValue)>
+!
+
+class: aString
+      <self['@element'].className = aString>
+!
+
+cols: aString
+	self at: 'cols' put: aString
+!
+
+contenteditable: aString
+	self at: 'contenteditable' put: aString
+!
+
+contextmenu: aString
+	self at: 'contextmenu' put: aString
+!
+
+data: attribute
+	^ self asJQuery data: attribute
+!
+
+data: attribute with: aString
+	self at: 'data-', attribute put: aString
+!
+
+draggable: aString
+	self at: 'draggable' put: aString
+!
+
+for: aString
+	self at: 'for' put: aString
+!
+
+frameborder: aString
+	self at: 'frameborder' put: aString
+!
+
+height
+	^ self asJQuery height
+!
+
+height: aString
+    self  at: 'height' put: aString
+!
+
+hidden
+	self at: 'hidden' put: 'hidden'
+!
+
+hide
+	self asJQuery hide.
+!
+
+href: aString
+    self at: 'href' put: aString
+!
+
+id: aString
+    self at: 'id' put: aString
+!
+
+left: aValue
+	self asJQuery css: 'left' a: aValue.
+!
+
+media: aString
+    self at: 'media' put: aString
+!
+
+method: aString
+	self at: 'method' put: aString
+!
+
+name: aString
+	self at: 'name' put: aString
+!
+
+placeholder: aString
+	self at: 'placeholder' put: aString
+!
+
+rel: aString
+    self  at: 'rel' put: aString
+!
+
+removeAt: aString
+    <self['@element'].removeAttribute(aString)>
+!
+
+removeClass: aString
+	self asJQuery removeClass: aString.
+!
+
+rows: aString
+	self at: 'rows' put: aString
+!
+
+show
+	self asJQuery show.
+!
+
+size: anInteger
+    self at: 'size' put: anInteger asString
+!
+
+src: aString
+    self  at: 'src' put: aString
+!
+
+style: aString
+    self at: 'style' put: aString
+!
+
+tabindex: aNumber
+	self at: 'tabindex' put: aNumber
+!
+
+target: aString
+	self at: 'target' put: aString
+!
+
+title: aString
+    self at: 'title' put: aString
+!
+
+top: aValue
+	self asJQuery css: 'top' a: aValue.
+!
+
+type: aString
+    self at: 'type' put: aString
+!
+
+valign: aString
+	self at: 'valign' put: aString
+!
+
+value: aString
+    self  at: 'value' put: aString
+!
+
+width
+	^ self asJQuery width
+!
+
+width: aString
+    self  at: 'width' put: aString
+! !
+
+!TagBrush methodsFor: 'converting'!
+
+asJQuery
+    ^window jQuery: self element
+! !
+
+!TagBrush methodsFor: 'events'!
+
+onArrowKeyDown: aBlock
+	self onKeyDown: [:e| e preventDefault. e keyCode = 40 ifTrue: [aBlock value]].
+!
+
+onArrowKeyUp: aBlock
+	self onKeyDown: [:e| e preventDefault. e keyCode = 38 ifTrue:[aBlock value]].
+!
+
+onBlur: aBlock
+    self asJQuery bind: 'blur' do: aBlock
+!
+
+onChange: aBlock
+    self asJQuery bind: 'change' do: aBlock
+!
+
+onClick: aBlock
+    self asJQuery bind: 'click' do: aBlock
+!
+
+onDblClick: aBlock
+	self asJQuery bind: 'dblclick' do: aBlock
+!
+
+onFocus: aBlock
+    self asJQuery bind: 'focus' do: aBlock
+!
+
+onFocusIn: aBlock
+	self asJQuery bind: 'focusin' do: aBlock
+!
+
+onFocusOut: aBlock
+	self asJQuery bind: 'focusout' do: aBlock
+!
+
+onHover: aBlock
+	self asJQuery bind: 'hover' do: aBlock
+!
+
+onKeyDown: aBlock
+    self asJQuery bind: 'keydown' do: aBlock
+!
+
+onKeyPress: aBlock
+    self asJQuery bind: 'keypress' do: aBlock
+!
+
+onKeyUp: aBlock
+    self asJQuery bind: 'keyup' do: aBlock
+!
+
+onMouseDown: aBlock
+	self asJQuery bind: 'mousedown' 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
+!
+
+onMouseUp: aBlock
+	self asJQuery bind: 'mouseup' do: aBlock
+!
+
+onSelect: aBlock
+	self asJQuery bind: 'select' do: aBlock
+!
+
+onSubmit: aBlock
+	self asJQuery bind: 'submit' do: aBlock
+!
+
+onUnload: aBlock
+	self asJQuery bind: 'unload' do: aBlock
+! !
+
+!TagBrush methodsFor: 'initialization'!
+
+initializeFromJQuery: aJQuery canvas: aCanvas
+    element := aJQuery get: 0.
+    canvas := aCanvas
+!
+
+initializeFromString: aString canvas: aCanvas
+    element := self createElementFor: aString.
+    canvas := aCanvas
+! !
+
+!TagBrush methodsFor: 'private'!
+
+createElementFor: aString
+	<return document.createElement(String(aString))>
+!
+
+createTextNodeFor: aString
+	<return document.createTextNode(String(aString))>
+! !
+
+!TagBrush class methodsFor: 'instance creation'!
+
+fromJQuery: aJQuery canvas: aCanvas
+    ^self new
+	initializeFromJQuery: aJQuery canvas: aCanvas;
+	yourself
+!
+
+fromString: aString canvas: aCanvas
+    ^self new
+	initializeFromString: aString canvas: aCanvas;
+	yourself
+! !
+
+TagBrush subclass: #StyleTag
+	instanceVariableNames: 'canvas element'
+	package: 'Canvas'!
+!StyleTag commentStamp!
+I'm a <style> tag use to inline CSS or load a stylesheet.
+
+For inlining handle IE compatibility problems.!
+
+!StyleTag methodsFor: 'adding'!
+
+with: aString
+	HTMLCanvas isMSIE
+		ifTrue: [self element styleSheet cssText: aString ]
+		ifFalse: [super with: aString ].
+! !
+
+!StyleTag class methodsFor: 'instance creation'!
+
+canvas: aCanvas
+    ^self new
+	initializeFromString: 'style' canvas: aCanvas;
+	yourself
+! !
+
+Object subclass: #Widget
+	instanceVariableNames: ''
+	package: 'Canvas'!
+
+!Widget methodsFor: 'adding'!
+
+appendToBrush: aTagBrush
+    self appendToJQuery: aTagBrush asJQuery
+!
+
+appendToBrush: aTagBrush as: aParameter
+    self appendToJQuery: aTagBrush asJQuery as: aParameter
+!
+
+appendToJQuery: aJQuery
+   self renderOn: (HTMLCanvas onJQuery: aJQuery)
+!
+
+appendToJQuery: aJQuery as: aParameter
+   self renderOn: (HTMLCanvas onJQuery: aJQuery) as: aParameter
+! !
+
+!Widget methodsFor: 'rendering'!
+
+renderOn: html
+    self
+!
+
+renderOn: html as: aParameter
+    self renderOn: html
+! !
+
+!Object methodsFor: '*Canvas'!
+
+appendToBrush: aTagBrush
+    aTagBrush append: self asString
+!
+
+appendToJQuery: aJQuery
+    aJQuery append: self asString
+! !
+
+!BlockClosure methodsFor: '*Canvas'!
+
+appendToBrush: aTagBrush
+    aTagBrush appendBlock: self
+!
+
+appendToJQuery: aJQuery
+    self value: (HTMLCanvas onJQuery: aJQuery)
+! !
+
+!String methodsFor: '*Canvas'!
+
+appendToBrush: aTagBrush
+    aTagBrush appendString: self
+!
+
+appendToJQuery: aJQuery
+    aJQuery append: self
+!
+
+asJQuery
+    <return jQuery(String(self))>
+! !
+