Browse Source

add HTMLCanvas>>style

Laurent Laffont 12 years ago
parent
commit
c32a585c6b
3 changed files with 34 additions and 0 deletions
  1. 15 0
      js/Canvas.deploy.js
  2. 15 0
      js/Canvas.js
  3. 4 0
      st/Canvas.st

+ 15 - 0
js/Canvas.deploy.js

@@ -783,6 +783,21 @@ referencedClasses: []
 }),
 smalltalk.HTMLCanvas);
 
+smalltalk.addMethod(
+'_style',
+smalltalk.method({
+selector: 'style',
+category: 'tags',
+fn: function (){
+var self=this;
+return smalltalk.send(self, "_tag_", ["style"]);
+return self;},
+source: unescape('style%0A%09%5Eself%20tag%3A%20%27style%27'),
+messageSends: ["tag:"],
+referencedClasses: []
+}),
+smalltalk.HTMLCanvas);
+
 
 smalltalk.addMethod(
 '_onJQuery_',

+ 15 - 0
js/Canvas.js

@@ -783,6 +783,21 @@ referencedClasses: []
 }),
 smalltalk.HTMLCanvas);
 
+smalltalk.addMethod(
+'_style',
+smalltalk.method({
+selector: 'style',
+category: 'tags',
+fn: function (){
+var self=this;
+return smalltalk.send(self, "_tag_", ["style"]);
+return self;},
+source: unescape('style%0A%09%5Eself%20tag%3A%20%27style%27'),
+messageSends: ["tag:"],
+referencedClasses: []
+}),
+smalltalk.HTMLCanvas);
+
 
 smalltalk.addMethod(
 '_onJQuery_',

+ 4 - 0
st/Canvas.st

@@ -229,6 +229,10 @@ script
 
 link
     ^self tag: 'link'
+!
+
+style
+	^self tag: 'style'
 ! !
 
 !HTMLCanvas class methodsFor: 'instance creation'!