|
@@ -12,7 +12,14 @@ $core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "namespace",
|
|
|
protocol: "accessing",
|
|
|
-fn: function (){
|
|
|
+//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
+args: [],
|
|
|
+source: "namespace\x0a\x09\x22<String>\x0a\x09XML namespace for elements: html.\x0a\x09The default for all virtual Silk tag messages\x22\x0a\x09\x0a\x09^ self element namespaceURI",
|
|
|
+referencedClasses: [],
|
|
|
+//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
+messageSends: ["namespaceURI", "element"]
|
|
|
+}, function ($methodClass){ return function (){
|
|
|
var self=this,$self=this;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx1) {
|
|
@@ -21,22 +28,21 @@ return $recv($self._element())._namespaceURI();
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"namespace",{})});
|
|
|
//>>excludeEnd("ctx");
|
|
|
-},
|
|
|
-//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
-args: [],
|
|
|
-source: "namespace\x0a\x09\x22<String>\x0a\x09XML namespace for elements: html.\x0a\x09The default for all virtual Silk tag messages\x22\x0a\x09\x0a\x09^ self element namespaceURI",
|
|
|
-referencedClasses: [],
|
|
|
-//>>excludeEnd("ide");
|
|
|
-pragmas: [],
|
|
|
-messageSends: ["namespaceURI", "element"]
|
|
|
-}),
|
|
|
+}; }),
|
|
|
$globals.Silk);
|
|
|
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "newElement:xmlns:",
|
|
|
protocol: "writing",
|
|
|
-fn: function (aString,anotherString){
|
|
|
+//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
+args: ["aString", "anotherString"],
|
|
|
+source: "newElement: aString xmlns: anotherString\x0a\x09| el |\x0a\x09\x0a\x09el := self class newElement: aString xmlns: anotherString.\x0a\x09self << el.\x0a\x09^ el",
|
|
|
+referencedClasses: [],
|
|
|
+//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
+messageSends: ["newElement:xmlns:", "class", "<<"]
|
|
|
+}, function ($methodClass){ return function (aString,anotherString){
|
|
|
var self=this,$self=this;
|
|
|
var el;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
@@ -48,22 +54,21 @@ return el;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"newElement:xmlns:",{aString:aString,anotherString:anotherString,el:el})});
|
|
|
//>>excludeEnd("ctx");
|
|
|
-},
|
|
|
-//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
-args: ["aString", "anotherString"],
|
|
|
-source: "newElement: aString xmlns: anotherString\x0a\x09| el |\x0a\x09\x0a\x09el := self class newElement: aString xmlns: anotherString.\x0a\x09self << el.\x0a\x09^ el",
|
|
|
-referencedClasses: [],
|
|
|
-//>>excludeEnd("ide");
|
|
|
-pragmas: [],
|
|
|
-messageSends: ["newElement:xmlns:", "class", "<<"]
|
|
|
-}),
|
|
|
+}; }),
|
|
|
$globals.Silk);
|
|
|
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "nextPut:",
|
|
|
protocol: "writing",
|
|
|
-fn: function (anObject){
|
|
|
+//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
+args: ["anObject"],
|
|
|
+source: "nextPut: anObject\x0a\x09\x22Double-dispatches anObject via renderOnSilk: message.\x0a\x09If a message returns nil, this fallbacks to superclass.\x0a\x09Otherwise, it is assumed renderOnSilk: did its job.\x22\x0a\x0a\x09(anObject renderOnSilk: self)\x0a\x09\x09ifNil: [ super nextPut: anObject ]",
|
|
|
+referencedClasses: [],
|
|
|
+//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
+messageSends: ["ifNil:", "renderOnSilk:", "nextPut:"]
|
|
|
+}, function ($methodClass){ return function (anObject){
|
|
|
var self=this,$self=this;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx1) {
|
|
@@ -75,7 +80,7 @@ if(($receiver = $1) == null || $receiver.a$nil){
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
$ctx1.supercall = true,
|
|
|
//>>excludeEnd("ctx");
|
|
|
-($globals.Silk.superclass||$boot.nilAsClass).fn.prototype._nextPut_.apply($self, [anObject]));
|
|
|
+($methodClass.superclass||$boot.nilAsClass).fn.prototype._nextPut_.call($self,anObject));
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
$ctx1.supercall = false;
|
|
|
//>>excludeEnd("ctx");;
|
|
@@ -86,15 +91,7 @@ return self;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"nextPut:",{anObject:anObject})});
|
|
|
//>>excludeEnd("ctx");
|
|
|
-},
|
|
|
-//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
-args: ["anObject"],
|
|
|
-source: "nextPut: anObject\x0a\x09\x22Double-dispatches anObject via renderOnSilk: message.\x0a\x09If a message returns nil, this fallbacks to superclass.\x0a\x09Otherwise, it is assumed renderOnSilk: did its job.\x22\x0a\x0a\x09(anObject renderOnSilk: self)\x0a\x09\x09ifNil: [ super nextPut: anObject ]",
|
|
|
-referencedClasses: [],
|
|
|
-//>>excludeEnd("ide");
|
|
|
-pragmas: [],
|
|
|
-messageSends: ["ifNil:", "renderOnSilk:", "nextPut:"]
|
|
|
-}),
|
|
|
+}; }),
|
|
|
$globals.Silk);
|
|
|
|
|
|
|
|
@@ -102,11 +99,6 @@ $core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "htmlNamespace",
|
|
|
protocol: "accessing",
|
|
|
-fn: function (){
|
|
|
-var self=this,$self=this;
|
|
|
-return "http://www.w3.org/1999/xhtml";
|
|
|
-
|
|
|
-},
|
|
|
//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
args: [],
|
|
|
source: "htmlNamespace\x0a\x09\x22<String>\x0a\x09XML namespace for HTML elements.\x0a\x09The default for all virtual Silk tag messages\x22\x0a\x09\x0a\x09^ 'http://www.w3.org/1999/xhtml'",
|
|
@@ -114,14 +106,25 @@ referencedClasses: [],
|
|
|
//>>excludeEnd("ide");
|
|
|
pragmas: [],
|
|
|
messageSends: []
|
|
|
-}),
|
|
|
+}, function ($methodClass){ return function (){
|
|
|
+var self=this,$self=this;
|
|
|
+return "http://www.w3.org/1999/xhtml";
|
|
|
+
|
|
|
+}; }),
|
|
|
$globals.Silk.a$cls);
|
|
|
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "namespace",
|
|
|
protocol: "accessing",
|
|
|
-fn: function (){
|
|
|
+//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
+args: [],
|
|
|
+source: "namespace\x0a\x09\x22<String>\x0a\x09XML namespace for elements: html.\x0a\x09The default for all virtual Silk tag messages\x22\x0a\x09\x0a\x09^ self htmlNamespace",
|
|
|
+referencedClasses: [],
|
|
|
+//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
+messageSends: ["htmlNamespace"]
|
|
|
+}, function ($methodClass){ return function (){
|
|
|
var self=this,$self=this;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx1) {
|
|
@@ -130,15 +133,7 @@ return $self._htmlNamespace();
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"namespace",{})});
|
|
|
//>>excludeEnd("ctx");
|
|
|
-},
|
|
|
-//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
-args: [],
|
|
|
-source: "namespace\x0a\x09\x22<String>\x0a\x09XML namespace for elements: html.\x0a\x09The default for all virtual Silk tag messages\x22\x0a\x09\x0a\x09^ self htmlNamespace",
|
|
|
-referencedClasses: [],
|
|
|
-//>>excludeEnd("ide");
|
|
|
-pragmas: [],
|
|
|
-messageSends: ["htmlNamespace"]
|
|
|
-}),
|
|
|
+}; }),
|
|
|
$globals.Silk.a$cls);
|
|
|
|
|
|
|
|
@@ -150,7 +145,14 @@ $core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "doesNotUnderstand:",
|
|
|
protocol: "message handling",
|
|
|
-fn: function (aMessage){
|
|
|
+//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
+args: ["aMessage"],
|
|
|
+source: "doesNotUnderstand: aMessage\x0a\x09\x22`self DIV` creates (and optionally inserts) a div element.\x0a\x09`aSilk DIV: anObject` creates (and optionally inserts)\x0a\x09a div element, and puts contents in it\x22\x0a\x09^ (self tryMakeDnuElement: aMessage)\x0a\x09\x09ifNil: [ super doesNotUnderstand: aMessage ]",
|
|
|
+referencedClasses: [],
|
|
|
+//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
+messageSends: ["ifNil:", "tryMakeDnuElement:", "doesNotUnderstand:"]
|
|
|
+}, function ($methodClass){ return function (aMessage){
|
|
|
var self=this,$self=this;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx1) {
|
|
@@ -162,7 +164,7 @@ return (
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
$ctx1.supercall = true,
|
|
|
//>>excludeEnd("ctx");
|
|
|
-($globals.TSilkBuilder.superclass||$boot.nilAsClass).fn.prototype._doesNotUnderstand_.apply($self, [aMessage]));
|
|
|
+($methodClass.superclass||$boot.nilAsClass).fn.prototype._doesNotUnderstand_.call($self,aMessage));
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
$ctx1.supercall = false;
|
|
|
//>>excludeEnd("ctx");;
|
|
@@ -172,22 +174,21 @@ return $1;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"doesNotUnderstand:",{aMessage:aMessage})});
|
|
|
//>>excludeEnd("ctx");
|
|
|
-},
|
|
|
-//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
-args: ["aMessage"],
|
|
|
-source: "doesNotUnderstand: aMessage\x0a\x09\x22`self DIV` creates (and optionally inserts) a div element.\x0a\x09`aSilk DIV: anObject` creates (and optionally inserts)\x0a\x09a div element, and puts contents in it\x22\x0a\x09^ (self tryMakeDnuElement: aMessage)\x0a\x09\x09ifNil: [ super doesNotUnderstand: aMessage ]",
|
|
|
-referencedClasses: [],
|
|
|
-//>>excludeEnd("ide");
|
|
|
-pragmas: [],
|
|
|
-messageSends: ["ifNil:", "tryMakeDnuElement:", "doesNotUnderstand:"]
|
|
|
-}),
|
|
|
+}; }),
|
|
|
$globals.TSilkBuilder);
|
|
|
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "newSvgElement",
|
|
|
protocol: "convenience",
|
|
|
-fn: function (){
|
|
|
+//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
+args: [],
|
|
|
+source: "newSvgElement\x0a\x09^ self newElement: 'svg' xmlns: 'http://www.w3.org/2000/svg'",
|
|
|
+referencedClasses: [],
|
|
|
+//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
+messageSends: ["newElement:xmlns:"]
|
|
|
+}, function ($methodClass){ return function (){
|
|
|
var self=this,$self=this;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx1) {
|
|
@@ -196,22 +197,21 @@ return $self._newElement_xmlns_("svg","http://www.w3.org/2000/svg");
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"newSvgElement",{})});
|
|
|
//>>excludeEnd("ctx");
|
|
|
-},
|
|
|
-//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
-args: [],
|
|
|
-source: "newSvgElement\x0a\x09^ self newElement: 'svg' xmlns: 'http://www.w3.org/2000/svg'",
|
|
|
-referencedClasses: [],
|
|
|
-//>>excludeEnd("ide");
|
|
|
-pragmas: [],
|
|
|
-messageSends: ["newElement:xmlns:"]
|
|
|
-}),
|
|
|
+}; }),
|
|
|
$globals.TSilkBuilder);
|
|
|
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "tryMakeDnuElement:",
|
|
|
protocol: "instance creation",
|
|
|
-fn: function (aMessage){
|
|
|
+//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
+args: ["aMessage"],
|
|
|
+source: "tryMakeDnuElement: aMessage\x0a\x09\x22`DIV` creates a div element.\x0a\x09`DIV: anObject` creates a div element and puts contents in it.\x0a\x09An element can be optionally inserted by #newElement:xmlns:.\x0a\x09When self is an instance and not the class Silk, \x0a\x09then the instance's namespace is used for the new element.\x0a\x09You can do:\x0a\x09\x09svg := Silk newElement: 'svg' xmlns: 'http://www.w3.org/2000/svg'.\x0a\x09\x09svg CIRCLE: {'cx' -> 60. 'cy' -> 25. 'r' -> 10}.\x0a\x09This creates a svg circle, not a html circle.\x22\x0a\x09\x0a\x09| selector newElement useArg |\x0a\x09selector := aMessage selector.\x0a\x09selector asUppercase = selector\x0a\x09\x09ifFalse: [ ^ nil ].\x0a\x09selector last = ':'\x0a\x09\x09ifTrue: [ useArg := true. selector := selector allButLast ]\x0a\x09\x09ifFalse: [ useArg := false ].\x0a\x09(selector includes: ':')\x0a\x09\x09ifTrue: [ ^ nil ].\x0a\x09newElement := self newElement: selector asLowercase xmlns: self namespace.\x0a\x09useArg ifTrue: [ newElement << aMessage arguments first ].\x0a\x09^ newElement",
|
|
|
+referencedClasses: [],
|
|
|
+//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
+messageSends: ["selector", "ifFalse:", "=", "asUppercase", "ifTrue:ifFalse:", "last", "allButLast", "ifTrue:", "includes:", "newElement:xmlns:", "asLowercase", "namespace", "<<", "first", "arguments"]
|
|
|
+}, function ($methodClass){ return function (aMessage){
|
|
|
var self=this,$self=this;
|
|
|
var selector,newElement,useArg;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
@@ -248,15 +248,7 @@ return newElement;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"tryMakeDnuElement:",{aMessage:aMessage,selector:selector,newElement:newElement,useArg:useArg})});
|
|
|
//>>excludeEnd("ctx");
|
|
|
-},
|
|
|
-//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
-args: ["aMessage"],
|
|
|
-source: "tryMakeDnuElement: aMessage\x0a\x09\x22`DIV` creates a div element.\x0a\x09`DIV: anObject` creates a div element and puts contents in it.\x0a\x09An element can be optionally inserted by #newElement:xmlns:.\x0a\x09When self is an instance and not the class Silk, \x0a\x09then the instance's namespace is used for the new element.\x0a\x09You can do:\x0a\x09\x09svg := Silk newElement: 'svg' xmlns: 'http://www.w3.org/2000/svg'.\x0a\x09\x09svg CIRCLE: {'cx' -> 60. 'cy' -> 25. 'r' -> 10}.\x0a\x09This creates a svg circle, not a html circle.\x22\x0a\x09\x0a\x09| selector newElement useArg |\x0a\x09selector := aMessage selector.\x0a\x09selector asUppercase = selector\x0a\x09\x09ifFalse: [ ^ nil ].\x0a\x09selector last = ':'\x0a\x09\x09ifTrue: [ useArg := true. selector := selector allButLast ]\x0a\x09\x09ifFalse: [ useArg := false ].\x0a\x09(selector includes: ':')\x0a\x09\x09ifTrue: [ ^ nil ].\x0a\x09newElement := self newElement: selector asLowercase xmlns: self namespace.\x0a\x09useArg ifTrue: [ newElement << aMessage arguments first ].\x0a\x09^ newElement",
|
|
|
-referencedClasses: [],
|
|
|
-//>>excludeEnd("ide");
|
|
|
-pragmas: [],
|
|
|
-messageSends: ["selector", "ifFalse:", "=", "asUppercase", "ifTrue:ifFalse:", "last", "allButLast", "ifTrue:", "includes:", "newElement:xmlns:", "asLowercase", "namespace", "<<", "first", "arguments"]
|
|
|
-}),
|
|
|
+}; }),
|
|
|
$globals.TSilkBuilder);
|
|
|
|
|
|
$core.setTraitComposition([{trait: $globals.TSilkBuilder}], $globals.Silk);
|
|
@@ -266,7 +258,14 @@ $core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "renderOnSilk:",
|
|
|
protocol: "*Silk",
|
|
|
-fn: function (aSilk){
|
|
|
+//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
+args: ["aSilk"],
|
|
|
+source: "renderOnSilk: aSilk\x0a\x09key attrPut: value on: aSilk",
|
|
|
+referencedClasses: [],
|
|
|
+//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
+messageSends: ["attrPut:on:"]
|
|
|
+}, function ($methodClass){ return function (aSilk){
|
|
|
var self=this,$self=this;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx1) {
|
|
@@ -276,22 +275,21 @@ return self;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"renderOnSilk:",{aSilk:aSilk})});
|
|
|
//>>excludeEnd("ctx");
|
|
|
-},
|
|
|
-//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
-args: ["aSilk"],
|
|
|
-source: "renderOnSilk: aSilk\x0a\x09key attrPut: value on: aSilk",
|
|
|
-referencedClasses: [],
|
|
|
-//>>excludeEnd("ide");
|
|
|
-pragmas: [],
|
|
|
-messageSends: ["attrPut:on:"]
|
|
|
-}),
|
|
|
+}; }),
|
|
|
$globals.Association);
|
|
|
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "renderOnSilk:",
|
|
|
protocol: "*Silk",
|
|
|
-fn: function (aSilk){
|
|
|
+//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
+args: ["aSilk"],
|
|
|
+source: "renderOnSilk: aSilk\x0a\x09self value: aSilk",
|
|
|
+referencedClasses: [],
|
|
|
+//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
+messageSends: ["value:"]
|
|
|
+}, function ($methodClass){ return function (aSilk){
|
|
|
var self=this,$self=this;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx1) {
|
|
@@ -301,22 +299,21 @@ return self;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"renderOnSilk:",{aSilk:aSilk})});
|
|
|
//>>excludeEnd("ctx");
|
|
|
-},
|
|
|
-//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
-args: ["aSilk"],
|
|
|
-source: "renderOnSilk: aSilk\x0a\x09self value: aSilk",
|
|
|
-referencedClasses: [],
|
|
|
-//>>excludeEnd("ide");
|
|
|
-pragmas: [],
|
|
|
-messageSends: ["value:"]
|
|
|
-}),
|
|
|
+}; }),
|
|
|
$globals.BlockClosure);
|
|
|
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "inSilk",
|
|
|
protocol: "*Silk",
|
|
|
-fn: function (){
|
|
|
+//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
+args: [],
|
|
|
+source: "inSilk\x0a\x09^ Silk newStream << self; yourself",
|
|
|
+referencedClasses: ["Silk"],
|
|
|
+//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
+messageSends: ["<<", "newStream", "yourself"]
|
|
|
+}, function ($methodClass){ return function (){
|
|
|
var self=this,$self=this;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx1) {
|
|
@@ -328,26 +325,13 @@ return $recv($1)._yourself();
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"inSilk",{})});
|
|
|
//>>excludeEnd("ctx");
|
|
|
-},
|
|
|
-//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
-args: [],
|
|
|
-source: "inSilk\x0a\x09^ Silk newStream << self; yourself",
|
|
|
-referencedClasses: ["Silk"],
|
|
|
-//>>excludeEnd("ide");
|
|
|
-pragmas: [],
|
|
|
-messageSends: ["<<", "newStream", "yourself"]
|
|
|
-}),
|
|
|
+}; }),
|
|
|
$globals.JSObjectProxy);
|
|
|
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "renderOnSilk:",
|
|
|
protocol: "*Silk",
|
|
|
-fn: function (aSilk){
|
|
|
-var self=this,$self=this;
|
|
|
-return nil;
|
|
|
-
|
|
|
-},
|
|
|
//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
args: ["aSilk"],
|
|
|
source: "renderOnSilk: aSilk\x0a\x09^ nil",
|
|
@@ -355,14 +339,25 @@ referencedClasses: [],
|
|
|
//>>excludeEnd("ide");
|
|
|
pragmas: [],
|
|
|
messageSends: []
|
|
|
-}),
|
|
|
+}, function ($methodClass){ return function (aSilk){
|
|
|
+var self=this,$self=this;
|
|
|
+return nil;
|
|
|
+
|
|
|
+}; }),
|
|
|
$globals.JSObjectProxy);
|
|
|
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "inSilk",
|
|
|
protocol: "*Silk",
|
|
|
-fn: function (){
|
|
|
+//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
+args: [],
|
|
|
+source: "inSilk\x0a\x09^ Silk newStream << self; yourself",
|
|
|
+referencedClasses: ["Silk"],
|
|
|
+//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
+messageSends: ["<<", "newStream", "yourself"]
|
|
|
+}, function ($methodClass){ return function (){
|
|
|
var self=this,$self=this;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx1) {
|
|
@@ -374,26 +369,13 @@ return $recv($1)._yourself();
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"inSilk",{})});
|
|
|
//>>excludeEnd("ctx");
|
|
|
-},
|
|
|
-//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
-args: [],
|
|
|
-source: "inSilk\x0a\x09^ Silk newStream << self; yourself",
|
|
|
-referencedClasses: ["Silk"],
|
|
|
-//>>excludeEnd("ide");
|
|
|
-pragmas: [],
|
|
|
-messageSends: ["<<", "newStream", "yourself"]
|
|
|
-}),
|
|
|
+}; }),
|
|
|
$globals.Object);
|
|
|
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "renderOnSilk:",
|
|
|
protocol: "*Silk",
|
|
|
-fn: function (aSilk){
|
|
|
-var self=this,$self=this;
|
|
|
-return nil;
|
|
|
-
|
|
|
-},
|
|
|
//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
args: ["aSilk"],
|
|
|
source: "renderOnSilk: aSilk\x0a\x09^ nil",
|
|
@@ -401,14 +383,25 @@ referencedClasses: [],
|
|
|
//>>excludeEnd("ide");
|
|
|
pragmas: [],
|
|
|
messageSends: []
|
|
|
-}),
|
|
|
+}, function ($methodClass){ return function (aSilk){
|
|
|
+var self=this,$self=this;
|
|
|
+return nil;
|
|
|
+
|
|
|
+}; }),
|
|
|
$globals.Object);
|
|
|
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "asSilk",
|
|
|
protocol: "*Silk",
|
|
|
-fn: function (){
|
|
|
+//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
+args: [],
|
|
|
+source: "asSilk\x0a\x09^ Silk at: self asString",
|
|
|
+referencedClasses: ["Silk"],
|
|
|
+//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
+messageSends: ["at:", "asString"]
|
|
|
+}, function ($methodClass){ return function (){
|
|
|
var self=this,$self=this;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx1) {
|
|
@@ -417,22 +410,21 @@ return $recv($globals.Silk)._at_($self._asString());
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"asSilk",{})});
|
|
|
//>>excludeEnd("ctx");
|
|
|
-},
|
|
|
-//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
-args: [],
|
|
|
-source: "asSilk\x0a\x09^ Silk at: self asString",
|
|
|
-referencedClasses: ["Silk"],
|
|
|
-//>>excludeEnd("ide");
|
|
|
-pragmas: [],
|
|
|
-messageSends: ["at:", "asString"]
|
|
|
-}),
|
|
|
+}; }),
|
|
|
$globals.String);
|
|
|
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "attrPut:on:",
|
|
|
protocol: "*Silk",
|
|
|
-fn: function (anObject,aSilk){
|
|
|
+//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
+args: ["anObject", "aSilk"],
|
|
|
+source: "attrPut: anObject on: aSilk\x0a\x09aSilk attrAt: self put: anObject",
|
|
|
+referencedClasses: [],
|
|
|
+//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
+messageSends: ["attrAt:put:"]
|
|
|
+}, function ($methodClass){ return function (anObject,aSilk){
|
|
|
var self=this,$self=this;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx1) {
|
|
@@ -442,15 +434,7 @@ return self;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"attrPut:on:",{anObject:anObject,aSilk:aSilk})});
|
|
|
//>>excludeEnd("ctx");
|
|
|
-},
|
|
|
-//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
-args: ["anObject", "aSilk"],
|
|
|
-source: "attrPut: anObject on: aSilk\x0a\x09aSilk attrAt: self put: anObject",
|
|
|
-referencedClasses: [],
|
|
|
-//>>excludeEnd("ide");
|
|
|
-pragmas: [],
|
|
|
-messageSends: ["attrAt:put:"]
|
|
|
-}),
|
|
|
+}; }),
|
|
|
$globals.String);
|
|
|
|
|
|
});
|