Browse Source

add html span: shortcut

Laurent Laffont 12 years ago
parent
commit
f815ef6869
3 changed files with 31 additions and 0 deletions
  1. 11 0
      js/Canvas.deploy.js
  2. 16 0
      js/Canvas.js
  3. 4 0
      st/Canvas.st

+ 11 - 0
js/Canvas.deploy.js

@@ -561,6 +561,17 @@ return self;}
 }),
 smalltalk.HTMLCanvas);
 
+smalltalk.addMethod(
+'_span_',
+smalltalk.method({
+selector: 'span:',
+fn: function (anObject){
+var self=this;
+return smalltalk.send(smalltalk.send(self, "_span", []), "_with_", [anObject]);
+return self;}
+}),
+smalltalk.HTMLCanvas);
+
 
 smalltalk.addMethod(
 '_onJQuery_',

+ 16 - 0
js/Canvas.js

@@ -816,6 +816,22 @@ referencedClasses: []
 }),
 smalltalk.HTMLCanvas);
 
+smalltalk.addMethod(
+unescape('_span_'),
+smalltalk.method({
+selector: unescape('span%3A'),
+category: 'tags',
+fn: function (anObject){
+var self=this;
+return smalltalk.send(smalltalk.send(self, "_span", []), "_with_", [anObject]);
+return self;},
+args: ["anObject"],
+source: unescape('span%3A%20anObject%0A%20%20%20%20%5Eself%20span%20with%3A%20anObject'),
+messageSends: ["with:", "span"],
+referencedClasses: []
+}),
+smalltalk.HTMLCanvas);
+
 
 smalltalk.addMethod(
 unescape('_onJQuery_'),

+ 4 - 0
st/Canvas.st

@@ -213,6 +213,10 @@ li: anObject
 
 ul: anObject
     ^self ul with: anObject
+!
+
+span: anObject
+    ^self span with: anObject
 ! !
 
 !HTMLCanvas class methodsFor: 'instance creation'!