Adds String >> charCodeAt:

js/Kernel-Collections.deploy.js

@@ -2617,6 +2617,17 @@ return self}, function($ctx1) {$ctx1.fill(self,"at:ifAbsent:",{anIndex:anIndex,a
 messageSends: []}),
 smalltalk.String);
 
+smalltalk.addMethod(
+smalltalk.method({
+selector: "charCodeAt:",
+fn: function (anInteger){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+ return self.charCodeAt(anInteger - 1) ;
+return self}, function($ctx1) {$ctx1.fill(self,"charCodeAt:",{anInteger:anInteger},smalltalk.String)})},
+messageSends: []}),
+smalltalk.String);
+
 smalltalk.addMethod(
 smalltalk.method({
 selector: "copyFrom:to:",

js/Kernel-Collections.js

@@ -3521,6 +3521,22 @@ referencedClasses: []
 }),
 smalltalk.String);
 
+smalltalk.addMethod(
+smalltalk.method({
+selector: "charCodeAt:",
+category: 'accessing',
+fn: function (anInteger){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+ return self.charCodeAt(anInteger - 1) ;
+return self}, function($ctx1) {$ctx1.fill(self,"charCodeAt:",{anInteger:anInteger},smalltalk.String)})},
+args: ["anInteger"],
+source: "charCodeAt: anInteger\x0a\x09< return self.charCodeAt(anInteger - 1) >",
+messageSends: [],
+referencedClasses: []
+}),
+smalltalk.String);
+
 smalltalk.addMethod(
 smalltalk.method({
 selector: "copyFrom:to:",

st/Kernel-Collections.st

@@ -1105,6 +1105,10 @@ at: anIndex ifAbsent: aBlock
 	<return String(self).charAt(anIndex - 1) || aBlock()>
 !
 
+charCodeAt: anInteger
+	< return self.charCodeAt(anInteger - 1) >
+!
+
 escaped
 	<return escape(self)>
 !