|
@@ -5130,3 +5130,22 @@ referencedClasses: []
|
|
|
smalltalk.UndefinedObject.klass);
|
|
|
|
|
|
|
|
|
+smalltalk.addMethod(
|
|
|
+"_asJavaScriptSelector",
|
|
|
+smalltalk.method({
|
|
|
+selector: "asJavaScriptSelector",
|
|
|
+category: '*Kernel-Objects',
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return smalltalk.withContext(function($ctx1) {
|
|
|
+var $1;
|
|
|
+$1=_st(self)._replace_with_("^([a-zA-Z0-9]*).*$","$1");
|
|
|
+return $1;
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"asJavaScriptSelector",{},smalltalk.String)})},
|
|
|
+args: [],
|
|
|
+source: "asJavaScriptSelector\x0a\x09\x22Return first keyword of the selector, without trailing colon.\x22\x0a\x09^self replace: '^([a-zA-Z0-9]*).*$' with: '$1'",
|
|
|
+messageSends: ["replace:with:"],
|
|
|
+referencedClasses: []
|
|
|
+}),
|
|
|
+smalltalk.String);
|
|
|
+
|