- Merge branch 'master' into helios

Conflicts:
	js/Kernel-Classes.deploy.js
	js/Kernel-Classes.js
	js/Kernel-Collections.deploy.js
	js/Kernel-Collections.js
	js/Kernel-Methods.deploy.js
	js/Kernel-Methods.js
	js/Kernel-Objects.deploy.js
	js/Kernel-Objects.js

- recompiled all helios js files

js/Benchfib.deploy.js

@@ -2,7 +2,6 @@ smalltalk.addPackage('Benchfib');
 smalltalk.addClass('Benchfib', smalltalk.Object, [], 'Benchfib');
 
 smalltalk.addMethod(
-"_main",
 smalltalk.method({
 selector: "main",
 fn: function (){
@@ -17,7 +16,6 @@ smalltalk.Benchfib.klass);
 
 
 smalltalk.addMethod(
-"_benchFib",
 smalltalk.method({
 selector: "benchFib",
 fn: function (){
@@ -36,7 +34,6 @@ messageSends: ["ifTrue:ifFalse:", "+", "benchFib", "-", "<"]}),
 smalltalk.Number);
 
 smalltalk.addMethod(
-"_benchmark",
 smalltalk.method({
 selector: "benchmark",
 fn: function (){
@@ -85,7 +82,6 @@ messageSends: ["to:do:", "new", "timesRepeat:", "add:", "ifTrue:", "+", "whileTr
 smalltalk.Number);
 
 smalltalk.addMethod(
-"_jsbenchFib",
 smalltalk.method({
 selector: "jsbenchFib",
 fn: function (){
@@ -100,7 +96,6 @@ messageSends: []}),
 smalltalk.Number);
 
 smalltalk.addMethod(
-"_jsbenchmark",
 smalltalk.method({
 selector: "jsbenchmark",
 fn: function (){
@@ -133,7 +128,6 @@ messageSends: []}),
 smalltalk.Number);
 
 smalltalk.addMethod(
-"_jstinyBenchmarks",
 smalltalk.method({
 selector: "jstinyBenchmarks",
 fn: function (){
@@ -178,7 +172,6 @@ messageSends: ["whileTrue:", "*", "millisecondsToRun:", "jsbenchmark", "<", "+",
 smalltalk.Number);
 
 smalltalk.addMethod(
-"_tinyBenchmarks",
 smalltalk.method({
 selector: "tinyBenchmarks",
 fn: function (){

js/Benchfib.js

@@ -2,7 +2,6 @@ smalltalk.addPackage('Benchfib');
 smalltalk.addClass('Benchfib', smalltalk.Object, [], 'Benchfib');
 
 smalltalk.addMethod(
-"_main",
 smalltalk.method({
 selector: "main",
 category: 'not yet classified',
@@ -22,7 +21,6 @@ smalltalk.Benchfib.klass);
 
 
 smalltalk.addMethod(
-"_benchFib",
 smalltalk.method({
 selector: "benchFib",
 category: '*Benchfib',
@@ -46,7 +44,6 @@ referencedClasses: []
 smalltalk.Number);
 
 smalltalk.addMethod(
-"_benchmark",
 smalltalk.method({
 selector: "benchmark",
 category: '*Benchfib',
@@ -100,7 +97,6 @@ referencedClasses: ["Array"]
 smalltalk.Number);
 
 smalltalk.addMethod(
-"_jsbenchFib",
 smalltalk.method({
 selector: "jsbenchFib",
 category: '*Benchfib',
@@ -120,7 +116,6 @@ referencedClasses: []
 smalltalk.Number);
 
 smalltalk.addMethod(
-"_jsbenchmark",
 smalltalk.method({
 selector: "jsbenchmark",
 category: '*Benchfib',
@@ -158,7 +153,6 @@ referencedClasses: []
 smalltalk.Number);
 
 smalltalk.addMethod(
-"_jstinyBenchmarks",
 smalltalk.method({
 selector: "jstinyBenchmarks",
 category: '*Benchfib',
@@ -208,7 +202,6 @@ referencedClasses: ["Date"]
 smalltalk.Number);
 
 smalltalk.addMethod(
-"_tinyBenchmarks",
 smalltalk.method({
 selector: "tinyBenchmarks",
 category: '*Benchfib',

js/Compiler-AST.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Compiler-AST');
 smalltalk.addClass('Node', smalltalk.Object, ['position', 'nodes', 'shouldBeInlined', 'shouldBeAliased'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -15,7 +14,6 @@ messageSends: ["visitNode:"]}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_addNode_",
 smalltalk.method({
 selector: "addNode:",
 fn: function (aNode){
@@ -27,7 +25,6 @@ messageSends: ["add:", "nodes"]}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isAssignmentNode",
 smalltalk.method({
 selector: "isAssignmentNode",
 fn: function (){
@@ -39,7 +36,6 @@ messageSends: []}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isBlockNode",
 smalltalk.method({
 selector: "isBlockNode",
 fn: function (){
@@ -51,7 +47,6 @@ messageSends: []}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isBlockSequenceNode",
 smalltalk.method({
 selector: "isBlockSequenceNode",
 fn: function (){
@@ -63,7 +58,6 @@ messageSends: []}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isImmutable",
 smalltalk.method({
 selector: "isImmutable",
 fn: function (){
@@ -75,7 +69,6 @@ messageSends: []}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isNode",
 smalltalk.method({
 selector: "isNode",
 fn: function (){
@@ -87,7 +80,6 @@ messageSends: []}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isReturnNode",
 smalltalk.method({
 selector: "isReturnNode",
 fn: function (){
@@ -99,7 +91,6 @@ messageSends: []}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isSendNode",
 smalltalk.method({
 selector: "isSendNode",
 fn: function (){
@@ -111,7 +102,6 @@ messageSends: []}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isValueNode",
 smalltalk.method({
 selector: "isValueNode",
 fn: function (){
@@ -123,7 +113,6 @@ messageSends: []}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_nodes",
 smalltalk.method({
 selector: "nodes",
 fn: function (){
@@ -144,7 +133,6 @@ messageSends: ["ifNil:", "new"]}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_nodes_",
 smalltalk.method({
 selector: "nodes:",
 fn: function (aCollection){
@@ -156,7 +144,6 @@ messageSends: []}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_position",
 smalltalk.method({
 selector: "position",
 fn: function (){
@@ -176,7 +163,6 @@ messageSends: ["ifNil:", "@"]}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_position_",
 smalltalk.method({
 selector: "position:",
 fn: function (aPosition){
@@ -188,7 +174,6 @@ messageSends: []}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_shouldBeAliased",
 smalltalk.method({
 selector: "shouldBeAliased",
 fn: function (){
@@ -207,7 +192,6 @@ messageSends: ["ifNil:"]}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_shouldBeAliased_",
 smalltalk.method({
 selector: "shouldBeAliased:",
 fn: function (aBoolean){
@@ -219,7 +203,6 @@ messageSends: []}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_shouldBeInlined",
 smalltalk.method({
 selector: "shouldBeInlined",
 fn: function (){
@@ -238,7 +221,6 @@ messageSends: ["ifNil:"]}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_shouldBeInlined_",
 smalltalk.method({
 selector: "shouldBeInlined:",
 fn: function (aBoolean){
@@ -250,7 +232,6 @@ messageSends: []}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_subtreeNeedsAliasing",
 smalltalk.method({
 selector: "subtreeNeedsAliasing",
 fn: function (){
@@ -279,7 +260,6 @@ smalltalk.Node);
 
 smalltalk.addClass('AssignmentNode', smalltalk.Node, ['left', 'right'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -293,7 +273,6 @@ messageSends: ["visitAssignmentNode:"]}),
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_isAssignmentNode",
 smalltalk.method({
 selector: "isAssignmentNode",
 fn: function (){
@@ -305,7 +284,6 @@ messageSends: []}),
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_left",
 smalltalk.method({
 selector: "left",
 fn: function (){
@@ -319,7 +297,6 @@ messageSends: []}),
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_left_",
 smalltalk.method({
 selector: "left:",
 fn: function (aNode){
@@ -331,7 +308,6 @@ messageSends: []}),
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_nodes",
 smalltalk.method({
 selector: "nodes",
 fn: function (){
@@ -346,7 +322,6 @@ messageSends: ["with:with:", "left", "right"]}),
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_right",
 smalltalk.method({
 selector: "right",
 fn: function (){
@@ -360,7 +335,6 @@ messageSends: []}),
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_right_",
 smalltalk.method({
 selector: "right:",
 fn: function (aNode){
@@ -375,7 +349,6 @@ smalltalk.AssignmentNode);
 
 smalltalk.addClass('BlockNode', smalltalk.Node, ['parameters', 'scope'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -389,7 +362,6 @@ messageSends: ["visitBlockNode:"]}),
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_isBlockNode",
 smalltalk.method({
 selector: "isBlockNode",
 fn: function (){
@@ -401,7 +373,6 @@ messageSends: []}),
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_parameters",
 smalltalk.method({
 selector: "parameters",
 fn: function (){
@@ -422,7 +393,6 @@ messageSends: ["ifNil:", "new"]}),
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_parameters_",
 smalltalk.method({
 selector: "parameters:",
 fn: function (aCollection){
@@ -434,7 +404,6 @@ messageSends: []}),
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_scope",
 smalltalk.method({
 selector: "scope",
 fn: function (){
@@ -448,7 +417,6 @@ messageSends: []}),
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_scope_",
 smalltalk.method({
 selector: "scope:",
 fn: function (aLexicalScope){
@@ -460,7 +428,6 @@ messageSends: []}),
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_subtreeNeedsAliasing",
 smalltalk.method({
 selector: "subtreeNeedsAliasing",
 fn: function (){
@@ -480,7 +447,6 @@ smalltalk.BlockNode);
 
 smalltalk.addClass('CascadeNode', smalltalk.Node, ['receiver'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -494,7 +460,6 @@ messageSends: ["visitCascadeNode:"]}),
 smalltalk.CascadeNode);
 
 smalltalk.addMethod(
-"_receiver",
 smalltalk.method({
 selector: "receiver",
 fn: function (){
@@ -508,7 +473,6 @@ messageSends: []}),
 smalltalk.CascadeNode);
 
 smalltalk.addMethod(
-"_receiver_",
 smalltalk.method({
 selector: "receiver:",
 fn: function (aNode){
@@ -523,7 +487,6 @@ smalltalk.CascadeNode);
 
 smalltalk.addClass('DynamicArrayNode', smalltalk.Node, [], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -540,7 +503,6 @@ smalltalk.DynamicArrayNode);
 
 smalltalk.addClass('DynamicDictionaryNode', smalltalk.Node, [], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -557,7 +519,6 @@ smalltalk.DynamicDictionaryNode);
 
 smalltalk.addClass('JSStatementNode', smalltalk.Node, ['source'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -571,7 +532,6 @@ messageSends: ["visitJSStatementNode:"]}),
 smalltalk.JSStatementNode);
 
 smalltalk.addMethod(
-"_source",
 smalltalk.method({
 selector: "source",
 fn: function (){
@@ -590,7 +550,6 @@ messageSends: ["ifNil:"]}),
 smalltalk.JSStatementNode);
 
 smalltalk.addMethod(
-"_source_",
 smalltalk.method({
 selector: "source:",
 fn: function (aString){
@@ -605,7 +564,6 @@ smalltalk.JSStatementNode);
 
 smalltalk.addClass('MethodNode', smalltalk.Node, ['selector', 'arguments', 'source', 'scope', 'classReferences', 'messageSends', 'superSends'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -619,7 +577,6 @@ messageSends: ["visitMethodNode:"]}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_arguments",
 smalltalk.method({
 selector: "arguments",
 fn: function (){
@@ -638,7 +595,6 @@ messageSends: ["ifNil:"]}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_arguments_",
 smalltalk.method({
 selector: "arguments:",
 fn: function (aCollection){
@@ -650,7 +606,6 @@ messageSends: []}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_classReferences",
 smalltalk.method({
 selector: "classReferences",
 fn: function (){
@@ -664,7 +619,6 @@ messageSends: []}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_classReferences_",
 smalltalk.method({
 selector: "classReferences:",
 fn: function (aCollection){
@@ -676,7 +630,6 @@ messageSends: []}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_messageSends",
 smalltalk.method({
 selector: "messageSends",
 fn: function (){
@@ -690,7 +643,6 @@ messageSends: []}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_messageSends_",
 smalltalk.method({
 selector: "messageSends:",
 fn: function (aCollection){
@@ -702,7 +654,6 @@ messageSends: []}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_scope",
 smalltalk.method({
 selector: "scope",
 fn: function (){
@@ -716,7 +667,6 @@ messageSends: []}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_scope_",
 smalltalk.method({
 selector: "scope:",
 fn: function (aMethodScope){
@@ -728,7 +678,6 @@ messageSends: []}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_selector",
 smalltalk.method({
 selector: "selector",
 fn: function (){
@@ -742,7 +691,6 @@ messageSends: []}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_selector_",
 smalltalk.method({
 selector: "selector:",
 fn: function (aString){
@@ -754,7 +702,6 @@ messageSends: []}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_source",
 smalltalk.method({
 selector: "source",
 fn: function (){
@@ -768,7 +715,6 @@ messageSends: []}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_source_",
 smalltalk.method({
 selector: "source:",
 fn: function (aString){
@@ -780,7 +726,6 @@ messageSends: []}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_superSends",
 smalltalk.method({
 selector: "superSends",
 fn: function (){
@@ -794,7 +739,6 @@ messageSends: []}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_superSends_",
 smalltalk.method({
 selector: "superSends:",
 fn: function (aCollection){
@@ -809,7 +753,6 @@ smalltalk.MethodNode);
 
 smalltalk.addClass('ReturnNode', smalltalk.Node, ['scope'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -823,7 +766,6 @@ messageSends: ["visitReturnNode:"]}),
 smalltalk.ReturnNode);
 
 smalltalk.addMethod(
-"_isReturnNode",
 smalltalk.method({
 selector: "isReturnNode",
 fn: function (){
@@ -835,7 +777,6 @@ messageSends: []}),
 smalltalk.ReturnNode);
 
 smalltalk.addMethod(
-"_nonLocalReturn",
 smalltalk.method({
 selector: "nonLocalReturn",
 fn: function (){
@@ -849,7 +790,6 @@ messageSends: ["not", "isMethodScope", "scope"]}),
 smalltalk.ReturnNode);
 
 smalltalk.addMethod(
-"_scope",
 smalltalk.method({
 selector: "scope",
 fn: function (){
@@ -863,7 +803,6 @@ messageSends: []}),
 smalltalk.ReturnNode);
 
 smalltalk.addMethod(
-"_scope_",
 smalltalk.method({
 selector: "scope:",
 fn: function (aLexicalScope){
@@ -878,7 +817,6 @@ smalltalk.ReturnNode);
 
 smalltalk.addClass('SendNode', smalltalk.Node, ['selector', 'arguments', 'receiver', 'superSend', 'index'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -892,7 +830,6 @@ messageSends: ["visitSendNode:"]}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_arguments",
 smalltalk.method({
 selector: "arguments",
 fn: function (){
@@ -912,7 +849,6 @@ messageSends: ["ifNil:"]}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_arguments_",
 smalltalk.method({
 selector: "arguments:",
 fn: function (aCollection){
@@ -924,7 +860,6 @@ messageSends: []}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_cascadeNodeWithMessages_",
 smalltalk.method({
 selector: "cascadeNodeWithMessages:",
 fn: function (aCollection){
@@ -951,7 +886,6 @@ messageSends: ["selector:", "selector", "new", "arguments:", "arguments", "yours
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_index",
 smalltalk.method({
 selector: "index",
 fn: function (){
@@ -965,7 +899,6 @@ messageSends: []}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_index_",
 smalltalk.method({
 selector: "index:",
 fn: function (anInteger){
@@ -977,7 +910,6 @@ messageSends: []}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_isSendNode",
 smalltalk.method({
 selector: "isSendNode",
 fn: function (){
@@ -989,7 +921,6 @@ messageSends: []}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_nodes",
 smalltalk.method({
 selector: "nodes",
 fn: function (){
@@ -1007,7 +938,6 @@ messageSends: ["add:", "receiver", "withAll:", "arguments", "yourself"]}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_receiver",
 smalltalk.method({
 selector: "receiver",
 fn: function (){
@@ -1021,7 +951,6 @@ messageSends: []}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_receiver_",
 smalltalk.method({
 selector: "receiver:",
 fn: function (aNode){
@@ -1033,7 +962,6 @@ messageSends: []}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_selector",
 smalltalk.method({
 selector: "selector",
 fn: function (){
@@ -1047,7 +975,6 @@ messageSends: []}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_selector_",
 smalltalk.method({
 selector: "selector:",
 fn: function (aString){
@@ -1059,7 +986,6 @@ messageSends: []}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_superSend",
 smalltalk.method({
 selector: "superSend",
 fn: function (){
@@ -1078,7 +1004,6 @@ messageSends: ["ifNil:"]}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_superSend_",
 smalltalk.method({
 selector: "superSend:",
 fn: function (aBoolean){
@@ -1090,7 +1015,6 @@ messageSends: []}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_valueForReceiver_",
 smalltalk.method({
 selector: "valueForReceiver:",
 fn: function (anObject){
@@ -1120,7 +1044,6 @@ smalltalk.SendNode);
 
 smalltalk.addClass('SequenceNode', smalltalk.Node, ['temps', 'scope'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -1134,7 +1057,6 @@ messageSends: ["visitSequenceNode:"]}),
 smalltalk.SequenceNode);
 
 smalltalk.addMethod(
-"_asBlockSequenceNode",
 smalltalk.method({
 selector: "asBlockSequenceNode",
 fn: function (){
@@ -1153,7 +1075,6 @@ messageSends: ["nodes:", "nodes", "new", "temps:", "temps", "yourself"]}),
 smalltalk.SequenceNode);
 
 smalltalk.addMethod(
-"_scope",
 smalltalk.method({
 selector: "scope",
 fn: function (){
@@ -1167,7 +1088,6 @@ messageSends: []}),
 smalltalk.SequenceNode);
 
 smalltalk.addMethod(
-"_scope_",
 smalltalk.method({
 selector: "scope:",
 fn: function (aLexicalScope){
@@ -1179,7 +1099,6 @@ messageSends: []}),
 smalltalk.SequenceNode);
 
 smalltalk.addMethod(
-"_temps",
 smalltalk.method({
 selector: "temps",
 fn: function (){
@@ -1198,7 +1117,6 @@ messageSends: ["ifNil:"]}),
 smalltalk.SequenceNode);
 
 smalltalk.addMethod(
-"_temps_",
 smalltalk.method({
 selector: "temps:",
 fn: function (aCollection){
@@ -1213,7 +1131,6 @@ smalltalk.SequenceNode);
 
 smalltalk.addClass('BlockSequenceNode', smalltalk.SequenceNode, [], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -1227,7 +1144,6 @@ messageSends: ["visitBlockSequenceNode:"]}),
 smalltalk.BlockSequenceNode);
 
 smalltalk.addMethod(
-"_isBlockSequenceNode",
 smalltalk.method({
 selector: "isBlockSequenceNode",
 fn: function (){
@@ -1242,7 +1158,6 @@ smalltalk.BlockSequenceNode);
 
 smalltalk.addClass('ValueNode', smalltalk.Node, ['value'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -1256,7 +1171,6 @@ messageSends: ["visitValueNode:"]}),
 smalltalk.ValueNode);
 
 smalltalk.addMethod(
-"_isImmutable",
 smalltalk.method({
 selector: "isImmutable",
 fn: function (){
@@ -1270,7 +1184,6 @@ messageSends: ["isImmutable", "value"]}),
 smalltalk.ValueNode);
 
 smalltalk.addMethod(
-"_isValueNode",
 smalltalk.method({
 selector: "isValueNode",
 fn: function (){
@@ -1282,7 +1195,6 @@ messageSends: []}),
 smalltalk.ValueNode);
 
 smalltalk.addMethod(
-"_value",
 smalltalk.method({
 selector: "value",
 fn: function (){
@@ -1296,7 +1208,6 @@ messageSends: []}),
 smalltalk.ValueNode);
 
 smalltalk.addMethod(
-"_value_",
 smalltalk.method({
 selector: "value:",
 fn: function (anObject){
@@ -1311,7 +1222,6 @@ smalltalk.ValueNode);
 
 smalltalk.addClass('VariableNode', smalltalk.ValueNode, ['assigned', 'binding'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -1325,7 +1235,6 @@ messageSends: ["visitVariableNode:"]}),
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_alias",
 smalltalk.method({
 selector: "alias",
 fn: function (){
@@ -1339,7 +1248,6 @@ messageSends: ["alias", "binding"]}),
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_assigned",
 smalltalk.method({
 selector: "assigned",
 fn: function (){
@@ -1358,7 +1266,6 @@ messageSends: ["ifNil:"]}),
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_assigned_",
 smalltalk.method({
 selector: "assigned:",
 fn: function (aBoolean){
@@ -1370,7 +1277,6 @@ messageSends: []}),
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_beAssigned",
 smalltalk.method({
 selector: "beAssigned",
 fn: function (){
@@ -1383,7 +1289,6 @@ messageSends: ["validateAssignment", "binding"]}),
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_binding",
 smalltalk.method({
 selector: "binding",
 fn: function (){
@@ -1397,7 +1302,6 @@ messageSends: []}),
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_binding_",
 smalltalk.method({
 selector: "binding:",
 fn: function (aScopeVar){
@@ -1409,7 +1313,6 @@ messageSends: []}),
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_isImmutable",
 smalltalk.method({
 selector: "isImmutable",
 fn: function (){
@@ -1424,7 +1327,6 @@ smalltalk.VariableNode);
 
 smalltalk.addClass('ClassReferenceNode', smalltalk.VariableNode, [], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -1440,7 +1342,6 @@ smalltalk.ClassReferenceNode);
 
 
 smalltalk.addMethod(
-"_isNode",
 smalltalk.method({
 selector: "isNode",
 fn: function (){

js/Compiler-AST.js

@@ -2,7 +2,6 @@ smalltalk.addPackage('Compiler-AST');
 smalltalk.addClass('Node', smalltalk.Object, ['position', 'nodes', 'shouldBeInlined', 'shouldBeAliased'], 'Compiler-AST');
 smalltalk.Node.comment="I am the abstract root class of the abstract syntax tree.\x0a\x0aposition: holds a point containing lline- and column number of the symbol location in the original source file"
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -21,7 +20,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_addNode_",
 smalltalk.method({
 selector: "addNode:",
 category: 'accessing',
@@ -38,7 +36,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isAssignmentNode",
 smalltalk.method({
 selector: "isAssignmentNode",
 category: 'testing',
@@ -55,7 +52,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isBlockNode",
 smalltalk.method({
 selector: "isBlockNode",
 category: 'testing',
@@ -72,7 +68,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isBlockSequenceNode",
 smalltalk.method({
 selector: "isBlockSequenceNode",
 category: 'testing',
@@ -89,7 +84,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isImmutable",
 smalltalk.method({
 selector: "isImmutable",
 category: 'testing',
@@ -106,7 +100,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isNode",
 smalltalk.method({
 selector: "isNode",
 category: 'testing',
@@ -123,7 +116,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isReturnNode",
 smalltalk.method({
 selector: "isReturnNode",
 category: 'testing',
@@ -140,7 +132,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isSendNode",
 smalltalk.method({
 selector: "isSendNode",
 category: 'testing',
@@ -157,7 +148,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isValueNode",
 smalltalk.method({
 selector: "isValueNode",
 category: 'testing',
@@ -174,7 +164,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_nodes",
 smalltalk.method({
 selector: "nodes",
 category: 'accessing',
@@ -200,7 +189,6 @@ referencedClasses: ["Array"]
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_nodes_",
 smalltalk.method({
 selector: "nodes:",
 category: 'building',
@@ -217,7 +205,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_position",
 smalltalk.method({
 selector: "position",
 category: 'accessing',
@@ -242,7 +229,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_position_",
 smalltalk.method({
 selector: "position:",
 category: 'building',
@@ -259,7 +245,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_shouldBeAliased",
 smalltalk.method({
 selector: "shouldBeAliased",
 category: 'accessing',
@@ -283,7 +268,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_shouldBeAliased_",
 smalltalk.method({
 selector: "shouldBeAliased:",
 category: 'accessing',
@@ -300,7 +284,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_shouldBeInlined",
 smalltalk.method({
 selector: "shouldBeInlined",
 category: 'accessing',
@@ -324,7 +307,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_shouldBeInlined_",
 smalltalk.method({
 selector: "shouldBeInlined:",
 category: 'accessing',
@@ -341,7 +323,6 @@ referencedClasses: []
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_subtreeNeedsAliasing",
 smalltalk.method({
 selector: "subtreeNeedsAliasing",
 category: 'testing',
@@ -375,7 +356,6 @@ smalltalk.Node);
 
 smalltalk.addClass('AssignmentNode', smalltalk.Node, ['left', 'right'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -394,7 +374,6 @@ referencedClasses: []
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_isAssignmentNode",
 smalltalk.method({
 selector: "isAssignmentNode",
 category: 'testing',
@@ -411,7 +390,6 @@ referencedClasses: []
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_left",
 smalltalk.method({
 selector: "left",
 category: 'accessing',
@@ -430,7 +408,6 @@ referencedClasses: []
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_left_",
 smalltalk.method({
 selector: "left:",
 category: 'accessing',
@@ -447,7 +424,6 @@ referencedClasses: []
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_nodes",
 smalltalk.method({
 selector: "nodes",
 category: 'accessing',
@@ -467,7 +443,6 @@ referencedClasses: ["Array"]
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_right",
 smalltalk.method({
 selector: "right",
 category: 'accessing',
@@ -486,7 +461,6 @@ referencedClasses: []
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_right_",
 smalltalk.method({
 selector: "right:",
 category: 'accessing',
@@ -506,7 +480,6 @@ smalltalk.AssignmentNode);
 
 smalltalk.addClass('BlockNode', smalltalk.Node, ['parameters', 'scope'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -525,7 +498,6 @@ referencedClasses: []
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_isBlockNode",
 smalltalk.method({
 selector: "isBlockNode",
 category: 'testing',
@@ -542,7 +514,6 @@ referencedClasses: []
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_parameters",
 smalltalk.method({
 selector: "parameters",
 category: 'accessing',
@@ -568,7 +539,6 @@ referencedClasses: ["Array"]
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_parameters_",
 smalltalk.method({
 selector: "parameters:",
 category: 'accessing',
@@ -585,7 +555,6 @@ referencedClasses: []
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_scope",
 smalltalk.method({
 selector: "scope",
 category: 'accessing',
@@ -604,7 +573,6 @@ referencedClasses: []
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_scope_",
 smalltalk.method({
 selector: "scope:",
 category: 'accessing',
@@ -621,7 +589,6 @@ referencedClasses: []
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_subtreeNeedsAliasing",
 smalltalk.method({
 selector: "subtreeNeedsAliasing",
 category: 'testing',
@@ -646,7 +613,6 @@ smalltalk.BlockNode);
 
 smalltalk.addClass('CascadeNode', smalltalk.Node, ['receiver'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -665,7 +631,6 @@ referencedClasses: []
 smalltalk.CascadeNode);
 
 smalltalk.addMethod(
-"_receiver",
 smalltalk.method({
 selector: "receiver",
 category: 'accessing',
@@ -684,7 +649,6 @@ referencedClasses: []
 smalltalk.CascadeNode);
 
 smalltalk.addMethod(
-"_receiver_",
 smalltalk.method({
 selector: "receiver:",
 category: 'accessing',
@@ -704,7 +668,6 @@ smalltalk.CascadeNode);
 
 smalltalk.addClass('DynamicArrayNode', smalltalk.Node, [], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -726,7 +689,6 @@ smalltalk.DynamicArrayNode);
 
 smalltalk.addClass('DynamicDictionaryNode', smalltalk.Node, [], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -748,7 +710,6 @@ smalltalk.DynamicDictionaryNode);
 
 smalltalk.addClass('JSStatementNode', smalltalk.Node, ['source'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -767,7 +728,6 @@ referencedClasses: []
 smalltalk.JSStatementNode);
 
 smalltalk.addMethod(
-"_source",
 smalltalk.method({
 selector: "source",
 category: 'accessing',
@@ -791,7 +751,6 @@ referencedClasses: []
 smalltalk.JSStatementNode);
 
 smalltalk.addMethod(
-"_source_",
 smalltalk.method({
 selector: "source:",
 category: 'accessing',
@@ -811,7 +770,6 @@ smalltalk.JSStatementNode);
 
 smalltalk.addClass('MethodNode', smalltalk.Node, ['selector', 'arguments', 'source', 'scope', 'classReferences', 'messageSends', 'superSends'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -830,7 +788,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_arguments",
 smalltalk.method({
 selector: "arguments",
 category: 'accessing',
@@ -854,7 +811,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_arguments_",
 smalltalk.method({
 selector: "arguments:",
 category: 'accessing',
@@ -871,7 +827,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_classReferences",
 smalltalk.method({
 selector: "classReferences",
 category: 'accessing',
@@ -890,7 +845,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_classReferences_",
 smalltalk.method({
 selector: "classReferences:",
 category: 'accessing',
@@ -907,7 +861,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_messageSends",
 smalltalk.method({
 selector: "messageSends",
 category: 'accessing',
@@ -926,7 +879,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_messageSends_",
 smalltalk.method({
 selector: "messageSends:",
 category: 'accessing',
@@ -943,7 +895,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_scope",
 smalltalk.method({
 selector: "scope",
 category: 'accessing',
@@ -962,7 +913,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_scope_",
 smalltalk.method({
 selector: "scope:",
 category: 'accessing',
@@ -979,7 +929,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_selector",
 smalltalk.method({
 selector: "selector",
 category: 'accessing',
@@ -998,7 +947,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_selector_",
 smalltalk.method({
 selector: "selector:",
 category: 'accessing',
@@ -1015,7 +963,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_source",
 smalltalk.method({
 selector: "source",
 category: 'accessing',
@@ -1034,7 +981,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_source_",
 smalltalk.method({
 selector: "source:",
 category: 'accessing',
@@ -1051,7 +997,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_superSends",
 smalltalk.method({
 selector: "superSends",
 category: 'accessing',
@@ -1070,7 +1015,6 @@ referencedClasses: []
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_superSends_",
 smalltalk.method({
 selector: "superSends:",
 category: 'accessing',
@@ -1090,7 +1034,6 @@ smalltalk.MethodNode);
 
 smalltalk.addClass('ReturnNode', smalltalk.Node, ['scope'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -1109,7 +1052,6 @@ referencedClasses: []
 smalltalk.ReturnNode);
 
 smalltalk.addMethod(
-"_isReturnNode",
 smalltalk.method({
 selector: "isReturnNode",
 category: 'testing',
@@ -1126,7 +1068,6 @@ referencedClasses: []
 smalltalk.ReturnNode);
 
 smalltalk.addMethod(
-"_nonLocalReturn",
 smalltalk.method({
 selector: "nonLocalReturn",
 category: 'testing',
@@ -1145,7 +1086,6 @@ referencedClasses: []
 smalltalk.ReturnNode);
 
 smalltalk.addMethod(
-"_scope",
 smalltalk.method({
 selector: "scope",
 category: 'accessing',
@@ -1164,7 +1104,6 @@ referencedClasses: []
 smalltalk.ReturnNode);
 
 smalltalk.addMethod(
-"_scope_",
 smalltalk.method({
 selector: "scope:",
 category: 'accessing',
@@ -1184,7 +1123,6 @@ smalltalk.ReturnNode);
 
 smalltalk.addClass('SendNode', smalltalk.Node, ['selector', 'arguments', 'receiver', 'superSend', 'index'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -1203,7 +1141,6 @@ referencedClasses: []
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_arguments",
 smalltalk.method({
 selector: "arguments",
 category: 'accessing',
@@ -1228,7 +1165,6 @@ referencedClasses: []
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_arguments_",
 smalltalk.method({
 selector: "arguments:",
 category: 'accessing',
@@ -1245,7 +1181,6 @@ referencedClasses: []
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_cascadeNodeWithMessages_",
 smalltalk.method({
 selector: "cascadeNodeWithMessages:",
 category: 'accessing',
@@ -1277,7 +1212,6 @@ referencedClasses: ["SendNode", "CascadeNode", "Array"]
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_index",
 smalltalk.method({
 selector: "index",
 category: 'accessing',
@@ -1296,7 +1230,6 @@ referencedClasses: []
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_index_",
 smalltalk.method({
 selector: "index:",
 category: 'accessing',
@@ -1313,7 +1246,6 @@ referencedClasses: []
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_isSendNode",
 smalltalk.method({
 selector: "isSendNode",
 category: 'testing',
@@ -1330,7 +1262,6 @@ referencedClasses: []
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_nodes",
 smalltalk.method({
 selector: "nodes",
 category: 'accessing',
@@ -1353,7 +1284,6 @@ referencedClasses: ["Array"]
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_receiver",
 smalltalk.method({
 selector: "receiver",
 category: 'accessing',
@@ -1372,7 +1302,6 @@ referencedClasses: []
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_receiver_",
 smalltalk.method({
 selector: "receiver:",
 category: 'accessing',
@@ -1389,7 +1318,6 @@ referencedClasses: []
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_selector",
 smalltalk.method({
 selector: "selector",
 category: 'accessing',
@@ -1408,7 +1336,6 @@ referencedClasses: []
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_selector_",
 smalltalk.method({
 selector: "selector:",
 category: 'accessing',
@@ -1425,7 +1352,6 @@ referencedClasses: []
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_superSend",
 smalltalk.method({
 selector: "superSend",
 category: 'accessing',
@@ -1449,7 +1375,6 @@ referencedClasses: []
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_superSend_",
 smalltalk.method({
 selector: "superSend:",
 category: 'accessing',
@@ -1466,7 +1391,6 @@ referencedClasses: []
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_valueForReceiver_",
 smalltalk.method({
 selector: "valueForReceiver:",
 category: 'accessing',
@@ -1501,7 +1425,6 @@ smalltalk.SendNode);
 
 smalltalk.addClass('SequenceNode', smalltalk.Node, ['temps', 'scope'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -1520,7 +1443,6 @@ referencedClasses: []
 smalltalk.SequenceNode);
 
 smalltalk.addMethod(
-"_asBlockSequenceNode",
 smalltalk.method({
 selector: "asBlockSequenceNode",
 category: 'testing',
@@ -1544,7 +1466,6 @@ referencedClasses: ["BlockSequenceNode"]
 smalltalk.SequenceNode);
 
 smalltalk.addMethod(
-"_scope",
 smalltalk.method({
 selector: "scope",
 category: 'accessing',
@@ -1563,7 +1484,6 @@ referencedClasses: []
 smalltalk.SequenceNode);
 
 smalltalk.addMethod(
-"_scope_",
 smalltalk.method({
 selector: "scope:",
 category: 'accessing',
@@ -1580,7 +1500,6 @@ referencedClasses: []
 smalltalk.SequenceNode);
 
 smalltalk.addMethod(
-"_temps",
 smalltalk.method({
 selector: "temps",
 category: 'accessing',
@@ -1604,7 +1523,6 @@ referencedClasses: []
 smalltalk.SequenceNode);
 
 smalltalk.addMethod(
-"_temps_",
 smalltalk.method({
 selector: "temps:",
 category: 'accessing',
@@ -1624,7 +1542,6 @@ smalltalk.SequenceNode);
 
 smalltalk.addClass('BlockSequenceNode', smalltalk.SequenceNode, [], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -1643,7 +1560,6 @@ referencedClasses: []
 smalltalk.BlockSequenceNode);
 
 smalltalk.addMethod(
-"_isBlockSequenceNode",
 smalltalk.method({
 selector: "isBlockSequenceNode",
 category: 'testing',
@@ -1663,7 +1579,6 @@ smalltalk.BlockSequenceNode);
 
 smalltalk.addClass('ValueNode', smalltalk.Node, ['value'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -1682,7 +1597,6 @@ referencedClasses: []
 smalltalk.ValueNode);
 
 smalltalk.addMethod(
-"_isImmutable",
 smalltalk.method({
 selector: "isImmutable",
 category: 'testing',
@@ -1701,7 +1615,6 @@ referencedClasses: []
 smalltalk.ValueNode);
 
 smalltalk.addMethod(
-"_isValueNode",
 smalltalk.method({
 selector: "isValueNode",
 category: 'testing',
@@ -1718,7 +1631,6 @@ referencedClasses: []
 smalltalk.ValueNode);
 
 smalltalk.addMethod(
-"_value",
 smalltalk.method({
 selector: "value",
 category: 'accessing',
@@ -1737,7 +1649,6 @@ referencedClasses: []
 smalltalk.ValueNode);
 
 smalltalk.addMethod(
-"_value_",
 smalltalk.method({
 selector: "value:",
 category: 'accessing',
@@ -1757,7 +1668,6 @@ smalltalk.ValueNode);
 
 smalltalk.addClass('VariableNode', smalltalk.ValueNode, ['assigned', 'binding'], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -1776,7 +1686,6 @@ referencedClasses: []
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_alias",
 smalltalk.method({
 selector: "alias",
 category: 'accessing',
@@ -1795,7 +1704,6 @@ referencedClasses: []
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_assigned",
 smalltalk.method({
 selector: "assigned",
 category: 'accessing',
@@ -1819,7 +1727,6 @@ referencedClasses: []
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_assigned_",
 smalltalk.method({
 selector: "assigned:",
 category: 'accessing',
@@ -1836,7 +1743,6 @@ referencedClasses: []
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_beAssigned",
 smalltalk.method({
 selector: "beAssigned",
 category: 'accessing',
@@ -1854,7 +1760,6 @@ referencedClasses: []
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_binding",
 smalltalk.method({
 selector: "binding",
 category: 'accessing',
@@ -1873,7 +1778,6 @@ referencedClasses: []
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_binding_",
 smalltalk.method({
 selector: "binding:",
 category: 'accessing',
@@ -1890,7 +1794,6 @@ referencedClasses: []
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_isImmutable",
 smalltalk.method({
 selector: "isImmutable",
 category: 'testing',
@@ -1910,7 +1813,6 @@ smalltalk.VariableNode);
 
 smalltalk.addClass('ClassReferenceNode', smalltalk.VariableNode, [], 'Compiler-AST');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -1931,7 +1833,6 @@ smalltalk.ClassReferenceNode);
 
 
 smalltalk.addMethod(
-"_isNode",
 smalltalk.method({
 selector: "isNode",
 category: '*Compiler-AST',

js/Compiler-Core.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Compiler-Core');
 smalltalk.addClass('AbstractCodeGenerator', smalltalk.Object, ['currentClass', 'source'], 'Compiler-Core');
 smalltalk.addMethod(
-"_classNameFor_",
 smalltalk.method({
 selector: "classNameFor:",
 fn: function (aClass){
@@ -25,7 +24,6 @@ messageSends: ["ifTrue:ifFalse:", ",", "name", "instanceClass", "isNil", "isMeta
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_compileNode_",
 smalltalk.method({
 selector: "compileNode:",
 fn: function (aNode){
@@ -37,7 +35,6 @@ messageSends: ["subclassResponsibility"]}),
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_currentClass",
 smalltalk.method({
 selector: "currentClass",
 fn: function (){
@@ -51,7 +48,6 @@ messageSends: []}),
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_currentClass_",
 smalltalk.method({
 selector: "currentClass:",
 fn: function (aClass){
@@ -63,7 +59,6 @@ messageSends: []}),
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_pseudoVariables",
 smalltalk.method({
 selector: "pseudoVariables",
 fn: function (){
@@ -77,7 +72,6 @@ messageSends: []}),
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_safeVariableNameFor_",
 smalltalk.method({
 selector: "safeVariableNameFor:",
 fn: function (aString){
@@ -97,7 +91,6 @@ messageSends: ["ifTrue:ifFalse:", ",", "includes:", "reservedWords", "current"]}
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_source",
 smalltalk.method({
 selector: "source",
 fn: function (){
@@ -116,7 +109,6 @@ messageSends: ["ifNil:"]}),
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_source_",
 smalltalk.method({
 selector: "source:",
 fn: function (aString){
@@ -131,7 +123,6 @@ smalltalk.AbstractCodeGenerator);
 
 smalltalk.addClass('CodeGenerator', smalltalk.AbstractCodeGenerator, [], 'Compiler-Core');
 smalltalk.addMethod(
-"_compileNode_",
 smalltalk.method({
 selector: "compileNode:",
 fn: function (aNode){
@@ -151,7 +142,6 @@ messageSends: ["visit:", "semanticAnalyzer", "translator", "irTranslator", "cont
 smalltalk.CodeGenerator);
 
 smalltalk.addMethod(
-"_irTranslator",
 smalltalk.method({
 selector: "irTranslator",
 fn: function (){
@@ -166,7 +156,6 @@ messageSends: ["new"]}),
 smalltalk.CodeGenerator);
 
 smalltalk.addMethod(
-"_semanticAnalyzer",
 smalltalk.method({
 selector: "semanticAnalyzer",
 fn: function (){
@@ -181,7 +170,6 @@ messageSends: ["on:", "currentClass"]}),
 smalltalk.CodeGenerator);
 
 smalltalk.addMethod(
-"_translator",
 smalltalk.method({
 selector: "translator",
 fn: function (){
@@ -203,7 +191,6 @@ smalltalk.CodeGenerator);
 
 smalltalk.addClass('Compiler', smalltalk.Object, ['currentClass', 'source', 'unknownVariables', 'codeGeneratorClass'], 'Compiler-Core');
 smalltalk.addMethod(
-"_codeGeneratorClass",
 smalltalk.method({
 selector: "codeGeneratorClass",
 fn: function (){
@@ -223,7 +210,6 @@ messageSends: ["ifNil:"]}),
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_codeGeneratorClass_",
 smalltalk.method({
 selector: "codeGeneratorClass:",
 fn: function (aClass){
@@ -235,7 +221,6 @@ messageSends: []}),
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_compile_",
 smalltalk.method({
 selector: "compile:",
 fn: function (aString){
@@ -249,7 +234,6 @@ messageSends: ["compileNode:", "parse:"]}),
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_compile_forClass_",
 smalltalk.method({
 selector: "compile:forClass:",
 fn: function (aString,aClass){
@@ -265,7 +249,6 @@ messageSends: ["currentClass:", "source:", "compile:"]}),
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_compileExpression_",
 smalltalk.method({
 selector: "compileExpression:",
 fn: function (aString){
@@ -282,7 +265,6 @@ messageSends: ["currentClass:", "source:", ",", "compileNode:", "parse:", "sourc
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_compileExpression_on_",
 smalltalk.method({
 selector: "compileExpression:on:",
 fn: function (aString,anObject){
@@ -298,7 +280,6 @@ messageSends: ["currentClass:", "class", "source:", ",", "compileNode:", "parse:
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_compileNode_",
 smalltalk.method({
 selector: "compileNode:",
 fn: function (aNode){
@@ -319,7 +300,6 @@ messageSends: ["new", "codeGeneratorClass", "source:", "source", "currentClass:"
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_currentClass",
 smalltalk.method({
 selector: "currentClass",
 fn: function (){
@@ -333,7 +313,6 @@ messageSends: []}),
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_currentClass_",
 smalltalk.method({
 selector: "currentClass:",
 fn: function (aClass){
@@ -345,7 +324,6 @@ messageSends: []}),
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_eval_",
 smalltalk.method({
 selector: "eval:",
 fn: function (aString){
@@ -357,7 +335,6 @@ messageSends: []}),
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_evaluateExpression_",
 smalltalk.method({
 selector: "evaluateExpression:",
 fn: function (aString){
@@ -372,7 +349,6 @@ messageSends: ["evaluateExpression:on:", "new"]}),
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_evaluateExpression_on_",
 smalltalk.method({
 selector: "evaluateExpression:on:",
 fn: function (aString,anObject){
@@ -392,7 +368,6 @@ messageSends: ["eval:", "compileExpression:on:", "category:", "addCompiledMethod
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_install_forClass_category_",
 smalltalk.method({
 selector: "install:forClass:category:",
 fn: function (aString,aBehavior,anotherString){
@@ -407,7 +382,6 @@ messageSends: ["installMethod:forClass:category:", "eval:", "compile:forClass:",
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_parse_",
 smalltalk.method({
 selector: "parse:",
 fn: function (aString){
@@ -422,7 +396,6 @@ messageSends: ["parse:", "current"]}),
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_parseExpression_",
 smalltalk.method({
 selector: "parseExpression:",
 fn: function (aString){
@@ -436,7 +409,6 @@ messageSends: ["parse:", ","]}),
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_recompile_",
 smalltalk.method({
 selector: "recompile:",
 fn: function (aClass){
@@ -457,7 +429,6 @@ messageSends: ["do:", "log:", ",", "selector", "name", "install:forClass:categor
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_recompileAll",
 smalltalk.method({
 selector: "recompileAll",
 fn: function (){
@@ -482,7 +453,6 @@ messageSends: ["do:", "show:", "cr", "valueWithTimeout:", "recompile:", "classes
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_source",
 smalltalk.method({
 selector: "source",
 fn: function (){
@@ -501,7 +471,6 @@ messageSends: ["ifNil:"]}),
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_source_",
 smalltalk.method({
 selector: "source:",
 fn: function (aString){
@@ -513,7 +482,6 @@ messageSends: []}),
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_unknownVariables",
 smalltalk.method({
 selector: "unknownVariables",
 fn: function (){
@@ -527,7 +495,6 @@ messageSends: []}),
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_unknownVariables_",
 smalltalk.method({
 selector: "unknownVariables:",
 fn: function (aCollection){
@@ -540,7 +507,6 @@ smalltalk.Compiler);
 
 
 smalltalk.addMethod(
-"_recompile_",
 smalltalk.method({
 selector: "recompile:",
 fn: function (aClass){
@@ -552,7 +518,6 @@ messageSends: ["recompile:", "new"]}),
 smalltalk.Compiler.klass);
 
 smalltalk.addMethod(
-"_recompileAll",
 smalltalk.method({
 selector: "recompileAll",
 fn: function (){
@@ -569,11 +534,30 @@ smalltalk.Compiler.klass);
 
 
 smalltalk.addClass('DoIt', smalltalk.Object, [], 'Compiler-Core');
+smalltalk.addMethod(
+smalltalk.method({
+selector: "xxxDoIt",
+fn: function (){
+var self=this;
+function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st((function(){
+return smalltalk.withContext(function($ctx2) {
+return _st(_st(_st($Smalltalk())._current())._packages())._do_((function(each){
+return smalltalk.withContext(function($ctx3) {
+return _st(each)._commit();
+}, function($ctx3) {$ctx3.fillBlock({each:each},$ctx1)})}));
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._value();
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"xxxDoIt",{},smalltalk.DoIt)})},
+messageSends: ["value", "do:", "commit", "packages", "current"]}),
+smalltalk.DoIt);
+
 
 
 smalltalk.addClass('NodeVisitor', smalltalk.Object, [], 'Compiler-Core');
 smalltalk.addMethod(
-"_visit_",
 smalltalk.method({
 selector: "visit:",
 fn: function (aNode){
@@ -587,7 +571,6 @@ messageSends: ["accept:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitAll_",
 smalltalk.method({
 selector: "visitAll:",
 fn: function (aCollection){
@@ -604,7 +587,6 @@ messageSends: ["collect:", "visit:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitAssignmentNode_",
 smalltalk.method({
 selector: "visitAssignmentNode:",
 fn: function (aNode){
@@ -618,7 +600,6 @@ messageSends: ["visitNode:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitBlockNode_",
 smalltalk.method({
 selector: "visitBlockNode:",
 fn: function (aNode){
@@ -632,7 +613,6 @@ messageSends: ["visitNode:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitBlockSequenceNode_",
 smalltalk.method({
 selector: "visitBlockSequenceNode:",
 fn: function (aNode){
@@ -646,7 +626,6 @@ messageSends: ["visitSequenceNode:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitCascadeNode_",
 smalltalk.method({
 selector: "visitCascadeNode:",
 fn: function (aNode){
@@ -660,7 +639,6 @@ messageSends: ["visitNode:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitClassReferenceNode_",
 smalltalk.method({
 selector: "visitClassReferenceNode:",
 fn: function (aNode){
@@ -674,7 +652,6 @@ messageSends: ["visitVariableNode:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitDynamicArrayNode_",
 smalltalk.method({
 selector: "visitDynamicArrayNode:",
 fn: function (aNode){
@@ -688,7 +665,6 @@ messageSends: ["visitNode:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitDynamicDictionaryNode_",
 smalltalk.method({
 selector: "visitDynamicDictionaryNode:",
 fn: function (aNode){
@@ -702,7 +678,6 @@ messageSends: ["visitNode:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitJSStatementNode_",
 smalltalk.method({
 selector: "visitJSStatementNode:",
 fn: function (aNode){
@@ -716,7 +691,6 @@ messageSends: ["visitNode:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitMethodNode_",
 smalltalk.method({
 selector: "visitMethodNode:",
 fn: function (aNode){
@@ -730,7 +704,6 @@ messageSends: ["visitNode:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitNode_",
 smalltalk.method({
 selector: "visitNode:",
 fn: function (aNode){
@@ -744,7 +717,6 @@ messageSends: ["visitAll:", "nodes"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitReturnNode_",
 smalltalk.method({
 selector: "visitReturnNode:",
 fn: function (aNode){
@@ -758,7 +730,6 @@ messageSends: ["visitNode:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitSendNode_",
 smalltalk.method({
 selector: "visitSendNode:",
 fn: function (aNode){
@@ -772,7 +743,6 @@ messageSends: ["visitNode:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitSequenceNode_",
 smalltalk.method({
 selector: "visitSequenceNode:",
 fn: function (aNode){
@@ -786,7 +756,6 @@ messageSends: ["visitNode:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitValueNode_",
 smalltalk.method({
 selector: "visitValueNode:",
 fn: function (aNode){
@@ -800,7 +769,6 @@ messageSends: ["visitNode:"]}),
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitVariableNode_",
 smalltalk.method({
 selector: "visitVariableNode:",
 fn: function (aNode){

js/Compiler-Core.js

@@ -2,7 +2,6 @@ smalltalk.addPackage('Compiler-Core');
 smalltalk.addClass('AbstractCodeGenerator', smalltalk.Object, ['currentClass', 'source'], 'Compiler-Core');
 smalltalk.AbstractCodeGenerator.comment="I am the abstract super class of all code generators and provide their common API."
 smalltalk.addMethod(
-"_classNameFor_",
 smalltalk.method({
 selector: "classNameFor:",
 category: 'accessing',
@@ -31,7 +30,6 @@ referencedClasses: []
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_compileNode_",
 smalltalk.method({
 selector: "compileNode:",
 category: 'compiling',
@@ -48,7 +46,6 @@ referencedClasses: []
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_currentClass",
 smalltalk.method({
 selector: "currentClass",
 category: 'accessing',
@@ -67,7 +64,6 @@ referencedClasses: []
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_currentClass_",
 smalltalk.method({
 selector: "currentClass:",
 category: 'accessing',
@@ -84,7 +80,6 @@ referencedClasses: []
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_pseudoVariables",
 smalltalk.method({
 selector: "pseudoVariables",
 category: 'accessing',
@@ -103,7 +98,6 @@ referencedClasses: []
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_safeVariableNameFor_",
 smalltalk.method({
 selector: "safeVariableNameFor:",
 category: 'accessing',
@@ -128,7 +122,6 @@ referencedClasses: ["Smalltalk"]
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_source",
 smalltalk.method({
 selector: "source",
 category: 'accessing',
@@ -152,7 +145,6 @@ referencedClasses: []
 smalltalk.AbstractCodeGenerator);
 
 smalltalk.addMethod(
-"_source_",
 smalltalk.method({
 selector: "source:",
 category: 'accessing',
@@ -173,7 +165,6 @@ smalltalk.AbstractCodeGenerator);
 smalltalk.addClass('CodeGenerator', smalltalk.AbstractCodeGenerator, [], 'Compiler-Core');
 smalltalk.CodeGenerator.comment="I am a basic code generator. I generate a valid JavaScript output, but no not perform any inlining.\x0aSee `InliningCodeGenerator` for an optimized JavaScript code generation."
 smalltalk.addMethod(
-"_compileNode_",
 smalltalk.method({
 selector: "compileNode:",
 category: 'compiling',
@@ -198,7 +189,6 @@ referencedClasses: []
 smalltalk.CodeGenerator);
 
 smalltalk.addMethod(
-"_irTranslator",
 smalltalk.method({
 selector: "irTranslator",
 category: 'compiling',
@@ -218,7 +208,6 @@ referencedClasses: ["IRJSTranslator"]
 smalltalk.CodeGenerator);
 
 smalltalk.addMethod(
-"_semanticAnalyzer",
 smalltalk.method({
 selector: "semanticAnalyzer",
 category: 'compiling',
@@ -238,7 +227,6 @@ referencedClasses: ["SemanticAnalyzer"]
 smalltalk.CodeGenerator);
 
 smalltalk.addMethod(
-"_translator",
 smalltalk.method({
 selector: "translator",
 category: 'compiling',
@@ -266,7 +254,6 @@ smalltalk.CodeGenerator);
 smalltalk.addClass('Compiler', smalltalk.Object, ['currentClass', 'source', 'unknownVariables', 'codeGeneratorClass'], 'Compiler-Core');
 smalltalk.Compiler.comment="I provide the public interface for compiling Amber source code into JavaScript.\x0a\x0aThe code generator used to produce JavaScript can be plugged with `#codeGeneratorClass`.\x0aThe default code generator is an instance of `InlinedCodeGenerator`"
 smalltalk.addMethod(
-"_codeGeneratorClass",
 smalltalk.method({
 selector: "codeGeneratorClass",
 category: 'accessing',
@@ -291,7 +278,6 @@ referencedClasses: ["InliningCodeGenerator"]
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_codeGeneratorClass_",
 smalltalk.method({
 selector: "codeGeneratorClass:",
 category: 'accessing',
@@ -308,7 +294,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_compile_",
 smalltalk.method({
 selector: "compile:",
 category: 'compiling',
@@ -327,7 +312,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_compile_forClass_",
 smalltalk.method({
 selector: "compile:forClass:",
 category: 'compiling',
@@ -348,7 +332,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_compileExpression_",
 smalltalk.method({
 selector: "compileExpression:",
 category: 'compiling',
@@ -370,7 +353,6 @@ referencedClasses: ["DoIt"]
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_compileExpression_on_",
 smalltalk.method({
 selector: "compileExpression:on:",
 category: 'compiling',
@@ -391,7 +373,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_compileNode_",
 smalltalk.method({
 selector: "compileNode:",
 category: 'compiling',
@@ -417,7 +398,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_currentClass",
 smalltalk.method({
 selector: "currentClass",
 category: 'accessing',
@@ -436,7 +416,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_currentClass_",
 smalltalk.method({
 selector: "currentClass:",
 category: 'accessing',
@@ -453,7 +432,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_eval_",
 smalltalk.method({
 selector: "eval:",
 category: 'compiling',
@@ -470,7 +448,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_evaluateExpression_",
 smalltalk.method({
 selector: "evaluateExpression:",
 category: 'compiling',
@@ -490,7 +467,6 @@ referencedClasses: ["DoIt"]
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_evaluateExpression_on_",
 smalltalk.method({
 selector: "evaluateExpression:on:",
 category: 'compiling',
@@ -515,7 +491,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_install_forClass_category_",
 smalltalk.method({
 selector: "install:forClass:category:",
 category: 'compiling',
@@ -535,7 +510,6 @@ referencedClasses: ["ClassBuilder"]
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_parse_",
 smalltalk.method({
 selector: "parse:",
 category: 'compiling',
@@ -555,7 +529,6 @@ referencedClasses: ["Smalltalk"]
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_parseExpression_",
 smalltalk.method({
 selector: "parseExpression:",
 category: 'compiling',
@@ -574,7 +547,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_recompile_",
 smalltalk.method({
 selector: "recompile:",
 category: 'compiling',
@@ -600,7 +572,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_recompileAll",
 smalltalk.method({
 selector: "recompileAll",
 category: 'compiling',
@@ -630,7 +601,6 @@ referencedClasses: ["Transcript", "Smalltalk"]
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_source",
 smalltalk.method({
 selector: "source",
 category: 'accessing',
@@ -654,7 +624,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_source_",
 smalltalk.method({
 selector: "source:",
 category: 'accessing',
@@ -671,7 +640,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_unknownVariables",
 smalltalk.method({
 selector: "unknownVariables",
 category: 'accessing',
@@ -690,7 +658,6 @@ referencedClasses: []
 smalltalk.Compiler);
 
 smalltalk.addMethod(
-"_unknownVariables_",
 smalltalk.method({
 selector: "unknownVariables:",
 category: 'accessing',
@@ -708,7 +675,6 @@ smalltalk.Compiler);
 
 
 smalltalk.addMethod(
-"_recompile_",
 smalltalk.method({
 selector: "recompile:",
 category: 'compiling',
@@ -725,7 +691,6 @@ referencedClasses: []
 smalltalk.Compiler.klass);
 
 smalltalk.addMethod(
-"_recompileAll",
 smalltalk.method({
 selector: "recompileAll",
 category: 'compiling',
@@ -748,12 +713,36 @@ smalltalk.Compiler.klass);
 
 smalltalk.addClass('DoIt', smalltalk.Object, [], 'Compiler-Core');
 smalltalk.DoIt.comment="`DoIt` is the class used to compile and evaluate expressions. See `Compiler >> evaluateExpression:`."
+smalltalk.addMethod(
+smalltalk.method({
+selector: "xxxDoIt",
+category: 'xxxDoIt',
+fn: function (){
+var self=this;
+function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st((function(){
+return smalltalk.withContext(function($ctx2) {
+return _st(_st(_st($Smalltalk())._current())._packages())._do_((function(each){
+return smalltalk.withContext(function($ctx3) {
+return _st(each)._commit();
+}, function($ctx3) {$ctx3.fillBlock({each:each},$ctx1)})}));
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._value();
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"xxxDoIt",{},smalltalk.DoIt)})},
+args: [],
+source: "xxxDoIt ^[Smalltalk current packages do: [ :each |\x0a\x09each commit ]] value",
+messageSends: ["value", "do:", "commit", "packages", "current"],
+referencedClasses: ["Smalltalk"]
+}),
+smalltalk.DoIt);
+
 
 
 smalltalk.addClass('NodeVisitor', smalltalk.Object, [], 'Compiler-Core');
 smalltalk.NodeVisitor.comment="I am the abstract super class of all AST node visitors."
 smalltalk.addMethod(
-"_visit_",
 smalltalk.method({
 selector: "visit:",
 category: 'visiting',
@@ -772,7 +761,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitAll_",
 smalltalk.method({
 selector: "visitAll:",
 category: 'visiting',
@@ -794,7 +782,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitAssignmentNode_",
 smalltalk.method({
 selector: "visitAssignmentNode:",
 category: 'visiting',
@@ -813,7 +800,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitBlockNode_",
 smalltalk.method({
 selector: "visitBlockNode:",
 category: 'visiting',
@@ -832,7 +818,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitBlockSequenceNode_",
 smalltalk.method({
 selector: "visitBlockSequenceNode:",
 category: 'visiting',
@@ -851,7 +836,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitCascadeNode_",
 smalltalk.method({
 selector: "visitCascadeNode:",
 category: 'visiting',
@@ -870,7 +854,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitClassReferenceNode_",
 smalltalk.method({
 selector: "visitClassReferenceNode:",
 category: 'visiting',
@@ -889,7 +872,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitDynamicArrayNode_",
 smalltalk.method({
 selector: "visitDynamicArrayNode:",
 category: 'visiting',
@@ -908,7 +890,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitDynamicDictionaryNode_",
 smalltalk.method({
 selector: "visitDynamicDictionaryNode:",
 category: 'visiting',
@@ -927,7 +908,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitJSStatementNode_",
 smalltalk.method({
 selector: "visitJSStatementNode:",
 category: 'visiting',
@@ -946,7 +926,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitMethodNode_",
 smalltalk.method({
 selector: "visitMethodNode:",
 category: 'visiting',
@@ -965,7 +944,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitNode_",
 smalltalk.method({
 selector: "visitNode:",
 category: 'visiting',
@@ -984,7 +962,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitReturnNode_",
 smalltalk.method({
 selector: "visitReturnNode:",
 category: 'visiting',
@@ -1003,7 +980,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitSendNode_",
 smalltalk.method({
 selector: "visitSendNode:",
 category: 'visiting',
@@ -1022,7 +998,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitSequenceNode_",
 smalltalk.method({
 selector: "visitSequenceNode:",
 category: 'visiting',
@@ -1041,7 +1016,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitValueNode_",
 smalltalk.method({
 selector: "visitValueNode:",
 category: 'visiting',
@@ -1060,7 +1034,6 @@ referencedClasses: []
 smalltalk.NodeVisitor);
 
 smalltalk.addMethod(
-"_visitVariableNode_",
 smalltalk.method({
 selector: "visitVariableNode:",
 category: 'visiting',

js/Compiler-Exceptions.deploy.js

@@ -13,7 +13,6 @@ smalltalk.addClass('InliningError', smalltalk.SemanticError, [], 'Compiler-Excep
 
 smalltalk.addClass('InvalidAssignmentError', smalltalk.SemanticError, ['variableName'], 'Compiler-Exceptions');
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 fn: function (){
@@ -27,7 +26,6 @@ messageSends: [",", "variableName"]}),
 smalltalk.InvalidAssignmentError);
 
 smalltalk.addMethod(
-"_variableName",
 smalltalk.method({
 selector: "variableName",
 fn: function (){
@@ -41,7 +39,6 @@ messageSends: []}),
 smalltalk.InvalidAssignmentError);
 
 smalltalk.addMethod(
-"_variableName_",
 smalltalk.method({
 selector: "variableName:",
 fn: function (aString){
@@ -56,7 +53,6 @@ smalltalk.InvalidAssignmentError);
 
 smalltalk.addClass('ShadowingVariableError', smalltalk.SemanticError, ['variableName'], 'Compiler-Exceptions');
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 fn: function (){
@@ -70,7 +66,6 @@ messageSends: [",", "variableName"]}),
 smalltalk.ShadowingVariableError);
 
 smalltalk.addMethod(
-"_variableName",
 smalltalk.method({
 selector: "variableName",
 fn: function (){
@@ -84,7 +79,6 @@ messageSends: []}),
 smalltalk.ShadowingVariableError);
 
 smalltalk.addMethod(
-"_variableName_",
 smalltalk.method({
 selector: "variableName:",
 fn: function (aString){
@@ -99,7 +93,6 @@ smalltalk.ShadowingVariableError);
 
 smalltalk.addClass('UnknownVariableError', smalltalk.SemanticError, ['variableName'], 'Compiler-Exceptions');
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 fn: function (){
@@ -113,7 +106,6 @@ messageSends: [",", "variableName"]}),
 smalltalk.UnknownVariableError);
 
 smalltalk.addMethod(
-"_variableName",
 smalltalk.method({
 selector: "variableName",
 fn: function (){
@@ -127,7 +119,6 @@ messageSends: []}),
 smalltalk.UnknownVariableError);
 
 smalltalk.addMethod(
-"_variableName_",
 smalltalk.method({
 selector: "variableName:",
 fn: function (aString){
@@ -142,7 +133,6 @@ smalltalk.UnknownVariableError);
 
 smalltalk.addClass('RethrowErrorHandler', smalltalk.ErrorHandler, [], 'Compiler-Exceptions');
 smalltalk.addMethod(
-"_basicSignal_",
 smalltalk.method({
 selector: "basicSignal:",
 fn: function (anError){
@@ -154,7 +144,6 @@ messageSends: []}),
 smalltalk.RethrowErrorHandler);
 
 smalltalk.addMethod(
-"_handleError_",
 smalltalk.method({
 selector: "handleError:",
 fn: function (anError){

js/Compiler-Exceptions.js

@@ -18,7 +18,6 @@ smalltalk.InliningError.comment="Instances of InliningError are signaled when us
 smalltalk.addClass('InvalidAssignmentError', smalltalk.SemanticError, ['variableName'], 'Compiler-Exceptions');
 smalltalk.InvalidAssignmentError.comment="I get signaled when a pseudo variable gets assigned."
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 category: 'accessing',
@@ -37,7 +36,6 @@ referencedClasses: []
 smalltalk.InvalidAssignmentError);
 
 smalltalk.addMethod(
-"_variableName",
 smalltalk.method({
 selector: "variableName",
 category: 'accessing',
@@ -56,7 +54,6 @@ referencedClasses: []
 smalltalk.InvalidAssignmentError);
 
 smalltalk.addMethod(
-"_variableName_",
 smalltalk.method({
 selector: "variableName:",
 category: 'accessing',
@@ -77,7 +74,6 @@ smalltalk.InvalidAssignmentError);
 smalltalk.addClass('ShadowingVariableError', smalltalk.SemanticError, ['variableName'], 'Compiler-Exceptions');
 smalltalk.ShadowingVariableError.comment="I get signaled when a variable in a block or method scope shadows a variable of the same name in an outer scope."
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 category: 'accessing',
@@ -96,7 +92,6 @@ referencedClasses: []
 smalltalk.ShadowingVariableError);
 
 smalltalk.addMethod(
-"_variableName",
 smalltalk.method({
 selector: "variableName",
 category: 'accessing',
@@ -115,7 +110,6 @@ referencedClasses: []
 smalltalk.ShadowingVariableError);
 
 smalltalk.addMethod(
-"_variableName_",
 smalltalk.method({
 selector: "variableName:",
 category: 'accessing',
@@ -136,7 +130,6 @@ smalltalk.ShadowingVariableError);
 smalltalk.addClass('UnknownVariableError', smalltalk.SemanticError, ['variableName'], 'Compiler-Exceptions');
 smalltalk.UnknownVariableError.comment="I get signaled when a variable is not defined.\x0aThe default behavior is to allow it, as this is how Amber currently is able to seamlessly send messages to JavaScript objects."
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 category: 'accessing',
@@ -155,7 +148,6 @@ referencedClasses: []
 smalltalk.UnknownVariableError);
 
 smalltalk.addMethod(
-"_variableName",
 smalltalk.method({
 selector: "variableName",
 category: 'accessing',
@@ -174,7 +166,6 @@ referencedClasses: []
 smalltalk.UnknownVariableError);
 
 smalltalk.addMethod(
-"_variableName_",
 smalltalk.method({
 selector: "variableName:",
 category: 'accessing',
@@ -195,7 +186,6 @@ smalltalk.UnknownVariableError);
 smalltalk.addClass('RethrowErrorHandler', smalltalk.ErrorHandler, [], 'Compiler-Exceptions');
 smalltalk.RethrowErrorHandler.comment="This class is used in the commandline version of the compiler.\x0aIt uses the handleError: message of ErrorHandler for printing the stacktrace and throws the error again as JS exception.\x0aAs a result Smalltalk errors are not swallowd by the Amber runtime and compilation can be aborted."
 smalltalk.addMethod(
-"_basicSignal_",
 smalltalk.method({
 selector: "basicSignal:",
 category: 'error handling',
@@ -212,7 +202,6 @@ referencedClasses: []
 smalltalk.RethrowErrorHandler);
 
 smalltalk.addMethod(
-"_handleError_",
 smalltalk.method({
 selector: "handleError:",
 category: 'error handling',

js/Compiler-Inlining.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Compiler-Inlining');
 smalltalk.addClass('IRInlinedAssignment', smalltalk.IRAssignment, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -15,7 +14,6 @@ messageSends: ["visitIRInlinedAssignment:"]}),
 smalltalk.IRInlinedAssignment);
 
 smalltalk.addMethod(
-"_isInlined",
 smalltalk.method({
 selector: "isInlined",
 fn: function (){
@@ -30,7 +28,6 @@ smalltalk.IRInlinedAssignment);
 
 smalltalk.addClass('IRInlinedClosure', smalltalk.IRClosure, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -42,7 +39,6 @@ messageSends: ["visitIRInlinedClosure:"]}),
 smalltalk.IRInlinedClosure);
 
 smalltalk.addMethod(
-"_isInlined",
 smalltalk.method({
 selector: "isInlined",
 fn: function (){
@@ -57,7 +53,6 @@ smalltalk.IRInlinedClosure);
 
 smalltalk.addClass('IRInlinedReturn', smalltalk.IRReturn, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -71,7 +66,6 @@ messageSends: ["visitIRInlinedReturn:"]}),
 smalltalk.IRInlinedReturn);
 
 smalltalk.addMethod(
-"_isInlined",
 smalltalk.method({
 selector: "isInlined",
 fn: function (){
@@ -86,7 +80,6 @@ smalltalk.IRInlinedReturn);
 
 smalltalk.addClass('IRInlinedSend', smalltalk.IRSend, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -98,7 +91,6 @@ messageSends: ["visitInlinedSend:"]}),
 smalltalk.IRInlinedSend);
 
 smalltalk.addMethod(
-"_isInlined",
 smalltalk.method({
 selector: "isInlined",
 fn: function (){
@@ -113,7 +105,6 @@ smalltalk.IRInlinedSend);
 
 smalltalk.addClass('IRInlinedIfFalse', smalltalk.IRInlinedSend, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -128,7 +119,6 @@ smalltalk.IRInlinedIfFalse);
 
 smalltalk.addClass('IRInlinedIfNilIfNotNil', smalltalk.IRInlinedSend, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -143,7 +133,6 @@ smalltalk.IRInlinedIfNilIfNotNil);
 
 smalltalk.addClass('IRInlinedIfTrue', smalltalk.IRInlinedSend, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -158,7 +147,6 @@ smalltalk.IRInlinedIfTrue);
 
 smalltalk.addClass('IRInlinedIfTrueIfFalse', smalltalk.IRInlinedSend, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -173,7 +161,6 @@ smalltalk.IRInlinedIfTrueIfFalse);
 
 smalltalk.addClass('IRInlinedSequence', smalltalk.IRBlockSequence, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 fn: function (aVisitor){
@@ -185,7 +172,6 @@ messageSends: ["visitIRInlinedSequence:"]}),
 smalltalk.IRInlinedSequence);
 
 smalltalk.addMethod(
-"_isInlined",
 smalltalk.method({
 selector: "isInlined",
 fn: function (){
@@ -200,7 +186,6 @@ smalltalk.IRInlinedSequence);
 
 smalltalk.addClass('IRInliner', smalltalk.IRVisitor, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_assignmentInliner",
 smalltalk.method({
 selector: "assignmentInliner",
 fn: function (){
@@ -218,7 +203,6 @@ messageSends: ["translator:", "new", "yourself"]}),
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_returnInliner",
 smalltalk.method({
 selector: "returnInliner",
 fn: function (){
@@ -236,7 +220,6 @@ messageSends: ["translator:", "new", "yourself"]}),
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_sendInliner",
 smalltalk.method({
 selector: "sendInliner",
 fn: function (){
@@ -254,7 +237,6 @@ messageSends: ["translator:", "new", "yourself"]}),
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_shouldInlineAssignment_",
 smalltalk.method({
 selector: "shouldInlineAssignment:",
 fn: function (anIRAssignment){
@@ -274,7 +256,6 @@ messageSends: ["and:", "shouldInlineSend:", "last", "instructions", "isSend", "n
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_shouldInlineReturn_",
 smalltalk.method({
 selector: "shouldInlineReturn:",
 fn: function (anIRReturn){
@@ -294,7 +275,6 @@ messageSends: ["and:", "shouldInlineSend:", "first", "instructions", "isSend", "
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_shouldInlineSend_",
 smalltalk.method({
 selector: "shouldInlineSend:",
 fn: function (anIRSend){
@@ -312,7 +292,6 @@ messageSends: ["and:", "shouldInline:", "not", "isInlined"]}),
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_transformNonLocalReturn_",
 smalltalk.method({
 selector: "transformNonLocalReturn:",
 fn: function (anIRNonLocalReturn){
@@ -344,7 +323,6 @@ messageSends: ["ifTrue:", "removeNonLocalReturn:", "scope", "methodScope", "scop
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_visitIRAssignment_",
 smalltalk.method({
 selector: "visitIRAssignment:",
 fn: function (anIRAssignment){
@@ -363,7 +341,6 @@ messageSends: ["ifTrue:ifFalse:", "inlineAssignment:", "assignmentInliner", "vis
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_visitIRNonLocalReturn_",
 smalltalk.method({
 selector: "visitIRNonLocalReturn:",
 fn: function (anIRNonLocalReturn){
@@ -377,7 +354,6 @@ messageSends: ["transformNonLocalReturn:"]}),
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_visitIRReturn_",
 smalltalk.method({
 selector: "visitIRReturn:",
 fn: function (anIRReturn){
@@ -396,7 +372,6 @@ messageSends: ["ifTrue:ifFalse:", "inlineReturn:", "returnInliner", "visitIRRetu
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_visitIRSend_",
 smalltalk.method({
 selector: "visitIRSend:",
 fn: function (anIRSend){
@@ -418,7 +393,6 @@ smalltalk.IRInliner);
 
 smalltalk.addClass('IRInliningJSTranslator', smalltalk.IRJSTranslator, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_visitIRInlinedAssignment_",
 smalltalk.method({
 selector: "visitIRInlinedAssignment:",
 fn: function (anIRInlinedAssignment){
@@ -430,7 +404,6 @@ messageSends: ["visit:", "last", "instructions"]}),
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedClosure_",
 smalltalk.method({
 selector: "visitIRInlinedClosure:",
 fn: function (anIRInlinedClosure){
@@ -449,7 +422,6 @@ messageSends: ["nextPutVars:", "collect:", "asVariableName", "name", "tempDeclar
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedIfFalse_",
 smalltalk.method({
 selector: "visitIRInlinedIfFalse:",
 fn: function (anIRInlinedIfFalse){
@@ -469,7 +441,6 @@ messageSends: ["nextPutIf:with:", "nextPutAll:", "stream", "visit:", "first", "i
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedIfNil_",
 smalltalk.method({
 selector: "visitIRInlinedIfNil:",
 fn: function (anIRInlinedIfNil){
@@ -489,7 +460,6 @@ messageSends: ["nextPutIf:with:", "nextPutAll:", "stream", "visit:", "first", "i
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedIfNilIfNotNil_",
 smalltalk.method({
 selector: "visitIRInlinedIfNilIfNotNil:",
 fn: function (anIRInlinedIfNilIfNotNil){
@@ -512,7 +482,6 @@ messageSends: ["nextPutIfElse:with:with:", "nextPutAll:", "stream", "visit:", "f
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedIfTrue_",
 smalltalk.method({
 selector: "visitIRInlinedIfTrue:",
 fn: function (anIRInlinedIfTrue){
@@ -532,7 +501,6 @@ messageSends: ["nextPutIf:with:", "nextPutAll:", "stream", "visit:", "first", "i
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedIfTrueIfFalse_",
 smalltalk.method({
 selector: "visitIRInlinedIfTrueIfFalse:",
 fn: function (anIRInlinedIfTrueIfFalse){
@@ -555,7 +523,6 @@ messageSends: ["nextPutIfElse:with:with:", "nextPutAll:", "stream", "visit:", "f
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedNonLocalReturn_",
 smalltalk.method({
 selector: "visitIRInlinedNonLocalReturn:",
 fn: function (anIRInlinedReturn){
@@ -573,7 +540,6 @@ messageSends: ["nextPutStatementWith:", "visit:", "last", "instructions", "strea
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedReturn_",
 smalltalk.method({
 selector: "visitIRInlinedReturn:",
 fn: function (anIRInlinedReturn){
@@ -585,7 +551,6 @@ messageSends: ["visit:", "last", "instructions"]}),
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedSequence_",
 smalltalk.method({
 selector: "visitIRInlinedSequence:",
 fn: function (anIRInlinedSequence){
@@ -606,7 +571,6 @@ smalltalk.IRInliningJSTranslator);
 
 smalltalk.addClass('IRSendInliner', smalltalk.Object, ['send', 'translator'], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_ifFalse_",
 smalltalk.method({
 selector: "ifFalse:",
 fn: function (anIRInstruction){
@@ -621,7 +585,6 @@ messageSends: ["inlinedSend:with:", "new"]}),
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifFalse_ifTrue_",
 smalltalk.method({
 selector: "ifFalse:ifTrue:",
 fn: function (anIRInstruction,anotherIRInstruction){
@@ -635,7 +598,6 @@ messageSends: ["perform:withArguments:"]}),
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifNil_",
 smalltalk.method({
 selector: "ifNil:",
 fn: function (anIRInstruction){
@@ -659,7 +621,6 @@ messageSends: ["inlinedSend:with:with:", "new", "scope:", "copy", "scope", "add:
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifNil_ifNotNil_",
 smalltalk.method({
 selector: "ifNil:ifNotNil:",
 fn: function (anIRInstruction,anotherIRInstruction){
@@ -674,7 +635,6 @@ messageSends: ["inlinedSend:with:with:", "new"]}),
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifNotNil_",
 smalltalk.method({
 selector: "ifNotNil:",
 fn: function (anIRInstruction){
@@ -698,7 +658,6 @@ messageSends: ["inlinedSend:with:with:", "new", "scope:", "copy", "scope", "add:
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifNotNil_ifNil_",
 smalltalk.method({
 selector: "ifNotNil:ifNil:",
 fn: function (anIRInstruction,anotherIRInstruction){
@@ -713,7 +672,6 @@ messageSends: ["inlinedSend:with:with:", "new"]}),
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifTrue_",
 smalltalk.method({
 selector: "ifTrue:",
 fn: function (anIRInstruction){
@@ -728,7 +686,6 @@ messageSends: ["inlinedSend:with:", "new"]}),
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifTrue_ifFalse_",
 smalltalk.method({
 selector: "ifTrue:ifFalse:",
 fn: function (anIRInstruction,anotherIRInstruction){
@@ -743,7 +700,6 @@ messageSends: ["inlinedSend:with:with:", "new"]}),
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inlineClosure_",
 smalltalk.method({
 selector: "inlineClosure:",
 fn: function (anIRClosure){
@@ -807,7 +763,6 @@ messageSends: ["inlinedClosure", "scope:", "scope", "do:", "add:", "tempDeclarat
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inlineSend_",
 smalltalk.method({
 selector: "inlineSend:",
 fn: function (anIRSend){
@@ -822,7 +777,6 @@ messageSends: ["send:", "perform:withArguments:", "selector", "send", "allButFir
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inlinedClosure",
 smalltalk.method({
 selector: "inlinedClosure",
 fn: function (){
@@ -837,7 +791,6 @@ messageSends: ["new"]}),
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inlinedSend_with_",
 smalltalk.method({
 selector: "inlinedSend:with:",
 fn: function (inlinedSend,anIRInstruction){
@@ -865,7 +818,6 @@ messageSends: ["ifFalse:", "inliningError:", "isClosure", "=", "size", "argument
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inlinedSend_with_with_",
 smalltalk.method({
 selector: "inlinedSend:with:with:",
 fn: function (inlinedSend,anIRInstruction,anotherIRInstruction){
@@ -895,7 +847,6 @@ messageSends: ["ifFalse:", "inliningError:", "isClosure", "visit:", "inlineClosu
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inlinedSequence",
 smalltalk.method({
 selector: "inlinedSequence",
 fn: function (){
@@ -910,7 +861,6 @@ messageSends: ["new"]}),
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inliningError_",
 smalltalk.method({
 selector: "inliningError:",
 fn: function (aString){
@@ -923,7 +873,6 @@ messageSends: ["signal:"]}),
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_send",
 smalltalk.method({
 selector: "send",
 fn: function (){
@@ -937,7 +886,6 @@ messageSends: []}),
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_send_",
 smalltalk.method({
 selector: "send:",
 fn: function (anIRSend){
@@ -949,7 +897,6 @@ messageSends: []}),
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_translator",
 smalltalk.method({
 selector: "translator",
 fn: function (){
@@ -963,7 +910,6 @@ messageSends: []}),
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_translator_",
 smalltalk.method({
 selector: "translator:",
 fn: function (anASTTranslator){
@@ -976,7 +922,6 @@ smalltalk.IRSendInliner);
 
 
 smalltalk.addMethod(
-"_inlinedSelectors",
 smalltalk.method({
 selector: "inlinedSelectors",
 fn: function (){
@@ -990,7 +935,6 @@ messageSends: []}),
 smalltalk.IRSendInliner.klass);
 
 smalltalk.addMethod(
-"_shouldInline_",
 smalltalk.method({
 selector: "shouldInline:",
 fn: function (anIRInstruction){
@@ -1020,7 +964,6 @@ smalltalk.IRSendInliner.klass);
 
 smalltalk.addClass('IRAssignmentInliner', smalltalk.IRSendInliner, ['assignment'], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_assignment",
 smalltalk.method({
 selector: "assignment",
 fn: function (){
@@ -1034,7 +977,6 @@ messageSends: []}),
 smalltalk.IRAssignmentInliner);
 
 smalltalk.addMethod(
-"_assignment_",
 smalltalk.method({
 selector: "assignment:",
 fn: function (aNode){
@@ -1046,7 +988,6 @@ messageSends: []}),
 smalltalk.IRAssignmentInliner);
 
 smalltalk.addMethod(
-"_inlineAssignment_",
 smalltalk.method({
 selector: "inlineAssignment:",
 fn: function (anIRAssignment){
@@ -1070,7 +1011,6 @@ messageSends: ["assignment:", "new", "do:", "add:", "instructions", "replaceWith
 smalltalk.IRAssignmentInliner);
 
 smalltalk.addMethod(
-"_inlineClosure_",
 smalltalk.method({
 selector: "inlineClosure:",
 fn: function (anIRClosure){
@@ -1102,7 +1042,6 @@ smalltalk.IRAssignmentInliner);
 
 smalltalk.addClass('IRReturnInliner', smalltalk.IRSendInliner, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_inlineClosure_",
 smalltalk.method({
 selector: "inlineClosure:",
 fn: function (anIRClosure){
@@ -1130,7 +1069,6 @@ messageSends: ["inlineClosure:", "instructions", "last", "ifNotEmpty:", "ifFalse
 smalltalk.IRReturnInliner);
 
 smalltalk.addMethod(
-"_inlineReturn_",
 smalltalk.method({
 selector: "inlineReturn:",
 fn: function (anIRReturn){
@@ -1152,7 +1090,6 @@ messageSends: ["inlinedReturn", "do:", "add:", "instructions", "replaceWith:", "
 smalltalk.IRReturnInliner);
 
 smalltalk.addMethod(
-"_inlinedReturn",
 smalltalk.method({
 selector: "inlinedReturn",
 fn: function (){
@@ -1170,7 +1107,6 @@ smalltalk.IRReturnInliner);
 
 smalltalk.addClass('InliningCodeGenerator', smalltalk.CodeGenerator, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_compileNode_",
 smalltalk.method({
 selector: "compileNode:",
 fn: function (aNode){
@@ -1191,7 +1127,6 @@ messageSends: ["visit:", "semanticAnalyzer", "translator", "inliner", "irTransla
 smalltalk.InliningCodeGenerator);
 
 smalltalk.addMethod(
-"_inliner",
 smalltalk.method({
 selector: "inliner",
 fn: function (){
@@ -1206,7 +1141,6 @@ messageSends: ["new"]}),
 smalltalk.InliningCodeGenerator);
 
 smalltalk.addMethod(
-"_irTranslator",
 smalltalk.method({
 selector: "irTranslator",
 fn: function (){

js/Compiler-Inlining.js

@@ -2,7 +2,6 @@ smalltalk.addPackage('Compiler-Inlining');
 smalltalk.addClass('IRInlinedAssignment', smalltalk.IRAssignment, [], 'Compiler-Inlining');
 smalltalk.IRInlinedAssignment.comment="I represent an inlined assignment instruction."
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -21,7 +20,6 @@ referencedClasses: []
 smalltalk.IRInlinedAssignment);
 
 smalltalk.addMethod(
-"_isInlined",
 smalltalk.method({
 selector: "isInlined",
 category: 'testing',
@@ -42,7 +40,6 @@ smalltalk.IRInlinedAssignment);
 smalltalk.addClass('IRInlinedClosure', smalltalk.IRClosure, [], 'Compiler-Inlining');
 smalltalk.IRInlinedClosure.comment="I represent an inlined closure instruction."
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -59,7 +56,6 @@ referencedClasses: []
 smalltalk.IRInlinedClosure);
 
 smalltalk.addMethod(
-"_isInlined",
 smalltalk.method({
 selector: "isInlined",
 category: 'testing',
@@ -80,7 +76,6 @@ smalltalk.IRInlinedClosure);
 smalltalk.addClass('IRInlinedReturn', smalltalk.IRReturn, [], 'Compiler-Inlining');
 smalltalk.IRInlinedReturn.comment="I represent an inlined local return instruction."
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -99,7 +94,6 @@ referencedClasses: []
 smalltalk.IRInlinedReturn);
 
 smalltalk.addMethod(
-"_isInlined",
 smalltalk.method({
 selector: "isInlined",
 category: 'testing',
@@ -120,7 +114,6 @@ smalltalk.IRInlinedReturn);
 smalltalk.addClass('IRInlinedSend', smalltalk.IRSend, [], 'Compiler-Inlining');
 smalltalk.IRInlinedSend.comment="I am the abstract super class of inlined message send instructions."
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -137,7 +130,6 @@ referencedClasses: []
 smalltalk.IRInlinedSend);
 
 smalltalk.addMethod(
-"_isInlined",
 smalltalk.method({
 selector: "isInlined",
 category: 'testing',
@@ -157,7 +149,6 @@ smalltalk.IRInlinedSend);
 
 smalltalk.addClass('IRInlinedIfFalse', smalltalk.IRInlinedSend, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -177,7 +168,6 @@ smalltalk.IRInlinedIfFalse);
 
 smalltalk.addClass('IRInlinedIfNilIfNotNil', smalltalk.IRInlinedSend, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -197,7 +187,6 @@ smalltalk.IRInlinedIfNilIfNotNil);
 
 smalltalk.addClass('IRInlinedIfTrue', smalltalk.IRInlinedSend, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -217,7 +206,6 @@ smalltalk.IRInlinedIfTrue);
 
 smalltalk.addClass('IRInlinedIfTrueIfFalse', smalltalk.IRInlinedSend, [], 'Compiler-Inlining');
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -238,7 +226,6 @@ smalltalk.IRInlinedIfTrueIfFalse);
 smalltalk.addClass('IRInlinedSequence', smalltalk.IRBlockSequence, [], 'Compiler-Inlining');
 smalltalk.IRInlinedSequence.comment="I represent a (block) sequence inside an inlined closure instruction (instance of `IRInlinedClosure`)."
 smalltalk.addMethod(
-"_accept_",
 smalltalk.method({
 selector: "accept:",
 category: 'visiting',
@@ -255,7 +242,6 @@ referencedClasses: []
 smalltalk.IRInlinedSequence);
 
 smalltalk.addMethod(
-"_isInlined",
 smalltalk.method({
 selector: "isInlined",
 category: 'testing',
@@ -276,7 +262,6 @@ smalltalk.IRInlinedSequence);
 smalltalk.addClass('IRInliner', smalltalk.IRVisitor, [], 'Compiler-Inlining');
 smalltalk.IRInliner.comment="I visit an IR tree, inlining message sends and block closures.\x0a\x0aMessage selectors that can be inlined are answered by `IRSendInliner >> #inlinedSelectors`"
 smalltalk.addMethod(
-"_assignmentInliner",
 smalltalk.method({
 selector: "assignmentInliner",
 category: 'factory',
@@ -299,7 +284,6 @@ referencedClasses: ["IRAssignmentInliner"]
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_returnInliner",
 smalltalk.method({
 selector: "returnInliner",
 category: 'factory',
@@ -322,7 +306,6 @@ referencedClasses: ["IRReturnInliner"]
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_sendInliner",
 smalltalk.method({
 selector: "sendInliner",
 category: 'factory',
@@ -345,7 +328,6 @@ referencedClasses: ["IRSendInliner"]
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_shouldInlineAssignment_",
 smalltalk.method({
 selector: "shouldInlineAssignment:",
 category: 'testing',
@@ -370,7 +352,6 @@ referencedClasses: []
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_shouldInlineReturn_",
 smalltalk.method({
 selector: "shouldInlineReturn:",
 category: 'testing',
@@ -395,7 +376,6 @@ referencedClasses: []
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_shouldInlineSend_",
 smalltalk.method({
 selector: "shouldInlineSend:",
 category: 'testing',
@@ -418,7 +398,6 @@ referencedClasses: ["IRSendInliner"]
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_transformNonLocalReturn_",
 smalltalk.method({
 selector: "transformNonLocalReturn:",
 category: 'visiting',
@@ -455,7 +434,6 @@ referencedClasses: ["IRReturn"]
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_visitIRAssignment_",
 smalltalk.method({
 selector: "visitIRAssignment:",
 category: 'visiting',
@@ -479,7 +457,6 @@ referencedClasses: []
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_visitIRNonLocalReturn_",
 smalltalk.method({
 selector: "visitIRNonLocalReturn:",
 category: 'visiting',
@@ -498,7 +475,6 @@ referencedClasses: []
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_visitIRReturn_",
 smalltalk.method({
 selector: "visitIRReturn:",
 category: 'visiting',
@@ -522,7 +498,6 @@ referencedClasses: []
 smalltalk.IRInliner);
 
 smalltalk.addMethod(
-"_visitIRSend_",
 smalltalk.method({
 selector: "visitIRSend:",
 category: 'visiting',
@@ -550,7 +525,6 @@ smalltalk.IRInliner);
 smalltalk.addClass('IRInliningJSTranslator', smalltalk.IRJSTranslator, [], 'Compiler-Inlining');
 smalltalk.IRInliningJSTranslator.comment="I am a specialized JavaScript translator able to write inlined IR instructions to JavaScript stream (`JSStream` instance)."
 smalltalk.addMethod(
-"_visitIRInlinedAssignment_",
 smalltalk.method({
 selector: "visitIRInlinedAssignment:",
 category: 'visiting',
@@ -567,7 +541,6 @@ referencedClasses: []
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedClosure_",
 smalltalk.method({
 selector: "visitIRInlinedClosure:",
 category: 'visiting',
@@ -591,7 +564,6 @@ referencedClasses: []
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedIfFalse_",
 smalltalk.method({
 selector: "visitIRInlinedIfFalse:",
 category: 'visiting',
@@ -616,7 +588,6 @@ referencedClasses: []
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedIfNil_",
 smalltalk.method({
 selector: "visitIRInlinedIfNil:",
 category: 'visiting',
@@ -641,7 +612,6 @@ referencedClasses: []
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedIfNilIfNotNil_",
 smalltalk.method({
 selector: "visitIRInlinedIfNilIfNotNil:",
 category: 'visiting',
@@ -669,7 +639,6 @@ referencedClasses: []
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedIfTrue_",
 smalltalk.method({
 selector: "visitIRInlinedIfTrue:",
 category: 'visiting',
@@ -694,7 +663,6 @@ referencedClasses: []
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedIfTrueIfFalse_",
 smalltalk.method({
 selector: "visitIRInlinedIfTrueIfFalse:",
 category: 'visiting',
@@ -722,7 +690,6 @@ referencedClasses: []
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedNonLocalReturn_",
 smalltalk.method({
 selector: "visitIRInlinedNonLocalReturn:",
 category: 'visiting',
@@ -745,7 +712,6 @@ referencedClasses: []
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedReturn_",
 smalltalk.method({
 selector: "visitIRInlinedReturn:",
 category: 'visiting',
@@ -762,7 +728,6 @@ referencedClasses: []
 smalltalk.IRInliningJSTranslator);
 
 smalltalk.addMethod(
-"_visitIRInlinedSequence_",
 smalltalk.method({
 selector: "visitIRInlinedSequence:",
 category: 'visiting',
@@ -789,7 +754,6 @@ smalltalk.IRInliningJSTranslator);
 smalltalk.addClass('IRSendInliner', smalltalk.Object, ['send', 'translator'], 'Compiler-Inlining');
 smalltalk.IRSendInliner.comment="I inline some message sends and block closure arguments. I heavily rely on #perform: to dispatch inlining methods."
 smalltalk.addMethod(
-"_ifFalse_",
 smalltalk.method({
 selector: "ifFalse:",
 category: 'inlining',
@@ -809,7 +773,6 @@ referencedClasses: ["IRInlinedIfFalse"]
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifFalse_ifTrue_",
 smalltalk.method({
 selector: "ifFalse:ifTrue:",
 category: 'inlining',
@@ -828,7 +791,6 @@ referencedClasses: []
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifNil_",
 smalltalk.method({
 selector: "ifNil:",
 category: 'inlining',
@@ -857,7 +819,6 @@ referencedClasses: ["IRInlinedIfNilIfNotNil", "IRClosure", "IRBlockSequence"]
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifNil_ifNotNil_",
 smalltalk.method({
 selector: "ifNil:ifNotNil:",
 category: 'inlining',
@@ -877,7 +838,6 @@ referencedClasses: ["IRInlinedIfNilIfNotNil"]
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifNotNil_",
 smalltalk.method({
 selector: "ifNotNil:",
 category: 'inlining',
@@ -906,7 +866,6 @@ referencedClasses: ["IRInlinedIfNilIfNotNil", "IRClosure", "IRBlockSequence"]
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifNotNil_ifNil_",
 smalltalk.method({
 selector: "ifNotNil:ifNil:",
 category: 'inlining',
@@ -926,7 +885,6 @@ referencedClasses: ["IRInlinedIfNilIfNotNil"]
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifTrue_",
 smalltalk.method({
 selector: "ifTrue:",
 category: 'inlining',
@@ -946,7 +904,6 @@ referencedClasses: ["IRInlinedIfTrue"]
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_ifTrue_ifFalse_",
 smalltalk.method({
 selector: "ifTrue:ifFalse:",
 category: 'inlining',
@@ -966,7 +923,6 @@ referencedClasses: ["IRInlinedIfTrueIfFalse"]
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inlineClosure_",
 smalltalk.method({
 selector: "inlineClosure:",
 category: 'inlining',
@@ -1035,7 +991,6 @@ referencedClasses: ["IRTempDeclaration", "AliasVar", "IRVariable", "IRAssignment
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inlineSend_",
 smalltalk.method({
 selector: "inlineSend:",
 category: 'inlining',
@@ -1055,7 +1010,6 @@ referencedClasses: []
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inlinedClosure",
 smalltalk.method({
 selector: "inlinedClosure",
 category: 'factory',
@@ -1075,7 +1029,6 @@ referencedClasses: ["IRInlinedClosure"]
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inlinedSend_with_",
 smalltalk.method({
 selector: "inlinedSend:with:",
 category: 'inlining',
@@ -1108,7 +1061,6 @@ referencedClasses: []
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inlinedSend_with_with_",
 smalltalk.method({
 selector: "inlinedSend:with:with:",
 category: 'inlining',
@@ -1143,7 +1095,6 @@ referencedClasses: []
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inlinedSequence",
 smalltalk.method({
 selector: "inlinedSequence",
 category: 'factory',
@@ -1163,7 +1114,6 @@ referencedClasses: ["IRInlinedSequence"]
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_inliningError_",
 smalltalk.method({
 selector: "inliningError:",
 category: 'error handling',
@@ -1181,7 +1131,6 @@ referencedClasses: ["InliningError"]
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_send",
 smalltalk.method({
 selector: "send",
 category: 'accessing',
@@ -1200,7 +1149,6 @@ referencedClasses: []
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_send_",
 smalltalk.method({
 selector: "send:",
 category: 'accessing',
@@ -1217,7 +1165,6 @@ referencedClasses: []
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_translator",
 smalltalk.method({
 selector: "translator",
 category: 'accessing',
@@ -1236,7 +1183,6 @@ referencedClasses: []
 smalltalk.IRSendInliner);
 
 smalltalk.addMethod(
-"_translator_",
 smalltalk.method({
 selector: "translator:",
 category: 'accessing',
@@ -1254,7 +1200,6 @@ smalltalk.IRSendInliner);
 
 
 smalltalk.addMethod(
-"_inlinedSelectors",
 smalltalk.method({
 selector: "inlinedSelectors",
 category: 'accessing',
@@ -1273,7 +1218,6 @@ referencedClasses: []
 smalltalk.IRSendInliner.klass);
 
 smalltalk.addMethod(
-"_shouldInline_",
 smalltalk.method({
 selector: "shouldInline:",
 category: 'accessing',
@@ -1309,7 +1253,6 @@ smalltalk.IRSendInliner.klass);
 smalltalk.addClass('IRAssignmentInliner', smalltalk.IRSendInliner, ['assignment'], 'Compiler-Inlining');
 smalltalk.IRAssignmentInliner.comment="I inline message sends together with assignments by moving them around into the inline closure instructions.\x0a\x0a##Example\x0a\x0a\x09foo\x0a\x09\x09| a |\x0a\x09\x09a := true ifTrue: [ 1 ]\x0a\x0aWill produce:\x0a\x0a\x09if(smalltalk.assert(true) {\x0a\x09\x09a = 1;\x0a\x09};"
 smalltalk.addMethod(
-"_assignment",
 smalltalk.method({
 selector: "assignment",
 category: 'accessing',
@@ -1328,7 +1271,6 @@ referencedClasses: []
 smalltalk.IRAssignmentInliner);
 
 smalltalk.addMethod(
-"_assignment_",
 smalltalk.method({
 selector: "assignment:",
 category: 'accessing',
@@ -1345,7 +1287,6 @@ referencedClasses: []
 smalltalk.IRAssignmentInliner);
 
 smalltalk.addMethod(
-"_inlineAssignment_",
 smalltalk.method({
 selector: "inlineAssignment:",
 category: 'inlining',
@@ -1374,7 +1315,6 @@ referencedClasses: ["IRInlinedAssignment"]
 smalltalk.IRAssignmentInliner);
 
 smalltalk.addMethod(
-"_inlineClosure_",
 smalltalk.method({
 selector: "inlineClosure:",
 category: 'inlining',
@@ -1412,7 +1352,6 @@ smalltalk.IRAssignmentInliner);
 smalltalk.addClass('IRReturnInliner', smalltalk.IRSendInliner, [], 'Compiler-Inlining');
 smalltalk.IRReturnInliner.comment="I inline message sends with inlined closure together with a return instruction."
 smalltalk.addMethod(
-"_inlineClosure_",
 smalltalk.method({
 selector: "inlineClosure:",
 category: 'inlining',
@@ -1445,7 +1384,6 @@ referencedClasses: ["IRReturn"]
 smalltalk.IRReturnInliner);
 
 smalltalk.addMethod(
-"_inlineReturn_",
 smalltalk.method({
 selector: "inlineReturn:",
 category: 'inlining',
@@ -1472,7 +1410,6 @@ referencedClasses: []
 smalltalk.IRReturnInliner);
 
 smalltalk.addMethod(
-"_inlinedReturn",
 smalltalk.method({
 selector: "inlinedReturn",
 category: 'factory',
@@ -1496,7 +1433,6 @@ smalltalk.IRReturnInliner);
 smalltalk.addClass('InliningCodeGenerator', smalltalk.CodeGenerator, [], 'Compiler-Inlining');
 smalltalk.InliningCodeGenerator.comment="I am a specialized code generator that uses inlining to produce more optimized JavaScript output"
 smalltalk.addMethod(
-"_compileNode_",
 smalltalk.method({
 selector: "compileNode:",
 category: 'compiling',
@@ -1522,7 +1458,6 @@ referencedClasses: []
 smalltalk.InliningCodeGenerator);
 
 smalltalk.addMethod(
-"_inliner",
 smalltalk.method({
 selector: "inliner",
 category: 'compiling',
@@ -1542,7 +1477,6 @@ referencedClasses: ["IRInliner"]
 smalltalk.InliningCodeGenerator);
 
 smalltalk.addMethod(
-"_irTranslator",
 smalltalk.method({
 selector: "irTranslator",
 category: 'compiling',

js/Compiler-Interpreter.deploy.js

@@ -1,10 +1,9 @@
 smalltalk.addPackage('Compiler-Interpreter');
 smalltalk.addClass('AIContext', smalltalk.NodeVisitor, ['outerContext', 'pc', 'locals', 'method'], 'Compiler-Interpreter');
 smalltalk.addMethod(
-"_initializeFromMethodContext_",
 smalltalk.method({
 selector: "initializeFromMethodContext:",
-fn: function (aMethodContext) {
+fn: function (aMethodContext){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
@@ -21,12 +20,11 @@ _st(_st(aMethodContext)._locals())._keysAndValuesDo_((function(key,value){
 return smalltalk.withContext(function($ctx2) {
 return _st(_st(self)._locals())._at_put_(key,value);
 }, function($ctx2) {$ctx2.fillBlock({key:key,value:value},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"initializeFromMethodContext:",{aMethodContext:aMethodContext},smalltalk.AIContext)});},
+return self}, function($ctx1) {$ctx1.fill(self,"initializeFromMethodContext:",{aMethodContext:aMethodContext},smalltalk.AIContext)})},
 messageSends: ["pc:", "pc", "receiver:", "receiver", "method:", "method", "ifNotNil:", "outerContext:", "fromMethodContext:", "outerContext", "class", "keysAndValuesDo:", "at:put:", "locals"]}),
 smalltalk.AIContext);
 
 smalltalk.addMethod(
-"_initializeLocals",
 smalltalk.method({
 selector: "initializeLocals",
 fn: function (){
@@ -40,10 +38,9 @@ messageSends: ["new", "at:put:"]}),
 smalltalk.AIContext);
 
 smalltalk.addMethod(
-"_localAt_",
 smalltalk.method({
 selector: "localAt:",
-fn: function (aString) {
+fn: function (aString){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
@@ -52,24 +49,22 @@ return smalltalk.withContext(function($ctx2) {
 return nil;
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"localAt:",{aString:aString},smalltalk.AIContext)});},
+}, function($ctx1) {$ctx1.fill(self,"localAt:",{aString:aString},smalltalk.AIContext)})},
 messageSends: ["at:ifAbsent:", "locals"]}),
 smalltalk.AIContext);
 
 smalltalk.addMethod(
-"_localAt_put_",
 smalltalk.method({
 selector: "localAt:put:",
-fn: function (aString, anObject) {
+fn: function (aString,anObject){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(_st(self)._locals())._at_put_(aString,anObject);
-return self}, function($ctx1) {$ctx1.fill(self,"localAt:put:",{aString:aString,anObject:anObject},smalltalk.AIContext)});},
+return self}, function($ctx1) {$ctx1.fill(self,"localAt:put:",{aString:aString,anObject:anObject},smalltalk.AIContext)})},
 messageSends: ["at:put:", "locals"]}),
 smalltalk.AIContext);
 
 smalltalk.addMethod(
-"_locals",
 smalltalk.method({
 selector: "locals",
 fn: function (){
@@ -89,62 +84,57 @@ messageSends: ["ifNil:", "initializeLocals"]}),
 smalltalk.AIContext);
 
 smalltalk.addMethod(
-"_method",
 smalltalk.method({
 selector: "method",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=self["@method"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"method",{},smalltalk.AIContext)});},
+}, function($ctx1) {$ctx1.fill(self,"method",{},smalltalk.AIContext)})},
 messageSends: []}),
 smalltalk.AIContext);
 
 smalltalk.addMethod(
-"_method_",
 smalltalk.method({
 selector: "method:",
-fn: function (aCompiledMethod) {
+fn: function (aCompiledMethod){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 self["@method"]=aCompiledMethod;
-return self}, function($ctx1) {$ctx1.fill(self,"method:",{aCompiledMethod:aCompiledMethod},smalltalk.AIContext)});},
+return self}, function($ctx1) {$ctx1.fill(self,"method:",{aCompiledMethod:aCompiledMethod},smalltalk.AIContext)})},
 messageSends: []}),
 smalltalk.AIContext);
 
 smalltalk.addMethod(
-"_outerContext",
 smalltalk.method({
 selector: "outerContext",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=self["@outerContext"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"outerContext",{},smalltalk.AIContext)});},
+}, function($ctx1) {$ctx1.fill(self,"outerContext",{},smalltalk.AIContext)})},
 messageSends: []}),
 smalltalk.AIContext);
 
 smalltalk.addMethod(
-"_outerContext_",
 smalltalk.method({
 selector: "outerContext:",
-fn: function (anAIContext) {
+fn: function (anAIContext){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 self["@outerContext"]=anAIContext;
-return self}, function($ctx1) {$ctx1.fill(self,"outerContext:",{anAIContext:anAIContext},smalltalk.AIContext)});},
+return self}, function($ctx1) {$ctx1.fill(self,"outerContext:",{anAIContext:anAIContext},smalltalk.AIContext)})},
 messageSends: []}),
 smalltalk.AIContext);
 
 smalltalk.addMethod(
-"_pc",
 smalltalk.method({
 selector: "pc",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $2,$1;
@@ -156,50 +146,46 @@ $1=self["@pc"];
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"pc",{},smalltalk.AIContext)});},
+}, function($ctx1) {$ctx1.fill(self,"pc",{},smalltalk.AIContext)})},
 messageSends: ["ifNil:"]}),
 smalltalk.AIContext);
 
 smalltalk.addMethod(
-"_pc_",
 smalltalk.method({
 selector: "pc:",
-fn: function (anInteger) {
+fn: function (anInteger){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 self["@pc"]=anInteger;
-return self}, function($ctx1) {$ctx1.fill(self,"pc:",{anInteger:anInteger},smalltalk.AIContext)});},
+return self}, function($ctx1) {$ctx1.fill(self,"pc:",{anInteger:anInteger},smalltalk.AIContext)})},
 messageSends: []}),
 smalltalk.AIContext);
 
 smalltalk.addMethod(
-"_receiver",
 smalltalk.method({
 selector: "receiver",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(self)._localAt_("self");
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"receiver",{},smalltalk.AIContext)});},
+}, function($ctx1) {$ctx1.fill(self,"receiver",{},smalltalk.AIContext)})},
 messageSends: ["localAt:"]}),
 smalltalk.AIContext);
 
 smalltalk.addMethod(
-"_receiver_",
 smalltalk.method({
 selector: "receiver:",
-fn: function (anObject) {
+fn: function (anObject){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._localAt_put_("self",anObject);
-return self}, function($ctx1) {$ctx1.fill(self,"receiver:",{anObject:anObject},smalltalk.AIContext)});},
+return self}, function($ctx1) {$ctx1.fill(self,"receiver:",{anObject:anObject},smalltalk.AIContext)})},
 messageSends: ["localAt:put:"]}),
 smalltalk.AIContext);
 
 smalltalk.addMethod(
-"_selector",
 smalltalk.method({
 selector: "selector",
 fn: function (){
@@ -219,10 +205,9 @@ smalltalk.AIContext);
 
 
 smalltalk.addMethod(
-"_fromMethodContext_",
 smalltalk.method({
 selector: "fromMethodContext:",
-fn: function (aMethodContext) {
+fn: function (aMethodContext){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $2,$3,$1;
@@ -231,17 +216,16 @@ _st($2)._initializeFromMethodContext_(aMethodContext);
 $3=_st($2)._yourself();
 $1=$3;
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"fromMethodContext:",{aMethodContext:aMethodContext},smalltalk.AIContext.klass)});},
+}, function($ctx1) {$ctx1.fill(self,"fromMethodContext:",{aMethodContext:aMethodContext},smalltalk.AIContext.klass)})},
 messageSends: ["initializeFromMethodContext:", "new", "yourself"]}),
 smalltalk.AIContext.klass);
 
 
 smalltalk.addClass('ASTDebugger', smalltalk.Object, ['interpreter', 'context'], 'Compiler-Interpreter');
 smalltalk.addMethod(
-"_buildAST",
 smalltalk.method({
 selector: "buildAST",
-fn: function () {
+fn: function (){
 var self=this;
 var ast;
 function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
@@ -252,83 +236,77 @@ ast=_st(_st($Smalltalk())._current())._parse_(_st(_st(self)._method())._source()
 _st(_st($SemanticAnalyzer())._on_(_st(_st(_st(self)._context())._receiver())._class()))._visit_(ast);
 $1=ast;
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"buildAST",{ast:ast},smalltalk.ASTDebugger)});},
+}, function($ctx1) {$ctx1.fill(self,"buildAST",{ast:ast},smalltalk.ASTDebugger)})},
 messageSends: ["parse:", "source", "method", "current", "visit:", "on:", "class", "receiver", "context"]}),
 smalltalk.ASTDebugger);
 
 smalltalk.addMethod(
-"_context",
 smalltalk.method({
 selector: "context",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=self["@context"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"context",{},smalltalk.ASTDebugger)});},
+}, function($ctx1) {$ctx1.fill(self,"context",{},smalltalk.ASTDebugger)})},
 messageSends: []}),
 smalltalk.ASTDebugger);
 
 smalltalk.addMethod(
-"_context_",
 smalltalk.method({
 selector: "context:",
-fn: function (aContext) {
+fn: function (aContext){
 var self=this;
 function $AIContext(){return smalltalk.AIContext||(typeof AIContext=="undefined"?nil:AIContext)}
 return smalltalk.withContext(function($ctx1) { 
 self["@context"]=_st($AIContext())._new();
-return self}, function($ctx1) {$ctx1.fill(self,"context:",{aContext:aContext},smalltalk.ASTDebugger)});},
+return self}, function($ctx1) {$ctx1.fill(self,"context:",{aContext:aContext},smalltalk.ASTDebugger)})},
 messageSends: ["new"]}),
 smalltalk.ASTDebugger);
 
 smalltalk.addMethod(
-"_defaultInterpreterClass",
 smalltalk.method({
 selector: "defaultInterpreterClass",
-fn: function () {
+fn: function (){
 var self=this;
 function $ASTSteppingInterpreter(){return smalltalk.ASTSteppingInterpreter||(typeof ASTSteppingInterpreter=="undefined"?nil:ASTSteppingInterpreter)}
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=$ASTSteppingInterpreter();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"defaultInterpreterClass",{},smalltalk.ASTDebugger)});},
+}, function($ctx1) {$ctx1.fill(self,"defaultInterpreterClass",{},smalltalk.ASTDebugger)})},
 messageSends: []}),
 smalltalk.ASTDebugger);
 
 smalltalk.addMethod(
-"_initializeInterpreter",
 smalltalk.method({
 selector: "initializeInterpreter",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(_st(self)._interpreter())._interpret_(_st(_st(_st(self)._buildAST())._nodes())._first());
-return self}, function($ctx1) {$ctx1.fill(self,"initializeInterpreter",{},smalltalk.ASTDebugger)});},
+return self}, function($ctx1) {$ctx1.fill(self,"initializeInterpreter",{},smalltalk.ASTDebugger)})},
 messageSends: ["interpret:", "first", "nodes", "buildAST", "interpreter"]}),
 smalltalk.ASTDebugger);
 
 smalltalk.addMethod(
-"_initializeWithContext_",
 smalltalk.method({
 selector: "initializeWithContext:",
-fn: function (aMethodContext) {
+fn: function (aMethodContext){
 var self=this;
 function $AIContext(){return smalltalk.AIContext||(typeof AIContext=="undefined"?nil:AIContext)}
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._context_(_st($AIContext())._fromMethodContext_(aMethodContext));
 _st(self)._initializeInterpreter();
-return self}, function($ctx1) {$ctx1.fill(self,"initializeWithContext:",{aMethodContext:aMethodContext},smalltalk.ASTDebugger)});},
+return self}, function($ctx1) {$ctx1.fill(self,"initializeWithContext:",{aMethodContext:aMethodContext},smalltalk.ASTDebugger)})},
 messageSends: ["context:", "fromMethodContext:", "initializeInterpreter"]}),
 smalltalk.ASTDebugger);
 
 smalltalk.addMethod(
-"_interpreter",
 smalltalk.method({
 selector: "interpreter",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $2,$1;
@@ -340,65 +318,60 @@ $1=self["@interpreter"];
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter",{},smalltalk.ASTDebugger)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter",{},smalltalk.ASTDebugger)})},
 messageSends: ["ifNil:", "new", "defaultInterpreterClass"]}),
 smalltalk.ASTDebugger);
 
 smalltalk.addMethod(
-"_interpreter_",
 smalltalk.method({
 selector: "interpreter:",
-fn: function (anInterpreter) {
+fn: function (anInterpreter){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 self["@interpreter"]=anInterpreter;
-return self}, function($ctx1) {$ctx1.fill(self,"interpreter:",{anInterpreter:anInterpreter},smalltalk.ASTDebugger)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpreter:",{anInterpreter:anInterpreter},smalltalk.ASTDebugger)})},
 messageSends: []}),
 smalltalk.ASTDebugger);
 
 smalltalk.addMethod(
-"_method",
 smalltalk.method({
 selector: "method",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(_st(self)._context())._method();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"method",{},smalltalk.ASTDebugger)});},
+}, function($ctx1) {$ctx1.fill(self,"method",{},smalltalk.ASTDebugger)})},
 messageSends: ["method", "context"]}),
 smalltalk.ASTDebugger);
 
 smalltalk.addMethod(
-"_restart",
 smalltalk.method({
 selector: "restart",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._shouldBeImplemented();
-return self}, function($ctx1) {$ctx1.fill(self,"restart",{},smalltalk.ASTDebugger)});},
+return self}, function($ctx1) {$ctx1.fill(self,"restart",{},smalltalk.ASTDebugger)})},
 messageSends: ["shouldBeImplemented"]}),
 smalltalk.ASTDebugger);
 
 smalltalk.addMethod(
-"_resume",
 smalltalk.method({
 selector: "resume",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._shouldBeImplemented();
-return self}, function($ctx1) {$ctx1.fill(self,"resume",{},smalltalk.ASTDebugger)});},
+return self}, function($ctx1) {$ctx1.fill(self,"resume",{},smalltalk.ASTDebugger)})},
 messageSends: ["shouldBeImplemented"]}),
 smalltalk.ASTDebugger);
 
 smalltalk.addMethod(
-"_step",
 smalltalk.method({
 selector: "step",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st((function(){
@@ -415,40 +388,37 @@ return smalltalk.withContext(function($ctx2) {
 _st(_st(self)._interpreter())._step();
 return _st(self)._step();
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"step",{},smalltalk.ASTDebugger)});},
+return self}, function($ctx1) {$ctx1.fill(self,"step",{},smalltalk.ASTDebugger)})},
 messageSends: ["whileFalse:", "step", "interpreter", "or:", "not", "atEnd", "and:", "stopOnStepping", "nextNode", "notNil"]}),
 smalltalk.ASTDebugger);
 
 smalltalk.addMethod(
-"_stepInto",
 smalltalk.method({
 selector: "stepInto",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._shouldBeImplemented();
-return self}, function($ctx1) {$ctx1.fill(self,"stepInto",{},smalltalk.ASTDebugger)});},
+return self}, function($ctx1) {$ctx1.fill(self,"stepInto",{},smalltalk.ASTDebugger)})},
 messageSends: ["shouldBeImplemented"]}),
 smalltalk.ASTDebugger);
 
 smalltalk.addMethod(
-"_stepOver",
 smalltalk.method({
 selector: "stepOver",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._step();
-return self}, function($ctx1) {$ctx1.fill(self,"stepOver",{},smalltalk.ASTDebugger)});},
+return self}, function($ctx1) {$ctx1.fill(self,"stepOver",{},smalltalk.ASTDebugger)})},
 messageSends: ["step"]}),
 smalltalk.ASTDebugger);
 
 
 smalltalk.addMethod(
-"_context_",
 smalltalk.method({
 selector: "context:",
-fn: function (aMethodContext) {
+fn: function (aMethodContext){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $2,$3,$1;
@@ -457,17 +427,16 @@ _st($2)._initializeWithContext_(aMethodContext);
 $3=_st($2)._yourself();
 $1=$3;
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"context:",{aMethodContext:aMethodContext},smalltalk.ASTDebugger.klass)});},
+}, function($ctx1) {$ctx1.fill(self,"context:",{aMethodContext:aMethodContext},smalltalk.ASTDebugger.klass)})},
 messageSends: ["initializeWithContext:", "new", "yourself"]}),
 smalltalk.ASTDebugger.klass);
 
 
 smalltalk.addClass('ASTInterpreter', smalltalk.Object, ['currentNode', 'context', 'shouldReturn', 'result'], 'Compiler-Interpreter');
 smalltalk.addMethod(
-"_assign_to_",
 smalltalk.method({
 selector: "assign:to:",
-fn: function (aNode, anObject) {
+fn: function (aNode,anObject){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $2,$1;
@@ -478,15 +447,14 @@ $1=_st(_st(_st(self)._context())._receiver())._instVarAt_put_(_st(aNode)._value(
 $1=_st(_st(self)._context())._localAt_put_(_st(aNode)._value(),anObject);
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"assign:to:",{aNode:aNode,anObject:anObject},smalltalk.ASTInterpreter)});},
+}, function($ctx1) {$ctx1.fill(self,"assign:to:",{aNode:aNode,anObject:anObject},smalltalk.ASTInterpreter)})},
 messageSends: ["ifTrue:ifFalse:", "instVarAt:put:", "value", "receiver", "context", "localAt:put:", "isInstanceVar", "binding"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_context",
 smalltalk.method({
 selector: "context",
-fn: function () {
+fn: function (){
 var self=this;
 function $AIContext(){return smalltalk.AIContext||(typeof AIContext=="undefined"?nil:AIContext)}
 return smalltalk.withContext(function($ctx1) { 
@@ -499,54 +467,50 @@ $1=self["@context"];
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"context",{},smalltalk.ASTInterpreter)});},
+}, function($ctx1) {$ctx1.fill(self,"context",{},smalltalk.ASTInterpreter)})},
 messageSends: ["ifNil:", "new"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_context_",
 smalltalk.method({
 selector: "context:",
-fn: function (anAIContext) {
+fn: function (anAIContext){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 self["@context"]=anAIContext;
-return self}, function($ctx1) {$ctx1.fill(self,"context:",{anAIContext:anAIContext},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"context:",{anAIContext:anAIContext},smalltalk.ASTInterpreter)})},
 messageSends: []}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_continue_value_",
 smalltalk.method({
 selector: "continue:value:",
-fn: function (aBlock, anObject) {
+fn: function (aBlock,anObject){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 self["@result"]=anObject;
 _st(aBlock)._value_(anObject);
-return self}, function($ctx1) {$ctx1.fill(self,"continue:value:",{aBlock:aBlock,anObject:anObject},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"continue:value:",{aBlock:aBlock,anObject:anObject},smalltalk.ASTInterpreter)})},
 messageSends: ["value:"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_currentNode",
 smalltalk.method({
 selector: "currentNode",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=self["@currentNode"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"currentNode",{},smalltalk.ASTInterpreter)});},
+}, function($ctx1) {$ctx1.fill(self,"currentNode",{},smalltalk.ASTInterpreter)})},
 messageSends: []}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_eval_",
 smalltalk.method({
 selector: "eval:",
-fn: function (aString) {
+fn: function (aString){
 var self=this;
 var source,function_;
 function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
@@ -572,28 +536,26 @@ return $2;
 function_=_st(_st($Compiler())._new())._eval_(source);
 $3=_st(function_)._valueWithPossibleArguments_(_st(_st(_st(self)._context())._locals())._values());
 return $3;
-}, function($ctx1) {$ctx1.fill(self,"eval:",{aString:aString,source:source,function_:function_},smalltalk.ASTInterpreter)});},
+}, function($ctx1) {$ctx1.fill(self,"eval:",{aString:aString,source:source,function_:function_},smalltalk.ASTInterpreter)})},
 messageSends: ["streamContents:", "nextPutAll:", "do:separatedBy:", "keys", "locals", "context", "eval:", "new", "valueWithPossibleArguments:", "values"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 smalltalk.Object.fn.prototype._initialize.apply(_st(self), []);
 self["@shouldReturn"]=false;
-return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.ASTInterpreter)})},
 messageSends: ["initialize"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpret_",
 smalltalk.method({
 selector: "interpret:",
-fn: function (aNode) {
+fn: function (aNode){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 self["@shouldReturn"]=false;
@@ -602,15 +564,14 @@ return smalltalk.withContext(function($ctx2) {
 self["@result"]=value;
 return self["@result"];
 }, function($ctx2) {$ctx2.fillBlock({value:value},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"interpret:",{aNode:aNode},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpret:",{aNode:aNode},smalltalk.ASTInterpreter)})},
 messageSends: ["interpret:continue:"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpret_continue_",
 smalltalk.method({
 selector: "interpret:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2,$3;
@@ -630,28 +591,26 @@ return _st(self)._continue_value_(aBlock,value);
 } else {
 _st(self)._continue_value_(aBlock,aNode);
 };
-return self}, function($ctx1) {$ctx1.fill(self,"interpret:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpret:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["ifTrue:", "ifTrue:ifFalse:", "interpretNode:continue:", "continue:value:", "isNode"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretAll_continue_",
 smalltalk.method({
 selector: "interpretAll:continue:",
-fn: function (aCollection, aBlock) {
+fn: function (aCollection,aBlock){
 var self=this;
 function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._interpretAll_continue_result_(aCollection,aBlock,_st($OrderedCollection())._new());
-return self}, function($ctx1) {$ctx1.fill(self,"interpretAll:continue:",{aCollection:aCollection,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretAll:continue:",{aCollection:aCollection,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["interpretAll:continue:result:", "new"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretAll_continue_result_",
 smalltalk.method({
 selector: "interpretAll:continue:result:",
-fn: function (nodes, aBlock, aCollection) {
+fn: function (nodes,aBlock,aCollection){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
@@ -664,27 +623,25 @@ return smalltalk.withContext(function($ctx2) {
 return _st(self)._interpretAll_continue_result_(_st(nodes)._allButFirst(),aBlock,_st(aCollection).__comma([value]));
 }, function($ctx2) {$ctx2.fillBlock({value:value},$ctx1)})}));
 };
-return self}, function($ctx1) {$ctx1.fill(self,"interpretAll:continue:result:",{nodes:nodes,aBlock:aBlock,aCollection:aCollection},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretAll:continue:result:",{nodes:nodes,aBlock:aBlock,aCollection:aCollection},smalltalk.ASTInterpreter)})},
 messageSends: ["ifTrue:ifFalse:", "continue:value:", "interpret:continue:", "first", "interpretAll:continue:result:", "allButFirst", ",", "isEmpty"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretAssignmentNode_continue_",
 smalltalk.method({
 selector: "interpretAssignmentNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._interpret_continue_(_st(aNode)._right(),(function(value){
 return smalltalk.withContext(function($ctx2) {
 return _st(self)._continue_value_(aBlock,_st(self)._assign_to_(_st(aNode)._left(),value));
 }, function($ctx2) {$ctx2.fillBlock({value:value},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"interpretAssignmentNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretAssignmentNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["interpret:continue:", "right", "continue:value:", "assign:to:", "left"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretBlockNode_continue_",
 smalltalk.method({
 selector: "interpretBlockNode:continue:",
 fn: function (aNode,aBlock){
@@ -706,22 +663,20 @@ messageSends: ["continue:value:", "withBlockContext:", "interpret:", "first", "n
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretBlockSequenceNode_continue_",
 smalltalk.method({
 selector: "interpretBlockSequenceNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._interpretSequenceNode_continue_(aNode,aBlock);
-return self}, function($ctx1) {$ctx1.fill(self,"interpretBlockSequenceNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretBlockSequenceNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["interpretSequenceNode:continue:"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretCascadeNode_continue_",
 smalltalk.method({
 selector: "interpretCascadeNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._interpret_continue_(_st(aNode)._receiver(),(function(receiver){
@@ -738,43 +693,40 @@ return _st(self)._continue_value_(aBlock,val);
 }, function($ctx4) {$ctx4.fillBlock({val:val},$ctx1)})}));
 }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
 }, function($ctx2) {$ctx2.fillBlock({receiver:receiver},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"interpretCascadeNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretCascadeNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["interpret:continue:", "receiver", "do:", "receiver:", "nodes", "interpretAll:continue:", "allButLast", "last", "continue:value:"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretClassReferenceNode_continue_",
 smalltalk.method({
 selector: "interpretClassReferenceNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._continue_value_(aBlock,_st(_st($Smalltalk())._current())._at_(_st(aNode)._value()));
-return self}, function($ctx1) {$ctx1.fill(self,"interpretClassReferenceNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretClassReferenceNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["continue:value:", "at:", "value", "current"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretDynamicArrayNode_continue_",
 smalltalk.method({
 selector: "interpretDynamicArrayNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._interpretAll_continue_(_st(aNode)._nodes(),(function(array){
 return smalltalk.withContext(function($ctx2) {
 return _st(self)._continue_value_(aBlock,array);
 }, function($ctx2) {$ctx2.fillBlock({array:array},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"interpretDynamicArrayNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretDynamicArrayNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["interpretAll:continue:", "nodes", "continue:value:"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretDynamicDictionaryNode_continue_",
 smalltalk.method({
 selector: "interpretDynamicDictionaryNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 function $HashedCollection(){return smalltalk.HashedCollection||(typeof HashedCollection=="undefined"?nil:HashedCollection)}
 return smalltalk.withContext(function($ctx1) { 
@@ -789,55 +741,51 @@ return _st(hashedCollection)._add_(each);
 }, function($ctx3) {$ctx3.fillBlock({each:each},$ctx1)})}));
 return _st(self)._continue_value_(aBlock,hashedCollection);
 }, function($ctx2) {$ctx2.fillBlock({array:array,hashedCollection:hashedCollection},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"interpretDynamicDictionaryNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretDynamicDictionaryNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["interpretAll:continue:", "nodes", "new", "do:", "add:", "continue:value:"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretJSStatementNode_continue_",
 smalltalk.method({
 selector: "interpretJSStatementNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 self["@shouldReturn"]=true;
 _st(self)._continue_value_(aBlock,_st(self)._eval_(_st(aNode)._source()));
-return self}, function($ctx1) {$ctx1.fill(self,"interpretJSStatementNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretJSStatementNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["continue:value:", "eval:", "source"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretMethodNode_continue_",
 smalltalk.method({
 selector: "interpretMethodNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._interpretAll_continue_(_st(aNode)._nodes(),(function(array){
 return smalltalk.withContext(function($ctx2) {
 return _st(self)._continue_value_(aBlock,_st(array)._first());
 }, function($ctx2) {$ctx2.fillBlock({array:array},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"interpretMethodNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretMethodNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["interpretAll:continue:", "nodes", "continue:value:", "first"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretNode_continue_",
 smalltalk.method({
 selector: "interpretNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(aNode)._interpreter_continue_(self,aBlock);
-return self}, function($ctx1) {$ctx1.fill(self,"interpretNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["interpreter:continue:"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretReturnNode_continue_",
 smalltalk.method({
 selector: "interpretReturnNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._interpret_continue_(_st(_st(aNode)._nodes())._first(),(function(value){
@@ -846,15 +794,14 @@ self["@shouldReturn"]=true;
 self["@shouldReturn"];
 return _st(self)._continue_value_(aBlock,value);
 }, function($ctx2) {$ctx2.fillBlock({value:value},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"interpretReturnNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretReturnNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["interpret:continue:", "first", "nodes", "continue:value:"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretSendNode_continue_",
 smalltalk.method({
 selector: "interpretSendNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._interpret_continue_(_st(aNode)._receiver(),(function(receiver){
@@ -868,42 +815,39 @@ return _st(self)._continue_value_(aBlock,_st(message)._sendTo_(receiver));
 }, function($ctx4) {$ctx4.fillBlock({message:message},$ctx1)})}));
 }, function($ctx3) {$ctx3.fillBlock({args:args},$ctx1)})}));
 }, function($ctx2) {$ctx2.fillBlock({receiver:receiver},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"interpretSendNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretSendNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["interpret:continue:", "receiver", "interpretAll:continue:", "arguments", "messageFromSendNode:arguments:do:", "pc:", "+", "pc", "context", "continue:value:", "sendTo:"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretSequenceNode_continue_",
 smalltalk.method({
 selector: "interpretSequenceNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._interpretAll_continue_(_st(aNode)._nodes(),(function(array){
 return smalltalk.withContext(function($ctx2) {
 return _st(self)._continue_value_(aBlock,_st(array)._last());
 }, function($ctx2) {$ctx2.fillBlock({array:array},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"interpretSequenceNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretSequenceNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["interpretAll:continue:", "nodes", "continue:value:", "last"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretValueNode_continue_",
 smalltalk.method({
 selector: "interpretValueNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self)._continue_value_(aBlock,_st(aNode)._value());
-return self}, function($ctx1) {$ctx1.fill(self,"interpretValueNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretValueNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["continue:value:", "value"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_interpretVariableNode_continue_",
 smalltalk.method({
 selector: "interpretVariableNode:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2,$4,$3;
@@ -916,15 +860,14 @@ $3=_st(_st(_st(self)._context())._receiver())._instVarAt_(_st(aNode)._value());
 $3=_st(_st(self)._context())._localAt_(_st(aNode)._value());
 };
 _st($1)._continue_value_($2,$3);
-return self}, function($ctx1) {$ctx1.fill(self,"interpretVariableNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpretVariableNode:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["continue:value:", "ifTrue:ifFalse:", "instVarAt:", "value", "receiver", "context", "localAt:", "isInstanceVar", "binding"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_messageFromSendNode_arguments_do_",
 smalltalk.method({
 selector: "messageFromSendNode:arguments:do:",
-fn: function (aSendNode, aCollection, aBlock) {
+fn: function (aSendNode,aCollection,aBlock){
 var self=this;
 function $Message(){return smalltalk.Message||(typeof Message=="undefined"?nil:Message)}
 return smalltalk.withContext(function($ctx1) { 
@@ -934,29 +877,27 @@ _st($1)._selector_(_st(aSendNode)._selector());
 _st($1)._arguments_(aCollection);
 $2=_st($1)._yourself();
 _st(self)._continue_value_(aBlock,$2);
-return self}, function($ctx1) {$ctx1.fill(self,"messageFromSendNode:arguments:do:",{aSendNode:aSendNode,aCollection:aCollection,aBlock:aBlock},smalltalk.ASTInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"messageFromSendNode:arguments:do:",{aSendNode:aSendNode,aCollection:aCollection,aBlock:aBlock},smalltalk.ASTInterpreter)})},
 messageSends: ["continue:value:", "selector:", "selector", "new", "arguments:", "yourself"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_result",
 smalltalk.method({
 selector: "result",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=self["@result"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"result",{},smalltalk.ASTInterpreter)});},
+}, function($ctx1) {$ctx1.fill(self,"result",{},smalltalk.ASTInterpreter)})},
 messageSends: []}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_shouldReturn",
 smalltalk.method({
 selector: "shouldReturn",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $2,$1;
@@ -967,12 +908,11 @@ $1=false;
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"shouldReturn",{},smalltalk.ASTInterpreter)});},
+}, function($ctx1) {$ctx1.fill(self,"shouldReturn",{},smalltalk.ASTInterpreter)})},
 messageSends: ["ifNil:"]}),
 smalltalk.ASTInterpreter);
 
 smalltalk.addMethod(
-"_withBlockContext_",
 smalltalk.method({
 selector: "withBlockContext:",
 fn: function (aBlock){
@@ -997,10 +937,9 @@ smalltalk.ASTInterpreter);
 
 smalltalk.addClass('ASTSteppingInterpreter', smalltalk.ASTInterpreter, ['continuation', 'nextNode'], 'Compiler-Interpreter');
 smalltalk.addMethod(
-"_atEnd",
 smalltalk.method({
 selector: "atEnd",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
@@ -1009,30 +948,28 @@ return smalltalk.withContext(function($ctx2) {
 return _st(_st(self)._nextNode()).__eq_eq(_st(self)._currentNode());
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"atEnd",{},smalltalk.ASTSteppingInterpreter)});},
+}, function($ctx1) {$ctx1.fill(self,"atEnd",{},smalltalk.ASTSteppingInterpreter)})},
 messageSends: ["or:", "==", "currentNode", "nextNode", "shouldReturn"]}),
 smalltalk.ASTSteppingInterpreter);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 smalltalk.ASTInterpreter.fn.prototype._initialize.apply(_st(self), []);
 self["@continuation"]=(function(){
 return smalltalk.withContext(function($ctx2) {
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})});
-return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.ASTSteppingInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.ASTSteppingInterpreter)})},
 messageSends: ["initialize"]}),
 smalltalk.ASTSteppingInterpreter);
 
 smalltalk.addMethod(
-"_interpret_continue_",
 smalltalk.method({
 selector: "interpret:continue:",
-fn: function (aNode, aBlock) {
+fn: function (aNode,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 self["@nextNode"]=aNode;
@@ -1040,329 +977,305 @@ self["@continuation"]=(function(){
 return smalltalk.withContext(function($ctx2) {
 return smalltalk.ASTInterpreter.fn.prototype._interpret_continue_.apply(_st(self), [aNode,aBlock]);
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})});
-return self}, function($ctx1) {$ctx1.fill(self,"interpret:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTSteppingInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"interpret:continue:",{aNode:aNode,aBlock:aBlock},smalltalk.ASTSteppingInterpreter)})},
 messageSends: ["interpret:continue:"]}),
 smalltalk.ASTSteppingInterpreter);
 
 smalltalk.addMethod(
-"_nextNode",
 smalltalk.method({
 selector: "nextNode",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=self["@nextNode"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"nextNode",{},smalltalk.ASTSteppingInterpreter)});},
+}, function($ctx1) {$ctx1.fill(self,"nextNode",{},smalltalk.ASTSteppingInterpreter)})},
 messageSends: []}),
 smalltalk.ASTSteppingInterpreter);
 
 smalltalk.addMethod(
-"_step",
 smalltalk.method({
 selector: "step",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(self["@continuation"])._value();
-return self}, function($ctx1) {$ctx1.fill(self,"step",{},smalltalk.ASTSteppingInterpreter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"step",{},smalltalk.ASTSteppingInterpreter)})},
 messageSends: ["value"]}),
 smalltalk.ASTSteppingInterpreter);
 
 
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.Node)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.Node)})},
 messageSends: ["interpretNode:continue:"]}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_isSteppingNode",
 smalltalk.method({
 selector: "isSteppingNode",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 return false;
-}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.Node)});},
+}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.Node)})},
 messageSends: []}),
 smalltalk.Node);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretAssignmentNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.AssignmentNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.AssignmentNode)})},
 messageSends: ["interpretAssignmentNode:continue:"]}),
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_isSteppingNode",
 smalltalk.method({
 selector: "isSteppingNode",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 return true;
-}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.AssignmentNode)});},
+}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.AssignmentNode)})},
 messageSends: []}),
 smalltalk.AssignmentNode);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretBlockNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.BlockNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.BlockNode)})},
 messageSends: ["interpretBlockNode:continue:"]}),
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_isSteppingNode",
 smalltalk.method({
 selector: "isSteppingNode",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 return true;
-}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.BlockNode)});},
+}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.BlockNode)})},
 messageSends: []}),
 smalltalk.BlockNode);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretCascadeNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.CascadeNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.CascadeNode)})},
 messageSends: ["interpretCascadeNode:continue:"]}),
 smalltalk.CascadeNode);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretDynamicArrayNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.DynamicArrayNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.DynamicArrayNode)})},
 messageSends: ["interpretDynamicArrayNode:continue:"]}),
 smalltalk.DynamicArrayNode);
 
 smalltalk.addMethod(
-"_isSteppingNode",
 smalltalk.method({
 selector: "isSteppingNode",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 return true;
-}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.DynamicArrayNode)});},
+}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.DynamicArrayNode)})},
 messageSends: []}),
 smalltalk.DynamicArrayNode);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretDynamicDictionaryNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.DynamicDictionaryNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.DynamicDictionaryNode)})},
 messageSends: ["interpretDynamicDictionaryNode:continue:"]}),
 smalltalk.DynamicDictionaryNode);
 
 smalltalk.addMethod(
-"_isSteppingNode",
 smalltalk.method({
 selector: "isSteppingNode",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 return true;
-}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.DynamicDictionaryNode)});},
+}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.DynamicDictionaryNode)})},
 messageSends: []}),
 smalltalk.DynamicDictionaryNode);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretJSStatementNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.JSStatementNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.JSStatementNode)})},
 messageSends: ["interpretJSStatementNode:continue:"]}),
 smalltalk.JSStatementNode);
 
 smalltalk.addMethod(
-"_isSteppingNode",
 smalltalk.method({
 selector: "isSteppingNode",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 return true;
-}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.JSStatementNode)});},
+}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.JSStatementNode)})},
 messageSends: []}),
 smalltalk.JSStatementNode);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretMethodNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.MethodNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.MethodNode)})},
 messageSends: ["interpretMethodNode:continue:"]}),
 smalltalk.MethodNode);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretReturnNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.ReturnNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.ReturnNode)})},
 messageSends: ["interpretReturnNode:continue:"]}),
 smalltalk.ReturnNode);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretSendNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.SendNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.SendNode)})},
 messageSends: ["interpretSendNode:continue:"]}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_isSteppingNode",
 smalltalk.method({
 selector: "isSteppingNode",
-fn: function () {
+fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 return true;
-}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.SendNode)});},
+}, function($ctx1) {$ctx1.fill(self,"isSteppingNode",{},smalltalk.SendNode)})},
 messageSends: []}),
 smalltalk.SendNode);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretSequenceNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.SequenceNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.SequenceNode)})},
 messageSends: ["interpretSequenceNode:continue:"]}),
 smalltalk.SequenceNode);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretBlockSequenceNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.BlockSequenceNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.BlockSequenceNode)})},
 messageSends: ["interpretBlockSequenceNode:continue:"]}),
 smalltalk.BlockSequenceNode);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretValueNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.ValueNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.ValueNode)})},
 messageSends: ["interpretValueNode:continue:"]}),
 smalltalk.ValueNode);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretVariableNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.VariableNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.VariableNode)})},
 messageSends: ["interpretVariableNode:continue:"]}),
 smalltalk.VariableNode);
 
 smalltalk.addMethod(
-"_interpreter_continue_",
 smalltalk.method({
 selector: "interpreter:continue:",
-fn: function (anInterpreter, aBlock) {
+fn: function (anInterpreter,aBlock){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(anInterpreter)._interpretClassReferenceNode_continue_(self,aBlock);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.ClassReferenceNode)});},
+}, function($ctx1) {$ctx1.fill(self,"interpreter:continue:",{anInterpreter:anInterpreter,aBlock:aBlock},smalltalk.ClassReferenceNode)})},
 messageSends: ["interpretClassReferenceNode:continue:"]}),
 smalltalk.ClassReferenceNode);
 

js/Compiler-Semantic.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Compiler-Semantic');
 smalltalk.addClass('LexicalScope', smalltalk.Object, ['node', 'instruction', 'temps', 'args', 'outerScope'], 'Compiler-Semantic');
 smalltalk.addMethod(
-"_addArg_",
 smalltalk.method({
 selector: "addArg:",
 fn: function (aString){
@@ -15,7 +14,6 @@ messageSends: ["at:put:", "on:", "args", "scope:", "at:"]}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_addTemp_",
 smalltalk.method({
 selector: "addTemp:",
 fn: function (aString){
@@ -29,7 +27,6 @@ messageSends: ["at:put:", "on:", "temps", "scope:", "at:"]}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_alias",
 smalltalk.method({
 selector: "alias",
 fn: function (){
@@ -43,7 +40,6 @@ messageSends: [",", "asString", "scopeLevel"]}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_allVariableNames",
 smalltalk.method({
 selector: "allVariableNames",
 fn: function (){
@@ -57,7 +53,6 @@ messageSends: [",", "keys", "temps", "args"]}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_args",
 smalltalk.method({
 selector: "args",
 fn: function (){
@@ -78,7 +73,6 @@ messageSends: ["ifNil:", "new"]}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_bindingFor_",
 smalltalk.method({
 selector: "bindingFor:",
 fn: function (aStringOrNode){
@@ -101,7 +95,6 @@ messageSends: ["at:ifAbsent:", "value", "temps", "args", "pseudoVars"]}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_canInlineNonLocalReturns",
 smalltalk.method({
 selector: "canInlineNonLocalReturns",
 fn: function (){
@@ -118,7 +111,6 @@ messageSends: ["and:", "canInlineNonLocalReturns", "outerScope", "isInlined"]}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_instruction",
 smalltalk.method({
 selector: "instruction",
 fn: function (){
@@ -132,7 +124,6 @@ messageSends: []}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_instruction_",
 smalltalk.method({
 selector: "instruction:",
 fn: function (anIRInstruction){
@@ -144,7 +135,6 @@ messageSends: []}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_isBlockScope",
 smalltalk.method({
 selector: "isBlockScope",
 fn: function (){
@@ -158,7 +148,6 @@ messageSends: ["not", "isMethodScope"]}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_isInlined",
 smalltalk.method({
 selector: "isInlined",
 fn: function (){
@@ -175,7 +164,6 @@ messageSends: ["and:", "isInlined", "instruction", "notNil"]}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_isMethodScope",
 smalltalk.method({
 selector: "isMethodScope",
 fn: function (){
@@ -187,7 +175,6 @@ messageSends: []}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_lookupVariable_",
 smalltalk.method({
 selector: "lookupVariable:",
 fn: function (aNode){
@@ -215,7 +202,6 @@ messageSends: ["bindingFor:", "ifNil:", "ifNotNil:", "lookupVariable:", "outerSc
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_methodScope",
 smalltalk.method({
 selector: "methodScope",
 fn: function (){
@@ -234,7 +220,6 @@ messageSends: ["ifNotNil:", "methodScope", "outerScope"]}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_node",
 smalltalk.method({
 selector: "node",
 fn: function (){
@@ -248,7 +233,6 @@ messageSends: []}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_node_",
 smalltalk.method({
 selector: "node:",
 fn: function (aNode){
@@ -260,7 +244,6 @@ messageSends: []}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_outerScope",
 smalltalk.method({
 selector: "outerScope",
 fn: function (){
@@ -274,7 +257,6 @@ messageSends: []}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_outerScope_",
 smalltalk.method({
 selector: "outerScope:",
 fn: function (aLexicalScope){
@@ -286,7 +268,6 @@ messageSends: []}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_pseudoVars",
 smalltalk.method({
 selector: "pseudoVars",
 fn: function (){
@@ -300,7 +281,6 @@ messageSends: ["pseudoVars", "methodScope"]}),
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_scopeLevel",
 smalltalk.method({
 selector: "scopeLevel",
 fn: function (){
@@ -326,7 +306,6 @@ messageSends: ["ifNil:", "outerScope", "ifTrue:", "scopeLevel", "isInlined", "+"
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_temps",
 smalltalk.method({
 selector: "temps",
 fn: function (){
@@ -350,7 +329,6 @@ smalltalk.LexicalScope);
 
 smalltalk.addClass('MethodLexicalScope', smalltalk.LexicalScope, ['iVars', 'pseudoVars', 'unknownVariables', 'localReturn', 'nonLocalReturns'], 'Compiler-Semantic');
 smalltalk.addMethod(
-"_addIVar_",
 smalltalk.method({
 selector: "addIVar:",
 fn: function (aString){
@@ -364,7 +342,6 @@ messageSends: ["at:put:", "on:", "iVars", "scope:", "at:"]}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_addNonLocalReturn_",
 smalltalk.method({
 selector: "addNonLocalReturn:",
 fn: function (aScope){
@@ -376,7 +353,6 @@ messageSends: ["add:", "nonLocalReturns"]}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_allVariableNames",
 smalltalk.method({
 selector: "allVariableNames",
 fn: function (){
@@ -390,7 +366,6 @@ messageSends: [",", "keys", "iVars", "allVariableNames"]}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_bindingFor_",
 smalltalk.method({
 selector: "bindingFor:",
 fn: function (aNode){
@@ -412,7 +387,6 @@ messageSends: ["ifNil:", "at:ifAbsent:", "value", "iVars", "bindingFor:"]}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_canInlineNonLocalReturns",
 smalltalk.method({
 selector: "canInlineNonLocalReturns",
 fn: function (){
@@ -424,7 +398,6 @@ messageSends: []}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_hasLocalReturn",
 smalltalk.method({
 selector: "hasLocalReturn",
 fn: function (){
@@ -438,7 +411,6 @@ messageSends: ["localReturn"]}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_hasNonLocalReturn",
 smalltalk.method({
 selector: "hasNonLocalReturn",
 fn: function (){
@@ -452,7 +424,6 @@ messageSends: ["notEmpty", "nonLocalReturns"]}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_iVars",
 smalltalk.method({
 selector: "iVars",
 fn: function (){
@@ -473,7 +444,6 @@ messageSends: ["ifNil:", "new"]}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_isMethodScope",
 smalltalk.method({
 selector: "isMethodScope",
 fn: function (){
@@ -485,7 +455,6 @@ messageSends: []}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_localReturn",
 smalltalk.method({
 selector: "localReturn",
 fn: function (){
@@ -504,7 +473,6 @@ messageSends: ["ifNil:"]}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_localReturn_",
 smalltalk.method({
 selector: "localReturn:",
 fn: function (aBoolean){
@@ -516,7 +484,6 @@ messageSends: []}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_methodScope",
 smalltalk.method({
 selector: "methodScope",
 fn: function (){
@@ -530,7 +497,6 @@ messageSends: []}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_nonLocalReturns",
 smalltalk.method({
 selector: "nonLocalReturns",
 fn: function (){
@@ -551,7 +517,6 @@ messageSends: ["ifNil:", "new"]}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_pseudoVars",
 smalltalk.method({
 selector: "pseudoVars",
 fn: function (){
@@ -582,7 +547,6 @@ messageSends: ["ifNil:", "new", "do:", "at:put:", "scope:", "methodScope", "on:"
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_removeNonLocalReturn_",
 smalltalk.method({
 selector: "removeNonLocalReturn:",
 fn: function (aScope){
@@ -596,7 +560,6 @@ messageSends: ["remove:ifAbsent:", "nonLocalReturns"]}),
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_unknownVariables",
 smalltalk.method({
 selector: "unknownVariables",
 fn: function (){
@@ -620,7 +583,6 @@ smalltalk.MethodLexicalScope);
 
 smalltalk.addClass('ScopeVar', smalltalk.Object, ['scope', 'name'], 'Compiler-Semantic');
 smalltalk.addMethod(
-"_alias",
 smalltalk.method({
 selector: "alias",
 fn: function (){
@@ -634,7 +596,6 @@ messageSends: ["asVariableName", "name"]}),
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_isArgVar",
 smalltalk.method({
 selector: "isArgVar",
 fn: function (){
@@ -646,7 +607,6 @@ messageSends: []}),
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_isClassRefVar",
 smalltalk.method({
 selector: "isClassRefVar",
 fn: function (){
@@ -658,7 +618,6 @@ messageSends: []}),
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_isInstanceVar",
 smalltalk.method({
 selector: "isInstanceVar",
 fn: function (){
@@ -670,7 +629,6 @@ messageSends: []}),
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_isPseudoVar",
 smalltalk.method({
 selector: "isPseudoVar",
 fn: function (){
@@ -682,7 +640,6 @@ messageSends: []}),
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_isTempVar",
 smalltalk.method({
 selector: "isTempVar",
 fn: function (){
@@ -694,7 +651,6 @@ messageSends: []}),
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_isUnknownVar",
 smalltalk.method({
 selector: "isUnknownVar",
 fn: function (){
@@ -706,7 +662,6 @@ messageSends: []}),
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_name",
 smalltalk.method({
 selector: "name",
 fn: function (){
@@ -720,7 +675,6 @@ messageSends: []}),
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_name_",
 smalltalk.method({
 selector: "name:",
 fn: function (aString){
@@ -732,7 +686,6 @@ messageSends: []}),
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_scope",
 smalltalk.method({
 selector: "scope",
 fn: function (){
@@ -746,7 +699,6 @@ messageSends: []}),
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_scope_",
 smalltalk.method({
 selector: "scope:",
 fn: function (aScope){
@@ -758,7 +710,6 @@ messageSends: []}),
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_validateAssignment",
 smalltalk.method({
 selector: "validateAssignment",
 fn: function (){
@@ -782,7 +733,6 @@ smalltalk.ScopeVar);
 
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 fn: function (aString){
@@ -801,7 +751,6 @@ smalltalk.ScopeVar.klass);
 
 smalltalk.addClass('AliasVar', smalltalk.ScopeVar, ['node'], 'Compiler-Semantic');
 smalltalk.addMethod(
-"_node",
 smalltalk.method({
 selector: "node",
 fn: function (){
@@ -815,7 +764,6 @@ messageSends: []}),
 smalltalk.AliasVar);
 
 smalltalk.addMethod(
-"_node_",
 smalltalk.method({
 selector: "node:",
 fn: function (aNode){
@@ -830,7 +778,6 @@ smalltalk.AliasVar);
 
 smalltalk.addClass('ArgVar', smalltalk.ScopeVar, [], 'Compiler-Semantic');
 smalltalk.addMethod(
-"_isArgVar",
 smalltalk.method({
 selector: "isArgVar",
 fn: function (){
@@ -845,7 +792,6 @@ smalltalk.ArgVar);
 
 smalltalk.addClass('ClassRefVar', smalltalk.ScopeVar, [], 'Compiler-Semantic');
 smalltalk.addMethod(
-"_alias",
 smalltalk.method({
 selector: "alias",
 fn: function (){
@@ -859,7 +805,6 @@ messageSends: [",", "name"]}),
 smalltalk.ClassRefVar);
 
 smalltalk.addMethod(
-"_isClassRefVar",
 smalltalk.method({
 selector: "isClassRefVar",
 fn: function (){
@@ -874,7 +819,6 @@ smalltalk.ClassRefVar);
 
 smalltalk.addClass('InstanceVar', smalltalk.ScopeVar, [], 'Compiler-Semantic');
 smalltalk.addMethod(
-"_alias",
 smalltalk.method({
 selector: "alias",
 fn: function (){
@@ -888,7 +832,6 @@ messageSends: [",", "name"]}),
 smalltalk.InstanceVar);
 
 smalltalk.addMethod(
-"_isInstanceVar",
 smalltalk.method({
 selector: "isInstanceVar",
 fn: function (){
@@ -903,7 +846,6 @@ smalltalk.InstanceVar);
 
 smalltalk.addClass('PseudoVar', smalltalk.ScopeVar, [], 'Compiler-Semantic');
 smalltalk.addMethod(
-"_alias",
 smalltalk.method({
 selector: "alias",
 fn: function (){
@@ -917,7 +859,6 @@ messageSends: ["name"]}),
 smalltalk.PseudoVar);
 
 smalltalk.addMethod(
-"_isPseudoVar",
 smalltalk.method({
 selector: "isPseudoVar",
 fn: function (){
@@ -932,7 +873,6 @@ smalltalk.PseudoVar);
 
 smalltalk.addClass('TempVar', smalltalk.ScopeVar, [], 'Compiler-Semantic');
 smalltalk.addMethod(
-"_isTempVar",
 smalltalk.method({
 selector: "isTempVar",
 fn: function (){
@@ -947,7 +887,6 @@ smalltalk.TempVar);
 
 smalltalk.addClass('UnknownVar', smalltalk.ScopeVar, [], 'Compiler-Semantic');
 smalltalk.addMethod(
-"_isUnknownVar",
 smalltalk.method({
 selector: "isUnknownVar",
 fn: function (){
@@ -962,7 +901,6 @@ smalltalk.UnknownVar);
 
 smalltalk.addClass('SemanticAnalyzer', smalltalk.NodeVisitor, ['currentScope', 'theClass', 'classReferences', 'messageSends', 'superSends'], 'Compiler-Semantic');
 smalltalk.addMethod(
-"_classReferences",
 smalltalk.method({
 selector: "classReferences",
 fn: function (){
@@ -983,7 +921,6 @@ messageSends: ["ifNil:", "new"]}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_errorShadowingVariable_",
 smalltalk.method({
 selector: "errorShadowingVariable:",
 fn: function (aString){
@@ -999,7 +936,6 @@ messageSends: ["variableName:", "new", "signal"]}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_errorUnknownVariable_",
 smalltalk.method({
 selector: "errorUnknownVariable:",
 fn: function (aNode){
@@ -1026,7 +962,6 @@ messageSends: ["value", "ifTrue:ifFalse:", "variableName:", "new", "signal", "ad
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_isVariableGloballyUndefined_",
 smalltalk.method({
 selector: "isVariableGloballyUndefined:",
 fn: function (aString){
@@ -1038,7 +973,6 @@ messageSends: []}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_messageSends",
 smalltalk.method({
 selector: "messageSends",
 fn: function (){
@@ -1059,7 +993,6 @@ messageSends: ["ifNil:", "new"]}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_newBlockScope",
 smalltalk.method({
 selector: "newBlockScope",
 fn: function (){
@@ -1074,7 +1007,6 @@ messageSends: ["newScopeOfClass:"]}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_newMethodScope",
 smalltalk.method({
 selector: "newMethodScope",
 fn: function (){
@@ -1089,7 +1021,6 @@ messageSends: ["newScopeOfClass:"]}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_newScopeOfClass_",
 smalltalk.method({
 selector: "newScopeOfClass:",
 fn: function (aLexicalScopeClass){
@@ -1106,7 +1037,6 @@ messageSends: ["outerScope:", "new", "yourself"]}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_popScope",
 smalltalk.method({
 selector: "popScope",
 fn: function (){
@@ -1125,7 +1055,6 @@ messageSends: ["ifNotNil:", "outerScope"]}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_pushScope_",
 smalltalk.method({
 selector: "pushScope:",
 fn: function (aScope){
@@ -1138,7 +1067,6 @@ messageSends: ["outerScope:"]}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_superSends",
 smalltalk.method({
 selector: "superSends",
 fn: function (){
@@ -1159,7 +1087,6 @@ messageSends: ["ifNil:", "new"]}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_theClass",
 smalltalk.method({
 selector: "theClass",
 fn: function (){
@@ -1173,7 +1100,6 @@ messageSends: []}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_theClass_",
 smalltalk.method({
 selector: "theClass:",
 fn: function (aClass){
@@ -1185,7 +1111,6 @@ messageSends: []}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_validateVariableScope_",
 smalltalk.method({
 selector: "validateVariableScope:",
 fn: function (aString){
@@ -1203,7 +1128,6 @@ messageSends: ["ifNotNil:", "errorShadowingVariable:", "lookupVariable:"]}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitAssignmentNode_",
 smalltalk.method({
 selector: "visitAssignmentNode:",
 fn: function (aNode){
@@ -1216,7 +1140,6 @@ messageSends: ["visitAssignmentNode:", "beAssigned", "left"]}),
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitBlockNode_",
 smalltalk.method({
 selector: "visitBlockNode:",
 fn: function (aNode){
@@ -1237,7 +1160,6 @@ messageSends: ["pushScope:", "newBlockScope", "scope:", "node:", "do:", "validat
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitCascadeNode_",
 smalltalk.method({
 selector: "visitCascadeNode:",
 fn: function (aNode){
@@ -1261,7 +1183,6 @@ messageSends: ["do:", "receiver:", "receiver", "nodes", "visitCascadeNode:", "if
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitClassReferenceNode_",
 smalltalk.method({
 selector: "visitClassReferenceNode:",
 fn: function (aNode){
@@ -1279,7 +1200,6 @@ messageSends: ["add:", "value", "classReferences", "binding:", "name:", "new", "
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitMethodNode_",
 smalltalk.method({
 selector: "visitMethodNode:",
 fn: function (aNode){
@@ -1309,7 +1229,6 @@ messageSends: ["pushScope:", "newMethodScope", "scope:", "node:", "do:", "addIVa
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitReturnNode_",
 smalltalk.method({
 selector: "visitReturnNode:",
 fn: function (aNode){
@@ -1329,7 +1248,6 @@ messageSends: ["scope:", "ifTrue:ifFalse:", "localReturn:", "addNonLocalReturn:"
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitSendNode_",
 smalltalk.method({
 selector: "visitSendNode:",
 fn: function (aNode){
@@ -1366,7 +1284,6 @@ messageSends: ["ifTrue:ifFalse:", "superSend:", "value:", "receiver", "at:ifAbse
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitSequenceNode_",
 smalltalk.method({
 selector: "visitSequenceNode:",
 fn: function (aNode){
@@ -1383,7 +1300,6 @@ messageSends: ["do:", "validateVariableScope:", "addTemp:", "temps", "visitSeque
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitVariableNode_",
 smalltalk.method({
 selector: "visitVariableNode:",
 fn: function (aNode){
@@ -1409,7 +1325,6 @@ smalltalk.SemanticAnalyzer);
 
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 fn: function (aClass){

js/Compiler-Semantic.js

@@ -2,7 +2,6 @@ smalltalk.addPackage('Compiler-Semantic');
 smalltalk.addClass('LexicalScope', smalltalk.Object, ['node', 'instruction', 'temps', 'args', 'outerScope'], 'Compiler-Semantic');
 smalltalk.LexicalScope.comment="I represent a lexical scope where variable names are associated with ScopeVars\x0aInstances are used for block scopes. Method scopes are instances of MethodLexicalScope.\x0a\x0aI am attached to a ScopeVar and method/block nodes.\x0aEach context (method/closure) get a fresh scope that inherits from its outer scope."
 smalltalk.addMethod(
-"_addArg_",
 smalltalk.method({
 selector: "addArg:",
 category: 'adding',
@@ -21,7 +20,6 @@ referencedClasses: ["ArgVar"]
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_addTemp_",
 smalltalk.method({
 selector: "addTemp:",
 category: 'adding',
@@ -40,7 +38,6 @@ referencedClasses: ["TempVar"]
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_alias",
 smalltalk.method({
 selector: "alias",
 category: 'accessing',
@@ -59,7 +56,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_allVariableNames",
 smalltalk.method({
 selector: "allVariableNames",
 category: 'accessing',
@@ -78,7 +74,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_args",
 smalltalk.method({
 selector: "args",
 category: 'accessing',
@@ -104,7 +99,6 @@ referencedClasses: ["Dictionary"]
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_bindingFor_",
 smalltalk.method({
 selector: "bindingFor:",
 category: 'accessing',
@@ -132,7 +126,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_canInlineNonLocalReturns",
 smalltalk.method({
 selector: "canInlineNonLocalReturns",
 category: 'testing',
@@ -154,7 +147,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_instruction",
 smalltalk.method({
 selector: "instruction",
 category: 'accessing',
@@ -173,7 +165,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_instruction_",
 smalltalk.method({
 selector: "instruction:",
 category: 'accessing',
@@ -190,7 +181,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_isBlockScope",
 smalltalk.method({
 selector: "isBlockScope",
 category: 'testing',
@@ -209,7 +199,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_isInlined",
 smalltalk.method({
 selector: "isInlined",
 category: 'testing',
@@ -231,7 +220,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_isMethodScope",
 smalltalk.method({
 selector: "isMethodScope",
 category: 'testing',
@@ -248,7 +236,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_lookupVariable_",
 smalltalk.method({
 selector: "lookupVariable:",
 category: 'accessing',
@@ -281,7 +268,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_methodScope",
 smalltalk.method({
 selector: "methodScope",
 category: 'accessing',
@@ -305,7 +291,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_node",
 smalltalk.method({
 selector: "node",
 category: 'accessing',
@@ -324,7 +309,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_node_",
 smalltalk.method({
 selector: "node:",
 category: 'accessing',
@@ -341,7 +325,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_outerScope",
 smalltalk.method({
 selector: "outerScope",
 category: 'accessing',
@@ -360,7 +343,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_outerScope_",
 smalltalk.method({
 selector: "outerScope:",
 category: 'accessing',
@@ -377,7 +359,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_pseudoVars",
 smalltalk.method({
 selector: "pseudoVars",
 category: 'accessing',
@@ -396,7 +377,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_scopeLevel",
 smalltalk.method({
 selector: "scopeLevel",
 category: 'accessing',
@@ -427,7 +407,6 @@ referencedClasses: []
 smalltalk.LexicalScope);
 
 smalltalk.addMethod(
-"_temps",
 smalltalk.method({
 selector: "temps",
 category: 'accessing',
@@ -457,7 +436,6 @@ smalltalk.LexicalScope);
 smalltalk.addClass('MethodLexicalScope', smalltalk.LexicalScope, ['iVars', 'pseudoVars', 'unknownVariables', 'localReturn', 'nonLocalReturns'], 'Compiler-Semantic');
 smalltalk.MethodLexicalScope.comment="I represent a method scope."
 smalltalk.addMethod(
-"_addIVar_",
 smalltalk.method({
 selector: "addIVar:",
 category: 'adding',
@@ -476,7 +454,6 @@ referencedClasses: ["InstanceVar"]
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_addNonLocalReturn_",
 smalltalk.method({
 selector: "addNonLocalReturn:",
 category: 'adding',
@@ -493,7 +470,6 @@ referencedClasses: []
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_allVariableNames",
 smalltalk.method({
 selector: "allVariableNames",
 category: 'accessing',
@@ -512,7 +488,6 @@ referencedClasses: []
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_bindingFor_",
 smalltalk.method({
 selector: "bindingFor:",
 category: 'accessing',
@@ -539,7 +514,6 @@ referencedClasses: []
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_canInlineNonLocalReturns",
 smalltalk.method({
 selector: "canInlineNonLocalReturns",
 category: 'testing',
@@ -556,7 +530,6 @@ referencedClasses: []
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_hasLocalReturn",
 smalltalk.method({
 selector: "hasLocalReturn",
 category: 'testing',
@@ -575,7 +548,6 @@ referencedClasses: []
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_hasNonLocalReturn",
 smalltalk.method({
 selector: "hasNonLocalReturn",
 category: 'testing',
@@ -594,7 +566,6 @@ referencedClasses: []
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_iVars",
 smalltalk.method({
 selector: "iVars",
 category: 'accessing',
@@ -620,7 +591,6 @@ referencedClasses: ["Dictionary"]
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_isMethodScope",
 smalltalk.method({
 selector: "isMethodScope",
 category: 'testing',
@@ -637,7 +607,6 @@ referencedClasses: []
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_localReturn",
 smalltalk.method({
 selector: "localReturn",
 category: 'accessing',
@@ -661,7 +630,6 @@ referencedClasses: []
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_localReturn_",
 smalltalk.method({
 selector: "localReturn:",
 category: 'accessing',
@@ -678,7 +646,6 @@ referencedClasses: []
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_methodScope",
 smalltalk.method({
 selector: "methodScope",
 category: 'accessing',
@@ -697,7 +664,6 @@ referencedClasses: []
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_nonLocalReturns",
 smalltalk.method({
 selector: "nonLocalReturns",
 category: 'accessing',
@@ -723,7 +689,6 @@ referencedClasses: ["OrderedCollection"]
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_pseudoVars",
 smalltalk.method({
 selector: "pseudoVars",
 category: 'accessing',
@@ -759,7 +724,6 @@ referencedClasses: ["Dictionary", "PseudoVar", "Smalltalk"]
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_removeNonLocalReturn_",
 smalltalk.method({
 selector: "removeNonLocalReturn:",
 category: 'adding',
@@ -778,7 +742,6 @@ referencedClasses: []
 smalltalk.MethodLexicalScope);
 
 smalltalk.addMethod(
-"_unknownVariables",
 smalltalk.method({
 selector: "unknownVariables",
 category: 'accessing',
@@ -808,7 +771,6 @@ smalltalk.MethodLexicalScope);
 smalltalk.addClass('ScopeVar', smalltalk.Object, ['scope', 'name'], 'Compiler-Semantic');
 smalltalk.ScopeVar.comment="I am an entry in a LexicalScope that gets associated with variable nodes of the same name.\x0aThere are 4 different subclasses of vars: temp vars, local vars, args, and unknown/global vars."
 smalltalk.addMethod(
-"_alias",
 smalltalk.method({
 selector: "alias",
 category: 'accessing',
@@ -827,7 +789,6 @@ referencedClasses: []
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_isArgVar",
 smalltalk.method({
 selector: "isArgVar",
 category: 'testing',
@@ -844,7 +805,6 @@ referencedClasses: []
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_isClassRefVar",
 smalltalk.method({
 selector: "isClassRefVar",
 category: 'testing',
@@ -861,7 +821,6 @@ referencedClasses: []
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_isInstanceVar",
 smalltalk.method({
 selector: "isInstanceVar",
 category: 'testing',
@@ -878,7 +837,6 @@ referencedClasses: []
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_isPseudoVar",
 smalltalk.method({
 selector: "isPseudoVar",
 category: 'testing',
@@ -895,7 +853,6 @@ referencedClasses: []
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_isTempVar",
 smalltalk.method({
 selector: "isTempVar",
 category: 'testing',
@@ -912,7 +869,6 @@ referencedClasses: []
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_isUnknownVar",
 smalltalk.method({
 selector: "isUnknownVar",
 category: 'testing',
@@ -929,7 +885,6 @@ referencedClasses: []
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_name",
 smalltalk.method({
 selector: "name",
 category: 'accessing',
@@ -948,7 +903,6 @@ referencedClasses: []
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_name_",
 smalltalk.method({
 selector: "name:",
 category: 'accessing',
@@ -965,7 +919,6 @@ referencedClasses: []
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_scope",
 smalltalk.method({
 selector: "scope",
 category: 'accessing',
@@ -984,7 +937,6 @@ referencedClasses: []
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_scope_",
 smalltalk.method({
 selector: "scope:",
 category: 'accessing',
@@ -1001,7 +953,6 @@ referencedClasses: []
 smalltalk.ScopeVar);
 
 smalltalk.addMethod(
-"_validateAssignment",
 smalltalk.method({
 selector: "validateAssignment",
 category: 'testing',
@@ -1030,7 +981,6 @@ smalltalk.ScopeVar);
 
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 category: 'instance creation',
@@ -1055,7 +1005,6 @@ smalltalk.ScopeVar.klass);
 smalltalk.addClass('AliasVar', smalltalk.ScopeVar, ['node'], 'Compiler-Semantic');
 smalltalk.AliasVar.comment="I am an internally defined variable by the compiler"
 smalltalk.addMethod(
-"_node",
 smalltalk.method({
 selector: "node",
 category: 'accessing',
@@ -1074,7 +1023,6 @@ referencedClasses: []
 smalltalk.AliasVar);
 
 smalltalk.addMethod(
-"_node_",
 smalltalk.method({
 selector: "node:",
 category: 'accessing',
@@ -1095,7 +1043,6 @@ smalltalk.AliasVar);
 smalltalk.addClass('ArgVar', smalltalk.ScopeVar, [], 'Compiler-Semantic');
 smalltalk.ArgVar.comment="I am an argument of a method or block."
 smalltalk.addMethod(
-"_isArgVar",
 smalltalk.method({
 selector: "isArgVar",
 category: 'testing',
@@ -1116,7 +1063,6 @@ smalltalk.ArgVar);
 smalltalk.addClass('ClassRefVar', smalltalk.ScopeVar, [], 'Compiler-Semantic');
 smalltalk.ClassRefVar.comment="I am an class reference variable"
 smalltalk.addMethod(
-"_alias",
 smalltalk.method({
 selector: "alias",
 category: 'accessing',
@@ -1135,7 +1081,6 @@ referencedClasses: []
 smalltalk.ClassRefVar);
 
 smalltalk.addMethod(
-"_isClassRefVar",
 smalltalk.method({
 selector: "isClassRefVar",
 category: 'testing',
@@ -1156,7 +1101,6 @@ smalltalk.ClassRefVar);
 smalltalk.addClass('InstanceVar', smalltalk.ScopeVar, [], 'Compiler-Semantic');
 smalltalk.InstanceVar.comment="I am an instance variable of a method or block."
 smalltalk.addMethod(
-"_alias",
 smalltalk.method({
 selector: "alias",
 category: 'testing',
@@ -1175,7 +1119,6 @@ referencedClasses: []
 smalltalk.InstanceVar);
 
 smalltalk.addMethod(
-"_isInstanceVar",
 smalltalk.method({
 selector: "isInstanceVar",
 category: 'testing',
@@ -1196,7 +1139,6 @@ smalltalk.InstanceVar);
 smalltalk.addClass('PseudoVar', smalltalk.ScopeVar, [], 'Compiler-Semantic');
 smalltalk.PseudoVar.comment="I am an pseudo variable.\x0a\x0aThe five Smalltalk pseudo variables are: 'self', 'super', 'nil', 'true' and 'false'"
 smalltalk.addMethod(
-"_alias",
 smalltalk.method({
 selector: "alias",
 category: 'accessing',
@@ -1215,7 +1157,6 @@ referencedClasses: []
 smalltalk.PseudoVar);
 
 smalltalk.addMethod(
-"_isPseudoVar",
 smalltalk.method({
 selector: "isPseudoVar",
 category: 'testing',
@@ -1236,7 +1177,6 @@ smalltalk.PseudoVar);
 smalltalk.addClass('TempVar', smalltalk.ScopeVar, [], 'Compiler-Semantic');
 smalltalk.TempVar.comment="I am an temporary variable of a method or block."
 smalltalk.addMethod(
-"_isTempVar",
 smalltalk.method({
 selector: "isTempVar",
 category: 'testing',
@@ -1257,7 +1197,6 @@ smalltalk.TempVar);
 smalltalk.addClass('UnknownVar', smalltalk.ScopeVar, [], 'Compiler-Semantic');
 smalltalk.UnknownVar.comment="I am an unknown variable. Amber uses unknown variables as JavaScript globals"
 smalltalk.addMethod(
-"_isUnknownVar",
 smalltalk.method({
 selector: "isUnknownVar",
 category: 'testing',
@@ -1278,7 +1217,6 @@ smalltalk.UnknownVar);
 smalltalk.addClass('SemanticAnalyzer', smalltalk.NodeVisitor, ['currentScope', 'theClass', 'classReferences', 'messageSends', 'superSends'], 'Compiler-Semantic');
 smalltalk.SemanticAnalyzer.comment="I semantically analyze the abstract syntax tree and annotate it with informations such as non local returns and variable scopes."
 smalltalk.addMethod(
-"_classReferences",
 smalltalk.method({
 selector: "classReferences",
 category: 'accessing',
@@ -1304,7 +1242,6 @@ referencedClasses: ["Set"]
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_errorShadowingVariable_",
 smalltalk.method({
 selector: "errorShadowingVariable:",
 category: 'error handling',
@@ -1325,7 +1262,6 @@ referencedClasses: ["ShadowingVariableError"]
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_errorUnknownVariable_",
 smalltalk.method({
 selector: "errorUnknownVariable:",
 category: 'error handling',
@@ -1357,7 +1293,6 @@ referencedClasses: ["UnknownVariableError"]
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_isVariableGloballyUndefined_",
 smalltalk.method({
 selector: "isVariableGloballyUndefined:",
 category: 'testing',
@@ -1374,7 +1309,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_messageSends",
 smalltalk.method({
 selector: "messageSends",
 category: 'accessing',
@@ -1400,7 +1334,6 @@ referencedClasses: ["Dictionary"]
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_newBlockScope",
 smalltalk.method({
 selector: "newBlockScope",
 category: 'factory',
@@ -1420,7 +1353,6 @@ referencedClasses: ["LexicalScope"]
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_newMethodScope",
 smalltalk.method({
 selector: "newMethodScope",
 category: 'factory',
@@ -1440,7 +1372,6 @@ referencedClasses: ["MethodLexicalScope"]
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_newScopeOfClass_",
 smalltalk.method({
 selector: "newScopeOfClass:",
 category: 'factory',
@@ -1462,7 +1393,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_popScope",
 smalltalk.method({
 selector: "popScope",
 category: 'scope',
@@ -1486,7 +1416,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_pushScope_",
 smalltalk.method({
 selector: "pushScope:",
 category: 'scope',
@@ -1504,7 +1433,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_superSends",
 smalltalk.method({
 selector: "superSends",
 category: 'accessing',
@@ -1530,7 +1458,6 @@ referencedClasses: ["Dictionary"]
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_theClass",
 smalltalk.method({
 selector: "theClass",
 category: 'accessing',
@@ -1549,7 +1476,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_theClass_",
 smalltalk.method({
 selector: "theClass:",
 category: 'accessing',
@@ -1566,7 +1492,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_validateVariableScope_",
 smalltalk.method({
 selector: "validateVariableScope:",
 category: 'scope',
@@ -1589,7 +1514,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitAssignmentNode_",
 smalltalk.method({
 selector: "visitAssignmentNode:",
 category: 'visiting',
@@ -1607,7 +1531,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitBlockNode_",
 smalltalk.method({
 selector: "visitBlockNode:",
 category: 'visiting',
@@ -1633,7 +1556,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitCascadeNode_",
 smalltalk.method({
 selector: "visitCascadeNode:",
 category: 'visiting',
@@ -1662,7 +1584,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitClassReferenceNode_",
 smalltalk.method({
 selector: "visitClassReferenceNode:",
 category: 'visiting',
@@ -1685,7 +1606,6 @@ referencedClasses: ["ClassRefVar"]
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitMethodNode_",
 smalltalk.method({
 selector: "visitMethodNode:",
 category: 'visiting',
@@ -1720,7 +1640,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitReturnNode_",
 smalltalk.method({
 selector: "visitReturnNode:",
 category: 'visiting',
@@ -1745,7 +1664,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitSendNode_",
 smalltalk.method({
 selector: "visitSendNode:",
 category: 'visiting',
@@ -1787,7 +1705,6 @@ referencedClasses: ["Set", "IRSendInliner"]
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitSequenceNode_",
 smalltalk.method({
 selector: "visitSequenceNode:",
 category: 'visiting',
@@ -1809,7 +1726,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzer);
 
 smalltalk.addMethod(
-"_visitVariableNode_",
 smalltalk.method({
 selector: "visitVariableNode:",
 category: 'visiting',
@@ -1840,7 +1756,6 @@ smalltalk.SemanticAnalyzer);
 
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 category: 'instance creation',

js/Compiler-Tests.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Compiler-Tests');
 smalltalk.addClass('AbstractASTInterpreterTest', smalltalk.TestCase, [], 'Compiler-Tests');
 smalltalk.addMethod(
-"_analyze_forClass_",
 smalltalk.method({
 selector: "analyze:forClass:",
 fn: function (aNode,aClass){
@@ -17,7 +16,6 @@ messageSends: ["visit:", "on:"]}),
 smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addMethod(
-"_interpret_",
 smalltalk.method({
 selector: "interpret:",
 fn: function (aString){
@@ -32,7 +30,6 @@ messageSends: ["interpret:withArguments:", "new"]}),
 smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addMethod(
-"_interpret_receiver_withArguments_",
 smalltalk.method({
 selector: "interpret:receiver:withArguments:",
 fn: function (aString,anObject,aDictionary){
@@ -58,7 +55,6 @@ messageSends: ["new", "receiver:", "keysAndValuesDo:", "localAt:put:", "context:
 smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addMethod(
-"_interpret_withArguments_",
 smalltalk.method({
 selector: "interpret:withArguments:",
 fn: function (aString,aDictionary){
@@ -73,7 +69,6 @@ messageSends: ["interpret:receiver:withArguments:", "new"]}),
 smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addMethod(
-"_interpreter",
 smalltalk.method({
 selector: "interpreter",
 fn: function (){
@@ -87,7 +82,6 @@ messageSends: ["subclassResponsibility"]}),
 smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addMethod(
-"_parse_",
 smalltalk.method({
 selector: "parse:",
 fn: function (aString){
@@ -102,7 +96,6 @@ messageSends: ["parse:", "current"]}),
 smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addMethod(
-"_parse_forClass_",
 smalltalk.method({
 selector: "parse:forClass:",
 fn: function (aString,aClass){
@@ -119,7 +112,6 @@ smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addClass('ASTInterpreterTest', smalltalk.AbstractASTInterpreterTest, [], 'Compiler-Tests');
 smalltalk.addMethod(
-"_interpreter",
 smalltalk.method({
 selector: "interpreter",
 fn: function (){
@@ -134,7 +126,6 @@ messageSends: ["new"]}),
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testBinarySend",
 smalltalk.method({
 selector: "testBinarySend",
 fn: function (){
@@ -146,7 +137,6 @@ messageSends: ["assert:equals:", "interpret:"]}),
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testBlockLiteral",
 smalltalk.method({
 selector: "testBlockLiteral",
 fn: function (){
@@ -160,7 +150,6 @@ messageSends: ["assert:equals:", "interpret:"]}),
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testCascade",
 smalltalk.method({
 selector: "testCascade",
 fn: function (){
@@ -173,7 +162,6 @@ messageSends: ["assert:equals:", "interpret:", "with:with:"]}),
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testDynamicArray",
 smalltalk.method({
 selector: "testDynamicArray",
 fn: function (){
@@ -185,7 +173,6 @@ messageSends: ["assert:equals:", "interpret:"]}),
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testDynamicDictionary",
 smalltalk.method({
 selector: "testDynamicDictionary",
 fn: function (){
@@ -197,7 +184,6 @@ messageSends: ["assert:equals:", "interpret:", "->"]}),
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testInlinedJSStatement",
 smalltalk.method({
 selector: "testInlinedJSStatement",
 fn: function (){
@@ -210,7 +196,6 @@ messageSends: ["assert:equals:", "interpret:", "interpret:withArguments:", "->"]
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testInstVarAccess",
 smalltalk.method({
 selector: "testInstVarAccess",
 fn: function (){
@@ -222,7 +207,6 @@ messageSends: ["assert:equals:", "interpret:receiver:withArguments:", "@"]}),
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testInstVarAssignment",
 smalltalk.method({
 selector: "testInstVarAssignment",
 fn: function (){
@@ -235,7 +219,6 @@ messageSends: ["assert:equals:", "interpret:receiver:withArguments:", "new", "->
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testNonlocalReturn",
 smalltalk.method({
 selector: "testNonlocalReturn",
 fn: function (){
@@ -247,7 +230,6 @@ messageSends: ["assert:equals:", "interpret:"]}),
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testReceiver",
 smalltalk.method({
 selector: "testReceiver",
 fn: function (){
@@ -259,7 +241,6 @@ messageSends: ["assert:equals:", "interpret:receiver:withArguments:", "@"]}),
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testTempAssignment",
 smalltalk.method({
 selector: "testTempAssignment",
 fn: function (){
@@ -271,7 +252,6 @@ messageSends: ["assert:equals:", "interpret:"]}),
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testThisContext",
 smalltalk.method({
 selector: "testThisContext",
 fn: function (){
@@ -288,7 +268,6 @@ smalltalk.ASTInterpreterTest);
 
 smalltalk.addClass('ASTSteppingInterpreterTest', smalltalk.AbstractASTInterpreterTest, ['interpreter'], 'Compiler-Tests');
 smalltalk.addMethod(
-"_interpreter",
 smalltalk.method({
 selector: "interpreter",
 fn: function (){
@@ -309,7 +288,6 @@ messageSends: ["ifNil:", "new"]}),
 smalltalk.ASTSteppingInterpreterTest);
 
 smalltalk.addMethod(
-"_testAtEnd",
 smalltalk.method({
 selector: "testAtEnd",
 fn: function (){
@@ -330,7 +308,6 @@ messageSends: ["interpret:", "deny:", "atEnd", "interpreter", "step", "assert:"]
 smalltalk.ASTSteppingInterpreterTest);
 
 smalltalk.addMethod(
-"_testMessageSend",
 smalltalk.method({
 selector: "testMessageSend",
 fn: function (){
@@ -350,7 +327,6 @@ messageSends: ["interpret:", "step", "interpreter", "assert:equals:", "value", "
 smalltalk.ASTSteppingInterpreterTest);
 
 smalltalk.addMethod(
-"_testSimpleStepping",
 smalltalk.method({
 selector: "testSimpleStepping",
 fn: function (){
@@ -369,7 +345,6 @@ smalltalk.ASTSteppingInterpreterTest);
 
 smalltalk.addClass('CodeGeneratorTest', smalltalk.TestCase, ['receiver'], 'Compiler-Tests');
 smalltalk.addMethod(
-"_codeGeneratorClass",
 smalltalk.method({
 selector: "codeGeneratorClass",
 fn: function (){
@@ -384,7 +359,6 @@ messageSends: []}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_compiler",
 smalltalk.method({
 selector: "compiler",
 fn: function (){
@@ -402,7 +376,6 @@ messageSends: ["codeGeneratorClass:", "codeGeneratorClass", "new", "yourself"]})
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_setUp",
 smalltalk.method({
 selector: "setUp",
 fn: function (){
@@ -414,7 +387,6 @@ messageSends: ["new", "targetClass"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_should_return_",
 smalltalk.method({
 selector: "should:return:",
 fn: function (aString,anObject){
@@ -430,7 +402,6 @@ messageSends: ["install:forClass:category:", "targetClass", "compiler", "perform
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_targetClass",
 smalltalk.method({
 selector: "targetClass",
 fn: function (){
@@ -445,7 +416,6 @@ messageSends: []}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_tearDown",
 smalltalk.method({
 selector: "tearDown",
 fn: function (){
@@ -456,7 +426,6 @@ messageSends: []}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testAssignment",
 smalltalk.method({
 selector: "testAssignment",
 fn: function (){
@@ -470,7 +439,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testBackslashSelectors",
 smalltalk.method({
 selector: "testBackslashSelectors",
 fn: function (){
@@ -483,7 +451,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testBlockReturn",
 smalltalk.method({
 selector: "testBlockReturn",
 fn: function (){
@@ -497,7 +464,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testCascades",
 smalltalk.method({
 selector: "testCascades",
 fn: function (){
@@ -509,7 +475,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testDynamicArrayElementsOrdered",
 smalltalk.method({
 selector: "testDynamicArrayElementsOrdered",
 fn: function (){
@@ -521,7 +486,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testDynamicDictionaryElementsOrdered",
 smalltalk.method({
 selector: "testDynamicDictionaryElementsOrdered",
 fn: function (){
@@ -533,7 +497,6 @@ messageSends: ["should:return:", "->"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testInnerTemporalDependentElementsOrdered",
 smalltalk.method({
 selector: "testInnerTemporalDependentElementsOrdered",
 fn: function (){
@@ -549,7 +512,6 @@ messageSends: ["should:return:", "->"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testLiterals",
 smalltalk.method({
 selector: "testLiterals",
 fn: function (){
@@ -569,7 +531,6 @@ messageSends: ["should:return:", "->"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testLocalReturn",
 smalltalk.method({
 selector: "testLocalReturn",
 fn: function (){
@@ -585,7 +546,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testMessageSends",
 smalltalk.method({
 selector: "testMessageSends",
 fn: function (){
@@ -601,7 +561,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testMutableLiterals",
 smalltalk.method({
 selector: "testMutableLiterals",
 fn: function (){
@@ -613,7 +572,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testNestedIfTrue",
 smalltalk.method({
 selector: "testNestedIfTrue",
 fn: function (){
@@ -628,7 +586,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testNonLocalReturn",
 smalltalk.method({
 selector: "testNonLocalReturn",
 fn: function (){
@@ -643,7 +600,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testPascalCaseGlobal",
 smalltalk.method({
 selector: "testPascalCaseGlobal",
 fn: function (){
@@ -656,7 +612,6 @@ messageSends: ["should:return:", "at:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testSendReceiverAndArgumentsOrdered",
 smalltalk.method({
 selector: "testSendReceiverAndArgumentsOrdered",
 fn: function (){
@@ -670,7 +625,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifFalse",
 smalltalk.method({
 selector: "testifFalse",
 fn: function (){
@@ -685,7 +639,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifFalseIfTrue",
 smalltalk.method({
 selector: "testifFalseIfTrue",
 fn: function (){
@@ -700,7 +653,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifNil",
 smalltalk.method({
 selector: "testifNil",
 fn: function (){
@@ -715,7 +667,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifNilIfNotNil",
 smalltalk.method({
 selector: "testifNilIfNotNil",
 fn: function (){
@@ -730,7 +681,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifNotNil",
 smalltalk.method({
 selector: "testifNotNil",
 fn: function (){
@@ -745,7 +695,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifNotNilWithArgument",
 smalltalk.method({
 selector: "testifNotNilWithArgument",
 fn: function (){
@@ -762,7 +711,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifTrue",
 smalltalk.method({
 selector: "testifTrue",
 fn: function (){
@@ -777,7 +725,6 @@ messageSends: ["should:return:"]}),
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifTrueIfFalse",
 smalltalk.method({
 selector: "testifTrueIfFalse",
 fn: function (){
@@ -795,7 +742,6 @@ smalltalk.CodeGeneratorTest);
 
 smalltalk.addClass('InliningCodeGeneratorTest', smalltalk.CodeGeneratorTest, [], 'Compiler-Tests');
 smalltalk.addMethod(
-"_codeGeneratorClass",
 smalltalk.method({
 selector: "codeGeneratorClass",
 fn: function (){
@@ -813,7 +759,6 @@ smalltalk.InliningCodeGeneratorTest);
 
 smalltalk.addClass('ScopeVarTest', smalltalk.TestCase, [], 'Compiler-Tests');
 smalltalk.addMethod(
-"_testClassRefVar",
 smalltalk.method({
 selector: "testClassRefVar",
 fn: function (){
@@ -834,7 +779,6 @@ messageSends: ["value:", "new", "yourself", "visit:", "assert:", "isClassRefVar"
 smalltalk.ScopeVarTest);
 
 smalltalk.addMethod(
-"_testInstanceVar",
 smalltalk.method({
 selector: "testInstanceVar",
 fn: function (){
@@ -856,7 +800,6 @@ messageSends: ["value:", "new", "yourself", "addIVar:", "assert:", "isInstanceVa
 smalltalk.ScopeVarTest);
 
 smalltalk.addMethod(
-"_testPseudoVar",
 smalltalk.method({
 selector: "testPseudoVar",
 fn: function (){
@@ -881,7 +824,6 @@ messageSends: ["do:", "value:", "new", "yourself", "assert:", "isPseudoVar", "bi
 smalltalk.ScopeVarTest);
 
 smalltalk.addMethod(
-"_testTempVar",
 smalltalk.method({
 selector: "testTempVar",
 fn: function (){
@@ -903,7 +845,6 @@ messageSends: ["value:", "new", "yourself", "addTemp:", "assert:", "isTempVar",
 smalltalk.ScopeVarTest);
 
 smalltalk.addMethod(
-"_testUnknownVar",
 smalltalk.method({
 selector: "testUnknownVar",
 fn: function (){
@@ -926,7 +867,6 @@ smalltalk.ScopeVarTest);
 
 smalltalk.addClass('SemanticAnalyzerTest', smalltalk.TestCase, ['analyzer'], 'Compiler-Tests');
 smalltalk.addMethod(
-"_setUp",
 smalltalk.method({
 selector: "setUp",
 fn: function (){
@@ -940,7 +880,6 @@ messageSends: ["on:"]}),
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testAssignment",
 smalltalk.method({
 selector: "testAssignment",
 fn: function (){
@@ -959,7 +898,6 @@ messageSends: ["parse:", "should:raise:", "visit:"]}),
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testNonLocalReturn",
 smalltalk.method({
 selector: "testNonLocalReturn",
 fn: function (){
@@ -975,7 +913,6 @@ messageSends: ["parse:", "visit:", "deny:", "hasNonLocalReturn", "scope"]}),
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testNonLocalReturn2",
 smalltalk.method({
 selector: "testNonLocalReturn2",
 fn: function (){
@@ -991,7 +928,6 @@ messageSends: ["parse:", "visit:", "assert:", "hasNonLocalReturn", "scope"]}),
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testScope",
 smalltalk.method({
 selector: "testScope",
 fn: function (){
@@ -1007,7 +943,6 @@ messageSends: ["parse:", "visit:", "deny:", "==", "scope", "last", "nodes", "fir
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testScope2",
 smalltalk.method({
 selector: "testScope2",
 fn: function (){
@@ -1023,7 +958,6 @@ messageSends: ["parse:", "visit:", "deny:", "==", "scope", "first", "nodes", "la
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testScopeLevel",
 smalltalk.method({
 selector: "testScopeLevel",
 fn: function (){
@@ -1040,7 +974,6 @@ messageSends: ["parse:", "visit:", "assert:equals:", "scopeLevel", "scope", "fir
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testUnknownVariables",
 smalltalk.method({
 selector: "testUnknownVariables",
 fn: function (){
@@ -1059,7 +992,6 @@ messageSends: ["parse:", "should:raise:", "visit:"]}),
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testUnknownVariablesWithScope",
 smalltalk.method({
 selector: "testUnknownVariablesWithScope",
 fn: function (){
@@ -1078,7 +1010,6 @@ messageSends: ["parse:", "should:raise:", "visit:"]}),
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testVariableShadowing",
 smalltalk.method({
 selector: "testVariableShadowing",
 fn: function (){
@@ -1093,7 +1024,6 @@ messageSends: ["parse:", "visit:"]}),
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testVariableShadowing2",
 smalltalk.method({
 selector: "testVariableShadowing2",
 fn: function (){
@@ -1112,7 +1042,6 @@ messageSends: ["parse:", "should:raise:", "visit:"]}),
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testVariableShadowing3",
 smalltalk.method({
 selector: "testVariableShadowing3",
 fn: function (){
@@ -1127,7 +1056,6 @@ messageSends: ["parse:", "visit:"]}),
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testVariableShadowing4",
 smalltalk.method({
 selector: "testVariableShadowing4",
 fn: function (){
@@ -1142,7 +1070,6 @@ messageSends: ["parse:", "visit:"]}),
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testVariableShadowing5",
 smalltalk.method({
 selector: "testVariableShadowing5",
 fn: function (){
@@ -1161,7 +1088,6 @@ messageSends: ["parse:", "should:raise:", "visit:"]}),
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testVariablesLookup",
 smalltalk.method({
 selector: "testVariablesLookup",
 fn: function (){

js/Compiler-Tests.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Compiler-Tests');
 smalltalk.addClass('AbstractASTInterpreterTest', smalltalk.TestCase, [], 'Compiler-Tests');
 smalltalk.addMethod(
-"_analyze_forClass_",
 smalltalk.method({
 selector: "analyze:forClass:",
 category: 'interpreting',
@@ -22,7 +21,6 @@ referencedClasses: ["SemanticAnalyzer"]
 smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addMethod(
-"_interpret_",
 smalltalk.method({
 selector: "interpret:",
 category: 'interpreting',
@@ -42,7 +40,6 @@ referencedClasses: ["Dictionary"]
 smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addMethod(
-"_interpret_receiver_withArguments_",
 smalltalk.method({
 selector: "interpret:receiver:withArguments:",
 category: 'interpreting',
@@ -73,7 +70,6 @@ referencedClasses: ["AIContext"]
 smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addMethod(
-"_interpret_withArguments_",
 smalltalk.method({
 selector: "interpret:withArguments:",
 category: 'interpreting',
@@ -93,7 +89,6 @@ referencedClasses: ["Object"]
 smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addMethod(
-"_interpreter",
 smalltalk.method({
 selector: "interpreter",
 category: 'accessing',
@@ -112,7 +107,6 @@ referencedClasses: []
 smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addMethod(
-"_parse_",
 smalltalk.method({
 selector: "parse:",
 category: 'parsing',
@@ -132,7 +126,6 @@ referencedClasses: ["Smalltalk"]
 smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addMethod(
-"_parse_forClass_",
 smalltalk.method({
 selector: "parse:forClass:",
 category: 'parsing',
@@ -154,7 +147,6 @@ smalltalk.AbstractASTInterpreterTest);
 
 smalltalk.addClass('ASTInterpreterTest', smalltalk.AbstractASTInterpreterTest, [], 'Compiler-Tests');
 smalltalk.addMethod(
-"_interpreter",
 smalltalk.method({
 selector: "interpreter",
 category: 'accessing',
@@ -174,7 +166,6 @@ referencedClasses: ["ASTInterpreter"]
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testBinarySend",
 smalltalk.method({
 selector: "testBinarySend",
 category: 'tests',
@@ -191,7 +182,6 @@ referencedClasses: []
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testBlockLiteral",
 smalltalk.method({
 selector: "testBlockLiteral",
 category: 'tests',
@@ -210,7 +200,6 @@ referencedClasses: []
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testCascade",
 smalltalk.method({
 selector: "testCascade",
 category: 'tests',
@@ -228,7 +217,6 @@ referencedClasses: ["OrderedCollection"]
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testDynamicArray",
 smalltalk.method({
 selector: "testDynamicArray",
 category: 'tests',
@@ -245,7 +233,6 @@ referencedClasses: []
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testDynamicDictionary",
 smalltalk.method({
 selector: "testDynamicDictionary",
 category: 'tests',
@@ -262,7 +249,6 @@ referencedClasses: []
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testInlinedJSStatement",
 smalltalk.method({
 selector: "testInlinedJSStatement",
 category: 'tests',
@@ -280,7 +266,6 @@ referencedClasses: []
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testInstVarAccess",
 smalltalk.method({
 selector: "testInstVarAccess",
 category: 'tests',
@@ -297,7 +282,6 @@ referencedClasses: []
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testInstVarAssignment",
 smalltalk.method({
 selector: "testInstVarAssignment",
 category: 'tests',
@@ -315,7 +299,6 @@ referencedClasses: ["Point"]
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testNonlocalReturn",
 smalltalk.method({
 selector: "testNonlocalReturn",
 category: 'tests',
@@ -332,7 +315,6 @@ referencedClasses: []
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testReceiver",
 smalltalk.method({
 selector: "testReceiver",
 category: 'tests',
@@ -349,7 +331,6 @@ referencedClasses: []
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testTempAssignment",
 smalltalk.method({
 selector: "testTempAssignment",
 category: 'tests',
@@ -366,7 +347,6 @@ referencedClasses: []
 smalltalk.ASTInterpreterTest);
 
 smalltalk.addMethod(
-"_testThisContext",
 smalltalk.method({
 selector: "testThisContext",
 category: 'tests',
@@ -388,7 +368,6 @@ smalltalk.ASTInterpreterTest);
 
 smalltalk.addClass('ASTSteppingInterpreterTest', smalltalk.AbstractASTInterpreterTest, ['interpreter'], 'Compiler-Tests');
 smalltalk.addMethod(
-"_interpreter",
 smalltalk.method({
 selector: "interpreter",
 category: 'accessing',
@@ -414,7 +393,6 @@ referencedClasses: ["ASTSteppingInterpreter"]
 smalltalk.ASTSteppingInterpreterTest);
 
 smalltalk.addMethod(
-"_testAtEnd",
 smalltalk.method({
 selector: "testAtEnd",
 category: 'tests',
@@ -440,7 +418,6 @@ referencedClasses: []
 smalltalk.ASTSteppingInterpreterTest);
 
 smalltalk.addMethod(
-"_testMessageSend",
 smalltalk.method({
 selector: "testMessageSend",
 category: 'tests',
@@ -465,7 +442,6 @@ referencedClasses: []
 smalltalk.ASTSteppingInterpreterTest);
 
 smalltalk.addMethod(
-"_testSimpleStepping",
 smalltalk.method({
 selector: "testSimpleStepping",
 category: 'tests',
@@ -489,7 +465,6 @@ smalltalk.ASTSteppingInterpreterTest);
 
 smalltalk.addClass('CodeGeneratorTest', smalltalk.TestCase, ['receiver'], 'Compiler-Tests');
 smalltalk.addMethod(
-"_codeGeneratorClass",
 smalltalk.method({
 selector: "codeGeneratorClass",
 category: 'accessing',
@@ -509,7 +484,6 @@ referencedClasses: ["CodeGenerator"]
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_compiler",
 smalltalk.method({
 selector: "compiler",
 category: 'factory',
@@ -532,7 +506,6 @@ referencedClasses: ["Compiler"]
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_setUp",
 smalltalk.method({
 selector: "setUp",
 category: 'initialization',
@@ -549,7 +522,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_should_return_",
 smalltalk.method({
 selector: "should:return:",
 category: 'testing',
@@ -570,7 +542,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_targetClass",
 smalltalk.method({
 selector: "targetClass",
 category: 'accessing',
@@ -590,7 +561,6 @@ referencedClasses: ["DoIt"]
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_tearDown",
 smalltalk.method({
 selector: "tearDown",
 category: 'initialization',
@@ -606,7 +576,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testAssignment",
 smalltalk.method({
 selector: "testAssignment",
 category: 'tests',
@@ -625,7 +594,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testBackslashSelectors",
 smalltalk.method({
 selector: "testBackslashSelectors",
 category: 'tests',
@@ -643,7 +611,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testBlockReturn",
 smalltalk.method({
 selector: "testBlockReturn",
 category: 'tests',
@@ -662,7 +629,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testCascades",
 smalltalk.method({
 selector: "testCascades",
 category: 'tests',
@@ -679,7 +645,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testDynamicArrayElementsOrdered",
 smalltalk.method({
 selector: "testDynamicArrayElementsOrdered",
 category: 'tests',
@@ -696,7 +661,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testDynamicDictionaryElementsOrdered",
 smalltalk.method({
 selector: "testDynamicDictionaryElementsOrdered",
 category: 'tests',
@@ -713,7 +677,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testInnerTemporalDependentElementsOrdered",
 smalltalk.method({
 selector: "testInnerTemporalDependentElementsOrdered",
 category: 'tests',
@@ -734,7 +697,6 @@ referencedClasses: ["Array"]
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testLiterals",
 smalltalk.method({
 selector: "testLiterals",
 category: 'tests',
@@ -759,7 +721,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testLocalReturn",
 smalltalk.method({
 selector: "testLocalReturn",
 category: 'tests',
@@ -780,7 +741,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testMessageSends",
 smalltalk.method({
 selector: "testMessageSends",
 category: 'tests',
@@ -801,7 +761,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testMutableLiterals",
 smalltalk.method({
 selector: "testMutableLiterals",
 category: 'tests',
@@ -818,7 +777,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testNestedIfTrue",
 smalltalk.method({
 selector: "testNestedIfTrue",
 category: 'tests',
@@ -838,7 +796,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testNonLocalReturn",
 smalltalk.method({
 selector: "testNonLocalReturn",
 category: 'tests',
@@ -858,7 +815,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testPascalCaseGlobal",
 smalltalk.method({
 selector: "testPascalCaseGlobal",
 category: 'tests',
@@ -876,7 +832,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testSendReceiverAndArgumentsOrdered",
 smalltalk.method({
 selector: "testSendReceiverAndArgumentsOrdered",
 category: 'tests',
@@ -895,7 +850,6 @@ referencedClasses: ["Array"]
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifFalse",
 smalltalk.method({
 selector: "testifFalse",
 category: 'tests',
@@ -915,7 +869,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifFalseIfTrue",
 smalltalk.method({
 selector: "testifFalseIfTrue",
 category: 'tests',
@@ -935,7 +888,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifNil",
 smalltalk.method({
 selector: "testifNil",
 category: 'tests',
@@ -955,7 +907,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifNilIfNotNil",
 smalltalk.method({
 selector: "testifNilIfNotNil",
 category: 'tests',
@@ -975,7 +926,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifNotNil",
 smalltalk.method({
 selector: "testifNotNil",
 category: 'tests',
@@ -995,7 +945,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifNotNilWithArgument",
 smalltalk.method({
 selector: "testifNotNilWithArgument",
 category: 'tests',
@@ -1017,7 +966,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifTrue",
 smalltalk.method({
 selector: "testifTrue",
 category: 'tests',
@@ -1037,7 +985,6 @@ referencedClasses: []
 smalltalk.CodeGeneratorTest);
 
 smalltalk.addMethod(
-"_testifTrueIfFalse",
 smalltalk.method({
 selector: "testifTrueIfFalse",
 category: 'tests',
@@ -1060,7 +1007,6 @@ smalltalk.CodeGeneratorTest);
 
 smalltalk.addClass('InliningCodeGeneratorTest', smalltalk.CodeGeneratorTest, [], 'Compiler-Tests');
 smalltalk.addMethod(
-"_codeGeneratorClass",
 smalltalk.method({
 selector: "codeGeneratorClass",
 category: 'accessing',
@@ -1083,7 +1029,6 @@ smalltalk.InliningCodeGeneratorTest);
 
 smalltalk.addClass('ScopeVarTest', smalltalk.TestCase, [], 'Compiler-Tests');
 smalltalk.addMethod(
-"_testClassRefVar",
 smalltalk.method({
 selector: "testClassRefVar",
 category: 'tests',
@@ -1109,7 +1054,6 @@ referencedClasses: ["ClassReferenceNode", "SemanticAnalyzer"]
 smalltalk.ScopeVarTest);
 
 smalltalk.addMethod(
-"_testInstanceVar",
 smalltalk.method({
 selector: "testInstanceVar",
 category: 'tests',
@@ -1136,7 +1080,6 @@ referencedClasses: ["VariableNode", "MethodLexicalScope"]
 smalltalk.ScopeVarTest);
 
 smalltalk.addMethod(
-"_testPseudoVar",
 smalltalk.method({
 selector: "testPseudoVar",
 category: 'tests',
@@ -1166,7 +1109,6 @@ referencedClasses: ["VariableNode", "MethodLexicalScope"]
 smalltalk.ScopeVarTest);
 
 smalltalk.addMethod(
-"_testTempVar",
 smalltalk.method({
 selector: "testTempVar",
 category: 'tests',
@@ -1193,7 +1135,6 @@ referencedClasses: ["VariableNode", "MethodLexicalScope"]
 smalltalk.ScopeVarTest);
 
 smalltalk.addMethod(
-"_testUnknownVar",
 smalltalk.method({
 selector: "testUnknownVar",
 category: 'tests',
@@ -1221,7 +1162,6 @@ smalltalk.ScopeVarTest);
 
 smalltalk.addClass('SemanticAnalyzerTest', smalltalk.TestCase, ['analyzer'], 'Compiler-Tests');
 smalltalk.addMethod(
-"_setUp",
 smalltalk.method({
 selector: "setUp",
 category: 'running',
@@ -1240,7 +1180,6 @@ referencedClasses: ["Object", "SemanticAnalyzer"]
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testAssignment",
 smalltalk.method({
 selector: "testAssignment",
 category: 'tests',
@@ -1264,7 +1203,6 @@ referencedClasses: ["InvalidAssignmentError"]
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testNonLocalReturn",
 smalltalk.method({
 selector: "testNonLocalReturn",
 category: 'tests',
@@ -1285,7 +1223,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testNonLocalReturn2",
 smalltalk.method({
 selector: "testNonLocalReturn2",
 category: 'tests',
@@ -1306,7 +1243,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testScope",
 smalltalk.method({
 selector: "testScope",
 category: 'tests',
@@ -1327,7 +1263,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testScope2",
 smalltalk.method({
 selector: "testScope2",
 category: 'tests',
@@ -1348,7 +1283,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testScopeLevel",
 smalltalk.method({
 selector: "testScopeLevel",
 category: 'tests',
@@ -1370,7 +1304,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testUnknownVariables",
 smalltalk.method({
 selector: "testUnknownVariables",
 category: 'tests',
@@ -1394,7 +1327,6 @@ referencedClasses: ["UnknownVariableError"]
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testUnknownVariablesWithScope",
 smalltalk.method({
 selector: "testUnknownVariablesWithScope",
 category: 'tests',
@@ -1418,7 +1350,6 @@ referencedClasses: ["UnknownVariableError"]
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testVariableShadowing",
 smalltalk.method({
 selector: "testVariableShadowing",
 category: 'tests',
@@ -1438,7 +1369,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testVariableShadowing2",
 smalltalk.method({
 selector: "testVariableShadowing2",
 category: 'tests',
@@ -1462,7 +1392,6 @@ referencedClasses: ["ShadowingVariableError"]
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testVariableShadowing3",
 smalltalk.method({
 selector: "testVariableShadowing3",
 category: 'tests',
@@ -1482,7 +1411,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testVariableShadowing4",
 smalltalk.method({
 selector: "testVariableShadowing4",
 category: 'tests',
@@ -1502,7 +1430,6 @@ referencedClasses: []
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testVariableShadowing5",
 smalltalk.method({
 selector: "testVariableShadowing5",
 category: 'tests',
@@ -1526,7 +1453,6 @@ referencedClasses: ["ShadowingVariableError"]
 smalltalk.SemanticAnalyzerTest);
 
 smalltalk.addMethod(
-"_testVariablesLookup",
 smalltalk.method({
 selector: "testVariablesLookup",
 category: 'tests',

js/Examples.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Examples');
 smalltalk.addClass('Counter', smalltalk.Widget, ['count', 'header'], 'Examples');
 smalltalk.addMethod(
-"_decrease",
 smalltalk.method({
 selector: "decrease",
 fn: function (){
@@ -17,7 +16,6 @@ messageSends: ["-", "contents:", "with:", "asString"]}),
 smalltalk.Counter);
 
 smalltalk.addMethod(
-"_increase",
 smalltalk.method({
 selector: "increase",
 fn: function (){
@@ -33,7 +31,6 @@ messageSends: ["+", "contents:", "with:", "asString"]}),
 smalltalk.Counter);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 fn: function (){
@@ -46,7 +43,6 @@ messageSends: ["initialize"]}),
 smalltalk.Counter);
 
 smalltalk.addMethod(
-"_renderOn_",
 smalltalk.method({
 selector: "renderOn:",
 fn: function (html){
@@ -75,7 +71,6 @@ smalltalk.Counter);
 
 
 smalltalk.addMethod(
-"_tryExample",
 smalltalk.method({
 selector: "tryExample",
 fn: function (){

js/Examples.js

@@ -2,7 +2,6 @@ smalltalk.addPackage('Examples');
 smalltalk.addClass('Counter', smalltalk.Widget, ['count', 'header'], 'Examples');
 smalltalk.Counter.comment="This is a trivial Widget example mimicking the classic Counter example in Seaside.\x0aIn order to play with it, just select the doit below and press the Do it button in the far right corner.\x0aThen take a look in the HTML document above the IDE.\x0a\x0a\x09\x09Counter new appendToJQuery: 'body' asJQuery"
 smalltalk.addMethod(
-"_decrease",
 smalltalk.method({
 selector: "decrease",
 category: 'actions',
@@ -23,7 +22,6 @@ referencedClasses: []
 smalltalk.Counter);
 
 smalltalk.addMethod(
-"_increase",
 smalltalk.method({
 selector: "increase",
 category: 'actions',
@@ -44,7 +42,6 @@ referencedClasses: []
 smalltalk.Counter);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 category: 'initialization',
@@ -62,7 +59,6 @@ referencedClasses: []
 smalltalk.Counter);
 
 smalltalk.addMethod(
-"_renderOn_",
 smalltalk.method({
 selector: "renderOn:",
 category: 'rendering',
@@ -96,7 +92,6 @@ smalltalk.Counter);
 
 
 smalltalk.addMethod(
-"_tryExample",
 smalltalk.method({
 selector: "tryExample",
 category: 'example',

js/Helios-Announcements.deploy.js

@@ -4,43 +4,43 @@ smalltalk.addClass('HLAnnouncement', smalltalk.Object, [], 'Helios-Announcements
 
 smalltalk.addClass('HLCodeHandled', smalltalk.HLAnnouncement, ['code'], 'Helios-Announcements');
 smalltalk.addMethod(
-"_code",
 smalltalk.method({
 selector: "code",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@code"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"code",{}, smalltalk.HLCodeHandled)})},
+}, function($ctx1) {$ctx1.fill(self,"code",{},smalltalk.HLCodeHandled)})},
 messageSends: []}),
 smalltalk.HLCodeHandled);
 
 smalltalk.addMethod(
-"_code_",
 smalltalk.method({
 selector: "code:",
 fn: function (aModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@code"]=aModel;
-return self}, function($ctx1) {$ctx1.fill(self,"code:",{aModel:aModel}, smalltalk.HLCodeHandled)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@code"]=aModel;
+return self}, function($ctx1) {$ctx1.fill(self,"code:",{aModel:aModel},smalltalk.HLCodeHandled)})},
 messageSends: []}),
 smalltalk.HLCodeHandled);
 
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 fn: function (aCodeModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$1;
 $2=_st(self)._new();
 _st($2)._code_(aCodeModel);
 $3=_st($2)._yourself();
 $1=$3;
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"on:",{aCodeModel:aCodeModel}, smalltalk.HLCodeHandled.klass)})},
+}, function($ctx1) {$ctx1.fill(self,"on:",{aCodeModel:aCodeModel},smalltalk.HLCodeHandled.klass)})},
 messageSends: ["code:", "new", "yourself"]}),
 smalltalk.HLCodeHandled.klass);
 
@@ -62,26 +62,26 @@ smalltalk.addClass('HLDiveRequested', smalltalk.HLAnnouncement, [], 'Helios-Anno
 
 smalltalk.addClass('HLErrorRaised', smalltalk.HLAnnouncement, ['error'], 'Helios-Announcements');
 smalltalk.addMethod(
-"_error",
 smalltalk.method({
 selector: "error",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@error"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"error",{}, smalltalk.HLErrorRaised)})},
+}, function($ctx1) {$ctx1.fill(self,"error",{},smalltalk.HLErrorRaised)})},
 messageSends: []}),
 smalltalk.HLErrorRaised);
 
 smalltalk.addMethod(
-"_error_",
 smalltalk.method({
 selector: "error:",
 fn: function (anError){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@error"]=anError;
-return self}, function($ctx1) {$ctx1.fill(self,"error:",{anError:anError}, smalltalk.HLErrorRaised)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@error"]=anError;
+return self}, function($ctx1) {$ctx1.fill(self,"error:",{anError:anError},smalltalk.HLErrorRaised)})},
 messageSends: []}),
 smalltalk.HLErrorRaised);
 
@@ -92,74 +92,74 @@ smalltalk.addClass('HLCompileErrorRaised', smalltalk.HLErrorRaised, [], 'Helios-
 
 smalltalk.addClass('HLParseErrorRaised', smalltalk.HLErrorRaised, ['line', 'column', 'message'], 'Helios-Announcements');
 smalltalk.addMethod(
-"_column",
 smalltalk.method({
 selector: "column",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@column"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"column",{}, smalltalk.HLParseErrorRaised)})},
+}, function($ctx1) {$ctx1.fill(self,"column",{},smalltalk.HLParseErrorRaised)})},
 messageSends: []}),
 smalltalk.HLParseErrorRaised);
 
 smalltalk.addMethod(
-"_column_",
 smalltalk.method({
 selector: "column:",
 fn: function (anInteger){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@column"]=anInteger;
-return self}, function($ctx1) {$ctx1.fill(self,"column:",{anInteger:anInteger}, smalltalk.HLParseErrorRaised)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@column"]=anInteger;
+return self}, function($ctx1) {$ctx1.fill(self,"column:",{anInteger:anInteger},smalltalk.HLParseErrorRaised)})},
 messageSends: []}),
 smalltalk.HLParseErrorRaised);
 
 smalltalk.addMethod(
-"_line",
 smalltalk.method({
 selector: "line",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@line"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"line",{}, smalltalk.HLParseErrorRaised)})},
+}, function($ctx1) {$ctx1.fill(self,"line",{},smalltalk.HLParseErrorRaised)})},
 messageSends: []}),
 smalltalk.HLParseErrorRaised);
 
 smalltalk.addMethod(
-"_line_",
 smalltalk.method({
 selector: "line:",
 fn: function (anInteger){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@line"]=anInteger;
-return self}, function($ctx1) {$ctx1.fill(self,"line:",{anInteger:anInteger}, smalltalk.HLParseErrorRaised)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@line"]=anInteger;
+return self}, function($ctx1) {$ctx1.fill(self,"line:",{anInteger:anInteger},smalltalk.HLParseErrorRaised)})},
 messageSends: []}),
 smalltalk.HLParseErrorRaised);
 
 smalltalk.addMethod(
-"_message",
 smalltalk.method({
 selector: "message",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@message"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"message",{}, smalltalk.HLParseErrorRaised)})},
+}, function($ctx1) {$ctx1.fill(self,"message",{},smalltalk.HLParseErrorRaised)})},
 messageSends: []}),
 smalltalk.HLParseErrorRaised);
 
 smalltalk.addMethod(
-"_message_",
 smalltalk.method({
 selector: "message:",
 fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@message"]=aString;
-return self}, function($ctx1) {$ctx1.fill(self,"message:",{aString:aString}, smalltalk.HLParseErrorRaised)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@message"]=aString;
+return self}, function($ctx1) {$ctx1.fill(self,"message:",{aString:aString},smalltalk.HLParseErrorRaised)})},
 messageSends: []}),
 smalltalk.HLParseErrorRaised);
 
@@ -188,50 +188,50 @@ smalltalk.addClass('HLSourceCodeFocusRequested', smalltalk.HLFocusRequested, [],
 
 smalltalk.addClass('HLInstVarAdded', smalltalk.HLAnnouncement, ['theClass', 'variableName'], 'Helios-Announcements');
 smalltalk.addMethod(
-"_theClass",
 smalltalk.method({
 selector: "theClass",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@theClass"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"theClass",{}, smalltalk.HLInstVarAdded)})},
+}, function($ctx1) {$ctx1.fill(self,"theClass",{},smalltalk.HLInstVarAdded)})},
 messageSends: []}),
 smalltalk.HLInstVarAdded);
 
 smalltalk.addMethod(
-"_theClass_",
 smalltalk.method({
 selector: "theClass:",
 fn: function (aClass){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@theClass"]=aClass;
-return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass}, smalltalk.HLInstVarAdded)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@theClass"]=aClass;
+return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass},smalltalk.HLInstVarAdded)})},
 messageSends: []}),
 smalltalk.HLInstVarAdded);
 
 smalltalk.addMethod(
-"_variableName",
 smalltalk.method({
 selector: "variableName",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@variableName"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"variableName",{}, smalltalk.HLInstVarAdded)})},
+}, function($ctx1) {$ctx1.fill(self,"variableName",{},smalltalk.HLInstVarAdded)})},
 messageSends: []}),
 smalltalk.HLInstVarAdded);
 
 smalltalk.addMethod(
-"_variableName_",
 smalltalk.method({
 selector: "variableName:",
 fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@variableName"]=aString;
-return self}, function($ctx1) {$ctx1.fill(self,"variableName:",{aString:aString}, smalltalk.HLInstVarAdded)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@variableName"]=aString;
+return self}, function($ctx1) {$ctx1.fill(self,"variableName:",{aString:aString},smalltalk.HLInstVarAdded)})},
 messageSends: []}),
 smalltalk.HLInstVarAdded);
 
@@ -239,43 +239,43 @@ smalltalk.HLInstVarAdded);
 
 smalltalk.addClass('HLItemSelected', smalltalk.HLAnnouncement, ['item'], 'Helios-Announcements');
 smalltalk.addMethod(
-"_item",
 smalltalk.method({
 selector: "item",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@item"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"item",{}, smalltalk.HLItemSelected)})},
+}, function($ctx1) {$ctx1.fill(self,"item",{},smalltalk.HLItemSelected)})},
 messageSends: []}),
 smalltalk.HLItemSelected);
 
 smalltalk.addMethod(
-"_item_",
 smalltalk.method({
 selector: "item:",
 fn: function (anObject){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@item"]=anObject;
-return self}, function($ctx1) {$ctx1.fill(self,"item:",{anObject:anObject}, smalltalk.HLItemSelected)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@item"]=anObject;
+return self}, function($ctx1) {$ctx1.fill(self,"item:",{anObject:anObject},smalltalk.HLItemSelected)})},
 messageSends: []}),
 smalltalk.HLItemSelected);
 
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 fn: function (anItem){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$1;
 $2=_st(self)._new();
 _st($2)._item_(anItem);
 $3=_st($2)._yourself();
 $1=$3;
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem}, smalltalk.HLItemSelected.klass)})},
+}, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem},smalltalk.HLItemSelected.klass)})},
 messageSends: ["item:", "new", "yourself"]}),
 smalltalk.HLItemSelected.klass);
 

js/Helios-Announcements.js

@@ -4,16 +4,16 @@ smalltalk.addClass('HLAnnouncement', smalltalk.Object, [], 'Helios-Announcements
 
 smalltalk.addClass('HLCodeHandled', smalltalk.HLAnnouncement, ['code'], 'Helios-Announcements');
 smalltalk.addMethod(
-"_code",
 smalltalk.method({
 selector: "code",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@code"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"code",{}, smalltalk.HLCodeHandled)})},
+}, function($ctx1) {$ctx1.fill(self,"code",{},smalltalk.HLCodeHandled)})},
 args: [],
 source: "code\x0a\x0a\x09^ code",
 messageSends: [],
@@ -22,14 +22,14 @@ referencedClasses: []
 smalltalk.HLCodeHandled);
 
 smalltalk.addMethod(
-"_code_",
 smalltalk.method({
 selector: "code:",
 category: 'accessing',
 fn: function (aModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@code"]=aModel;
-return self}, function($ctx1) {$ctx1.fill(self,"code:",{aModel:aModel}, smalltalk.HLCodeHandled)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@code"]=aModel;
+return self}, function($ctx1) {$ctx1.fill(self,"code:",{aModel:aModel},smalltalk.HLCodeHandled)})},
 args: ["aModel"],
 source: "code: aModel\x0a\x0a\x09code := aModel",
 messageSends: [],
@@ -39,19 +39,19 @@ smalltalk.HLCodeHandled);
 
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 category: 'actions',
 fn: function (aCodeModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$1;
 $2=_st(self)._new();
 _st($2)._code_(aCodeModel);
 $3=_st($2)._yourself();
 $1=$3;
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"on:",{aCodeModel:aCodeModel}, smalltalk.HLCodeHandled.klass)})},
+}, function($ctx1) {$ctx1.fill(self,"on:",{aCodeModel:aCodeModel},smalltalk.HLCodeHandled.klass)})},
 args: ["aCodeModel"],
 source: "on: aCodeModel\x0a\x0a\x09^ self new \x0a    \x09code: aCodeModel;\x0a        yourself",
 messageSends: ["code:", "new", "yourself"],
@@ -77,16 +77,16 @@ smalltalk.addClass('HLDiveRequested', smalltalk.HLAnnouncement, [], 'Helios-Anno
 
 smalltalk.addClass('HLErrorRaised', smalltalk.HLAnnouncement, ['error'], 'Helios-Announcements');
 smalltalk.addMethod(
-"_error",
 smalltalk.method({
 selector: "error",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@error"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"error",{}, smalltalk.HLErrorRaised)})},
+}, function($ctx1) {$ctx1.fill(self,"error",{},smalltalk.HLErrorRaised)})},
 args: [],
 source: "error\x0a\x09^ error",
 messageSends: [],
@@ -95,14 +95,14 @@ referencedClasses: []
 smalltalk.HLErrorRaised);
 
 smalltalk.addMethod(
-"_error_",
 smalltalk.method({
 selector: "error:",
 category: 'accessing',
 fn: function (anError){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@error"]=anError;
-return self}, function($ctx1) {$ctx1.fill(self,"error:",{anError:anError}, smalltalk.HLErrorRaised)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@error"]=anError;
+return self}, function($ctx1) {$ctx1.fill(self,"error:",{anError:anError},smalltalk.HLErrorRaised)})},
 args: ["anError"],
 source: "error: anError\x0a\x09error := anError",
 messageSends: [],
@@ -117,16 +117,16 @@ smalltalk.addClass('HLCompileErrorRaised', smalltalk.HLErrorRaised, [], 'Helios-
 
 smalltalk.addClass('HLParseErrorRaised', smalltalk.HLErrorRaised, ['line', 'column', 'message'], 'Helios-Announcements');
 smalltalk.addMethod(
-"_column",
 smalltalk.method({
 selector: "column",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@column"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"column",{}, smalltalk.HLParseErrorRaised)})},
+}, function($ctx1) {$ctx1.fill(self,"column",{},smalltalk.HLParseErrorRaised)})},
 args: [],
 source: "column\x0a\x09^ column",
 messageSends: [],
@@ -135,14 +135,14 @@ referencedClasses: []
 smalltalk.HLParseErrorRaised);
 
 smalltalk.addMethod(
-"_column_",
 smalltalk.method({
 selector: "column:",
 category: 'accessing',
 fn: function (anInteger){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@column"]=anInteger;
-return self}, function($ctx1) {$ctx1.fill(self,"column:",{anInteger:anInteger}, smalltalk.HLParseErrorRaised)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@column"]=anInteger;
+return self}, function($ctx1) {$ctx1.fill(self,"column:",{anInteger:anInteger},smalltalk.HLParseErrorRaised)})},
 args: ["anInteger"],
 source: "column: anInteger\x0a\x09column := anInteger",
 messageSends: [],
@@ -151,16 +151,16 @@ referencedClasses: []
 smalltalk.HLParseErrorRaised);
 
 smalltalk.addMethod(
-"_line",
 smalltalk.method({
 selector: "line",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@line"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"line",{}, smalltalk.HLParseErrorRaised)})},
+}, function($ctx1) {$ctx1.fill(self,"line",{},smalltalk.HLParseErrorRaised)})},
 args: [],
 source: "line\x0a\x09^ line",
 messageSends: [],
@@ -169,14 +169,14 @@ referencedClasses: []
 smalltalk.HLParseErrorRaised);
 
 smalltalk.addMethod(
-"_line_",
 smalltalk.method({
 selector: "line:",
 category: 'accessing',
 fn: function (anInteger){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@line"]=anInteger;
-return self}, function($ctx1) {$ctx1.fill(self,"line:",{anInteger:anInteger}, smalltalk.HLParseErrorRaised)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@line"]=anInteger;
+return self}, function($ctx1) {$ctx1.fill(self,"line:",{anInteger:anInteger},smalltalk.HLParseErrorRaised)})},
 args: ["anInteger"],
 source: "line: anInteger\x0a\x09line := anInteger",
 messageSends: [],
@@ -185,16 +185,16 @@ referencedClasses: []
 smalltalk.HLParseErrorRaised);
 
 smalltalk.addMethod(
-"_message",
 smalltalk.method({
 selector: "message",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@message"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"message",{}, smalltalk.HLParseErrorRaised)})},
+}, function($ctx1) {$ctx1.fill(self,"message",{},smalltalk.HLParseErrorRaised)})},
 args: [],
 source: "message\x0a\x09^ message",
 messageSends: [],
@@ -203,14 +203,14 @@ referencedClasses: []
 smalltalk.HLParseErrorRaised);
 
 smalltalk.addMethod(
-"_message_",
 smalltalk.method({
 selector: "message:",
 category: 'accessing',
 fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@message"]=aString;
-return self}, function($ctx1) {$ctx1.fill(self,"message:",{aString:aString}, smalltalk.HLParseErrorRaised)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@message"]=aString;
+return self}, function($ctx1) {$ctx1.fill(self,"message:",{aString:aString},smalltalk.HLParseErrorRaised)})},
 args: ["aString"],
 source: "message: aString\x0a\x09message := aString",
 messageSends: [],
@@ -243,16 +243,16 @@ smalltalk.addClass('HLSourceCodeFocusRequested', smalltalk.HLFocusRequested, [],
 
 smalltalk.addClass('HLInstVarAdded', smalltalk.HLAnnouncement, ['theClass', 'variableName'], 'Helios-Announcements');
 smalltalk.addMethod(
-"_theClass",
 smalltalk.method({
 selector: "theClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@theClass"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"theClass",{}, smalltalk.HLInstVarAdded)})},
+}, function($ctx1) {$ctx1.fill(self,"theClass",{},smalltalk.HLInstVarAdded)})},
 args: [],
 source: "theClass\x0a\x09^ theClass",
 messageSends: [],
@@ -261,14 +261,14 @@ referencedClasses: []
 smalltalk.HLInstVarAdded);
 
 smalltalk.addMethod(
-"_theClass_",
 smalltalk.method({
 selector: "theClass:",
 category: 'accessing',
 fn: function (aClass){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@theClass"]=aClass;
-return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass}, smalltalk.HLInstVarAdded)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@theClass"]=aClass;
+return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass},smalltalk.HLInstVarAdded)})},
 args: ["aClass"],
 source: "theClass: aClass\x0a\x09theClass := aClass",
 messageSends: [],
@@ -277,16 +277,16 @@ referencedClasses: []
 smalltalk.HLInstVarAdded);
 
 smalltalk.addMethod(
-"_variableName",
 smalltalk.method({
 selector: "variableName",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@variableName"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"variableName",{}, smalltalk.HLInstVarAdded)})},
+}, function($ctx1) {$ctx1.fill(self,"variableName",{},smalltalk.HLInstVarAdded)})},
 args: [],
 source: "variableName\x0a\x09^ variableName",
 messageSends: [],
@@ -295,14 +295,14 @@ referencedClasses: []
 smalltalk.HLInstVarAdded);
 
 smalltalk.addMethod(
-"_variableName_",
 smalltalk.method({
 selector: "variableName:",
 category: 'accessing',
 fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@variableName"]=aString;
-return self}, function($ctx1) {$ctx1.fill(self,"variableName:",{aString:aString}, smalltalk.HLInstVarAdded)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@variableName"]=aString;
+return self}, function($ctx1) {$ctx1.fill(self,"variableName:",{aString:aString},smalltalk.HLInstVarAdded)})},
 args: ["aString"],
 source: "variableName: aString\x0a\x09variableName := aString",
 messageSends: [],
@@ -314,16 +314,16 @@ smalltalk.HLInstVarAdded);
 
 smalltalk.addClass('HLItemSelected', smalltalk.HLAnnouncement, ['item'], 'Helios-Announcements');
 smalltalk.addMethod(
-"_item",
 smalltalk.method({
 selector: "item",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@item"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"item",{}, smalltalk.HLItemSelected)})},
+}, function($ctx1) {$ctx1.fill(self,"item",{},smalltalk.HLItemSelected)})},
 args: [],
 source: "item\x0a\x09^ item",
 messageSends: [],
@@ -332,14 +332,14 @@ referencedClasses: []
 smalltalk.HLItemSelected);
 
 smalltalk.addMethod(
-"_item_",
 smalltalk.method({
 selector: "item:",
 category: 'accessing',
 fn: function (anObject){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@item"]=anObject;
-return self}, function($ctx1) {$ctx1.fill(self,"item:",{anObject:anObject}, smalltalk.HLItemSelected)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@item"]=anObject;
+return self}, function($ctx1) {$ctx1.fill(self,"item:",{anObject:anObject},smalltalk.HLItemSelected)})},
 args: ["anObject"],
 source: "item: anObject\x0a\x09item := anObject",
 messageSends: [],
@@ -349,19 +349,19 @@ smalltalk.HLItemSelected);
 
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 category: 'instance creation',
 fn: function (anItem){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$1;
 $2=_st(self)._new();
 _st($2)._item_(anItem);
 $3=_st($2)._yourself();
 $1=$3;
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem}, smalltalk.HLItemSelected.klass)})},
+}, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem},smalltalk.HLItemSelected.klass)})},
 args: ["anItem"],
 source: "on: anItem\x0a\x09^ self new\x0a    \x09item: anItem;\x0a        yourself",
 messageSends: ["item:", "new", "yourself"],

js/Helios-Commands-Browser.deploy.js

@@ -2,12 +2,12 @@ smalltalk.addPackage('Helios-Commands-Browser');
 smalltalk.addClass('HLBrowserCommand', smalltalk.HLModelCommand, [], 'Helios-Commands-Browser');
 
 smalltalk.addMethod(
-"_for_",
 smalltalk.method({
 selector: "for:",
 fn: function (aBrowserModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$1;
 $2=_st(self)._new();
 _st($2)._model_(aBrowserModel);
 $3=_st($2)._yourself();
@@ -21,59 +21,63 @@ smalltalk.HLBrowserCommand.klass);
 smalltalk.addClass('HLBrowserGoToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (71);
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(71);
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLBrowserGoToCommand.klass)})},
 messageSends: []}),
 smalltalk.HLBrowserGoToCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Go to";
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "Go to";
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLBrowserGoToCommand.klass)})},
 messageSends: []}),
 smalltalk.HLBrowserGoToCommand.klass);
 
 
 smalltalk.addClass('HLGoToClassesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._focusOnClasses();
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._focusOnClasses();
 return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToClassesCommand)})},
 messageSends: ["focusOnClasses", "model"]}),
 smalltalk.HLGoToClassesCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (67);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(67);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToClassesCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToClassesCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Classes";
+return smalltalk.withContext(function($ctx1) { 
+return "Classes";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToClassesCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToClassesCommand.klass);
@@ -81,35 +85,37 @@ smalltalk.HLGoToClassesCommand.klass);
 
 smalltalk.addClass('HLGoToMethodsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._focusOnMethods();
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._focusOnMethods();
 return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToMethodsCommand)})},
 messageSends: ["focusOnMethods", "model"]}),
 smalltalk.HLGoToMethodsCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (77);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(77);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToMethodsCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToMethodsCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Methods";
+return smalltalk.withContext(function($ctx1) { 
+return "Methods";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToMethodsCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToMethodsCommand.klass);
@@ -117,35 +123,37 @@ smalltalk.HLGoToMethodsCommand.klass);
 
 smalltalk.addClass('HLGoToPackagesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._focusOnPackages();
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._focusOnPackages();
 return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToPackagesCommand)})},
 messageSends: ["focusOnPackages", "model"]}),
 smalltalk.HLGoToPackagesCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (80);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(80);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToPackagesCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToPackagesCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Packages";
+return smalltalk.withContext(function($ctx1) { 
+return "Packages";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToPackagesCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToPackagesCommand.klass);
@@ -153,35 +161,37 @@ smalltalk.HLGoToPackagesCommand.klass);
 
 smalltalk.addClass('HLGoToProtocolsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._focusOnProtocols();
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._focusOnProtocols();
 return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToProtocolsCommand)})},
 messageSends: ["focusOnProtocols", "model"]}),
 smalltalk.HLGoToProtocolsCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (84);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(84);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToProtocolsCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToProtocolsCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Protocols";
+return smalltalk.withContext(function($ctx1) { 
+return "Protocols";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToProtocolsCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToProtocolsCommand.klass);
@@ -189,35 +199,37 @@ smalltalk.HLGoToProtocolsCommand.klass);
 
 smalltalk.addClass('HLGoToSourceCodeCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._focusOnSourceCode();
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._focusOnSourceCode();
 return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToSourceCodeCommand)})},
 messageSends: ["focusOnSourceCode", "model"]}),
 smalltalk.HLGoToSourceCodeCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (83);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(83);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToSourceCodeCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Source code";
+return smalltalk.withContext(function($ctx1) { 
+return "Source code";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToSourceCodeCommand.klass);
@@ -225,30 +237,29 @@ smalltalk.HLGoToSourceCodeCommand.klass);
 
 smalltalk.addClass('HLCommitPackageCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._commitPackage();
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._commitPackage();
 return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLCommitPackageCommand)})},
 messageSends: ["commitPackage", "model"]}),
 smalltalk.HLCommitPackageCommand);
 
 smalltalk.addMethod(
-"_isActive",
 smalltalk.method({
 selector: "isActive",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return true;
+return smalltalk.withContext(function($ctx1) { 
+return true;
 }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLCommitPackageCommand)})},
 messageSends: []}),
 smalltalk.HLCommitPackageCommand);
 
 
 smalltalk.addMethod(
-"_isValidFor_",
 smalltalk.method({
 selector: "isValidFor:",
 fn: function (anObject){
@@ -262,23 +273,25 @@ messageSends: ["isPackage"]}),
 smalltalk.HLCommitPackageCommand.klass);
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (75);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(75);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCommitPackageCommand.klass)})},
 messageSends: []}),
 smalltalk.HLCommitPackageCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Commit package";
+return smalltalk.withContext(function($ctx1) { 
+return "Commit package";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCommitPackageCommand.klass)})},
 messageSends: []}),
 smalltalk.HLCommitPackageCommand.klass);
@@ -287,23 +300,25 @@ smalltalk.HLCommitPackageCommand.klass);
 smalltalk.addClass('HLFindCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (70);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(70);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindCommand.klass)})},
 messageSends: []}),
 smalltalk.HLFindCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Find";
+return smalltalk.withContext(function($ctx1) { 
+return "Find";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLFindCommand.klass)})},
 messageSends: []}),
 smalltalk.HLFindCommand.klass);
@@ -311,34 +326,34 @@ smalltalk.HLFindCommand.klass);
 
 smalltalk.addClass('HLFindClassCommand', smalltalk.HLFindCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
-"_displayLabel",
 smalltalk.method({
 selector: "displayLabel",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "select a class";
+return smalltalk.withContext(function($ctx1) { 
+return "select a class";
 }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLFindClassCommand)})},
 messageSends: []}),
 smalltalk.HLFindClassCommand);
 
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._openClassNamed_(_st(self)._input());
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._openClassNamed_(_st(self)._input());
 return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLFindClassCommand)})},
 messageSends: ["openClassNamed:", "input", "model"]}),
 smalltalk.HLFindClassCommand);
 
 smalltalk.addMethod(
-"_inputCompletion",
 smalltalk.method({
 selector: "inputCompletion",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._model())._availableClassNames();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLFindClassCommand)})},
@@ -346,46 +361,48 @@ messageSends: ["availableClassNames", "model"]}),
 smalltalk.HLFindClassCommand);
 
 smalltalk.addMethod(
-"_inputLabel",
 smalltalk.method({
 selector: "inputLabel",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Find a class";
+return smalltalk.withContext(function($ctx1) { 
+return "Find a class";
 }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLFindClassCommand)})},
 messageSends: []}),
 smalltalk.HLFindClassCommand);
 
 smalltalk.addMethod(
-"_isInputRequired",
 smalltalk.method({
 selector: "isInputRequired",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return true;
+return smalltalk.withContext(function($ctx1) { 
+return true;
 }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLFindClassCommand)})},
 messageSends: []}),
 smalltalk.HLFindClassCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (67);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(67);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindClassCommand.klass)})},
 messageSends: []}),
 smalltalk.HLFindClassCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Class";
+return smalltalk.withContext(function($ctx1) { 
+return "Class";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLFindClassCommand.klass)})},
 messageSends: []}),
 smalltalk.HLFindClassCommand.klass);
@@ -394,23 +411,25 @@ smalltalk.HLFindClassCommand.klass);
 smalltalk.addClass('HLMoveToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (77);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(77);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveToCommand.klass)})},
 messageSends: []}),
 smalltalk.HLMoveToCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Move";
+return smalltalk.withContext(function($ctx1) { 
+return "Move";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveToCommand.klass)})},
 messageSends: []}),
 smalltalk.HLMoveToCommand.klass);
@@ -418,12 +437,12 @@ smalltalk.HLMoveToCommand.klass);
 
 smalltalk.addClass('HLMoveMethodToCommand', smalltalk.HLMoveToCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
-"_isActive",
 smalltalk.method({
 selector: "isActive",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(_st(self)._model())._selectedMethod())._notNil();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLMoveMethodToCommand)})},
@@ -432,23 +451,25 @@ smalltalk.HLMoveMethodToCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (77);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(77);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToCommand.klass)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Method";
+return smalltalk.withContext(function($ctx1) { 
+return "Method";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToCommand.klass)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToCommand.klass);
@@ -456,34 +477,34 @@ smalltalk.HLMoveMethodToCommand.klass);
 
 smalltalk.addClass('HLMoveMethodToClassCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
-"_displayLabel",
 smalltalk.method({
 selector: "displayLabel",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "select a class";
+return smalltalk.withContext(function($ctx1) { 
+return "select a class";
 }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveMethodToClassCommand)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToClassCommand);
 
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._moveMethodToClass_(_st(self)._input());
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._moveMethodToClass_(_st(self)._input());
 return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToClassCommand)})},
 messageSends: ["moveMethodToClass:", "input", "model"]}),
 smalltalk.HLMoveMethodToClassCommand);
 
 smalltalk.addMethod(
-"_inputCompletion",
 smalltalk.method({
 selector: "inputCompletion",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._model())._availableClassNames();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveMethodToClassCommand)})},
@@ -491,30 +512,29 @@ messageSends: ["availableClassNames", "model"]}),
 smalltalk.HLMoveMethodToClassCommand);
 
 smalltalk.addMethod(
-"_inputLabel",
 smalltalk.method({
 selector: "inputLabel",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Move method to class:";
+return smalltalk.withContext(function($ctx1) { 
+return "Move method to class:";
 }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveMethodToClassCommand)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToClassCommand);
 
 smalltalk.addMethod(
-"_isInputRequired",
 smalltalk.method({
 selector: "isInputRequired",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return true;
+return smalltalk.withContext(function($ctx1) { 
+return true;
 }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveMethodToClassCommand)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToClassCommand);
 
 
 smalltalk.addMethod(
-"_isValidFor_",
 smalltalk.method({
 selector: "isValidFor:",
 fn: function (anObject){
@@ -528,29 +548,30 @@ messageSends: ["isCompiledMethod"]}),
 smalltalk.HLMoveMethodToClassCommand.klass);
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (67);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(67);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToClassCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "to class";
+return smalltalk.withContext(function($ctx1) { 
+return "to class";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToClassCommand.klass);
 
 smalltalk.addMethod(
-"_menuLabel",
 smalltalk.method({
 selector: "menuLabel",
 fn: function (){
@@ -564,34 +585,34 @@ smalltalk.HLMoveMethodToClassCommand.klass);
 
 smalltalk.addClass('HLMoveMethodToProtocolCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
-"_displayLabel",
 smalltalk.method({
 selector: "displayLabel",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "select a protocol";
+return smalltalk.withContext(function($ctx1) { 
+return "select a protocol";
 }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveMethodToProtocolCommand)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToProtocolCommand);
 
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._moveMethodToProtocol_(_st(self)._input());
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._moveMethodToProtocol_(_st(self)._input());
 return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToProtocolCommand)})},
 messageSends: ["moveMethodToProtocol:", "input", "model"]}),
 smalltalk.HLMoveMethodToProtocolCommand);
 
 smalltalk.addMethod(
-"_inputCompletion",
 smalltalk.method({
 selector: "inputCompletion",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._model())._availableProtocols();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveMethodToProtocolCommand)})},
@@ -599,30 +620,29 @@ messageSends: ["availableProtocols", "model"]}),
 smalltalk.HLMoveMethodToProtocolCommand);
 
 smalltalk.addMethod(
-"_inputLabel",
 smalltalk.method({
 selector: "inputLabel",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Move method to a protocol:";
+return smalltalk.withContext(function($ctx1) { 
+return "Move method to a protocol:";
 }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveMethodToProtocolCommand)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToProtocolCommand);
 
 smalltalk.addMethod(
-"_isInputRequired",
 smalltalk.method({
 selector: "isInputRequired",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return true;
+return smalltalk.withContext(function($ctx1) { 
+return true;
 }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveMethodToProtocolCommand)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToProtocolCommand);
 
 
 smalltalk.addMethod(
-"_isValidFor_",
 smalltalk.method({
 selector: "isValidFor:",
 fn: function (anObject){
@@ -636,29 +656,30 @@ messageSends: ["isCompiledMethod"]}),
 smalltalk.HLMoveMethodToProtocolCommand.klass);
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (84);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(84);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToProtocolCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "to protocol";
+return smalltalk.withContext(function($ctx1) { 
+return "to protocol";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToProtocolCommand.klass);
 
 smalltalk.addMethod(
-"_menuLabel",
 smalltalk.method({
 selector: "menuLabel",
 fn: function (){
@@ -673,23 +694,25 @@ smalltalk.HLMoveMethodToProtocolCommand.klass);
 smalltalk.addClass('HLRemoveCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (88);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(88);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveCommand.klass)})},
 messageSends: []}),
 smalltalk.HLRemoveCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Remove";
+return smalltalk.withContext(function($ctx1) { 
+return "Remove";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveCommand.klass)})},
 messageSends: []}),
 smalltalk.HLRemoveCommand.klass);
@@ -697,23 +720,23 @@ smalltalk.HLRemoveCommand.klass);
 
 smalltalk.addClass('HLRemoveMethodCommand', smalltalk.HLRemoveCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._removeMethod();
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._removeMethod();
 return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRemoveMethodCommand)})},
 messageSends: ["removeMethod", "model"]}),
 smalltalk.HLRemoveMethodCommand);
 
 smalltalk.addMethod(
-"_isActive",
 smalltalk.method({
 selector: "isActive",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(_st(self)._model())._selectedMethod())._notNil();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRemoveMethodCommand)})},
@@ -722,7 +745,6 @@ smalltalk.HLRemoveMethodCommand);
 
 
 smalltalk.addMethod(
-"_isValidFor_",
 smalltalk.method({
 selector: "isValidFor:",
 fn: function (anObject){
@@ -736,29 +758,30 @@ messageSends: ["isCompiledMethod"]}),
 smalltalk.HLRemoveMethodCommand.klass);
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (77);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(77);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveMethodCommand.klass)})},
 messageSends: []}),
 smalltalk.HLRemoveMethodCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Method";
+return smalltalk.withContext(function($ctx1) { 
+return "Method";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveMethodCommand.klass)})},
 messageSends: []}),
 smalltalk.HLRemoveMethodCommand.klass);
 
 smalltalk.addMethod(
-"_menuLabel",
 smalltalk.method({
 selector: "menuLabel",
 fn: function (){
@@ -773,23 +796,25 @@ smalltalk.HLRemoveMethodCommand.klass);
 smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (84);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(84);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleCommand.klass)})},
 messageSends: []}),
 smalltalk.HLToggleCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Toggle";
+return smalltalk.withContext(function($ctx1) { 
+return "Toggle";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleCommand.klass)})},
 messageSends: []}),
 smalltalk.HLToggleCommand.klass);
@@ -797,35 +822,37 @@ smalltalk.HLToggleCommand.klass);
 
 smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._showInstance_(false);
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._showInstance_(false);
 return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassSideCommand)})},
 messageSends: ["showInstance:", "model"]}),
 smalltalk.HLToggleClassSideCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (67);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(67);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassSideCommand.klass)})},
 messageSends: []}),
 smalltalk.HLToggleClassSideCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Class side";
+return smalltalk.withContext(function($ctx1) { 
+return "Class side";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassSideCommand.klass)})},
 messageSends: []}),
 smalltalk.HLToggleClassSideCommand.klass);
@@ -833,35 +860,37 @@ smalltalk.HLToggleClassSideCommand.klass);
 
 smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._showInstance_(true);
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._showInstance_(true);
 return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleInstanceSideCommand)})},
 messageSends: ["showInstance:", "model"]}),
 smalltalk.HLToggleInstanceSideCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (73);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(73);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
 messageSends: []}),
 smalltalk.HLToggleInstanceSideCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Instance side";
+return smalltalk.withContext(function($ctx1) { 
+return "Instance side";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
 messageSends: []}),
 smalltalk.HLToggleInstanceSideCommand.klass);

js/Helios-Commands-Core.deploy.js

@@ -1,13 +1,14 @@
 smalltalk.addPackage('Helios-Commands-Core');
 smalltalk.addClass('HLCommand', smalltalk.Object, ['input'], 'Helios-Commands-Core');
 smalltalk.addMethod(
-"_asActionBinding",
 smalltalk.method({
 selector: "asActionBinding",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$1;
-$2=_st((smalltalk.HLBindingAction || HLBindingAction))._on_labelled_(_st(self)._key(),_st(self)._label());
+function $HLBindingAction(){return smalltalk.HLBindingAction||(typeof HLBindingAction=="undefined"?nil:HLBindingAction)}
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$1;
+$2=_st($HLBindingAction())._on_labelled_(_st(self)._key(),_st(self)._label());
 _st($2)._command_(self);
 $3=_st($2)._yourself();
 $1=$3;
@@ -17,12 +18,12 @@ messageSends: ["command:", "on:labelled:", "key", "label", "yourself"]}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_asBinding",
 smalltalk.method({
 selector: "asBinding",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
 $2=_st(self)._isBindingGroup();
 if(smalltalk.assert($2)){
 $1=_st(self)._asGroupBinding();
@@ -35,59 +36,60 @@ messageSends: ["ifTrue:ifFalse:", "asGroupBinding", "asActionBinding", "isBindin
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_asGroupBinding",
 smalltalk.method({
 selector: "asGroupBinding",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st((smalltalk.HLBindingGroup || HLBindingGroup))._on_labelled_(_st(self)._key(),_st(self)._label());
+function $HLBindingGroup(){return smalltalk.HLBindingGroup||(typeof HLBindingGroup=="undefined"?nil:HLBindingGroup)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st($HLBindingGroup())._on_labelled_(_st(self)._key(),_st(self)._label());
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"asGroupBinding",{},smalltalk.HLCommand)})},
 messageSends: ["on:labelled:", "key", "label"]}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_commandError_",
 smalltalk.method({
 selector: "commandError:",
 fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._error_(aString);
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._error_(aString);
 return self}, function($ctx1) {$ctx1.fill(self,"commandError:",{aString:aString},smalltalk.HLCommand)})},
 messageSends: ["error:"]}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_documentation",
 smalltalk.method({
 selector: "documentation",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._class())._documentation();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"documentation",{}, smalltalk.HLCommand)})},
+}, function($ctx1) {$ctx1.fill(self,"documentation",{},smalltalk.HLCommand)})},
 messageSends: ["documentation", "class"]}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"execute",{}, smalltalk.HLCommand)})},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLCommand)})},
 messageSends: []}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_input",
 smalltalk.method({
 selector: "input",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@input"];
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"input",{},smalltalk.HLCommand)})},
@@ -95,12 +97,12 @@ messageSends: []}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_input_",
 smalltalk.method({
 selector: "input:",
 fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 self["@input"]=aString;
 $1=self["@input"];
 return $1;
@@ -109,23 +111,25 @@ messageSends: []}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_inputCompletion",
 smalltalk.method({
 selector: "inputCompletion",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return [];
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=[];
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLCommand)})},
 messageSends: []}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_inputLabel",
 smalltalk.method({
 selector: "inputLabel",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._label();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLCommand)})},
@@ -133,23 +137,23 @@ messageSends: ["label"]}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_isActive",
 smalltalk.method({
 selector: "isActive",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return true;
+return smalltalk.withContext(function($ctx1) { 
+return true;
 }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLCommand)})},
 messageSends: []}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_isBindingGroup",
 smalltalk.method({
 selector: "isBindingGroup",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(_st(_st(self)._class())._methodDictionary())._includesKey_("execute"))._not();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"isBindingGroup",{},smalltalk.HLCommand)})},
@@ -157,44 +161,43 @@ messageSends: ["not", "includesKey:", "methodDictionary", "class"]}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_isInputRequired",
 smalltalk.method({
 selector: "isInputRequired",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return false;
+return smalltalk.withContext(function($ctx1) { 
+return false;
 }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLCommand)})},
 messageSends: []}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._class())._key();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLCommand)})},
+}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCommand)})},
 messageSends: ["key", "class"]}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._class())._label();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLCommand)})},
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCommand)})},
 messageSends: ["label", "class"]}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_menuLabel",
 smalltalk.method({
 selector: "menuLabel",
 fn: function (){
@@ -208,12 +211,12 @@ messageSends: ["menuLabel", "class"]}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_registerOn_",
 smalltalk.method({
 selector: "registerOn:",
 fn: function (aBinding){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(aBinding)._add_(_st(self)._asBinding());
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"registerOn:",{aBinding:aBinding},smalltalk.HLCommand)})},
@@ -222,7 +225,6 @@ smalltalk.HLCommand);
 
 
 smalltalk.addMethod(
-"_concreteClasses",
 smalltalk.method({
 selector: "concreteClasses",
 fn: function (){
@@ -247,23 +249,23 @@ messageSends: ["new", "ifTrue:", "add:", "isConcrete", "do:", "addAll:", "concre
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_documentation",
 smalltalk.method({
 selector: "documentation",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "";
-}, function($ctx1) {$ctx1.fill(self,"documentation",{}, smalltalk.HLCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "";
+}, function($ctx1) {$ctx1.fill(self,"documentation",{},smalltalk.HLCommand.klass)})},
 messageSends: []}),
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_isConcrete",
 smalltalk.method({
 selector: "isConcrete",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._key())._notNil();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"isConcrete",{},smalltalk.HLCommand.klass)})},
@@ -271,7 +273,6 @@ messageSends: ["notNil", "key"]}),
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_isValidFor_",
 smalltalk.method({
 selector: "isValidFor:",
 fn: function (aModel){
@@ -283,29 +284,28 @@ messageSends: []}),
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return nil;
-}, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return nil;
+}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCommand.klass)})},
 messageSends: []}),
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "";
-}, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "";
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCommand.klass)})},
 messageSends: []}),
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_menuLabel",
 smalltalk.method({
 selector: "menuLabel",
 fn: function (){
@@ -319,13 +319,13 @@ messageSends: ["label"]}),
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_registerConcreteClassesOn_",
 smalltalk.method({
 selector: "registerConcreteClassesOn:",
 fn: function (aBinding){
 var self=this;
 var newBinding;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._isConcrete();
 if(smalltalk.assert($1)){
 newBinding=_st(self)._registerOn_(aBinding);
@@ -335,19 +335,20 @@ newBinding=aBinding;
 newBinding;
 };
 _st(_st(self)._subclasses())._do_((function(each){
-return smalltalk.withContext(function($ctx2) {
return _st(each)._registerConcreteClassesOn_(newBinding);
+return smalltalk.withContext(function($ctx2) {
+return _st(each)._registerConcreteClassesOn_(newBinding);
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
 return self}, function($ctx1) {$ctx1.fill(self,"registerConcreteClassesOn:",{aBinding:aBinding,newBinding:newBinding},smalltalk.HLCommand.klass)})},
 messageSends: ["ifTrue:ifFalse:", "registerOn:", "isConcrete", "do:", "registerConcreteClassesOn:", "subclasses"]}),
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_registerOn_",
 smalltalk.method({
 selector: "registerOn:",
 fn: function (aBinding){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._new())._registerOn_(aBinding);
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"registerOn:",{aBinding:aBinding},smalltalk.HLCommand.klass)})},
@@ -357,48 +358,51 @@ smalltalk.HLCommand.klass);
 
 smalltalk.addClass('HLCloseTabCommand', smalltalk.HLCommand, [], 'Helios-Commands-Core');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st((smalltalk.HLManager || HLManager))._current())._removeActiveTab();
-return self}, function($ctx1) {$ctx1.fill(self,"execute",{}, smalltalk.HLCloseTabCommand)})},
+function $HLManager(){return smalltalk.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
+return smalltalk.withContext(function($ctx1) { 
+_st(_st($HLManager())._current())._removeActiveTab();
+return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLCloseTabCommand)})},
 messageSends: ["removeActiveTab", "current"]}),
 smalltalk.HLCloseTabCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (87);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(87);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCloseTabCommand.klass)})},
 messageSends: []}),
 smalltalk.HLCloseTabCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Close tab";
-}, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLCloseTabCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "Close tab";
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCloseTabCommand.klass)})},
 messageSends: []}),
 smalltalk.HLCloseTabCommand.klass);
 
 
 smalltalk.addClass('HLModelCommand', smalltalk.HLCommand, ['model'], 'Helios-Commands-Core');
 smalltalk.addMethod(
-"_model",
 smalltalk.method({
 selector: "model",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@model"];
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLModelCommand)})},
@@ -406,24 +410,24 @@ messageSends: []}),
 smalltalk.HLModelCommand);
 
 smalltalk.addMethod(
-"_model_",
 smalltalk.method({
 selector: "model:",
 fn: function (aModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@model"]=aModel;
+return smalltalk.withContext(function($ctx1) { 
+self["@model"]=aModel;
 return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel},smalltalk.HLModelCommand)})},
 messageSends: []}),
 smalltalk.HLModelCommand);
 
 
 smalltalk.addMethod(
-"_for_",
 smalltalk.method({
 selector: "for:",
 fn: function (aModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._new();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"for:",{aModel:aModel},smalltalk.HLModelCommand.klass)})},
@@ -431,13 +435,13 @@ messageSends: ["new"]}),
 smalltalk.HLModelCommand.klass);
 
 smalltalk.addMethod(
-"_registerConcreteClassesOn_for_",
 smalltalk.method({
 selector: "registerConcreteClassesOn:for:",
 fn: function (aBinding,aModel){
 var self=this;
 var newBinding;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._isConcrete();
 if(smalltalk.assert($1)){
 newBinding=_st(self)._registerOn_for_(aBinding,aModel);
@@ -447,19 +451,20 @@ newBinding=aBinding;
 newBinding;
 };
 _st(_st(self)._subclasses())._do_((function(each){
-return smalltalk.withContext(function($ctx2) {
return _st(each)._registerConcreteClassesOn_for_(newBinding,aModel);
+return smalltalk.withContext(function($ctx2) {
+return _st(each)._registerConcreteClassesOn_for_(newBinding,aModel);
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
 return self}, function($ctx1) {$ctx1.fill(self,"registerConcreteClassesOn:for:",{aBinding:aBinding,aModel:aModel,newBinding:newBinding},smalltalk.HLModelCommand.klass)})},
 messageSends: ["ifTrue:ifFalse:", "registerOn:for:", "isConcrete", "do:", "registerConcreteClassesOn:for:", "subclasses"]}),
 smalltalk.HLModelCommand.klass);
 
 smalltalk.addMethod(
-"_registerOn_for_",
 smalltalk.method({
 selector: "registerOn:for:",
 fn: function (aBinding,aModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._for_(aModel))._registerOn_(aBinding);
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"registerOn:for:",{aBinding:aBinding,aModel:aModel},smalltalk.HLModelCommand.klass)})},
@@ -470,23 +475,25 @@ smalltalk.HLModelCommand.klass);
 smalltalk.addClass('HLOpenCommand', smalltalk.HLCommand, [], 'Helios-Commands-Core');
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (79);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(79);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenCommand.klass)})},
 messageSends: []}),
 smalltalk.HLOpenCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Open";
+return smalltalk.withContext(function($ctx1) { 
+return "Open";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLOpenCommand.klass)})},
 messageSends: []}),
 smalltalk.HLOpenCommand.klass);
@@ -494,89 +501,96 @@ smalltalk.HLOpenCommand.klass);
 
 smalltalk.addClass('HLOpenBrowserCommand', smalltalk.HLOpenCommand, [], 'Helios-Commands-Core');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st((smalltalk.HLBrowser || HLBrowser))._openAsTab();
+function $HLBrowser(){return smalltalk.HLBrowser||(typeof HLBrowser=="undefined"?nil:HLBrowser)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st($HLBrowser())._openAsTab();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"execute",{}, smalltalk.HLOpenBrowserCommand)})},
+}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLOpenBrowserCommand)})},
 messageSends: ["openAsTab"]}),
 smalltalk.HLOpenBrowserCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (66);
-}, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLOpenBrowserCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(66);
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenBrowserCommand.klass)})},
 messageSends: []}),
 smalltalk.HLOpenBrowserCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Browser";
-}, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLOpenBrowserCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "Browser";
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLOpenBrowserCommand.klass)})},
 messageSends: []}),
 smalltalk.HLOpenBrowserCommand.klass);
 
 
 smalltalk.addClass('HLOpenTranscriptCommand', smalltalk.HLOpenCommand, [], 'Helios-Commands-Core');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st((smalltalk.HLTranscript || HLTranscript))._openAsTab();
+function $HLTranscript(){return smalltalk.HLTranscript||(typeof HLTranscript=="undefined"?nil:HLTranscript)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st($HLTranscript())._openAsTab();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"execute",{}, smalltalk.HLOpenTranscriptCommand)})},
+}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLOpenTranscriptCommand)})},
 messageSends: ["openAsTab"]}),
 smalltalk.HLOpenTranscriptCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (84);
-}, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLOpenTranscriptCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(84);
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenTranscriptCommand.klass)})},
 messageSends: []}),
 smalltalk.HLOpenTranscriptCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Transcript";
-}, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLOpenTranscriptCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "Transcript";
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLOpenTranscriptCommand.klass)})},
 messageSends: []}),
 smalltalk.HLOpenTranscriptCommand.klass);
 
 
 smalltalk.addClass('HLOpenWorkspaceCommand', smalltalk.HLOpenCommand, [], 'Helios-Commands-Core');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st((smalltalk.HLCodeWidget || HLCodeWidget))._openAsTab();
+function $HLCodeWidget(){return smalltalk.HLCodeWidget||(typeof HLCodeWidget=="undefined"?nil:HLCodeWidget)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st($HLCodeWidget())._openAsTab();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLOpenWorkspaceCommand)})},
 messageSends: ["openAsTab"]}),
@@ -584,24 +598,26 @@ smalltalk.HLOpenWorkspaceCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (87);
-}, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLOpenWorkspaceCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(87);
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenWorkspaceCommand.klass)})},
 messageSends: []}),
 smalltalk.HLOpenWorkspaceCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Workspace";
-}, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLOpenWorkspaceCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "Workspace";
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLOpenWorkspaceCommand.klass)})},
 messageSends: []}),
 smalltalk.HLOpenWorkspaceCommand.klass);
 
@@ -609,12 +625,12 @@ smalltalk.HLOpenWorkspaceCommand.klass);
 smalltalk.addClass('HLViewCommand', smalltalk.HLCommand, [], 'Helios-Commands-Core');
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "View";
+return smalltalk.withContext(function($ctx1) { 
+return "View";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLViewCommand.klass)})},
 messageSends: []}),
 smalltalk.HLViewCommand.klass);

js/Helios-Commands-Core.js

@@ -1,14 +1,15 @@
 smalltalk.addPackage('Helios-Commands-Core');
 smalltalk.addClass('HLCommand', smalltalk.Object, ['input'], 'Helios-Commands-Core');
 smalltalk.addMethod(
-"_asActionBinding",
 smalltalk.method({
 selector: "asActionBinding",
 category: 'converting',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$1;
-$2=_st((smalltalk.HLBindingAction || HLBindingAction))._on_labelled_(_st(self)._key(),_st(self)._label());
+function $HLBindingAction(){return smalltalk.HLBindingAction||(typeof HLBindingAction=="undefined"?nil:HLBindingAction)}
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$1;
+$2=_st($HLBindingAction())._on_labelled_(_st(self)._key(),_st(self)._label());
 _st($2)._command_(self);
 $3=_st($2)._yourself();
 $1=$3;
@@ -22,13 +23,13 @@ referencedClasses: ["HLBindingAction"]
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_asBinding",
 smalltalk.method({
 selector: "asBinding",
 category: 'converting',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
 $2=_st(self)._isBindingGroup();
 if(smalltalk.assert($2)){
 $1=_st(self)._asGroupBinding();
@@ -45,14 +46,15 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_asGroupBinding",
 smalltalk.method({
 selector: "asGroupBinding",
 category: 'converting',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st((smalltalk.HLBindingGroup || HLBindingGroup))._on_labelled_(_st(self)._key(),_st(self)._label());
+function $HLBindingGroup(){return smalltalk.HLBindingGroup||(typeof HLBindingGroup=="undefined"?nil:HLBindingGroup)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st($HLBindingGroup())._on_labelled_(_st(self)._key(),_st(self)._label());
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"asGroupBinding",{},smalltalk.HLCommand)})},
 args: [],
@@ -63,13 +65,13 @@ referencedClasses: ["HLBindingGroup"]
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_commandError_",
 smalltalk.method({
 selector: "commandError:",
 category: 'error handling',
 fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._error_(aString);
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._error_(aString);
 return self}, function($ctx1) {$ctx1.fill(self,"commandError:",{aString:aString},smalltalk.HLCommand)})},
 args: ["aString"],
 source: "commandError: aString\x0a\x09self error: aString",
@@ -79,16 +81,16 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_documentation",
 smalltalk.method({
 selector: "documentation",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._class())._documentation();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"documentation",{}, smalltalk.HLCommand)})},
+}, function($ctx1) {$ctx1.fill(self,"documentation",{},smalltalk.HLCommand)})},
 args: [],
 source: "documentation\x0a\x09^ self class documentation",
 messageSends: ["documentation", "class"],
@@ -97,13 +99,13 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 category: 'executing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"execute",{}, smalltalk.HLCommand)})},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLCommand)})},
 args: [],
 source: "execute\x0a\x09",
 messageSends: [],
@@ -112,13 +114,13 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_input",
 smalltalk.method({
 selector: "input",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@input"];
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"input",{},smalltalk.HLCommand)})},
@@ -130,13 +132,13 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_input_",
 smalltalk.method({
 selector: "input:",
 category: 'accessing',
 fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 self["@input"]=aString;
 $1=self["@input"];
 return $1;
@@ -149,13 +151,15 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_inputCompletion",
 smalltalk.method({
 selector: "inputCompletion",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return [];
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=[];
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLCommand)})},
 args: [],
 source: "inputCompletion\x0a\x09^ #()",
@@ -165,13 +169,13 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_inputLabel",
 smalltalk.method({
 selector: "inputLabel",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._label();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLCommand)})},
@@ -183,13 +187,13 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_isActive",
 smalltalk.method({
 selector: "isActive",
 category: 'testing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return true;
+return smalltalk.withContext(function($ctx1) { 
+return true;
 }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLCommand)})},
 args: [],
 source: "isActive\x0a\x09^ true",
@@ -199,13 +203,13 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_isBindingGroup",
 smalltalk.method({
 selector: "isBindingGroup",
 category: 'testing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(_st(_st(self)._class())._methodDictionary())._includesKey_("execute"))._not();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"isBindingGroup",{},smalltalk.HLCommand)})},
@@ -217,13 +221,13 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_isInputRequired",
 smalltalk.method({
 selector: "isInputRequired",
 category: 'testing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return false;
+return smalltalk.withContext(function($ctx1) { 
+return false;
 }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLCommand)})},
 args: [],
 source: "isInputRequired\x0a\x09^ false",
@@ -233,16 +237,16 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._class())._key();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLCommand)})},
+}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCommand)})},
 args: [],
 source: "key\x0a\x09^ self class key",
 messageSends: ["key", "class"],
@@ -251,16 +255,16 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._class())._label();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLCommand)})},
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCommand)})},
 args: [],
 source: "label\x0a\x09^ self class label",
 messageSends: ["label", "class"],
@@ -269,7 +273,6 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_menuLabel",
 smalltalk.method({
 selector: "menuLabel",
 category: 'accessing',
@@ -288,13 +291,13 @@ referencedClasses: []
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
-"_registerOn_",
 smalltalk.method({
 selector: "registerOn:",
 category: 'registration',
 fn: function (aBinding){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(aBinding)._add_(_st(self)._asBinding());
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"registerOn:",{aBinding:aBinding},smalltalk.HLCommand)})},
@@ -307,7 +310,6 @@ smalltalk.HLCommand);
 
 
 smalltalk.addMethod(
-"_concreteClasses",
 smalltalk.method({
 selector: "concreteClasses",
 category: 'registration',
@@ -337,14 +339,14 @@ referencedClasses: ["OrderedCollection"]
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_documentation",
 smalltalk.method({
 selector: "documentation",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "";
-}, function($ctx1) {$ctx1.fill(self,"documentation",{}, smalltalk.HLCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "";
+}, function($ctx1) {$ctx1.fill(self,"documentation",{},smalltalk.HLCommand.klass)})},
 args: [],
 source: "documentation\x0a\x09^ ''",
 messageSends: [],
@@ -353,13 +355,13 @@ referencedClasses: []
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_isConcrete",
 smalltalk.method({
 selector: "isConcrete",
 category: 'testing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._key())._notNil();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"isConcrete",{},smalltalk.HLCommand.klass)})},
@@ -371,7 +373,6 @@ referencedClasses: []
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_isValidFor_",
 smalltalk.method({
 selector: "isValidFor:",
 category: 'testing',
@@ -388,14 +389,14 @@ referencedClasses: []
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return nil;
-}, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return nil;
+}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCommand.klass)})},
 args: [],
 source: "key\x0a\x09^ nil",
 messageSends: [],
@@ -404,14 +405,14 @@ referencedClasses: []
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "";
-}, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "";
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCommand.klass)})},
 args: [],
 source: "label\x0a\x09^ ''",
 messageSends: [],
@@ -420,7 +421,6 @@ referencedClasses: []
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_menuLabel",
 smalltalk.method({
 selector: "menuLabel",
 category: 'accessing',
@@ -439,14 +439,14 @@ referencedClasses: []
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_registerConcreteClassesOn_",
 smalltalk.method({
 selector: "registerConcreteClassesOn:",
 category: 'accessing',
 fn: function (aBinding){
 var self=this;
 var newBinding;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._isConcrete();
 if(smalltalk.assert($1)){
 newBinding=_st(self)._registerOn_(aBinding);
@@ -456,7 +456,8 @@ newBinding=aBinding;
 newBinding;
 };
 _st(_st(self)._subclasses())._do_((function(each){
-return smalltalk.withContext(function($ctx2) {
return _st(each)._registerConcreteClassesOn_(newBinding);
+return smalltalk.withContext(function($ctx2) {
+return _st(each)._registerConcreteClassesOn_(newBinding);
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
 return self}, function($ctx1) {$ctx1.fill(self,"registerConcreteClassesOn:",{aBinding:aBinding,newBinding:newBinding},smalltalk.HLCommand.klass)})},
 args: ["aBinding"],
@@ -467,13 +468,13 @@ referencedClasses: []
 smalltalk.HLCommand.klass);
 
 smalltalk.addMethod(
-"_registerOn_",
 smalltalk.method({
 selector: "registerOn:",
 category: 'registration',
 fn: function (aBinding){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._new())._registerOn_(aBinding);
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"registerOn:",{aBinding:aBinding},smalltalk.HLCommand.klass)})},
@@ -487,14 +488,15 @@ smalltalk.HLCommand.klass);
 
 smalltalk.addClass('HLCloseTabCommand', smalltalk.HLCommand, [], 'Helios-Commands-Core');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 category: 'executing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st((smalltalk.HLManager || HLManager))._current())._removeActiveTab();
-return self}, function($ctx1) {$ctx1.fill(self,"execute",{}, smalltalk.HLCloseTabCommand)})},
+function $HLManager(){return smalltalk.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
+return smalltalk.withContext(function($ctx1) { 
+_st(_st($HLManager())._current())._removeActiveTab();
+return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLCloseTabCommand)})},
 args: [],
 source: "execute\x0a\x09HLManager current removeActiveTab",
 messageSends: ["removeActiveTab", "current"],
@@ -504,13 +506,15 @@ smalltalk.HLCloseTabCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (87);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(87);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCloseTabCommand.klass)})},
 args: [],
 source: "key\x0a\x09^ 87",
@@ -520,14 +524,14 @@ referencedClasses: []
 smalltalk.HLCloseTabCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Close tab";
-}, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLCloseTabCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "Close tab";
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCloseTabCommand.klass)})},
 args: [],
 source: "label\x0a\x09^ 'Close tab'",
 messageSends: [],
@@ -538,13 +542,13 @@ smalltalk.HLCloseTabCommand.klass);
 
 smalltalk.addClass('HLModelCommand', smalltalk.HLCommand, ['model'], 'Helios-Commands-Core');
 smalltalk.addMethod(
-"_model",
 smalltalk.method({
 selector: "model",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@model"];
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLModelCommand)})},
@@ -556,13 +560,13 @@ referencedClasses: []
 smalltalk.HLModelCommand);
 
 smalltalk.addMethod(
-"_model_",
 smalltalk.method({
 selector: "model:",
 category: 'accessing',
 fn: function (aModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@model"]=aModel;
+return smalltalk.withContext(function($ctx1) { 
+self["@model"]=aModel;
 return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel},smalltalk.HLModelCommand)})},
 args: ["aModel"],
 source: "model: aModel\x0a\x09model := aModel",
@@ -573,13 +577,13 @@ smalltalk.HLModelCommand);
 
 
 smalltalk.addMethod(
-"_for_",
 smalltalk.method({
 selector: "for:",
 category: 'instance creation',
 fn: function (aModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._new();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"for:",{aModel:aModel},smalltalk.HLModelCommand.klass)})},
@@ -591,14 +595,14 @@ referencedClasses: []
 smalltalk.HLModelCommand.klass);
 
 smalltalk.addMethod(
-"_registerConcreteClassesOn_for_",
 smalltalk.method({
 selector: "registerConcreteClassesOn:for:",
 category: 'registration',
 fn: function (aBinding,aModel){
 var self=this;
 var newBinding;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._isConcrete();
 if(smalltalk.assert($1)){
 newBinding=_st(self)._registerOn_for_(aBinding,aModel);
@@ -608,7 +612,8 @@ newBinding=aBinding;
 newBinding;
 };
 _st(_st(self)._subclasses())._do_((function(each){
-return smalltalk.withContext(function($ctx2) {
return _st(each)._registerConcreteClassesOn_for_(newBinding,aModel);
+return smalltalk.withContext(function($ctx2) {
+return _st(each)._registerConcreteClassesOn_for_(newBinding,aModel);
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
 return self}, function($ctx1) {$ctx1.fill(self,"registerConcreteClassesOn:for:",{aBinding:aBinding,aModel:aModel,newBinding:newBinding},smalltalk.HLModelCommand.klass)})},
 args: ["aBinding", "aModel"],
@@ -619,13 +624,13 @@ referencedClasses: []
 smalltalk.HLModelCommand.klass);
 
 smalltalk.addMethod(
-"_registerOn_for_",
 smalltalk.method({
 selector: "registerOn:for:",
 category: 'registration',
 fn: function (aBinding,aModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._for_(aModel))._registerOn_(aBinding);
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"registerOn:for:",{aBinding:aBinding,aModel:aModel},smalltalk.HLModelCommand.klass)})},
@@ -640,13 +645,15 @@ smalltalk.HLModelCommand.klass);
 smalltalk.addClass('HLOpenCommand', smalltalk.HLCommand, [], 'Helios-Commands-Core');
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (79);
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(79);
+return $1;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenCommand.klass)})},
 args: [],
 source: "key\x0a\x09^ 79",
@@ -656,13 +663,13 @@ referencedClasses: []
 smalltalk.HLOpenCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Open";
+return smalltalk.withContext(function($ctx1) { 
+return "Open";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLOpenCommand.klass)})},
 args: [],
 source: "label\x0a\x09^ 'Open'",
@@ -674,16 +681,17 @@ smalltalk.HLOpenCommand.klass);
 
 smalltalk.addClass('HLOpenBrowserCommand', smalltalk.HLOpenCommand, [], 'Helios-Commands-Core');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 category: 'executing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st((smalltalk.HLBrowser || HLBrowser))._openAsTab();
+function $HLBrowser(){return smalltalk.HLBrowser||(typeof HLBrowser=="undefined"?nil:HLBrowser)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st($HLBrowser())._openAsTab();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"execute",{}, smalltalk.HLOpenBrowserCommand)})},
+}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLOpenBrowserCommand)})},
 args: [],
 source: "execute\x0a\x09^ HLBrowser openAsTab",
 messageSends: ["openAsTab"],
@@ -693,14 +701,16 @@ smalltalk.HLOpenBrowserCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (66);
-}, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLOpenBrowserCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(66);
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenBrowserCommand.klass)})},
 args: [],
 source: "key\x0a\x09^ 66",
 messageSends: [],
@@ -709,14 +719,14 @@ referencedClasses: []
 smalltalk.HLOpenBrowserCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Browser";
-}, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLOpenBrowserCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "Browser";
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLOpenBrowserCommand.klass)})},
 args: [],
 source: "label\x0a\x09^ 'Browser'",
 messageSends: [],
@@ -727,16 +737,17 @@ smalltalk.HLOpenBrowserCommand.klass);
 
 smalltalk.addClass('HLOpenTranscriptCommand', smalltalk.HLOpenCommand, [], 'Helios-Commands-Core');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 category: 'executing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st((smalltalk.HLTranscript || HLTranscript))._openAsTab();
+function $HLTranscript(){return smalltalk.HLTranscript||(typeof HLTranscript=="undefined"?nil:HLTranscript)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st($HLTranscript())._openAsTab();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"execute",{}, smalltalk.HLOpenTranscriptCommand)})},
+}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLOpenTranscriptCommand)})},
 args: [],
 source: "execute\x0a\x09^ HLTranscript openAsTab",
 messageSends: ["openAsTab"],
@@ -746,14 +757,16 @@ smalltalk.HLOpenTranscriptCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (84);
-}, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLOpenTranscriptCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(84);
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenTranscriptCommand.klass)})},
 args: [],
 source: "key\x0a\x09^ 84",
 messageSends: [],
@@ -762,14 +775,14 @@ referencedClasses: []
 smalltalk.HLOpenTranscriptCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Transcript";
-}, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLOpenTranscriptCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "Transcript";
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLOpenTranscriptCommand.klass)})},
 args: [],
 source: "label\x0a\x09^ 'Transcript'",
 messageSends: [],
@@ -780,14 +793,15 @@ smalltalk.HLOpenTranscriptCommand.klass);
 
 smalltalk.addClass('HLOpenWorkspaceCommand', smalltalk.HLOpenCommand, [], 'Helios-Commands-Core');
 smalltalk.addMethod(
-"_execute",
 smalltalk.method({
 selector: "execute",
 category: 'executing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st((smalltalk.HLCodeWidget || HLCodeWidget))._openAsTab();
+function $HLCodeWidget(){return smalltalk.HLCodeWidget||(typeof HLCodeWidget=="undefined"?nil:HLCodeWidget)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st($HLCodeWidget())._openAsTab();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLOpenWorkspaceCommand)})},
 args: [],
@@ -799,14 +813,16 @@ smalltalk.HLOpenWorkspaceCommand);
 
 
 smalltalk.addMethod(
-"_key",
 smalltalk.method({
 selector: "key",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (87);
-}, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLOpenWorkspaceCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(87);
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenWorkspaceCommand.klass)})},
 args: [],
 source: "key\x0a\x09^ 87",
 messageSends: [],
@@ -815,14 +831,14 @@ referencedClasses: []
 smalltalk.HLOpenWorkspaceCommand.klass);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Workspace";
-}, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLOpenWorkspaceCommand.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "Workspace";
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLOpenWorkspaceCommand.klass)})},
 args: [],
 source: "label\x0a\x09^ 'Workspace'",
 messageSends: [],
@@ -834,13 +850,13 @@ smalltalk.HLOpenWorkspaceCommand.klass);
 smalltalk.addClass('HLViewCommand', smalltalk.HLCommand, [], 'Helios-Commands-Core');
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "View";
+return smalltalk.withContext(function($ctx1) { 
+return "View";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLViewCommand.klass)})},
 args: [],
 source: "label\x0a\x09^ 'View'",

js/Helios-Environments.deploy.js

@@ -1,171 +1,171 @@
 smalltalk.addPackage('Helios-Environments');
 smalltalk.addClass('HLEnvironment', smalltalk.Object, [], 'Helios-Environments');
 smalltalk.addMethod(
-"_addInstVarNamed_to_",
 smalltalk.method({
 selector: "addInstVarNamed:to:",
-fn: function (aString, aClass) {
+fn: function (aString,aClass){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2;
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
 $1=_st(_st(aClass)._instanceVariableNames())._copy();
 _st($1)._add_(aString);
 $2=_st($1)._yourself();
 _st(_st(self)._classBuilder())._addSubclassOf_named_instanceVariableNames_package_(_st(aClass)._superclass(),_st(aClass)._name(),$2,_st(_st(aClass)._package())._name());
-return self}, function($ctx1) {$ctx1.fill(self,"addInstVarNamed:to:",{aString:aString,aClass:aClass}, smalltalk.HLEnvironment)});},
+return self}, function($ctx1) {$ctx1.fill(self,"addInstVarNamed:to:",{aString:aString,aClass:aClass},smalltalk.HLEnvironment)})},
 messageSends: ["addSubclassOf:named:instanceVariableNames:package:", "superclass", "name", "add:", "copy", "instanceVariableNames", "yourself", "package", "classBuilder"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_availableClassNames",
 smalltalk.method({
 selector: "availableClassNames",
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._subclassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLEnvironment)})},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_availableProtocolsFor_",
 smalltalk.method({
 selector: "availableProtocolsFor:",
-fn: function (aClass) {
+fn: function (aClass){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._subclassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass},smalltalk.HLEnvironment)})},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_classBuilder",
 smalltalk.method({
 selector: "classBuilder",
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._subclassResponsibility();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classBuilder",{}, smalltalk.HLEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"classBuilder",{},smalltalk.HLEnvironment)})},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_classNamed_",
 smalltalk.method({
 selector: "classNamed:",
-fn: function (aString) {
+fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._subclassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLEnvironment)})},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_commitPackage_",
 smalltalk.method({
 selector: "commitPackage:",
-fn: function (aPackage) {
+fn: function (aPackage){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._subclassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLEnvironment)})},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_compileClassComment_for_",
 smalltalk.method({
 selector: "compileClassComment:for:",
-fn: function (aString, aClass) {
+fn: function (aString,aClass){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(aClass)._comment_(aString);
-return self}, function($ctx1) {$ctx1.fill(self,"compileClassComment:for:",{aString:aString,aClass:aClass}, smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(aClass)._comment_(aString);
+return self}, function($ctx1) {$ctx1.fill(self,"compileClassComment:for:",{aString:aString,aClass:aClass},smalltalk.HLEnvironment)})},
 messageSends: ["comment:"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_compileClassDefinition_",
 smalltalk.method({
 selector: "compileClassDefinition:",
-fn: function (aString) {
+fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._eval_on_(aString,_st((smalltalk.DoIt || DoIt))._new());
-return self}, function($ctx1) {$ctx1.fill(self,"compileClassDefinition:",{aString:aString}, smalltalk.HLEnvironment)});},
+function $DoIt(){return smalltalk.DoIt||(typeof DoIt=="undefined"?nil:DoIt)}
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._eval_on_(aString,_st($DoIt())._new());
+return self}, function($ctx1) {$ctx1.fill(self,"compileClassDefinition:",{aString:aString},smalltalk.HLEnvironment)})},
 messageSends: ["eval:on:", "new"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_compileMethod_for_protocol_",
 smalltalk.method({
 selector: "compileMethod:for:protocol:",
-fn: function (sourceCode, class_, protocol) {
+fn: function (sourceCode,class_,protocol){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(class_)._compile_category_(sourceCode,protocol);
-return self}, function($ctx1) {$ctx1.fill(self,"compileMethod:for:protocol:",{sourceCode:sourceCode,class_:class_,protocol:protocol}, smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(class_)._compile_category_(sourceCode,protocol);
+return self}, function($ctx1) {$ctx1.fill(self,"compileMethod:for:protocol:",{sourceCode:sourceCode,class_:class_,protocol:protocol},smalltalk.HLEnvironment)})},
 messageSends: ["compile:category:"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_eval_on_",
 smalltalk.method({
 selector: "eval:on:",
-fn: function (someCode, aReceiver) {
+fn: function (someCode,aReceiver){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._subclassResponsibility();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver}, smalltalk.HLEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver},smalltalk.HLEnvironment)})},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_moveMethod_toClass_",
 smalltalk.method({
 selector: "moveMethod:toClass:",
-fn: function (aMethod, aClassName) {
+fn: function (aMethod,aClassName){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._subclassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName},smalltalk.HLEnvironment)})},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_moveMethod_toProtocol_",
 smalltalk.method({
 selector: "moveMethod:toProtocol:",
-fn: function (aMethod, aProtocol) {
+fn: function (aMethod,aProtocol){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._subclassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLEnvironment)})},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_packages",
 smalltalk.method({
 selector: "packages",
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._subclassResponsibility();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"packages",{},smalltalk.HLEnvironment)})},
 messageSends: ["subclassResponsibility"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_removeMethod_",
 smalltalk.method({
 selector: "removeMethod:",
-fn: function (aMethod) {
+fn: function (aMethod){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._sublcassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._sublcassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLEnvironment)})},
 messageSends: ["sublcassResponsibility"]}),
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_systemAnnouncer",
 smalltalk.method({
 selector: "systemAnnouncer",
 fn: function (){
@@ -182,28 +182,30 @@ smalltalk.HLEnvironment);
 
 smalltalk.addClass('HLLocalEnvironment', smalltalk.HLEnvironment, [], 'Helios-Environments');
 smalltalk.addMethod(
-"_availableClassNames",
 smalltalk.method({
 selector: "availableClassNames",
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st(_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._classes())._collect_((function(each){
-return smalltalk.withContext(function($ctx2) {
return _st(each)._name();
+function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st(_st(_st($Smalltalk())._current())._classes())._collect_((function(each){
+return smalltalk.withContext(function($ctx2) {
+return _st(each)._name();
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLLocalEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLLocalEnvironment)})},
 messageSends: ["collect:", "name", "classes", "current"]}),
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_availableProtocolsFor_",
 smalltalk.method({
 selector: "availableProtocolsFor:",
-fn: function (aClass) {
+fn: function (aClass){
 var self=this;
 var protocols;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2;
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
 protocols=_st(aClass)._protocols();
 $1=_st(aClass)._superclass();
 if(($receiver = $1) == nil || $receiver == undefined){
@@ -213,87 +215,93 @@ _st(protocols)._addAll_(_st(self)._availableProtocolsFor_(_st(aClass)._superclas
 };
 $2=_st(_st(protocols)._asSet())._asArray();
 return $2;
-}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass,protocols:protocols},smalltalk.HLLocalEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass,protocols:protocols},smalltalk.HLLocalEnvironment)})},
 messageSends: ["protocols", "ifNotNil:", "addAll:", "availableProtocolsFor:", "superclass", "asArray", "asSet"]}),
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_classBuilder",
 smalltalk.method({
 selector: "classBuilder",
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st((smalltalk.ClassBuilder || ClassBuilder))._new();
+function $ClassBuilder(){return smalltalk.ClassBuilder||(typeof ClassBuilder=="undefined"?nil:ClassBuilder)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st($ClassBuilder())._new();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classBuilder",{}, smalltalk.HLLocalEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"classBuilder",{},smalltalk.HLLocalEnvironment)})},
 messageSends: ["new"]}),
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_classNamed_",
 smalltalk.method({
 selector: "classNamed:",
-fn: function (aString) {
+fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$1;
-$2=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_(_st(aString)._asSymbol());
+function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
+$2=_st(_st($Smalltalk())._current())._at_(_st(aString)._asSymbol());
 if(($receiver = $2) == nil || $receiver == undefined){
 $1=_st(self)._error_("Invalid class name");
 } else {
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLLocalEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLLocalEnvironment)})},
 messageSends: ["ifNil:", "error:", "at:", "asSymbol", "current"]}),
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_commitPackage_",
 smalltalk.method({
 selector: "commitPackage:",
-fn: function (aPackage) {
+fn: function (aPackage){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(aPackage)._commit();
-return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLLocalEnvironment)});},
+return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLLocalEnvironment)})},
 messageSends: ["commit"]}),
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_eval_on_",
 smalltalk.method({
 selector: "eval:on:",
-fn: function (aString, aReceiver) {
+fn: function (aString,aReceiver){
 var self=this;
 var compiler;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2;
+function $Compiler(){return smalltalk.Compiler||(typeof Compiler=="undefined"?nil:Compiler)}
+function $Error(){return smalltalk.Error||(typeof Error=="undefined"?nil:Error)}
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
 var $early={};
 try {
-compiler=_st((smalltalk.Compiler || Compiler))._new();
+compiler=_st($Compiler())._new();
 _st((function(){
-return smalltalk.withContext(function($ctx2) {
return _st(compiler)._parseExpression_(aString);
-}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._on_do_((smalltalk.Error || Error),(function(ex){
-return smalltalk.withContext(function($ctx2) {
$1=_st(window)._alert_(_st(ex)._messageText());
+return smalltalk.withContext(function($ctx2) {
+return _st(compiler)._parseExpression_(aString);
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._on_do_($Error(),(function(ex){
+return smalltalk.withContext(function($ctx2) {
+$1=_st(window)._alert_(_st(ex)._messageText());
 throw $early=[$1];
 }, function($ctx2) {$ctx2.fillBlock({ex:ex},$ctx1)})}));
 $2=_st(compiler)._evaluateExpression_on_(aString,aReceiver);
 return $2;
 }
 catch(e) {if(e===$early)return e[0]; throw e}
-}, function($ctx1) {$ctx1.fill(self,"eval:on:",{aString:aString,aReceiver:aReceiver,compiler:compiler}, smalltalk.HLLocalEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"eval:on:",{aString:aString,aReceiver:aReceiver,compiler:compiler},smalltalk.HLLocalEnvironment)})},
 messageSends: ["new", "on:do:", "alert:", "messageText", "parseExpression:", "evaluateExpression:on:"]}),
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_moveMethod_toClass_",
 smalltalk.method({
 selector: "moveMethod:toClass:",
-fn: function (aMethod, aClassName) {
+fn: function (aMethod,aClassName){
 var self=this;
 var destinationClass;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2,$3;
-destinationClass=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_(_st(aClassName)._asSymbol());
+function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2,$3;
+destinationClass=_st(_st($Smalltalk())._current())._at_(_st(aClassName)._asSymbol());
 $1=destinationClass;
 if(($receiver = $1) == nil || $receiver == undefined){
 _st(self)._error_("Invalid class name");
@@ -307,47 +315,47 @@ return $3;
 };
 _st(destinationClass)._adoptMethod_(aMethod);
 _st(_st(aMethod)._methodClass())._forsakeMethod_(aMethod);
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName,destinationClass:destinationClass},smalltalk.HLLocalEnvironment)});},
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName,destinationClass:destinationClass},smalltalk.HLLocalEnvironment)})},
 messageSends: ["at:", "asSymbol", "current", "ifNil:", "error:", "ifTrue:", "==", "methodClass", "adoptMethod:", "forsakeMethod:"]}),
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_moveMethod_toProtocol_",
 smalltalk.method({
 selector: "moveMethod:toProtocol:",
-fn: function (aMethod, aProtocol) {
+fn: function (aMethod,aProtocol){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(aMethod)._category_(aProtocol);
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLLocalEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(aMethod)._category_(aProtocol);
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLLocalEnvironment)})},
 messageSends: ["category:"]}),
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_packages",
 smalltalk.method({
 selector: "packages",
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._packages();
+function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st(_st($Smalltalk())._current())._packages();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLLocalEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"packages",{},smalltalk.HLLocalEnvironment)})},
 messageSends: ["packages", "current"]}),
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_removeMethod_",
 smalltalk.method({
 selector: "removeMethod:",
-fn: function (aMethod) {
+fn: function (aMethod){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(aMethod)._methodClass())._forsakeMethod_(aMethod);
-return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLLocalEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(aMethod)._methodClass())._forsakeMethod_(aMethod);
+return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLLocalEnvironment)})},
 messageSends: ["forsakeMethod:", "methodClass"]}),
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_systemAnnouncer",
 smalltalk.method({
 selector: "systemAnnouncer",
 fn: function (){
@@ -365,23 +373,23 @@ smalltalk.HLLocalEnvironment);
 
 smalltalk.addClass('HLRemoteEnvironment', smalltalk.HLEnvironment, [], 'Helios-Environments');
 smalltalk.addMethod(
-"_eval_on_",
 smalltalk.method({
 selector: "eval:on:",
-fn: function (someCode, aReceiver) {
+fn: function (someCode,aReceiver){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._notYetImplemented();
-return self}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver}, smalltalk.HLRemoteEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._notYetImplemented();
+return self}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver},smalltalk.HLRemoteEnvironment)})},
 messageSends: ["notYetImplemented"]}),
 smalltalk.HLRemoteEnvironment);
 
 smalltalk.addMethod(
-"_packages",
 smalltalk.method({
 selector: "packages",
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLRemoteEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"packages",{},smalltalk.HLRemoteEnvironment)})},
 messageSends: []}),
 smalltalk.HLRemoteEnvironment);
 
@@ -389,57 +397,57 @@ smalltalk.HLRemoteEnvironment);
 
 smalltalk.addClass('HLRemoteObject', smalltalk.Object, [], 'Helios-Environments');
 smalltalk.addMethod(
-"_doesNotUnderstand_",
 smalltalk.method({
 selector: "doesNotUnderstand:",
-fn: function (aMessage) {
+fn: function (aMessage){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"doesNotUnderstand:",{aMessage:aMessage}, smalltalk.HLRemoteObject)});},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"doesNotUnderstand:",{aMessage:aMessage},smalltalk.HLRemoteObject)})},
 messageSends: []}),
 smalltalk.HLRemoteObject);
 
 smalltalk.addMethod(
-"_inspectOn_",
 smalltalk.method({
 selector: "inspectOn:",
-fn: function (anInspector) {
+fn: function (anInspector){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"inspectOn:",{anInspector:anInspector}, smalltalk.HLRemoteObject)});},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"inspectOn:",{anInspector:anInspector},smalltalk.HLRemoteObject)})},
 messageSends: []}),
 smalltalk.HLRemoteObject);
 
 smalltalk.addMethod(
-"_printString",
 smalltalk.method({
 selector: "printString",
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "this is a remote object";
-}, function($ctx1) {$ctx1.fill(self,"printString",{}, smalltalk.HLRemoteObject)});},
+return smalltalk.withContext(function($ctx1) { 
+return "this is a remote object";
+}, function($ctx1) {$ctx1.fill(self,"printString",{},smalltalk.HLRemoteObject)})},
 messageSends: []}),
 smalltalk.HLRemoteObject);
 
 
 
 smalltalk.addMethod(
-"_adoptMethod_",
 smalltalk.method({
 selector: "adoptMethod:",
-fn: function (aMethod) {
+fn: function (aMethod){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._compile_category_(_st(aMethod)._source(),_st(aMethod)._protocol());
-return self}, function($ctx1) {$ctx1.fill(self,"adoptMethod:",{aMethod:aMethod},smalltalk.Behavior)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._compile_category_(_st(aMethod)._source(),_st(aMethod)._protocol());
+return self}, function($ctx1) {$ctx1.fill(self,"adoptMethod:",{aMethod:aMethod},smalltalk.Behavior)})},
 messageSends: ["compile:category:", "source", "protocol"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_forsakeMethod_",
 smalltalk.method({
 selector: "forsakeMethod:",
-fn: function (aMethod) {
+fn: function (aMethod){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._removeCompiledMethod_(aMethod);
-return self}, function($ctx1) {$ctx1.fill(self,"forsakeMethod:",{aMethod:aMethod},smalltalk.Behavior)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._removeCompiledMethod_(aMethod);
+return self}, function($ctx1) {$ctx1.fill(self,"forsakeMethod:",{aMethod:aMethod},smalltalk.Behavior)})},
 messageSends: ["removeCompiledMethod:"]}),
 smalltalk.Behavior);
 

js/Helios-Environments.js

@@ -2,18 +2,18 @@ smalltalk.addPackage('Helios-Environments');
 smalltalk.addClass('HLEnvironment', smalltalk.Object, [], 'Helios-Environments');
 smalltalk.HLEnvironment.comment="Abstract class defining common behavior for local and remote environments"
 smalltalk.addMethod(
-"_addInstVarNamed_to_",
 smalltalk.method({
 selector: "addInstVarNamed:to:",
 category: 'compiling',
-fn: function (aString, aClass) {
+fn: function (aString,aClass){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2;
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
 $1=_st(_st(aClass)._instanceVariableNames())._copy();
 _st($1)._add_(aString);
 $2=_st($1)._yourself();
 _st(_st(self)._classBuilder())._addSubclassOf_named_instanceVariableNames_package_(_st(aClass)._superclass(),_st(aClass)._name(),$2,_st(_st(aClass)._package())._name());
-return self}, function($ctx1) {$ctx1.fill(self,"addInstVarNamed:to:",{aString:aString,aClass:aClass}, smalltalk.HLEnvironment)});},
+return self}, function($ctx1) {$ctx1.fill(self,"addInstVarNamed:to:",{aString:aString,aClass:aClass},smalltalk.HLEnvironment)})},
 args: ["aString", "aClass"],
 source: "addInstVarNamed: aString to: aClass\x0a\x09self classBuilder\x0a\x09\x09addSubclassOf: aClass superclass \x0a\x09\x09named: aClass name \x0a\x09\x09instanceVariableNames: (aClass instanceVariableNames copy add: aString; yourself)\x0a\x09\x09package: aClass package name",
 messageSends: ["addSubclassOf:named:instanceVariableNames:package:", "superclass", "name", "add:", "copy", "instanceVariableNames", "yourself", "package", "classBuilder"],
@@ -22,14 +22,14 @@ referencedClasses: []
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_availableClassNames",
 smalltalk.method({
 selector: "availableClassNames",
 category: 'accessing',
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._subclassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLEnvironment)})},
 args: [],
 source: "availableClassNames\x0a\x09self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -38,14 +38,14 @@ referencedClasses: []
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_availableProtocolsFor_",
 smalltalk.method({
 selector: "availableProtocolsFor:",
 category: 'accessing',
-fn: function (aClass) {
+fn: function (aClass){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._subclassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass},smalltalk.HLEnvironment)})},
 args: ["aClass"],
 source: "availableProtocolsFor: aClass\x0a\x09self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -54,16 +54,16 @@ referencedClasses: []
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_classBuilder",
 smalltalk.method({
 selector: "classBuilder",
 category: 'accessing',
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._subclassResponsibility();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classBuilder",{}, smalltalk.HLEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"classBuilder",{},smalltalk.HLEnvironment)})},
 args: [],
 source: "classBuilder\x0a\x09^ self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -72,14 +72,14 @@ referencedClasses: []
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_classNamed_",
 smalltalk.method({
 selector: "classNamed:",
 category: 'accessing',
-fn: function (aString) {
+fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._subclassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLEnvironment)})},
 args: ["aString"],
 source: "classNamed: aString\x0a\x09self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -88,14 +88,14 @@ referencedClasses: []
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_commitPackage_",
 smalltalk.method({
 selector: "commitPackage:",
 category: 'actions',
-fn: function (aPackage) {
+fn: function (aPackage){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._subclassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLEnvironment)})},
 args: ["aPackage"],
 source: "commitPackage: aPackage\x0a\x09self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -104,14 +104,14 @@ referencedClasses: []
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_compileClassComment_for_",
 smalltalk.method({
 selector: "compileClassComment:for:",
 category: 'compiling',
-fn: function (aString, aClass) {
+fn: function (aString,aClass){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(aClass)._comment_(aString);
-return self}, function($ctx1) {$ctx1.fill(self,"compileClassComment:for:",{aString:aString,aClass:aClass}, smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(aClass)._comment_(aString);
+return self}, function($ctx1) {$ctx1.fill(self,"compileClassComment:for:",{aString:aString,aClass:aClass},smalltalk.HLEnvironment)})},
 args: ["aString", "aClass"],
 source: "compileClassComment: aString for: aClass\x0a\x09aClass comment: aString",
 messageSends: ["comment:"],
@@ -120,14 +120,15 @@ referencedClasses: []
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_compileClassDefinition_",
 smalltalk.method({
 selector: "compileClassDefinition:",
 category: 'compiling',
-fn: function (aString) {
+fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._eval_on_(aString,_st((smalltalk.DoIt || DoIt))._new());
-return self}, function($ctx1) {$ctx1.fill(self,"compileClassDefinition:",{aString:aString}, smalltalk.HLEnvironment)});},
+function $DoIt(){return smalltalk.DoIt||(typeof DoIt=="undefined"?nil:DoIt)}
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._eval_on_(aString,_st($DoIt())._new());
+return self}, function($ctx1) {$ctx1.fill(self,"compileClassDefinition:",{aString:aString},smalltalk.HLEnvironment)})},
 args: ["aString"],
 source: "compileClassDefinition: aString\x0a\x09self eval: aString on: DoIt new",
 messageSends: ["eval:on:", "new"],
@@ -136,14 +137,14 @@ referencedClasses: ["DoIt"]
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_compileMethod_for_protocol_",
 smalltalk.method({
 selector: "compileMethod:for:protocol:",
 category: 'compiling',
-fn: function (sourceCode, class_, protocol) {
+fn: function (sourceCode,class_,protocol){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(class_)._compile_category_(sourceCode,protocol);
-return self}, function($ctx1) {$ctx1.fill(self,"compileMethod:for:protocol:",{sourceCode:sourceCode,class_:class_,protocol:protocol}, smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(class_)._compile_category_(sourceCode,protocol);
+return self}, function($ctx1) {$ctx1.fill(self,"compileMethod:for:protocol:",{sourceCode:sourceCode,class_:class_,protocol:protocol},smalltalk.HLEnvironment)})},
 args: ["sourceCode", "class", "protocol"],
 source: "compileMethod: sourceCode for: class protocol: protocol\x0a\x09class\x0a\x09\x09compile: sourceCode\x0a\x09\x09category: protocol",
 messageSends: ["compile:category:"],
@@ -152,16 +153,16 @@ referencedClasses: []
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_eval_on_",
 smalltalk.method({
 selector: "eval:on:",
 category: 'actions',
-fn: function (someCode, aReceiver) {
+fn: function (someCode,aReceiver){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._subclassResponsibility();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver}, smalltalk.HLEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver},smalltalk.HLEnvironment)})},
 args: ["someCode", "aReceiver"],
 source: "eval: someCode on: aReceiver\x0a\x0a\x09^ self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -170,14 +171,14 @@ referencedClasses: []
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_moveMethod_toClass_",
 smalltalk.method({
 selector: "moveMethod:toClass:",
 category: 'actions',
-fn: function (aMethod, aClassName) {
+fn: function (aMethod,aClassName){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._subclassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName},smalltalk.HLEnvironment)})},
 args: ["aMethod", "aClassName"],
 source: "moveMethod: aMethod toClass: aClassName\x0a\x09self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -186,14 +187,14 @@ referencedClasses: []
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_moveMethod_toProtocol_",
 smalltalk.method({
 selector: "moveMethod:toProtocol:",
 category: 'actions',
-fn: function (aMethod, aProtocol) {
+fn: function (aMethod,aProtocol){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._subclassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._subclassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLEnvironment)})},
 args: ["aMethod", "aProtocol"],
 source: "moveMethod: aMethod toProtocol: aProtocol\x0a\x09self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -202,16 +203,16 @@ referencedClasses: []
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_packages",
 smalltalk.method({
 selector: "packages",
 category: 'accessing',
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._subclassResponsibility();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"packages",{},smalltalk.HLEnvironment)})},
 args: [],
 source: "packages\x0a\x09^ self subclassResponsibility",
 messageSends: ["subclassResponsibility"],
@@ -220,14 +221,14 @@ referencedClasses: []
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_removeMethod_",
 smalltalk.method({
 selector: "removeMethod:",
 category: 'actions',
-fn: function (aMethod) {
+fn: function (aMethod){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._sublcassResponsibility();
-return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._sublcassResponsibility();
+return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLEnvironment)})},
 args: ["aMethod"],
 source: "removeMethod: aMethod\x0a\x09self sublcassResponsibility",
 messageSends: ["sublcassResponsibility"],
@@ -236,7 +237,6 @@ referencedClasses: []
 smalltalk.HLEnvironment);
 
 smalltalk.addMethod(
-"_systemAnnouncer",
 smalltalk.method({
 selector: "systemAnnouncer",
 category: 'accessing',
@@ -258,18 +258,20 @@ smalltalk.HLEnvironment);
 
 smalltalk.addClass('HLLocalEnvironment', smalltalk.HLEnvironment, [], 'Helios-Environments');
 smalltalk.addMethod(
-"_availableClassNames",
 smalltalk.method({
 selector: "availableClassNames",
 category: 'accessing',
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st(_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._classes())._collect_((function(each){
-return smalltalk.withContext(function($ctx2) {
return _st(each)._name();
+function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st(_st(_st($Smalltalk())._current())._classes())._collect_((function(each){
+return smalltalk.withContext(function($ctx2) {
+return _st(each)._name();
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLLocalEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},smalltalk.HLLocalEnvironment)})},
 args: [],
 source: "availableClassNames\x0a\x09^ Smalltalk current classes \x0a\x09\x09collect: [ :each | each name ]",
 messageSends: ["collect:", "name", "classes", "current"],
@@ -278,14 +280,14 @@ referencedClasses: ["Smalltalk"]
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_availableProtocolsFor_",
 smalltalk.method({
 selector: "availableProtocolsFor:",
 category: 'accessing',
-fn: function (aClass) {
+fn: function (aClass){
 var self=this;
 var protocols;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2;
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
 protocols=_st(aClass)._protocols();
 $1=_st(aClass)._superclass();
 if(($receiver = $1) == nil || $receiver == undefined){
@@ -295,7 +297,7 @@ _st(protocols)._addAll_(_st(self)._availableProtocolsFor_(_st(aClass)._superclas
 };
 $2=_st(_st(protocols)._asSet())._asArray();
 return $2;
-}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass,protocols:protocols},smalltalk.HLLocalEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"availableProtocolsFor:",{aClass:aClass,protocols:protocols},smalltalk.HLLocalEnvironment)})},
 args: ["aClass"],
 source: "availableProtocolsFor: aClass\x0a\x09| protocols |\x0a\x09\x0a\x09protocols := aClass protocols.\x0a\x09aClass superclass ifNotNil: [ protocols addAll: (self availableProtocolsFor: aClass superclass) ].\x0a\x09^ protocols asSet asArray",
 messageSends: ["protocols", "ifNotNil:", "addAll:", "availableProtocolsFor:", "superclass", "asArray", "asSet"],
@@ -304,16 +306,17 @@ referencedClasses: []
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_classBuilder",
 smalltalk.method({
 selector: "classBuilder",
 category: 'accessing',
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st((smalltalk.ClassBuilder || ClassBuilder))._new();
+function $ClassBuilder(){return smalltalk.ClassBuilder||(typeof ClassBuilder=="undefined"?nil:ClassBuilder)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st($ClassBuilder())._new();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classBuilder",{}, smalltalk.HLLocalEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"classBuilder",{},smalltalk.HLLocalEnvironment)})},
 args: [],
 source: "classBuilder\x0a\x09^ ClassBuilder new",
 messageSends: ["new"],
@@ -322,21 +325,22 @@ referencedClasses: ["ClassBuilder"]
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_classNamed_",
 smalltalk.method({
 selector: "classNamed:",
 category: 'accessing',
-fn: function (aString) {
+fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$1;
-$2=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_(_st(aString)._asSymbol());
+function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
+$2=_st(_st($Smalltalk())._current())._at_(_st(aString)._asSymbol());
 if(($receiver = $2) == nil || $receiver == undefined){
 $1=_st(self)._error_("Invalid class name");
 } else {
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLLocalEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"classNamed:",{aString:aString},smalltalk.HLLocalEnvironment)})},
 args: ["aString"],
 source: "classNamed: aString\x0a\x09^ (Smalltalk current at: aString asSymbol)\x0a\x09\x09ifNil: [ self error: 'Invalid class name' ]",
 messageSends: ["ifNil:", "error:", "at:", "asSymbol", "current"],
@@ -345,15 +349,14 @@ referencedClasses: ["Smalltalk"]
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_commitPackage_",
 smalltalk.method({
 selector: "commitPackage:",
 category: 'actions',
-fn: function (aPackage) {
+fn: function (aPackage){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(aPackage)._commit();
-return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLLocalEnvironment)});},
+return self}, function($ctx1) {$ctx1.fill(self,"commitPackage:",{aPackage:aPackage},smalltalk.HLLocalEnvironment)})},
 args: ["aPackage"],
 source: "commitPackage: aPackage\x0a\x09aPackage commit",
 messageSends: ["commit"],
@@ -362,28 +365,32 @@ referencedClasses: []
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_eval_on_",
 smalltalk.method({
 selector: "eval:on:",
 category: 'actions',
-fn: function (aString, aReceiver) {
+fn: function (aString,aReceiver){
 var self=this;
 var compiler;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2;
+function $Compiler(){return smalltalk.Compiler||(typeof Compiler=="undefined"?nil:Compiler)}
+function $Error(){return smalltalk.Error||(typeof Error=="undefined"?nil:Error)}
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
 var $early={};
 try {
-compiler=_st((smalltalk.Compiler || Compiler))._new();
+compiler=_st($Compiler())._new();
 _st((function(){
-return smalltalk.withContext(function($ctx2) {
return _st(compiler)._parseExpression_(aString);
-}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._on_do_((smalltalk.Error || Error),(function(ex){
-return smalltalk.withContext(function($ctx2) {
$1=_st(window)._alert_(_st(ex)._messageText());
+return smalltalk.withContext(function($ctx2) {
+return _st(compiler)._parseExpression_(aString);
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._on_do_($Error(),(function(ex){
+return smalltalk.withContext(function($ctx2) {
+$1=_st(window)._alert_(_st(ex)._messageText());
 throw $early=[$1];
 }, function($ctx2) {$ctx2.fillBlock({ex:ex},$ctx1)})}));
 $2=_st(compiler)._evaluateExpression_on_(aString,aReceiver);
 return $2;
 }
 catch(e) {if(e===$early)return e[0]; throw e}
-}, function($ctx1) {$ctx1.fill(self,"eval:on:",{aString:aString,aReceiver:aReceiver,compiler:compiler}, smalltalk.HLLocalEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"eval:on:",{aString:aString,aReceiver:aReceiver,compiler:compiler},smalltalk.HLLocalEnvironment)})},
 args: ["aString", "aReceiver"],
 source: "eval: aString on: aReceiver\x0a\x09| compiler  |\x0a\x09compiler := Compiler new.\x0a\x09[ compiler parseExpression: aString ] on: Error do: [ :ex |\x0a\x09\x09^ window alert: ex messageText ].\x0a\x09^ compiler evaluateExpression: aString on: aReceiver",
 messageSends: ["new", "on:do:", "alert:", "messageText", "parseExpression:", "evaluateExpression:on:"],
@@ -392,15 +399,16 @@ referencedClasses: ["Compiler", "Error"]
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_moveMethod_toClass_",
 smalltalk.method({
 selector: "moveMethod:toClass:",
 category: 'actions',
-fn: function (aMethod, aClassName) {
+fn: function (aMethod,aClassName){
 var self=this;
 var destinationClass;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2,$3;
-destinationClass=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_(_st(aClassName)._asSymbol());
+function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2,$3;
+destinationClass=_st(_st($Smalltalk())._current())._at_(_st(aClassName)._asSymbol());
 $1=destinationClass;
 if(($receiver = $1) == nil || $receiver == undefined){
 _st(self)._error_("Invalid class name");
@@ -414,7 +422,7 @@ return $3;
 };
 _st(destinationClass)._adoptMethod_(aMethod);
 _st(_st(aMethod)._methodClass())._forsakeMethod_(aMethod);
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName,destinationClass:destinationClass},smalltalk.HLLocalEnvironment)});},
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toClass:",{aMethod:aMethod,aClassName:aClassName,destinationClass:destinationClass},smalltalk.HLLocalEnvironment)})},
 args: ["aMethod", "aClassName"],
 source: "moveMethod: aMethod toClass: aClassName\x0a\x09| destinationClass |\x0a\x09\x0a\x09destinationClass := Smalltalk current at: aClassName asSymbol.\x0a\x09destinationClass ifNil: [ self error: 'Invalid class name' ].\x0a\x09destinationClass == aMethod methodClass ifTrue: [ ^ self ].\x0a\x09\x0a\x09destinationClass adoptMethod: aMethod.\x0a\x09aMethod methodClass forsakeMethod: aMethod.\x0a\x09",
 messageSends: ["at:", "asSymbol", "current", "ifNil:", "error:", "ifTrue:", "==", "methodClass", "adoptMethod:", "forsakeMethod:"],
@@ -423,14 +431,14 @@ referencedClasses: ["Smalltalk"]
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_moveMethod_toProtocol_",
 smalltalk.method({
 selector: "moveMethod:toProtocol:",
 category: 'actions',
-fn: function (aMethod, aProtocol) {
+fn: function (aMethod,aProtocol){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(aMethod)._category_(aProtocol);
-return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLLocalEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(aMethod)._category_(aProtocol);
+return self}, function($ctx1) {$ctx1.fill(self,"moveMethod:toProtocol:",{aMethod:aMethod,aProtocol:aProtocol},smalltalk.HLLocalEnvironment)})},
 args: ["aMethod", "aProtocol"],
 source: "moveMethod: aMethod toProtocol: aProtocol\x0a\x09aMethod category: aProtocol",
 messageSends: ["category:"],
@@ -439,16 +447,17 @@ referencedClasses: []
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_packages",
 smalltalk.method({
 selector: "packages",
 category: 'accessing',
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
-$1=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._packages();
+function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st(_st($Smalltalk())._current())._packages();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLLocalEnvironment)});},
+}, function($ctx1) {$ctx1.fill(self,"packages",{},smalltalk.HLLocalEnvironment)})},
 args: [],
 source: "packages\x0a\x09^ Smalltalk current packages",
 messageSends: ["packages", "current"],
@@ -457,14 +466,14 @@ referencedClasses: ["Smalltalk"]
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_removeMethod_",
 smalltalk.method({
 selector: "removeMethod:",
 category: 'actions',
-fn: function (aMethod) {
+fn: function (aMethod){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(aMethod)._methodClass())._forsakeMethod_(aMethod);
-return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLLocalEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(aMethod)._methodClass())._forsakeMethod_(aMethod);
+return self}, function($ctx1) {$ctx1.fill(self,"removeMethod:",{aMethod:aMethod},smalltalk.HLLocalEnvironment)})},
 args: ["aMethod"],
 source: "removeMethod: aMethod\x0a\x09aMethod methodClass forsakeMethod: aMethod",
 messageSends: ["forsakeMethod:", "methodClass"],
@@ -473,7 +482,6 @@ referencedClasses: []
 smalltalk.HLLocalEnvironment);
 
 smalltalk.addMethod(
-"_systemAnnouncer",
 smalltalk.method({
 selector: "systemAnnouncer",
 category: 'accessing',
@@ -496,14 +504,14 @@ smalltalk.HLLocalEnvironment);
 
 smalltalk.addClass('HLRemoteEnvironment', smalltalk.HLEnvironment, [], 'Helios-Environments');
 smalltalk.addMethod(
-"_eval_on_",
 smalltalk.method({
 selector: "eval:on:",
 category: 'actions',
-fn: function (someCode, aReceiver) {
+fn: function (someCode,aReceiver){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._notYetImplemented();
-return self}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver}, smalltalk.HLRemoteEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._notYetImplemented();
+return self}, function($ctx1) {$ctx1.fill(self,"eval:on:",{someCode:someCode,aReceiver:aReceiver},smalltalk.HLRemoteEnvironment)})},
 args: ["someCode", "aReceiver"],
 source: "eval: someCode on: aReceiver\x0a\x0a\x09\x22Note for future self and friends:\x0a    whatever way this compilation happens on the other side, \x0a    it should return a proxy to the remote resulting object\x22\x0a    \x0a    self notYetImplemented",
 messageSends: ["notYetImplemented"],
@@ -512,13 +520,13 @@ referencedClasses: []
 smalltalk.HLRemoteEnvironment);
 
 smalltalk.addMethod(
-"_packages",
 smalltalk.method({
 selector: "packages",
 category: 'accessing',
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"packages",{}, smalltalk.HLRemoteEnvironment)});},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"packages",{},smalltalk.HLRemoteEnvironment)})},
 args: [],
 source: "packages\x0a\x09\x22Answer the remote environment's packages\x22\x0a  \x0a\x09\x22to-do\x22\x0a    \x0a    \x22Note for future self and friends:\x0a    the problem with remote stuff is that the answers shouldn't be expected to be\x0a    received in a syncrhonous fashion. Everything network is asyc, so you *are going to deal with callbacks* here\x22",
 messageSends: [],
@@ -531,13 +539,13 @@ smalltalk.HLRemoteEnvironment);
 smalltalk.addClass('HLRemoteObject', smalltalk.Object, [], 'Helios-Environments');
 smalltalk.HLRemoteObject.comment="This is a local proxy to a remote object.\x0aTipically useful for evaluating and inspecting and interacting with instances of a remote VM.\x0a"
 smalltalk.addMethod(
-"_doesNotUnderstand_",
 smalltalk.method({
 selector: "doesNotUnderstand:",
 category: 'actions',
-fn: function (aMessage) {
+fn: function (aMessage){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"doesNotUnderstand:",{aMessage:aMessage}, smalltalk.HLRemoteObject)});},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"doesNotUnderstand:",{aMessage:aMessage},smalltalk.HLRemoteObject)})},
 args: ["aMessage"],
 source: "doesNotUnderstand: aMessage\x0a\x0a\x09\x22to-do\x0a\x0a\x09aham, blah blah\x0a\x0a\x09super doesNotUnderstand: aMessage\x22",
 messageSends: [],
@@ -546,29 +554,29 @@ referencedClasses: []
 smalltalk.HLRemoteObject);
 
 smalltalk.addMethod(
-"_inspectOn_",
 smalltalk.method({
 selector: "inspectOn:",
 category: 'actions',
-fn: function (anInspector) {
+fn: function (anInspector){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"inspectOn:",{anInspector:anInspector}, smalltalk.HLRemoteObject)});},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"inspectOn:",{anInspector:anInspector},smalltalk.HLRemoteObject)})},
 args: ["anInspector"],
-source: "inspectOn: anInspector\x0a\x0a\x09\x22to-do\x22\x0a\x0a\x09\x22this is a source of so much fun...\x22\x0a",
+source: "inspectOn: anInspector\x0a\x0a\x09\x22to-do\x22\x0a\x0a\x09\x22this is a source of so much fun...\x22",
 messageSends: [],
 referencedClasses: []
 }),
 smalltalk.HLRemoteObject);
 
 smalltalk.addMethod(
-"_printString",
 smalltalk.method({
 selector: "printString",
 category: 'actions',
-fn: function () {
+fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "this is a remote object";
-}, function($ctx1) {$ctx1.fill(self,"printString",{}, smalltalk.HLRemoteObject)});},
+return smalltalk.withContext(function($ctx1) { 
+return "this is a remote object";
+}, function($ctx1) {$ctx1.fill(self,"printString",{},smalltalk.HLRemoteObject)})},
 args: [],
 source: "printString\x0a\x09^ 'this is a remote object'",
 messageSends: [],
@@ -579,14 +587,14 @@ smalltalk.HLRemoteObject);
 
 
 smalltalk.addMethod(
-"_adoptMethod_",
 smalltalk.method({
 selector: "adoptMethod:",
 category: '*Helios-Environments',
-fn: function (aMethod) {
+fn: function (aMethod){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._compile_category_(_st(aMethod)._source(),_st(aMethod)._protocol());
-return self}, function($ctx1) {$ctx1.fill(self,"adoptMethod:",{aMethod:aMethod},smalltalk.Behavior)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._compile_category_(_st(aMethod)._source(),_st(aMethod)._protocol());
+return self}, function($ctx1) {$ctx1.fill(self,"adoptMethod:",{aMethod:aMethod},smalltalk.Behavior)})},
 args: ["aMethod"],
 source: "adoptMethod: aMethod\x0a\x09self \x0a\x09\x09compile: aMethod source\x0a\x09\x09category: aMethod protocol.",
 messageSends: ["compile:category:", "source", "protocol"],
@@ -595,14 +603,14 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_forsakeMethod_",
 smalltalk.method({
 selector: "forsakeMethod:",
 category: '*Helios-Environments',
-fn: function (aMethod) {
+fn: function (aMethod){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._removeCompiledMethod_(aMethod);
-return self}, function($ctx1) {$ctx1.fill(self,"forsakeMethod:",{aMethod:aMethod},smalltalk.Behavior)});},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._removeCompiledMethod_(aMethod);
+return self}, function($ctx1) {$ctx1.fill(self,"forsakeMethod:",{aMethod:aMethod},smalltalk.Behavior)})},
 args: ["aMethod"],
 source: "forsakeMethod: aMethod\x0a\x09self removeCompiledMethod: aMethod",
 messageSends: ["removeCompiledMethod:"],

js/Helios-Inspector.deploy.js

@@ -1,15 +1,16 @@
 smalltalk.addPackage('Helios-Inspector');
 smalltalk.addClass('HLInspector', smalltalk.HLWidget, ['model', 'variablesWidget', 'displayWidget', 'codeWidget', 'label'], 'Helios-Inspector');
 smalltalk.addMethod(
-"_codeWidget",
 smalltalk.method({
 selector: "codeWidget",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$4,$1;
+function $HLCodeWidget(){return smalltalk.HLCodeWidget||(typeof HLCodeWidget=="undefined"?nil:HLCodeWidget)}
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$4,$1;
 $2=self["@codeWidget"];
 if(($receiver = $2) == nil || $receiver == undefined){
-$3=_st((smalltalk.HLCodeWidget || HLCodeWidget))._new();
+$3=_st($HLCodeWidget())._new();
 _st($3)._model_(_st(self["@model"])._code());
 _st($3)._receiver_(_st(self["@model"])._inspectee());
 $4=_st($3)._yourself();
@@ -19,20 +20,21 @@ $1=self["@codeWidget"];
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"codeWidget",{}, smalltalk.HLInspector)})},
+}, function($ctx1) {$ctx1.fill(self,"codeWidget",{},smalltalk.HLInspector)})},
 messageSends: ["ifNil:", "model:", "code", "new", "receiver:", "inspectee", "yourself"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_displayWidget",
 smalltalk.method({
 selector: "displayWidget",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$4,$1;
+function $HLInspectorDisplayWidget(){return smalltalk.HLInspectorDisplayWidget||(typeof HLInspectorDisplayWidget=="undefined"?nil:HLInspectorDisplayWidget)}
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$4,$1;
 $2=self["@displayWidget"];
 if(($receiver = $2) == nil || $receiver == undefined){
-$3=_st((smalltalk.HLInspectorDisplayWidget || HLInspectorDisplayWidget))._new();
+$3=_st($HLInspectorDisplayWidget())._new();
 _st($3)._model_(_st(self)._model());
 $4=_st($3)._yourself();
 self["@displayWidget"]=$4;
@@ -41,56 +43,56 @@ $1=self["@displayWidget"];
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"displayWidget",{}, smalltalk.HLInspector)})},
+}, function($ctx1) {$ctx1.fill(self,"displayWidget",{},smalltalk.HLInspector)})},
 messageSends: ["ifNil:", "model:", "model", "new", "yourself"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_inspect_",
 smalltalk.method({
 selector: "inspect:",
 fn: function (anObject){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2;
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
 _st(_st(self)._model())._inspect_on_(anObject,self);
 $1=self;
 _st($1)._refreshVariablesWidget();
 $2=_st($1)._refreshDisplayWidget();
-return self}, function($ctx1) {$ctx1.fill(self,"inspect:",{anObject:anObject}, smalltalk.HLInspector)})},
+return self}, function($ctx1) {$ctx1.fill(self,"inspect:",{anObject:anObject},smalltalk.HLInspector)})},
 messageSends: ["inspect:on:", "model", "refreshVariablesWidget", "refreshDisplayWidget"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_inspectee",
 smalltalk.method({
 selector: "inspectee",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._model())._inspectee();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"inspectee",{}, smalltalk.HLInspector)})},
+}, function($ctx1) {$ctx1.fill(self,"inspectee",{},smalltalk.HLInspector)})},
 messageSends: ["inspectee", "model"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_inspectee_",
 smalltalk.method({
 selector: "inspectee:",
 fn: function (anObject){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._inspectee_(anObject);
-return self}, function($ctx1) {$ctx1.fill(self,"inspectee:",{anObject:anObject}, smalltalk.HLInspector)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._inspectee_(anObject);
+return self}, function($ctx1) {$ctx1.fill(self,"inspectee:",{anObject:anObject},smalltalk.HLInspector)})},
 messageSends: ["inspectee:", "model"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_label",
 smalltalk.method({
 selector: "label",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
 $2=self["@label"];
 if(($receiver = $2) == nil || $receiver == undefined){
 $1=_st(_st(self["@model"])._inspectee())._printString();
@@ -98,256 +100,271 @@ $1=_st(_st(self["@model"])._inspectee())._printString();
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLInspector)})},
+}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLInspector)})},
 messageSends: ["ifNil:", "printString", "inspectee"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_model",
 smalltalk.method({
 selector: "model",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$1;
+function $HLInspectorModel(){return smalltalk.HLInspectorModel||(typeof HLInspectorModel=="undefined"?nil:HLInspectorModel)}
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
 $2=self["@model"];
 if(($receiver = $2) == nil || $receiver == undefined){
-_st(self)._model_(_st((smalltalk.HLInspectorModel || HLInspectorModel))._new());
+_st(self)._model_(_st($HLInspectorModel())._new());
 $1=self["@model"];
 } else {
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"model",{}, smalltalk.HLInspector)})},
+}, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLInspector)})},
 messageSends: ["ifNil:", "model:", "new"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_model_",
 smalltalk.method({
 selector: "model:",
 fn: function (aModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2;
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
 self["@model"]=aModel;
 _st(_st(self)._codeWidget())._model_(_st(aModel)._code());
 $1=self;
 _st($1)._observeCodeWidget();
 _st($1)._observeVariablesWidget();
 $2=_st($1)._observeModel();
-return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel}, smalltalk.HLInspector)})},
+return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel},smalltalk.HLInspector)})},
 messageSends: ["model:", "code", "codeWidget", "observeCodeWidget", "observeVariablesWidget", "observeModel"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_observeCodeWidget",
 smalltalk.method({
 selector: "observeCodeWidget",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(_st(self)._codeWidget())._announcer())._on_do_((smalltalk.HLDoItExecuted || HLDoItExecuted),(function(){
-return smalltalk.withContext(function($ctx2) {
return _st(self)._onDoneIt();
+function $HLDoItExecuted(){return smalltalk.HLDoItExecuted||(typeof HLDoItExecuted=="undefined"?nil:HLDoItExecuted)}
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(_st(self)._codeWidget())._announcer())._on_do_($HLDoItExecuted(),(function(){
+return smalltalk.withContext(function($ctx2) {
+return _st(self)._onDoneIt();
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"observeCodeWidget",{}, smalltalk.HLInspector)})},
+return self}, function($ctx1) {$ctx1.fill(self,"observeCodeWidget",{},smalltalk.HLInspector)})},
 messageSends: ["on:do:", "onDoneIt", "announcer", "codeWidget"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_observeModel",
 smalltalk.method({
 selector: "observeModel",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(_st(self)._model())._announcer())._on_do_((smalltalk.HLInstanceVariableSelected || HLInstanceVariableSelected),(function(ann){
-return smalltalk.withContext(function($ctx2) {
return _st(self)._onInstanceVariableSelected();
+function $HLInstanceVariableSelected(){return smalltalk.HLInstanceVariableSelected||(typeof HLInstanceVariableSelected=="undefined"?nil:HLInstanceVariableSelected)}
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(_st(self)._model())._announcer())._on_do_($HLInstanceVariableSelected(),(function(ann){
+return smalltalk.withContext(function($ctx2) {
+return _st(self)._onInstanceVariableSelected();
 }, function($ctx2) {$ctx2.fillBlock({ann:ann},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"observeModel",{}, smalltalk.HLInspector)})},
+return self}, function($ctx1) {$ctx1.fill(self,"observeModel",{},smalltalk.HLInspector)})},
 messageSends: ["on:do:", "onInstanceVariableSelected", "announcer", "model"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_observeVariablesWidget",
 smalltalk.method({
 selector: "observeVariablesWidget",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2;
+function $HLRefreshRequested(){return smalltalk.HLRefreshRequested||(typeof HLRefreshRequested=="undefined"?nil:HLRefreshRequested)}
+function $HLDiveRequested(){return smalltalk.HLDiveRequested||(typeof HLDiveRequested=="undefined"?nil:HLDiveRequested)}
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
 $1=_st(_st(self)._variablesWidget())._announcer();
-_st($1)._on_do_((smalltalk.HLRefreshRequested || HLRefreshRequested),(function(ann){
-return smalltalk.withContext(function($ctx2) {
return _st(self)._onRefresh();
+_st($1)._on_do_($HLRefreshRequested(),(function(ann){
+return smalltalk.withContext(function($ctx2) {
+return _st(self)._onRefresh();
 }, function($ctx2) {$ctx2.fillBlock({ann:ann},$ctx1)})}));
-$2=_st($1)._on_do_((smalltalk.HLDiveRequested || HLDiveRequested),(function(){
-return smalltalk.withContext(function($ctx2) {
return _st(self)._onDive();
+$2=_st($1)._on_do_($HLDiveRequested(),(function(){
+return smalltalk.withContext(function($ctx2) {
+return _st(self)._onDive();
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"observeVariablesWidget",{}, smalltalk.HLInspector)})},
+return self}, function($ctx1) {$ctx1.fill(self,"observeVariablesWidget",{},smalltalk.HLInspector)})},
 messageSends: ["on:do:", "onRefresh", "announcer", "variablesWidget", "onDive"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_onDive",
 smalltalk.method({
 selector: "onDive",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._inspect_(_st(_st(self)._model())._selectedInstVarObject());
-return self}, function($ctx1) {$ctx1.fill(self,"onDive",{}, smalltalk.HLInspector)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._inspect_(_st(_st(self)._model())._selectedInstVarObject());
+return self}, function($ctx1) {$ctx1.fill(self,"onDive",{},smalltalk.HLInspector)})},
 messageSends: ["inspect:", "selectedInstVarObject", "model"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_onDoneIt",
 smalltalk.method({
 selector: "onDoneIt",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._refresh();
-return self}, function($ctx1) {$ctx1.fill(self,"onDoneIt",{}, smalltalk.HLInspector)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._refresh();
+return self}, function($ctx1) {$ctx1.fill(self,"onDoneIt",{},smalltalk.HLInspector)})},
 messageSends: ["refresh"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_onInspectIt",
 smalltalk.method({
 selector: "onInspectIt",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"onInspectIt",{}, smalltalk.HLInspector)})},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"onInspectIt",{},smalltalk.HLInspector)})},
 messageSends: []}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_onInstanceVariableSelected",
 smalltalk.method({
 selector: "onInstanceVariableSelected",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._codeWidget())._receiver_(_st(_st(self)._model())._selectedInstVarObject());
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._codeWidget())._receiver_(_st(_st(self)._model())._selectedInstVarObject());
 _st(self)._refreshDisplayWidget();
-return self}, function($ctx1) {$ctx1.fill(self,"onInstanceVariableSelected",{}, smalltalk.HLInspector)})},
+return self}, function($ctx1) {$ctx1.fill(self,"onInstanceVariableSelected",{},smalltalk.HLInspector)})},
 messageSends: ["receiver:", "selectedInstVarObject", "model", "codeWidget", "refreshDisplayWidget"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_onPrintIt",
 smalltalk.method({
 selector: "onPrintIt",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"onPrintIt",{}, smalltalk.HLInspector)})},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"onPrintIt",{},smalltalk.HLInspector)})},
 messageSends: []}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_onRefresh",
 smalltalk.method({
 selector: "onRefresh",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._refresh();
-return self}, function($ctx1) {$ctx1.fill(self,"onRefresh",{}, smalltalk.HLInspector)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._refresh();
+return self}, function($ctx1) {$ctx1.fill(self,"onRefresh",{},smalltalk.HLInspector)})},
 messageSends: ["refresh"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_open",
 smalltalk.method({
 selector: "open",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st((smalltalk.HLManager || HLManager))._current())._addTab_(_st((smalltalk.HLTab || HLTab))._on_labelled_(self,_st(self)._tabLabel()));
-return self}, function($ctx1) {$ctx1.fill(self,"open",{}, smalltalk.HLInspector)})},
+function $HLTab(){return smalltalk.HLTab||(typeof HLTab=="undefined"?nil:HLTab)}
+function $HLManager(){return smalltalk.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
+return smalltalk.withContext(function($ctx1) { 
+_st(_st($HLManager())._current())._addTab_(_st($HLTab())._on_labelled_(self,_st(self)._tabLabel()));
+return self}, function($ctx1) {$ctx1.fill(self,"open",{},smalltalk.HLInspector)})},
 messageSends: ["addTab:", "on:labelled:", "tabLabel", "current"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_refresh",
 smalltalk.method({
 selector: "refresh",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._inspect_(_st(self)._inspectee());
-return self}, function($ctx1) {$ctx1.fill(self,"refresh",{}, smalltalk.HLInspector)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._inspect_(_st(self)._inspectee());
+return self}, function($ctx1) {$ctx1.fill(self,"refresh",{},smalltalk.HLInspector)})},
 messageSends: ["inspect:", "inspectee"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_refreshDisplayWidget",
 smalltalk.method({
 selector: "refreshDisplayWidget",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._displayWidget())._refresh();
-return self}, function($ctx1) {$ctx1.fill(self,"refreshDisplayWidget",{}, smalltalk.HLInspector)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._displayWidget())._refresh();
+return self}, function($ctx1) {$ctx1.fill(self,"refreshDisplayWidget",{},smalltalk.HLInspector)})},
 messageSends: ["refresh", "displayWidget"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_refreshVariablesWidget",
 smalltalk.method({
 selector: "refreshVariablesWidget",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._variablesWidget())._refresh();
-return self}, function($ctx1) {$ctx1.fill(self,"refreshVariablesWidget",{}, smalltalk.HLInspector)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._variablesWidget())._refresh();
+return self}, function($ctx1) {$ctx1.fill(self,"refreshVariablesWidget",{},smalltalk.HLInspector)})},
 messageSends: ["refresh", "variablesWidget"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_renderContentOn_",
 smalltalk.method({
 selector: "renderContentOn:",
 fn: function (html){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(html)._with_(_st((smalltalk.HLContainer || HLContainer))._with_(_st((smalltalk.HLHorizontalSplitter || HLHorizontalSplitter))._with_with_(_st((smalltalk.HLVerticalSplitter || HLVerticalSplitter))._with_with_(_st(self)._variablesWidget(),_st(self)._displayWidget()),_st(self)._codeWidget())));
+function $HLVerticalSplitter(){return smalltalk.HLVerticalSplitter||(typeof HLVerticalSplitter=="undefined"?nil:HLVerticalSplitter)}
+function $HLHorizontalSplitter(){return smalltalk.HLHorizontalSplitter||(typeof HLHorizontalSplitter=="undefined"?nil:HLHorizontalSplitter)}
+function $HLContainer(){return smalltalk.HLContainer||(typeof HLContainer=="undefined"?nil:HLContainer)}
+return smalltalk.withContext(function($ctx1) { 
+_st(html)._with_(_st($HLContainer())._with_(_st($HLHorizontalSplitter())._with_with_(_st($HLVerticalSplitter())._with_with_(_st(self)._variablesWidget(),_st(self)._displayWidget()),_st(self)._codeWidget())));
 _st(_st(self)._variablesWidget())._focus();
 return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},smalltalk.HLInspector)})},
 messageSends: ["with:", "with:with:", "variablesWidget", "displayWidget", "codeWidget", "focus"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_setLabel_",
 smalltalk.method({
 selector: "setLabel:",
 fn: function (aString){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@label"]=aString;
-return self}, function($ctx1) {$ctx1.fill(self,"setLabel:",{aString:aString}, smalltalk.HLInspector)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@label"]=aString;
+return self}, function($ctx1) {$ctx1.fill(self,"setLabel:",{aString:aString},smalltalk.HLInspector)})},
 messageSends: []}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_setVariables_",
 smalltalk.method({
 selector: "setVariables:",
 fn: function (aDictionary){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._model())._variables_(aDictionary);
-return self}, function($ctx1) {$ctx1.fill(self,"setVariables:",{aDictionary:aDictionary}, smalltalk.HLInspector)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._model())._variables_(aDictionary);
+return self}, function($ctx1) {$ctx1.fill(self,"setVariables:",{aDictionary:aDictionary},smalltalk.HLInspector)})},
 messageSends: ["variables:", "model"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_tabLabel",
 smalltalk.method({
 selector: "tabLabel",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._label();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"tabLabel",{}, smalltalk.HLInspector)})},
+}, function($ctx1) {$ctx1.fill(self,"tabLabel",{},smalltalk.HLInspector)})},
 messageSends: ["label"]}),
 smalltalk.HLInspector);
 
 smalltalk.addMethod(
-"_variablesWidget",
 smalltalk.method({
 selector: "variablesWidget",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$4,$1;
+function $HLInspectorVariablesWidget(){return smalltalk.HLInspectorVariablesWidget||(typeof HLInspectorVariablesWidget=="undefined"?nil:HLInspectorVariablesWidget)}
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$4,$1;
 $2=self["@variablesWidget"];
 if(($receiver = $2) == nil || $receiver == undefined){
-$3=_st((smalltalk.HLInspectorVariablesWidget || HLInspectorVariablesWidget))._new();
+$3=_st($HLInspectorVariablesWidget())._new();
 _st($3)._model_(_st(self)._model());
 $4=_st($3)._yourself();
 self["@variablesWidget"]=$4;
@@ -356,89 +373,91 @@ $1=self["@variablesWidget"];
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"variablesWidget",{}, smalltalk.HLInspector)})},
+}, function($ctx1) {$ctx1.fill(self,"variablesWidget",{},smalltalk.HLInspector)})},
 messageSends: ["ifNil:", "model:", "model", "new", "yourself"]}),
 smalltalk.HLInspector);
 
 
 smalltalk.addMethod(
-"_canBeOpenAsTab",
 smalltalk.method({
 selector: "canBeOpenAsTab",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return false;
-}, function($ctx1) {$ctx1.fill(self,"canBeOpenAsTab",{}, smalltalk.HLInspector.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return false;
+}, function($ctx1) {$ctx1.fill(self,"canBeOpenAsTab",{},smalltalk.HLInspector.klass)})},
 messageSends: []}),
 smalltalk.HLInspector.klass);
 
 smalltalk.addMethod(
-"_tabLabel",
 smalltalk.method({
 selector: "tabLabel",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "Inspector";
-}, function($ctx1) {$ctx1.fill(self,"tabLabel",{}, smalltalk.HLInspector.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+return "Inspector";
+}, function($ctx1) {$ctx1.fill(self,"tabLabel",{},smalltalk.HLInspector.klass)})},
 messageSends: []}),
 smalltalk.HLInspector.klass);
 
 smalltalk.addMethod(
-"_tabPriority",
 smalltalk.method({
 selector: "tabPriority",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return (10);
-}, function($ctx1) {$ctx1.fill(self,"tabPriority",{}, smalltalk.HLInspector.klass)})},
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=(10);
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"tabPriority",{},smalltalk.HLInspector.klass)})},
 messageSends: []}),
 smalltalk.HLInspector.klass);
 
 
 smalltalk.addClass('HLInspectorDisplayWidget', smalltalk.HLNavigationListWidget, ['model'], 'Helios-Inspector');
 smalltalk.addMethod(
-"_model",
 smalltalk.method({
 selector: "model",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@model"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"model",{}, smalltalk.HLInspectorDisplayWidget)})},
+}, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLInspectorDisplayWidget)})},
 messageSends: []}),
 smalltalk.HLInspectorDisplayWidget);
 
 smalltalk.addMethod(
-"_model_",
 smalltalk.method({
 selector: "model:",
 fn: function (aModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@model"]=aModel;
-return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel}, smalltalk.HLInspectorDisplayWidget)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@model"]=aModel;
+return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel},smalltalk.HLInspectorDisplayWidget)})},
 messageSends: []}),
 smalltalk.HLInspectorDisplayWidget);
 
 smalltalk.addMethod(
-"_renderContentOn_",
 smalltalk.method({
 selector: "renderContentOn:",
 fn: function (html){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(html)._div())._with_(_st(self)._selectionDisplayString());
-return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html}, smalltalk.HLInspectorDisplayWidget)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(html)._div())._with_(_st(self)._selectionDisplayString());
+return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},smalltalk.HLInspectorDisplayWidget)})},
 messageSends: ["with:", "selectionDisplayString", "div"]}),
 smalltalk.HLInspectorDisplayWidget);
 
 smalltalk.addMethod(
-"_selectionDisplayString",
 smalltalk.method({
 selector: "selectionDisplayString",
 fn: function (){
 var self=this;
 var selection;
-return smalltalk.withContext(function($ctx1) { 
var $2,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
 selection=_st(self["@model"])._selection();
 $2=_st(_st(_st(self["@model"])._variables())._keys())._includes_(selection);
 if(smalltalk.assert($2)){
@@ -447,7 +466,7 @@ $1=_st(_st(self["@model"])._instVarObjectAt_(selection))._printString();
 $1="";
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"selectionDisplayString",{selection:selection}, smalltalk.HLInspectorDisplayWidget)})},
+}, function($ctx1) {$ctx1.fill(self,"selectionDisplayString",{selection:selection},smalltalk.HLInspectorDisplayWidget)})},
 messageSends: ["selection", "ifTrue:ifFalse:", "printString", "instVarObjectAt:", "includes:", "keys", "variables"]}),
 smalltalk.HLInspectorDisplayWidget);
 
@@ -455,129 +474,132 @@ smalltalk.HLInspectorDisplayWidget);
 
 smalltalk.addClass('HLInspectorModel', smalltalk.Object, ['announcer', 'environment', 'inspectee', 'code', 'variables', 'selection'], 'Helios-Inspector');
 smalltalk.addMethod(
-"_announcer",
 smalltalk.method({
 selector: "announcer",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$1;
+function $Announcer(){return smalltalk.Announcer||(typeof Announcer=="undefined"?nil:Announcer)}
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
 $2=self["@announcer"];
 if(($receiver = $2) == nil || $receiver == undefined){
-self["@announcer"]=_st((smalltalk.Announcer || Announcer))._new();
+self["@announcer"]=_st($Announcer())._new();
 $1=self["@announcer"];
 } else {
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"announcer",{}, smalltalk.HLInspectorModel)})},
+}, function($ctx1) {$ctx1.fill(self,"announcer",{},smalltalk.HLInspectorModel)})},
 messageSends: ["ifNil:", "new"]}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_code",
 smalltalk.method({
 selector: "code",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$1;
+function $HLCodeModel(){return smalltalk.HLCodeModel||(typeof HLCodeModel=="undefined"?nil:HLCodeModel)}
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
 $2=self["@code"];
 if(($receiver = $2) == nil || $receiver == undefined){
-self["@code"]=_st((smalltalk.HLCodeModel || HLCodeModel))._on_(_st(self)._environment());
+self["@code"]=_st($HLCodeModel())._on_(_st(self)._environment());
 $1=self["@code"];
 } else {
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"code",{}, smalltalk.HLInspectorModel)})},
+}, function($ctx1) {$ctx1.fill(self,"code",{},smalltalk.HLInspectorModel)})},
 messageSends: ["ifNil:", "on:", "environment"]}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_environment",
 smalltalk.method({
 selector: "environment",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$1;
+function $HLManager(){return smalltalk.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
 $2=self["@environment"];
 if(($receiver = $2) == nil || $receiver == undefined){
-$1=_st(_st((smalltalk.HLManager || HLManager))._current())._environment();
+$1=_st(_st($HLManager())._current())._environment();
 } else {
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"environment",{}, smalltalk.HLInspectorModel)})},
+}, function($ctx1) {$ctx1.fill(self,"environment",{},smalltalk.HLInspectorModel)})},
 messageSends: ["ifNil:", "environment", "current"]}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_environment_",
 smalltalk.method({
 selector: "environment:",
 fn: function (anEnvironment){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@environment"]=anEnvironment;
-return self}, function($ctx1) {$ctx1.fill(self,"environment:",{anEnvironment:anEnvironment}, smalltalk.HLInspectorModel)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@environment"]=anEnvironment;
+return self}, function($ctx1) {$ctx1.fill(self,"environment:",{anEnvironment:anEnvironment},smalltalk.HLInspectorModel)})},
 messageSends: []}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_inspect_on_",
 smalltalk.method({
 selector: "inspect:on:",
 fn: function (anObject,anInspector){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@inspectee"]=anObject;
+return smalltalk.withContext(function($ctx1) { 
+self["@inspectee"]=anObject;
 self["@variables"]=[];
 _st(self["@inspectee"])._inspectOn_(anInspector);
-return self}, function($ctx1) {$ctx1.fill(self,"inspect:on:",{anObject:anObject,anInspector:anInspector}, smalltalk.HLInspectorModel)})},
+return self}, function($ctx1) {$ctx1.fill(self,"inspect:on:",{anObject:anObject,anInspector:anInspector},smalltalk.HLInspectorModel)})},
 messageSends: ["inspectOn:"]}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_inspectee",
 smalltalk.method({
 selector: "inspectee",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@inspectee"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"inspectee",{}, smalltalk.HLInspectorModel)})},
+}, function($ctx1) {$ctx1.fill(self,"inspectee",{},smalltalk.HLInspectorModel)})},
 messageSends: []}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_inspectee_",
 smalltalk.method({
 selector: "inspectee:",
 fn: function (anObject){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@inspectee"]=anObject;
-return self}, function($ctx1) {$ctx1.fill(self,"inspectee:",{anObject:anObject}, smalltalk.HLInspectorModel)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@inspectee"]=anObject;
+return self}, function($ctx1) {$ctx1.fill(self,"inspectee:",{anObject:anObject},smalltalk.HLInspectorModel)})},
 messageSends: []}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_instVarObjectAt_",
 smalltalk.method({
 selector: "instVarObjectAt:",
 fn: function (anInstVarName){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(self)._variables())._at_(anInstVarName);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"instVarObjectAt:",{anInstVarName:anInstVarName}, smalltalk.HLInspectorModel)})},
+}, function($ctx1) {$ctx1.fill(self,"instVarObjectAt:",{anInstVarName:anInstVarName},smalltalk.HLInspectorModel)})},
 messageSends: ["at:", "variables"]}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_onKeyDown_",
 smalltalk.method({
 selector: "onKeyDown:",
 fn: function (anEvent){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
if(anEvent.ctrlKey) {
+return smalltalk.withContext(function($ctx1) { 
+if(anEvent.ctrlKey) {
 		if(anEvent.keyCode === 80) { //ctrl+p
 			self._printIt();
 			anEvent.preventDefault();
@@ -594,41 +616,41 @@ return smalltalk.withContext(function($ctx1) { 
if(anEvent.ctrlKey) {
 			return false;
 		}
 	};
-return self}, function($ctx1) {$ctx1.fill(self,"onKeyDown:",{anEvent:anEvent}, smalltalk.HLInspectorModel)})},
+return self}, function($ctx1) {$ctx1.fill(self,"onKeyDown:",{anEvent:anEvent},smalltalk.HLInspectorModel)})},
 messageSends: []}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_selectedInstVar_",
 smalltalk.method({
 selector: "selectedInstVar:",
 fn: function (anInstVarName){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._selection_(anInstVarName);
-return self}, function($ctx1) {$ctx1.fill(self,"selectedInstVar:",{anInstVarName:anInstVarName}, smalltalk.HLInspectorModel)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._selection_(anInstVarName);
+return self}, function($ctx1) {$ctx1.fill(self,"selectedInstVar:",{anInstVarName:anInstVarName},smalltalk.HLInspectorModel)})},
 messageSends: ["selection:"]}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_selectedInstVarObject",
 smalltalk.method({
 selector: "selectedInstVarObject",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self)._instVarObjectAt_(_st(self)._selection());
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"selectedInstVarObject",{}, smalltalk.HLInspectorModel)})},
+}, function($ctx1) {$ctx1.fill(self,"selectedInstVarObject",{},smalltalk.HLInspectorModel)})},
 messageSends: ["instVarObjectAt:", "selection"]}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_selection",
 smalltalk.method({
 selector: "selection",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
 $2=self["@selection"];
 if(($receiver = $2) == nil || $receiver == undefined){
 $1="";
@@ -636,214 +658,220 @@ $1="";
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"selection",{}, smalltalk.HLInspectorModel)})},
+}, function($ctx1) {$ctx1.fill(self,"selection",{},smalltalk.HLInspectorModel)})},
 messageSends: ["ifNil:"]}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_selection_",
 smalltalk.method({
 selector: "selection:",
 fn: function (anObject){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@selection"]=anObject;
-_st(_st(self)._announcer())._announce_(_st((smalltalk.HLInstanceVariableSelected || HLInstanceVariableSelected))._on_(self["@selection"]));
-return self}, function($ctx1) {$ctx1.fill(self,"selection:",{anObject:anObject}, smalltalk.HLInspectorModel)})},
+function $HLInstanceVariableSelected(){return smalltalk.HLInstanceVariableSelected||(typeof HLInstanceVariableSelected=="undefined"?nil:HLInstanceVariableSelected)}
+return smalltalk.withContext(function($ctx1) { 
+self["@selection"]=anObject;
+_st(_st(self)._announcer())._announce_(_st($HLInstanceVariableSelected())._on_(self["@selection"]));
+return self}, function($ctx1) {$ctx1.fill(self,"selection:",{anObject:anObject},smalltalk.HLInspectorModel)})},
 messageSends: ["announce:", "on:", "announcer"]}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_subscribe_",
 smalltalk.method({
 selector: "subscribe:",
 fn: function (aWidget){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(aWidget)._subscribeTo_(_st(self)._announcer());
-return self}, function($ctx1) {$ctx1.fill(self,"subscribe:",{aWidget:aWidget}, smalltalk.HLInspectorModel)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(aWidget)._subscribeTo_(_st(self)._announcer());
+return self}, function($ctx1) {$ctx1.fill(self,"subscribe:",{aWidget:aWidget},smalltalk.HLInspectorModel)})},
 messageSends: ["subscribeTo:", "announcer"]}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_variables",
 smalltalk.method({
 selector: "variables",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@variables"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"variables",{}, smalltalk.HLInspectorModel)})},
+}, function($ctx1) {$ctx1.fill(self,"variables",{},smalltalk.HLInspectorModel)})},
 messageSends: []}),
 smalltalk.HLInspectorModel);
 
 smalltalk.addMethod(
-"_variables_",
 smalltalk.method({
 selector: "variables:",
 fn: function (aCollection){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@variables"]=aCollection;
-return self}, function($ctx1) {$ctx1.fill(self,"variables:",{aCollection:aCollection}, smalltalk.HLInspectorModel)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@variables"]=aCollection;
+return self}, function($ctx1) {$ctx1.fill(self,"variables:",{aCollection:aCollection},smalltalk.HLInspectorModel)})},
 messageSends: []}),
 smalltalk.HLInspectorModel);
 
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 fn: function (anEnvironment){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$1;
 $2=_st(self)._new();
 _st($2)._environment_(anEnvironment);
 $3=_st($2)._yourself();
 $1=$3;
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"on:",{anEnvironment:anEnvironment}, smalltalk.HLInspectorModel.klass)})},
+}, function($ctx1) {$ctx1.fill(self,"on:",{anEnvironment:anEnvironment},smalltalk.HLInspectorModel.klass)})},
 messageSends: ["environment:", "new", "yourself"]}),
 smalltalk.HLInspectorModel.klass);
 
 
 smalltalk.addClass('HLInspectorVariablesWidget', smalltalk.HLNavigationListWidget, ['announcer', 'model', 'list', 'diveButton'], 'Helios-Inspector');
 smalltalk.addMethod(
-"_announcer",
 smalltalk.method({
 selector: "announcer",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$1;
+function $Announcer(){return smalltalk.Announcer||(typeof Announcer=="undefined"?nil:Announcer)}
+return smalltalk.withContext(function($ctx1) { 
+var $2,$1;
 $2=self["@announcer"];
 if(($receiver = $2) == nil || $receiver == undefined){
-self["@announcer"]=_st((smalltalk.Announcer || Announcer))._new();
+self["@announcer"]=_st($Announcer())._new();
 $1=self["@announcer"];
 } else {
 $1=$2;
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"announcer",{}, smalltalk.HLInspectorVariablesWidget)})},
+}, function($ctx1) {$ctx1.fill(self,"announcer",{},smalltalk.HLInspectorVariablesWidget)})},
 messageSends: ["ifNil:", "new"]}),
 smalltalk.HLInspectorVariablesWidget);
 
 smalltalk.addMethod(
-"_defaultItems",
 smalltalk.method({
 selector: "defaultItems",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(_st(_st(self)._model())._variables())._keys();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"defaultItems",{}, smalltalk.HLInspectorVariablesWidget)})},
+}, function($ctx1) {$ctx1.fill(self,"defaultItems",{},smalltalk.HLInspectorVariablesWidget)})},
 messageSends: ["keys", "variables", "model"]}),
 smalltalk.HLInspectorVariablesWidget);
 
 smalltalk.addMethod(
-"_model",
 smalltalk.method({
 selector: "model",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@model"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"model",{}, smalltalk.HLInspectorVariablesWidget)})},
+}, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLInspectorVariablesWidget)})},
 messageSends: []}),
 smalltalk.HLInspectorVariablesWidget);
 
 smalltalk.addMethod(
-"_model_",
 smalltalk.method({
 selector: "model:",
 fn: function (aModel){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@model"]=aModel;
-return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel}, smalltalk.HLInspectorVariablesWidget)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@model"]=aModel;
+return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel},smalltalk.HLInspectorVariablesWidget)})},
 messageSends: []}),
 smalltalk.HLInspectorVariablesWidget);
 
 smalltalk.addMethod(
-"_refresh",
 smalltalk.method({
 selector: "refresh",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._resetItems();
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._resetItems();
 smalltalk.HLNavigationListWidget.fn.prototype._refresh.apply(_st(self), []);
-return self}, function($ctx1) {$ctx1.fill(self,"refresh",{}, smalltalk.HLInspectorVariablesWidget)})},
+return self}, function($ctx1) {$ctx1.fill(self,"refresh",{},smalltalk.HLInspectorVariablesWidget)})},
 messageSends: ["resetItems", "refresh"]}),
 smalltalk.HLInspectorVariablesWidget);
 
 smalltalk.addMethod(
-"_renderButtonsOn_",
 smalltalk.method({
 selector: "renderButtonsOn:",
 fn: function (html){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2,$3,$4;
+function $HLRefreshRequested(){return smalltalk.HLRefreshRequested||(typeof HLRefreshRequested=="undefined"?nil:HLRefreshRequested)}
+function $HLDiveRequested(){return smalltalk.HLDiveRequested||(typeof HLDiveRequested=="undefined"?nil:HLDiveRequested)}
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2,$3,$4;
 $1=_st(html)._button();
 _st($1)._class_("btn");
 _st($1)._with_("Refresh");
 $2=_st($1)._onClick_((function(){
-return smalltalk.withContext(function($ctx2) {
return _st(_st(self)._announcer())._announce_(_st((smalltalk.HLRefreshRequested || HLRefreshRequested))._new());
+return smalltalk.withContext(function($ctx2) {
+return _st(_st(self)._announcer())._announce_(_st($HLRefreshRequested())._new());
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
 $3=_st(html)._button();
 _st($3)._class_("btn");
 _st($3)._with_("Dive");
 $4=_st($3)._onClick_((function(){
-return smalltalk.withContext(function($ctx2) {
return _st(_st(self)._announcer())._announce_(_st((smalltalk.HLDiveRequested || HLDiveRequested))._new());
+return smalltalk.withContext(function($ctx2) {
+return _st(_st(self)._announcer())._announce_(_st($HLDiveRequested())._new());
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
 self["@diveButton"]=$4;
-return self}, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html}, smalltalk.HLInspectorVariablesWidget)})},
+return self}, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html},smalltalk.HLInspectorVariablesWidget)})},
 messageSends: ["class:", "button", "with:", "onClick:", "announce:", "new", "announcer"]}),
 smalltalk.HLInspectorVariablesWidget);
 
 smalltalk.addMethod(
-"_resetItems",
 smalltalk.method({
 selector: "resetItems",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@items"]=nil;
-return self}, function($ctx1) {$ctx1.fill(self,"resetItems",{}, smalltalk.HLInspectorVariablesWidget)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@items"]=nil;
+return self}, function($ctx1) {$ctx1.fill(self,"resetItems",{},smalltalk.HLInspectorVariablesWidget)})},
 messageSends: []}),
 smalltalk.HLInspectorVariablesWidget);
 
 smalltalk.addMethod(
-"_selectItem_",
 smalltalk.method({
 selector: "selectItem:",
 fn: function (anObject){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
smalltalk.HLNavigationListWidget.fn.prototype._selectItem_.apply(_st(self), [anObject]);
+return smalltalk.withContext(function($ctx1) { 
+smalltalk.HLNavigationListWidget.fn.prototype._selectItem_.apply(_st(self), [anObject]);
 _st(_st(self)._model())._selectedInstVar_(anObject);
-return self}, function($ctx1) {$ctx1.fill(self,"selectItem:",{anObject:anObject}, smalltalk.HLInspectorVariablesWidget)})},
+return self}, function($ctx1) {$ctx1.fill(self,"selectItem:",{anObject:anObject},smalltalk.HLInspectorVariablesWidget)})},
 messageSends: ["selectItem:", "selectedInstVar:", "model"]}),
 smalltalk.HLInspectorVariablesWidget);
 
 smalltalk.addMethod(
-"_selection",
 smalltalk.method({
 selector: "selection",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self["@model"])._selection();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"selection",{}, smalltalk.HLInspectorVariablesWidget)})},
+}, function($ctx1) {$ctx1.fill(self,"selection",{},smalltalk.HLInspectorVariablesWidget)})},
 messageSends: ["selection"]}),
 smalltalk.HLInspectorVariablesWidget);
 
 smalltalk.addMethod(
-"_variables",
 smalltalk.method({
 selector: "variables",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(self["@model"])._variables();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"variables",{}, smalltalk.HLInspectorVariablesWidget)})},
+}, function($ctx1) {$ctx1.fill(self,"variables",{},smalltalk.HLInspectorVariablesWidget)})},
 messageSends: ["variables"]}),
 smalltalk.HLInspectorVariablesWidget);
 

js/Helios-Layout.deploy.js

@@ -1,133 +1,135 @@
 smalltalk.addPackage('Helios-Layout');
 smalltalk.addClass('HLContainer', smalltalk.Widget, ['splitter'], 'Helios-Layout');
 smalltalk.addMethod(
-"_renderOn_",
 smalltalk.method({
 selector: "renderOn:",
 fn: function (html){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2;
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
 $1=_st(html)._div();
 _st($1)._class_("tool_container");
 $2=_st($1)._with_(_st(self)._splitter());
 _st(_st(window)._jQuery_(window))._bind_do_("resize",(function(){
-return smalltalk.withContext(function($ctx2) {
return _st(_st(self)._splitter())._resize();
+return smalltalk.withContext(function($ctx2) {
+return _st(_st(self)._splitter())._resize();
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
 return self}, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html},smalltalk.HLContainer)})},
 messageSends: ["class:", "div", "with:", "splitter", "bind:do:", "resize", "jQuery:"]}),
 smalltalk.HLContainer);
 
 smalltalk.addMethod(
-"_splitter",
 smalltalk.method({
 selector: "splitter",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@splitter"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"splitter",{}, smalltalk.HLContainer)})},
+}, function($ctx1) {$ctx1.fill(self,"splitter",{},smalltalk.HLContainer)})},
 messageSends: []}),
 smalltalk.HLContainer);
 
 smalltalk.addMethod(
-"_splitter_",
 smalltalk.method({
 selector: "splitter:",
 fn: function (aSplitter){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@splitter"]=aSplitter;
-return self}, function($ctx1) {$ctx1.fill(self,"splitter:",{aSplitter:aSplitter}, smalltalk.HLContainer)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@splitter"]=aSplitter;
+return self}, function($ctx1) {$ctx1.fill(self,"splitter:",{aSplitter:aSplitter},smalltalk.HLContainer)})},
 messageSends: []}),
 smalltalk.HLContainer);
 
 
 smalltalk.addMethod(
-"_with_",
 smalltalk.method({
 selector: "with:",
 fn: function (aSplitter){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$1;
 $2=_st(self)._new();
 _st($2)._splitter_(aSplitter);
 $3=_st($2)._yourself();
 $1=$3;
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"with:",{aSplitter:aSplitter}, smalltalk.HLContainer.klass)})},
+}, function($ctx1) {$ctx1.fill(self,"with:",{aSplitter:aSplitter},smalltalk.HLContainer.klass)})},
 messageSends: ["splitter:", "new", "yourself"]}),
 smalltalk.HLContainer.klass);
 
 
 smalltalk.addClass('HLSplitter', smalltalk.Widget, ['firstWidget', 'secondWidget', 'firstPane', 'secondPane', 'splitter'], 'Helios-Layout');
 smalltalk.addMethod(
-"_cssClass",
 smalltalk.method({
 selector: "cssClass",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "splitter";
-}, function($ctx1) {$ctx1.fill(self,"cssClass",{}, smalltalk.HLSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+return "splitter";
+}, function($ctx1) {$ctx1.fill(self,"cssClass",{},smalltalk.HLSplitter)})},
 messageSends: []}),
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_firstWidget",
 smalltalk.method({
 selector: "firstWidget",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@firstWidget"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"firstWidget",{}, smalltalk.HLSplitter)})},
+}, function($ctx1) {$ctx1.fill(self,"firstWidget",{},smalltalk.HLSplitter)})},
 messageSends: []}),
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_firstWidget_",
 smalltalk.method({
 selector: "firstWidget:",
 fn: function (aWidget){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@firstWidget"]=aWidget;
-return self}, function($ctx1) {$ctx1.fill(self,"firstWidget:",{aWidget:aWidget}, smalltalk.HLSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@firstWidget"]=aWidget;
+return self}, function($ctx1) {$ctx1.fill(self,"firstWidget:",{aWidget:aWidget},smalltalk.HLSplitter)})},
 messageSends: []}),
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_isHeliosSplitter",
 smalltalk.method({
 selector: "isHeliosSplitter",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return true;
-}, function($ctx1) {$ctx1.fill(self,"isHeliosSplitter",{}, smalltalk.HLSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+return true;
+}, function($ctx1) {$ctx1.fill(self,"isHeliosSplitter",{},smalltalk.HLSplitter)})},
 messageSends: []}),
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_panesCssClass",
 smalltalk.method({
 selector: "panesCssClass",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "panes";
-}, function($ctx1) {$ctx1.fill(self,"panesCssClass",{}, smalltalk.HLSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+return "panes";
+}, function($ctx1) {$ctx1.fill(self,"panesCssClass",{},smalltalk.HLSplitter)})},
 messageSends: []}),
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_renderOn_",
 smalltalk.method({
 selector: "renderOn:",
 fn: function (html){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1,$3,$4,$5,$6,$2,$7,$8;
+return smalltalk.withContext(function($ctx1) { 
+var $1,$3,$4,$5,$6,$2,$7,$8;
 $1=_st(html)._div();
 _st($1)._class_(_st(self)._panesCssClass());
 $2=_st($1)._with_((function(){
-return smalltalk.withContext(function($ctx2) {
$3=_st(html)._div();
+return smalltalk.withContext(function($ctx2) {
+$3=_st(html)._div();
 _st($3)._class_("pane");
 $4=_st($3)._with_(_st(self)._firstWidget());
 self["@firstPane"]=$4;
@@ -143,17 +145,17 @@ return self["@secondPane"];
 $7=self;
 _st($7)._setupSplitter();
 $8=_st($7)._resize();
-return self}, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html}, smalltalk.HLSplitter)})},
+return self}, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html},smalltalk.HLSplitter)})},
 messageSends: ["class:", "panesCssClass", "div", "with:", "firstWidget", "cssClass", "secondWidget", "setupSplitter", "resize"]}),
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_resize",
 smalltalk.method({
 selector: "resize",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2;
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
 $1=_st(_st(self)._firstWidget())._isHeliosSplitter();
 if(smalltalk.assert($1)){
 _st(_st(self)._firstWidget())._resize();
@@ -162,103 +164,102 @@ $2=_st(_st(self)._secondWidget())._isHeliosSplitter();
 if(smalltalk.assert($2)){
 _st(_st(self)._secondWidget())._resize();
 };
-return self}, function($ctx1) {$ctx1.fill(self,"resize",{}, smalltalk.HLSplitter)})},
+return self}, function($ctx1) {$ctx1.fill(self,"resize",{},smalltalk.HLSplitter)})},
 messageSends: ["ifTrue:", "resize", "firstWidget", "isHeliosSplitter", "secondWidget"]}),
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_secondWidget",
 smalltalk.method({
 selector: "secondWidget",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@secondWidget"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"secondWidget",{}, smalltalk.HLSplitter)})},
+}, function($ctx1) {$ctx1.fill(self,"secondWidget",{},smalltalk.HLSplitter)})},
 messageSends: []}),
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_secondWidget_",
 smalltalk.method({
 selector: "secondWidget:",
 fn: function (aWidget){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@secondWidget"]=aWidget;
-return self}, function($ctx1) {$ctx1.fill(self,"secondWidget:",{aWidget:aWidget}, smalltalk.HLSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@secondWidget"]=aWidget;
+return self}, function($ctx1) {$ctx1.fill(self,"secondWidget:",{aWidget:aWidget},smalltalk.HLSplitter)})},
 messageSends: []}),
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_setupSplitter",
 smalltalk.method({
 selector: "setupSplitter",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"setupSplitter",{}, smalltalk.HLSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"setupSplitter",{},smalltalk.HLSplitter)})},
 messageSends: []}),
 smalltalk.HLSplitter);
 
 
 smalltalk.addMethod(
-"_with_with_",
 smalltalk.method({
 selector: "with:with:",
 fn: function (aWidget,anotherWidget){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$1;
 $2=_st(self)._new();
 _st($2)._firstWidget_(aWidget);
 _st($2)._secondWidget_(anotherWidget);
 $3=_st($2)._yourself();
 $1=$3;
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"with:with:",{aWidget:aWidget,anotherWidget:anotherWidget}, smalltalk.HLSplitter.klass)})},
+}, function($ctx1) {$ctx1.fill(self,"with:with:",{aWidget:aWidget,anotherWidget:anotherWidget},smalltalk.HLSplitter.klass)})},
 messageSends: ["firstWidget:", "new", "secondWidget:", "yourself"]}),
 smalltalk.HLSplitter.klass);
 
 
 smalltalk.addClass('HLHorizontalSplitter', smalltalk.HLSplitter, [], 'Helios-Layout');
 smalltalk.addMethod(
-"_cssClass",
 smalltalk.method({
 selector: "cssClass",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(smalltalk.HLSplitter.fn.prototype._cssClass.apply(_st(self), [])).__comma(" horizontal");
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"cssClass",{}, smalltalk.HLHorizontalSplitter)})},
+}, function($ctx1) {$ctx1.fill(self,"cssClass",{},smalltalk.HLHorizontalSplitter)})},
 messageSends: [",", "cssClass"]}),
 smalltalk.HLHorizontalSplitter);
 
 smalltalk.addMethod(
-"_panesCssClass",
 smalltalk.method({
 selector: "panesCssClass",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(smalltalk.HLSplitter.fn.prototype._panesCssClass.apply(_st(self), [])).__comma(" horizontal");
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"panesCssClass",{}, smalltalk.HLHorizontalSplitter)})},
+}, function($ctx1) {$ctx1.fill(self,"panesCssClass",{},smalltalk.HLHorizontalSplitter)})},
 messageSends: [",", "panesCssClass"]}),
 smalltalk.HLHorizontalSplitter);
 
 smalltalk.addMethod(
-"_resize",
 smalltalk.method({
 selector: "resize",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._resize_(_st(_st(_st(self["@splitter"])._asJQuery())._offset())._top());
-return self}, function($ctx1) {$ctx1.fill(self,"resize",{}, smalltalk.HLHorizontalSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._resize_(_st(_st(_st(self["@splitter"])._asJQuery())._offset())._top());
+return self}, function($ctx1) {$ctx1.fill(self,"resize",{},smalltalk.HLHorizontalSplitter)})},
 messageSends: ["resize:", "top", "offset", "asJQuery"]}),
 smalltalk.HLHorizontalSplitter);
 
 smalltalk.addMethod(
-"_resize_",
 smalltalk.method({
 selector: "resize:",
 fn: function (anInteger){
@@ -275,28 +276,30 @@ messageSends: ["parent", "asJQuery", "-", "top", "offset", "height:", "max:", "m
 smalltalk.HLHorizontalSplitter);
 
 smalltalk.addMethod(
-"_setupSplitter",
 smalltalk.method({
 selector: "setupSplitter",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self["@splitter"])._asJQuery())._draggable_(smalltalk.HashedCollection._fromPairs_([_st("axis").__minus_gt("y"),_st("containment").__minus_gt(_st(_st(self["@splitter"])._asJQuery())._parent()),_st("helper").__minus_gt("clone"),_st("start").__minus_gt((function(e,ui){
-return smalltalk.withContext(function($ctx2) {
return _st(self)._startResizing_(_st(ui)._helper());
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self["@splitter"])._asJQuery())._draggable_(smalltalk.HashedCollection._fromPairs_([_st("axis").__minus_gt("y"),_st("containment").__minus_gt(_st(_st(self["@splitter"])._asJQuery())._parent()),_st("helper").__minus_gt("clone"),_st("start").__minus_gt((function(e,ui){
+return smalltalk.withContext(function($ctx2) {
+return _st(self)._startResizing_(_st(ui)._helper());
 }, function($ctx2) {$ctx2.fillBlock({e:e,ui:ui},$ctx1)})})),_st("drag").__minus_gt((function(e,ui){
-return smalltalk.withContext(function($ctx2) {
return _st(self)._resize_(_st(_st(ui)._offset())._top());
+return smalltalk.withContext(function($ctx2) {
+return _st(self)._resize_(_st(_st(ui)._offset())._top());
 }, function($ctx2) {$ctx2.fillBlock({e:e,ui:ui},$ctx1)})}))]));
-return self}, function($ctx1) {$ctx1.fill(self,"setupSplitter",{}, smalltalk.HLHorizontalSplitter)})},
+return self}, function($ctx1) {$ctx1.fill(self,"setupSplitter",{},smalltalk.HLHorizontalSplitter)})},
 messageSends: ["draggable:", "->", "parent", "asJQuery", "startResizing:", "helper", "resize:", "top", "offset"]}),
 smalltalk.HLHorizontalSplitter);
 
 smalltalk.addMethod(
-"_startResizing_",
 smalltalk.method({
 selector: "startResizing:",
 fn: function (aSplitter){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(aSplitter)._width_(_st(_st(self["@splitter"])._asJQuery())._width());
-return self}, function($ctx1) {$ctx1.fill(self,"startResizing:",{aSplitter:aSplitter}, smalltalk.HLHorizontalSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(aSplitter)._width_(_st(_st(self["@splitter"])._asJQuery())._width());
+return self}, function($ctx1) {$ctx1.fill(self,"startResizing:",{aSplitter:aSplitter},smalltalk.HLHorizontalSplitter)})},
 messageSends: ["width:", "width", "asJQuery"]}),
 smalltalk.HLHorizontalSplitter);
 
@@ -304,44 +307,43 @@ smalltalk.HLHorizontalSplitter);
 
 smalltalk.addClass('HLVerticalSplitter', smalltalk.HLSplitter, [], 'Helios-Layout');
 smalltalk.addMethod(
-"_cssClass",
 smalltalk.method({
 selector: "cssClass",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(smalltalk.HLSplitter.fn.prototype._cssClass.apply(_st(self), [])).__comma(" vertical");
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"cssClass",{}, smalltalk.HLVerticalSplitter)})},
+}, function($ctx1) {$ctx1.fill(self,"cssClass",{},smalltalk.HLVerticalSplitter)})},
 messageSends: [",", "cssClass"]}),
 smalltalk.HLVerticalSplitter);
 
 smalltalk.addMethod(
-"_panesCssClass",
 smalltalk.method({
 selector: "panesCssClass",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(smalltalk.HLSplitter.fn.prototype._panesCssClass.apply(_st(self), [])).__comma(" vertical");
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"panesCssClass",{}, smalltalk.HLVerticalSplitter)})},
+}, function($ctx1) {$ctx1.fill(self,"panesCssClass",{},smalltalk.HLVerticalSplitter)})},
 messageSends: [",", "panesCssClass"]}),
 smalltalk.HLVerticalSplitter);
 
 smalltalk.addMethod(
-"_resize",
 smalltalk.method({
 selector: "resize",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._resize_(_st(_st(_st(self["@splitter"])._asJQuery())._offset())._left());
-return self}, function($ctx1) {$ctx1.fill(self,"resize",{}, smalltalk.HLVerticalSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._resize_(_st(_st(_st(self["@splitter"])._asJQuery())._offset())._left());
+return self}, function($ctx1) {$ctx1.fill(self,"resize",{},smalltalk.HLVerticalSplitter)})},
 messageSends: ["resize:", "left", "offset", "asJQuery"]}),
 smalltalk.HLVerticalSplitter);
 
 smalltalk.addMethod(
-"_resize_",
 smalltalk.method({
 selector: "resize:",
 fn: function (anInteger){
@@ -358,41 +360,43 @@ messageSends: ["parent", "asJQuery", "-", "left", "offset", "width:", "max:", "m
 smalltalk.HLVerticalSplitter);
 
 smalltalk.addMethod(
-"_setupSplitter",
 smalltalk.method({
 selector: "setupSplitter",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self["@splitter"])._asJQuery())._draggable_(smalltalk.HashedCollection._fromPairs_([_st("axis").__minus_gt("x"),_st("containment").__minus_gt(_st(_st(self["@splitter"])._asJQuery())._parent()),_st("helper").__minus_gt("clone"),_st("start").__minus_gt((function(e,ui){
-return smalltalk.withContext(function($ctx2) {
return _st(self)._startResizing_(_st(ui)._helper());
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self["@splitter"])._asJQuery())._draggable_(smalltalk.HashedCollection._fromPairs_([_st("axis").__minus_gt("x"),_st("containment").__minus_gt(_st(_st(self["@splitter"])._asJQuery())._parent()),_st("helper").__minus_gt("clone"),_st("start").__minus_gt((function(e,ui){
+return smalltalk.withContext(function($ctx2) {
+return _st(self)._startResizing_(_st(ui)._helper());
 }, function($ctx2) {$ctx2.fillBlock({e:e,ui:ui},$ctx1)})})),_st("drag").__minus_gt((function(e,ui){
-return smalltalk.withContext(function($ctx2) {
return _st(self)._resize_(_st(_st(ui)._offset())._left());
+return smalltalk.withContext(function($ctx2) {
+return _st(self)._resize_(_st(_st(ui)._offset())._left());
 }, function($ctx2) {$ctx2.fillBlock({e:e,ui:ui},$ctx1)})}))]));
-return self}, function($ctx1) {$ctx1.fill(self,"setupSplitter",{}, smalltalk.HLVerticalSplitter)})},
+return self}, function($ctx1) {$ctx1.fill(self,"setupSplitter",{},smalltalk.HLVerticalSplitter)})},
 messageSends: ["draggable:", "->", "parent", "asJQuery", "startResizing:", "helper", "resize:", "left", "offset"]}),
 smalltalk.HLVerticalSplitter);
 
 smalltalk.addMethod(
-"_startResizing_",
 smalltalk.method({
 selector: "startResizing:",
 fn: function (aSplitter){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(aSplitter)._height_(_st(_st(self["@splitter"])._asJQuery())._height());
-return self}, function($ctx1) {$ctx1.fill(self,"startResizing:",{aSplitter:aSplitter}, smalltalk.HLVerticalSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(aSplitter)._height_(_st(_st(self["@splitter"])._asJQuery())._height());
+return self}, function($ctx1) {$ctx1.fill(self,"startResizing:",{aSplitter:aSplitter},smalltalk.HLVerticalSplitter)})},
 messageSends: ["height:", "height", "asJQuery"]}),
 smalltalk.HLVerticalSplitter);
 
 
 
 smalltalk.addMethod(
-"_isHeliosSplitter",
 smalltalk.method({
 selector: "isHeliosSplitter",
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return false;
-}, function($ctx1) {$ctx1.fill(self,"isHeliosSplitter",{}, smalltalk.Object)})},
+return smalltalk.withContext(function($ctx1) { 
+return false;
+}, function($ctx1) {$ctx1.fill(self,"isHeliosSplitter",{},smalltalk.Object)})},
 messageSends: []}),
 smalltalk.Object);
 

js/Helios-Layout.js

@@ -1,18 +1,19 @@
 smalltalk.addPackage('Helios-Layout');
 smalltalk.addClass('HLContainer', smalltalk.Widget, ['splitter'], 'Helios-Layout');
 smalltalk.addMethod(
-"_renderOn_",
 smalltalk.method({
 selector: "renderOn:",
 category: 'rendering',
 fn: function (html){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2;
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
 $1=_st(html)._div();
 _st($1)._class_("tool_container");
 $2=_st($1)._with_(_st(self)._splitter());
 _st(_st(window)._jQuery_(window))._bind_do_("resize",(function(){
-return smalltalk.withContext(function($ctx2) {
return _st(_st(self)._splitter())._resize();
+return smalltalk.withContext(function($ctx2) {
+return _st(_st(self)._splitter())._resize();
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
 return self}, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html},smalltalk.HLContainer)})},
 args: ["html"],
@@ -23,16 +24,16 @@ referencedClasses: []
 smalltalk.HLContainer);
 
 smalltalk.addMethod(
-"_splitter",
 smalltalk.method({
 selector: "splitter",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@splitter"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"splitter",{}, smalltalk.HLContainer)})},
+}, function($ctx1) {$ctx1.fill(self,"splitter",{},smalltalk.HLContainer)})},
 args: [],
 source: "splitter\x0a\x09^ splitter",
 messageSends: [],
@@ -41,14 +42,14 @@ referencedClasses: []
 smalltalk.HLContainer);
 
 smalltalk.addMethod(
-"_splitter_",
 smalltalk.method({
 selector: "splitter:",
 category: 'accessing',
 fn: function (aSplitter){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@splitter"]=aSplitter;
-return self}, function($ctx1) {$ctx1.fill(self,"splitter:",{aSplitter:aSplitter}, smalltalk.HLContainer)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@splitter"]=aSplitter;
+return self}, function($ctx1) {$ctx1.fill(self,"splitter:",{aSplitter:aSplitter},smalltalk.HLContainer)})},
 args: ["aSplitter"],
 source: "splitter: aSplitter\x0a\x09splitter := aSplitter",
 messageSends: [],
@@ -58,19 +59,19 @@ smalltalk.HLContainer);
 
 
 smalltalk.addMethod(
-"_with_",
 smalltalk.method({
 selector: "with:",
 category: 'instance creation',
 fn: function (aSplitter){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$1;
 $2=_st(self)._new();
 _st($2)._splitter_(aSplitter);
 $3=_st($2)._yourself();
 $1=$3;
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"with:",{aSplitter:aSplitter}, smalltalk.HLContainer.klass)})},
+}, function($ctx1) {$ctx1.fill(self,"with:",{aSplitter:aSplitter},smalltalk.HLContainer.klass)})},
 args: ["aSplitter"],
 source: "with: aSplitter\x0a\x09^ self new \x0a    \x09splitter: aSplitter; \x0a        yourself",
 messageSends: ["splitter:", "new", "yourself"],
@@ -81,14 +82,14 @@ smalltalk.HLContainer.klass);
 
 smalltalk.addClass('HLSplitter', smalltalk.Widget, ['firstWidget', 'secondWidget', 'firstPane', 'secondPane', 'splitter'], 'Helios-Layout');
 smalltalk.addMethod(
-"_cssClass",
 smalltalk.method({
 selector: "cssClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "splitter";
-}, function($ctx1) {$ctx1.fill(self,"cssClass",{}, smalltalk.HLSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+return "splitter";
+}, function($ctx1) {$ctx1.fill(self,"cssClass",{},smalltalk.HLSplitter)})},
 args: [],
 source: "cssClass\x0a\x09^ 'splitter'",
 messageSends: [],
@@ -97,16 +98,16 @@ referencedClasses: []
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_firstWidget",
 smalltalk.method({
 selector: "firstWidget",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@firstWidget"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"firstWidget",{}, smalltalk.HLSplitter)})},
+}, function($ctx1) {$ctx1.fill(self,"firstWidget",{},smalltalk.HLSplitter)})},
 args: [],
 source: "firstWidget\x0a\x09^ firstWidget",
 messageSends: [],
@@ -115,14 +116,14 @@ referencedClasses: []
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_firstWidget_",
 smalltalk.method({
 selector: "firstWidget:",
 category: 'accessing',
 fn: function (aWidget){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@firstWidget"]=aWidget;
-return self}, function($ctx1) {$ctx1.fill(self,"firstWidget:",{aWidget:aWidget}, smalltalk.HLSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@firstWidget"]=aWidget;
+return self}, function($ctx1) {$ctx1.fill(self,"firstWidget:",{aWidget:aWidget},smalltalk.HLSplitter)})},
 args: ["aWidget"],
 source: "firstWidget: aWidget\x0a\x09firstWidget := aWidget",
 messageSends: [],
@@ -131,14 +132,14 @@ referencedClasses: []
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_isHeliosSplitter",
 smalltalk.method({
 selector: "isHeliosSplitter",
 category: 'testing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return true;
-}, function($ctx1) {$ctx1.fill(self,"isHeliosSplitter",{}, smalltalk.HLSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+return true;
+}, function($ctx1) {$ctx1.fill(self,"isHeliosSplitter",{},smalltalk.HLSplitter)})},
 args: [],
 source: "isHeliosSplitter\x0a\x09^ true",
 messageSends: [],
@@ -147,14 +148,14 @@ referencedClasses: []
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_panesCssClass",
 smalltalk.method({
 selector: "panesCssClass",
 category: 'rendering',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return "panes";
-}, function($ctx1) {$ctx1.fill(self,"panesCssClass",{}, smalltalk.HLSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+return "panes";
+}, function($ctx1) {$ctx1.fill(self,"panesCssClass",{},smalltalk.HLSplitter)})},
 args: [],
 source: "panesCssClass\x0a\x09^ 'panes'",
 messageSends: [],
@@ -163,17 +164,18 @@ referencedClasses: []
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_renderOn_",
 smalltalk.method({
 selector: "renderOn:",
 category: 'rendering',
 fn: function (html){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1,$3,$4,$5,$6,$2,$7,$8;
+return smalltalk.withContext(function($ctx1) { 
+var $1,$3,$4,$5,$6,$2,$7,$8;
 $1=_st(html)._div();
 _st($1)._class_(_st(self)._panesCssClass());
 $2=_st($1)._with_((function(){
-return smalltalk.withContext(function($ctx2) {
$3=_st(html)._div();
+return smalltalk.withContext(function($ctx2) {
+$3=_st(html)._div();
 _st($3)._class_("pane");
 $4=_st($3)._with_(_st(self)._firstWidget());
 self["@firstPane"]=$4;
@@ -189,7 +191,7 @@ return self["@secondPane"];
 $7=self;
 _st($7)._setupSplitter();
 $8=_st($7)._resize();
-return self}, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html}, smalltalk.HLSplitter)})},
+return self}, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html},smalltalk.HLSplitter)})},
 args: ["html"],
 source: "renderOn: html\x0a\x09html div class: self panesCssClass; with: [\x0a\x09\x09firstPane := html div class: 'pane'; with: self firstWidget.\x0a    \x09splitter := html div class: self cssClass.\x0a    \x09secondPane := html div class: 'pane'; with: self secondWidget ].\x0a        \x0a\x09self \x0a    \x09setupSplitter;\x0a        resize",
 messageSends: ["class:", "panesCssClass", "div", "with:", "firstWidget", "cssClass", "secondWidget", "setupSplitter", "resize"],
@@ -198,13 +200,13 @@ referencedClasses: []
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_resize",
 smalltalk.method({
 selector: "resize",
 category: 'rendering',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1,$2;
+return smalltalk.withContext(function($ctx1) { 
+var $1,$2;
 $1=_st(_st(self)._firstWidget())._isHeliosSplitter();
 if(smalltalk.assert($1)){
 _st(_st(self)._firstWidget())._resize();
@@ -213,7 +215,7 @@ $2=_st(_st(self)._secondWidget())._isHeliosSplitter();
 if(smalltalk.assert($2)){
 _st(_st(self)._secondWidget())._resize();
 };
-return self}, function($ctx1) {$ctx1.fill(self,"resize",{}, smalltalk.HLSplitter)})},
+return self}, function($ctx1) {$ctx1.fill(self,"resize",{},smalltalk.HLSplitter)})},
 args: [],
 source: "resize\x0a\x09self firstWidget isHeliosSplitter ifTrue: [ self firstWidget resize ].\x0a    self secondWidget isHeliosSplitter ifTrue: [ self secondWidget resize ]",
 messageSends: ["ifTrue:", "resize", "firstWidget", "isHeliosSplitter", "secondWidget"],
@@ -222,16 +224,16 @@ referencedClasses: []
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_secondWidget",
 smalltalk.method({
 selector: "secondWidget",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=self["@secondWidget"];
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"secondWidget",{}, smalltalk.HLSplitter)})},
+}, function($ctx1) {$ctx1.fill(self,"secondWidget",{},smalltalk.HLSplitter)})},
 args: [],
 source: "secondWidget\x0a\x09^ secondWidget",
 messageSends: [],
@@ -240,14 +242,14 @@ referencedClasses: []
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_secondWidget_",
 smalltalk.method({
 selector: "secondWidget:",
 category: 'accessing',
 fn: function (aWidget){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
self["@secondWidget"]=aWidget;
-return self}, function($ctx1) {$ctx1.fill(self,"secondWidget:",{aWidget:aWidget}, smalltalk.HLSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+self["@secondWidget"]=aWidget;
+return self}, function($ctx1) {$ctx1.fill(self,"secondWidget:",{aWidget:aWidget},smalltalk.HLSplitter)})},
 args: ["aWidget"],
 source: "secondWidget: aWidget\x0a\x09secondWidget := aWidget",
 messageSends: [],
@@ -256,13 +258,13 @@ referencedClasses: []
 smalltalk.HLSplitter);
 
 smalltalk.addMethod(
-"_setupSplitter",
 smalltalk.method({
 selector: "setupSplitter",
 category: 'rendering',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return self}, function($ctx1) {$ctx1.fill(self,"setupSplitter",{}, smalltalk.HLSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+return self}, function($ctx1) {$ctx1.fill(self,"setupSplitter",{},smalltalk.HLSplitter)})},
 args: [],
 source: "setupSplitter",
 messageSends: [],
@@ -272,20 +274,20 @@ smalltalk.HLSplitter);
 
 
 smalltalk.addMethod(
-"_with_with_",
 smalltalk.method({
 selector: "with:with:",
 category: 'instance creation',
 fn: function (aWidget,anotherWidget){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $2,$3,$1;
+return smalltalk.withContext(function($ctx1) { 
+var $2,$3,$1;
 $2=_st(self)._new();
 _st($2)._firstWidget_(aWidget);
 _st($2)._secondWidget_(anotherWidget);
 $3=_st($2)._yourself();
 $1=$3;
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"with:with:",{aWidget:aWidget,anotherWidget:anotherWidget}, smalltalk.HLSplitter.klass)})},
+}, function($ctx1) {$ctx1.fill(self,"with:with:",{aWidget:aWidget,anotherWidget:anotherWidget},smalltalk.HLSplitter.klass)})},
 args: ["aWidget", "anotherWidget"],
 source: "with: aWidget with: anotherWidget\x0a\x09^ self new\x0a    \x09\x09firstWidget: aWidget;\x0a            secondWidget: anotherWidget;\x0a            yourself",
 messageSends: ["firstWidget:", "new", "secondWidget:", "yourself"],
@@ -296,16 +298,16 @@ smalltalk.HLSplitter.klass);
 
 smalltalk.addClass('HLHorizontalSplitter', smalltalk.HLSplitter, [], 'Helios-Layout');
 smalltalk.addMethod(
-"_cssClass",
 smalltalk.method({
 selector: "cssClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(smalltalk.HLSplitter.fn.prototype._cssClass.apply(_st(self), [])).__comma(" horizontal");
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"cssClass",{}, smalltalk.HLHorizontalSplitter)})},
+}, function($ctx1) {$ctx1.fill(self,"cssClass",{},smalltalk.HLHorizontalSplitter)})},
 args: [],
 source: "cssClass\x0a\x09^ super cssClass, ' horizontal'",
 messageSends: [",", "cssClass"],
@@ -314,16 +316,16 @@ referencedClasses: []
 smalltalk.HLHorizontalSplitter);
 
 smalltalk.addMethod(
-"_panesCssClass",
 smalltalk.method({
 selector: "panesCssClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(smalltalk.HLSplitter.fn.prototype._panesCssClass.apply(_st(self), [])).__comma(" horizontal");
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"panesCssClass",{}, smalltalk.HLHorizontalSplitter)})},
+}, function($ctx1) {$ctx1.fill(self,"panesCssClass",{},smalltalk.HLHorizontalSplitter)})},
 args: [],
 source: "panesCssClass\x0a\x09^ super panesCssClass, ' horizontal'",
 messageSends: [",", "panesCssClass"],
@@ -332,14 +334,14 @@ referencedClasses: []
 smalltalk.HLHorizontalSplitter);
 
 smalltalk.addMethod(
-"_resize",
 smalltalk.method({
 selector: "resize",
 category: 'actions',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._resize_(_st(_st(_st(self["@splitter"])._asJQuery())._offset())._top());
-return self}, function($ctx1) {$ctx1.fill(self,"resize",{}, smalltalk.HLHorizontalSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._resize_(_st(_st(_st(self["@splitter"])._asJQuery())._offset())._top());
+return self}, function($ctx1) {$ctx1.fill(self,"resize",{},smalltalk.HLHorizontalSplitter)})},
 args: [],
 source: "resize\x0a\x09self resize: splitter asJQuery offset top",
 messageSends: ["resize:", "top", "offset", "asJQuery"],
@@ -348,7 +350,6 @@ referencedClasses: []
 smalltalk.HLHorizontalSplitter);
 
 smalltalk.addMethod(
-"_resize_",
 smalltalk.method({
 selector: "resize:",
 category: 'actions',
@@ -370,18 +371,20 @@ referencedClasses: []
 smalltalk.HLHorizontalSplitter);
 
 smalltalk.addMethod(
-"_setupSplitter",
 smalltalk.method({
 selector: "setupSplitter",
 category: 'rendering',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self["@splitter"])._asJQuery())._draggable_(smalltalk.HashedCollection._fromPairs_([_st("axis").__minus_gt("y"),_st("containment").__minus_gt(_st(_st(self["@splitter"])._asJQuery())._parent()),_st("helper").__minus_gt("clone"),_st("start").__minus_gt((function(e,ui){
-return smalltalk.withContext(function($ctx2) {
return _st(self)._startResizing_(_st(ui)._helper());
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self["@splitter"])._asJQuery())._draggable_(smalltalk.HashedCollection._fromPairs_([_st("axis").__minus_gt("y"),_st("containment").__minus_gt(_st(_st(self["@splitter"])._asJQuery())._parent()),_st("helper").__minus_gt("clone"),_st("start").__minus_gt((function(e,ui){
+return smalltalk.withContext(function($ctx2) {
+return _st(self)._startResizing_(_st(ui)._helper());
 }, function($ctx2) {$ctx2.fillBlock({e:e,ui:ui},$ctx1)})})),_st("drag").__minus_gt((function(e,ui){
-return smalltalk.withContext(function($ctx2) {
return _st(self)._resize_(_st(_st(ui)._offset())._top());
+return smalltalk.withContext(function($ctx2) {
+return _st(self)._resize_(_st(_st(ui)._offset())._top());
 }, function($ctx2) {$ctx2.fillBlock({e:e,ui:ui},$ctx1)})}))]));
-return self}, function($ctx1) {$ctx1.fill(self,"setupSplitter",{}, smalltalk.HLHorizontalSplitter)})},
+return self}, function($ctx1) {$ctx1.fill(self,"setupSplitter",{},smalltalk.HLHorizontalSplitter)})},
 args: [],
 source: "setupSplitter\x0a\x09splitter asJQuery draggable: #{ \x0a    \x09'axis' -> 'y'. \x0a        'containment' -> splitter asJQuery parent.\x0a        'helper' -> 'clone'.\x0a        'start' -> [ :e :ui | self startResizing: ui helper ].\x0a        'drag' -> [ :e :ui | self resize: ui offset top ] }",
 messageSends: ["draggable:", "->", "parent", "asJQuery", "startResizing:", "helper", "resize:", "top", "offset"],
@@ -390,14 +393,14 @@ referencedClasses: []
 smalltalk.HLHorizontalSplitter);
 
 smalltalk.addMethod(
-"_startResizing_",
 smalltalk.method({
 selector: "startResizing:",
 category: 'actions',
 fn: function (aSplitter){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(aSplitter)._width_(_st(_st(self["@splitter"])._asJQuery())._width());
-return self}, function($ctx1) {$ctx1.fill(self,"startResizing:",{aSplitter:aSplitter}, smalltalk.HLHorizontalSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(aSplitter)._width_(_st(_st(self["@splitter"])._asJQuery())._width());
+return self}, function($ctx1) {$ctx1.fill(self,"startResizing:",{aSplitter:aSplitter},smalltalk.HLHorizontalSplitter)})},
 args: ["aSplitter"],
 source: "startResizing: aSplitter\x0a\x09aSplitter width: splitter asJQuery width",
 messageSends: ["width:", "width", "asJQuery"],
@@ -409,16 +412,16 @@ smalltalk.HLHorizontalSplitter);
 
 smalltalk.addClass('HLVerticalSplitter', smalltalk.HLSplitter, [], 'Helios-Layout');
 smalltalk.addMethod(
-"_cssClass",
 smalltalk.method({
 selector: "cssClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(smalltalk.HLSplitter.fn.prototype._cssClass.apply(_st(self), [])).__comma(" vertical");
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"cssClass",{}, smalltalk.HLVerticalSplitter)})},
+}, function($ctx1) {$ctx1.fill(self,"cssClass",{},smalltalk.HLVerticalSplitter)})},
 args: [],
 source: "cssClass\x0a\x09^ super cssClass, ' vertical'",
 messageSends: [",", "cssClass"],
@@ -427,16 +430,16 @@ referencedClasses: []
 smalltalk.HLVerticalSplitter);
 
 smalltalk.addMethod(
-"_panesCssClass",
 smalltalk.method({
 selector: "panesCssClass",
 category: 'accessing',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
var $1;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
 $1=_st(smalltalk.HLSplitter.fn.prototype._panesCssClass.apply(_st(self), [])).__comma(" vertical");
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"panesCssClass",{}, smalltalk.HLVerticalSplitter)})},
+}, function($ctx1) {$ctx1.fill(self,"panesCssClass",{},smalltalk.HLVerticalSplitter)})},
 args: [],
 source: "panesCssClass\x0a\x09^ super panesCssClass, ' vertical'",
 messageSends: [",", "panesCssClass"],
@@ -445,14 +448,14 @@ referencedClasses: []
 smalltalk.HLVerticalSplitter);
 
 smalltalk.addMethod(
-"_resize",
 smalltalk.method({
 selector: "resize",
 category: 'actions',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(self)._resize_(_st(_st(_st(self["@splitter"])._asJQuery())._offset())._left());
-return self}, function($ctx1) {$ctx1.fill(self,"resize",{}, smalltalk.HLVerticalSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._resize_(_st(_st(_st(self["@splitter"])._asJQuery())._offset())._left());
+return self}, function($ctx1) {$ctx1.fill(self,"resize",{},smalltalk.HLVerticalSplitter)})},
 args: [],
 source: "resize\x0a\x09self resize: splitter asJQuery offset left",
 messageSends: ["resize:", "left", "offset", "asJQuery"],
@@ -461,7 +464,6 @@ referencedClasses: []
 smalltalk.HLVerticalSplitter);
 
 smalltalk.addMethod(
-"_resize_",
 smalltalk.method({
 selector: "resize:",
 category: 'actions',
@@ -483,18 +485,20 @@ referencedClasses: []
 smalltalk.HLVerticalSplitter);
 
 smalltalk.addMethod(
-"_setupSplitter",
 smalltalk.method({
 selector: "setupSplitter",
 category: 'rendering',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self["@splitter"])._asJQuery())._draggable_(smalltalk.HashedCollection._fromPairs_([_st("axis").__minus_gt("x"),_st("containment").__minus_gt(_st(_st(self["@splitter"])._asJQuery())._parent()),_st("helper").__minus_gt("clone"),_st("start").__minus_gt((function(e,ui){
-return smalltalk.withContext(function($ctx2) {
return _st(self)._startResizing_(_st(ui)._helper());
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self["@splitter"])._asJQuery())._draggable_(smalltalk.HashedCollection._fromPairs_([_st("axis").__minus_gt("x"),_st("containment").__minus_gt(_st(_st(self["@splitter"])._asJQuery())._parent()),_st("helper").__minus_gt("clone"),_st("start").__minus_gt((function(e,ui){
+return smalltalk.withContext(function($ctx2) {
+return _st(self)._startResizing_(_st(ui)._helper());
 }, function($ctx2) {$ctx2.fillBlock({e:e,ui:ui},$ctx1)})})),_st("drag").__minus_gt((function(e,ui){
-return smalltalk.withContext(function($ctx2) {
return _st(self)._resize_(_st(_st(ui)._offset())._left());
+return smalltalk.withContext(function($ctx2) {
+return _st(self)._resize_(_st(_st(ui)._offset())._left());
 }, function($ctx2) {$ctx2.fillBlock({e:e,ui:ui},$ctx1)})}))]));
-return self}, function($ctx1) {$ctx1.fill(self,"setupSplitter",{}, smalltalk.HLVerticalSplitter)})},
+return self}, function($ctx1) {$ctx1.fill(self,"setupSplitter",{},smalltalk.HLVerticalSplitter)})},
 args: [],
 source: "setupSplitter\x0a\x09splitter asJQuery draggable: #{ \x0a    \x09'axis' -> 'x'. \x0a        'containment' -> splitter asJQuery parent.\x0a        'helper' -> 'clone'.\x0a        'start' -> [ :e :ui | self startResizing: ui helper ].\x0a        'drag' -> [ :e :ui | self resize: ui offset left ] }",
 messageSends: ["draggable:", "->", "parent", "asJQuery", "startResizing:", "helper", "resize:", "left", "offset"],
@@ -503,14 +507,14 @@ referencedClasses: []
 smalltalk.HLVerticalSplitter);
 
 smalltalk.addMethod(
-"_startResizing_",
 smalltalk.method({
 selector: "startResizing:",
 category: 'actions',
 fn: function (aSplitter){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(aSplitter)._height_(_st(_st(self["@splitter"])._asJQuery())._height());
-return self}, function($ctx1) {$ctx1.fill(self,"startResizing:",{aSplitter:aSplitter}, smalltalk.HLVerticalSplitter)})},
+return smalltalk.withContext(function($ctx1) { 
+_st(aSplitter)._height_(_st(_st(self["@splitter"])._asJQuery())._height());
+return self}, function($ctx1) {$ctx1.fill(self,"startResizing:",{aSplitter:aSplitter},smalltalk.HLVerticalSplitter)})},
 args: ["aSplitter"],
 source: "startResizing: aSplitter\x0a\x09aSplitter height: splitter asJQuery height",
 messageSends: ["height:", "height", "asJQuery"],
@@ -521,14 +525,14 @@ smalltalk.HLVerticalSplitter);
 
 
 smalltalk.addMethod(
-"_isHeliosSplitter",
 smalltalk.method({
 selector: "isHeliosSplitter",
 category: '*Helios-Layout',
 fn: function (){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
return false;
-}, function($ctx1) {$ctx1.fill(self,"isHeliosSplitter",{}, smalltalk.Object)})},
+return smalltalk.withContext(function($ctx1) { 
+return false;
+}, function($ctx1) {$ctx1.fill(self,"isHeliosSplitter",{},smalltalk.Object)})},
 args: [],
 source: "isHeliosSplitter\x0a\x09^ false",
 messageSends: [],

js/Importer-Exporter.deploy.js

@@ -3,7 +3,7 @@ smalltalk.addClass('ChunkParser', smalltalk.Object, ['stream'], 'Importer-Export
 smalltalk.addMethod(
 smalltalk.method({
 selector: "nextChunk",
-fn: function () {
+fn: function (){
 var self=this;
 var char,result,chunk;
 return smalltalk.withContext(function($ctx1) { 
@@ -33,18 +33,18 @@ return _st(result)._nextPut_(char);
 return nil;
 }
 catch(e) {if(e===$early)return e[0]; throw e}
-}, function($ctx1) {$ctx1.fill(self,"nextChunk",{char:char,result:result,chunk:chunk},smalltalk.ChunkParser)});},
+}, function($ctx1) {$ctx1.fill(self,"nextChunk",{char:char,result:result,chunk:chunk},smalltalk.ChunkParser)})},
 messageSends: ["writeStream", "whileTrue:", "ifTrue:", "ifTrue:ifFalse:", "next", "trimBoth", "contents", "=", "peek", "nextPut:", "notNil"]}),
 smalltalk.ChunkParser);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "stream:",
-fn: function (aStream) {
+fn: function (aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 self["@stream"]=aStream;
-return self}, function($ctx1) {$ctx1.fill(self,"stream:",{aStream:aStream},smalltalk.ChunkParser)});},
+return self}, function($ctx1) {$ctx1.fill(self,"stream:",{aStream:aStream},smalltalk.ChunkParser)})},
 messageSends: []}),
 smalltalk.ChunkParser);
 
@@ -52,13 +52,13 @@ smalltalk.ChunkParser);
 smalltalk.addMethod(
 smalltalk.method({
 selector: "on:",
-fn: function (aStream) {
+fn: function (aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(_st(self)._new())._stream_(aStream);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"on:",{aStream:aStream},smalltalk.ChunkParser.klass)});},
+}, function($ctx1) {$ctx1.fill(self,"on:",{aStream:aStream},smalltalk.ChunkParser.klass)})},
 messageSends: ["stream:", "new"]}),
 smalltalk.ChunkParser.klass);
 
@@ -67,7 +67,7 @@ smalltalk.addClass('Exporter', smalltalk.Object, [], 'Importer-Exporter');
 smalltalk.addMethod(
 smalltalk.method({
 selector: "classNameFor:",
-fn: function (aClass) {
+fn: function (aClass){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $2,$3,$1;
@@ -83,14 +83,14 @@ $1=_st(aClass)._name();
 };
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classNameFor:",{aClass:aClass},smalltalk.Exporter)});},
+}, function($ctx1) {$ctx1.fill(self,"classNameFor:",{aClass:aClass},smalltalk.Exporter)})},
 messageSends: ["ifTrue:ifFalse:", ",", "name", "instanceClass", "isNil", "isMetaclass"]}),
 smalltalk.Exporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportAll",
-fn: function () {
+fn: function (){
 var self=this;
 function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
 function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
@@ -104,14 +104,14 @@ return _st(stream)._nextPutAll_(_st(self)._exportPackage_(_st(pkg)._name()));
 }, function($ctx3) {$ctx3.fillBlock({pkg:pkg},$ctx1)})}));
 }, function($ctx2) {$ctx2.fillBlock({stream:stream},$ctx1)})}));
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"exportAll",{},smalltalk.Exporter)});},
+}, function($ctx1) {$ctx1.fill(self,"exportAll",{},smalltalk.Exporter)})},
 messageSends: ["streamContents:", "do:", "nextPutAll:", "exportPackage:", "name", "packages", "current"]}),
 smalltalk.Exporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportClass:",
-fn: function (aClass) {
+fn: function (aClass){
 var self=this;
 function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
 return smalltalk.withContext(function($ctx1) { 
@@ -124,14 +124,14 @@ _st(self)._exportMetaDefinitionOf_on_(aClass,stream);
 return _st(self)._exportMethodsOf_on_(_st(aClass)._class(),stream);
 }, function($ctx2) {$ctx2.fillBlock({stream:stream},$ctx1)})}));
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"exportClass:",{aClass:aClass},smalltalk.Exporter)});},
+}, function($ctx1) {$ctx1.fill(self,"exportClass:",{aClass:aClass},smalltalk.Exporter)})},
 messageSends: ["streamContents:", "exportDefinitionOf:on:", "exportMethodsOf:on:", "exportMetaDefinitionOf:on:", "class"]}),
 smalltalk.Exporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportDefinitionOf:on:",
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2,$3,$4,$5,$6,$7;
@@ -162,14 +162,14 @@ $7=_st($6)._nextPutAll_(_st(_st(aClass)._comment())._asJavascript());
 $7;
 };
 _st(aStream)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)})},
 messageSends: ["nextPutAll:", ",", "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "lf", "asJavascript", "comment", "notEmpty"]}),
 smalltalk.Exporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportMetaDefinitionOf:on:",
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
 return smalltalk.withContext(function($ctx1) { 
@@ -189,7 +189,7 @@ return _st(aStream)._nextPutAll_(",");
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
 _st(aStream)._nextPutAll_(_st("];").__comma(_st($String())._lf()));
 };
-return self}, function($ctx1) {$ctx1.fill(self,"exportMetaDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportMetaDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)})},
 messageSends: ["ifFalse:", "nextPutAll:", ",", "classNameFor:", "class", "do:separatedBy:", "instanceVariableNames", "lf", "isEmpty"]}),
 smalltalk.Exporter);
 
@@ -233,7 +233,7 @@ smalltalk.Exporter);
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportMethodsOf:on:",
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
@@ -248,14 +248,14 @@ return _st(self)._exportMethod_of_on_(each,aClass,aStream);
 };
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
 _st(aStream)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportMethodsOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportMethodsOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)})},
 messageSends: ["do:", "ifFalse:", "exportMethod:of:on:", "match:", "category", "sorted:", "<=", "selector", "values", "methodDictionary", "lf"]}),
 smalltalk.Exporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportPackage:",
-fn: function (packageName) {
+fn: function (packageName){
 var self=this;
 var package_;
 function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
@@ -274,14 +274,14 @@ return _st(stream)._nextPutAll_(_st(self)._exportClass_(each));
 return _st(self)._exportPackageExtensionsOf_on_(package_,stream);
 }, function($ctx2) {$ctx2.fillBlock({stream:stream},$ctx1)})}));
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"exportPackage:",{packageName:packageName,package_:package_},smalltalk.Exporter)});},
+}, function($ctx1) {$ctx1.fill(self,"exportPackage:",{packageName:packageName,package_:package_},smalltalk.Exporter)})},
 messageSends: ["streamContents:", "packageAt:", "current", "exportPackageDefinitionOf:on:", "do:", "nextPutAll:", "exportClass:", "asSet", "sortedClasses", "exportPackageExtensionsOf:on:"]}),
 smalltalk.Exporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportPackageDefinitionOf:on:",
-fn: function (package_, aStream) {
+fn: function (package_,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2;
@@ -289,14 +289,14 @@ $1=aStream;
 _st($1)._nextPutAll_("smalltalk.addPackage(");
 _st($1)._nextPutAll_(_st(_st("'").__comma(_st(package_)._name())).__comma("');"));
 $2=_st($1)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportPackageDefinitionOf:on:",{package_:package_,aStream:aStream},smalltalk.Exporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportPackageDefinitionOf:on:",{package_:package_,aStream:aStream},smalltalk.Exporter)})},
 messageSends: ["nextPutAll:", ",", "name", "lf"]}),
 smalltalk.Exporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportPackageExtensionsOf:on:",
-fn: function (package_, aStream) {
+fn: function (package_,aStream){
 var self=this;
 var name;
 function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
@@ -320,7 +320,7 @@ return _st(self)._exportMethod_of_on_(method,aClass,aStream);
 }, function($ctx4) {$ctx4.fillBlock({method:method},$ctx1)})}));
 }, function($ctx3) {$ctx3.fillBlock({aClass:aClass},$ctx1)})}));
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"exportPackageExtensionsOf:on:",{package_:package_,aStream:aStream,name:name},smalltalk.Exporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportPackageExtensionsOf:on:",{package_:package_,aStream:aStream,name:name},smalltalk.Exporter)})},
 messageSends: ["name", "do:", "ifTrue:", "exportMethod:of:on:", "match:", ",", "category", "sorted:", "<=", "selector", "values", "methodDictionary", "class", "sortedClasses:", "classes", "current"]}),
 smalltalk.Exporter);
 
@@ -330,20 +330,20 @@ smalltalk.addClass('ChunkExporter', smalltalk.Exporter, [], 'Importer-Exporter')
 smalltalk.addMethod(
 smalltalk.method({
 selector: "chunkEscape:",
-fn: function (aString) {
+fn: function (aString){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(_st(aString)._replace_with_("!","!!"))._trimBoth();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"chunkEscape:",{aString:aString},smalltalk.ChunkExporter)});},
+}, function($ctx1) {$ctx1.fill(self,"chunkEscape:",{aString:aString},smalltalk.ChunkExporter)})},
 messageSends: ["trimBoth", "replace:with:"]}),
 smalltalk.ChunkExporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "classNameFor:",
-fn: function (aClass) {
+fn: function (aClass){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $2,$3,$1;
@@ -359,14 +359,14 @@ $1=_st(aClass)._name();
 };
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classNameFor:",{aClass:aClass},smalltalk.ChunkExporter)});},
+}, function($ctx1) {$ctx1.fill(self,"classNameFor:",{aClass:aClass},smalltalk.ChunkExporter)})},
 messageSends: ["ifTrue:ifFalse:", ",", "name", "instanceClass", "isNil", "isMetaclass"]}),
 smalltalk.ChunkExporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportDefinitionOf:on:",
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2,$3,$4,$5,$6,$7;
@@ -399,14 +399,14 @@ $7=_st($6)._lf();
 $7;
 };
 _st(aStream)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)})},
 messageSends: ["nextPutAll:", "classNameFor:", "superclass", ",", "lf", "tab", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "chunkEscape:", "comment", "notEmpty"]}),
 smalltalk.ChunkExporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportMetaDefinitionOf:on:",
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2,$3,$4,$5;
@@ -429,14 +429,14 @@ _st($4)._lf();
 $5=_st($4)._lf();
 $5;
 };
-return self}, function($ctx1) {$ctx1.fill(self,"exportMetaDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportMetaDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)})},
 messageSends: ["ifFalse:", "nextPutAll:", "classNameFor:", "class", "do:separatedBy:", "instanceVariableNames", "lf", "isEmpty"]}),
 smalltalk.ChunkExporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportMethod:of:on:",
-fn: function (aMethod, aClass, aStream) {
+fn: function (aMethod,aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2;
@@ -446,14 +446,14 @@ _st($1)._lf();
 _st($1)._nextPutAll_(_st(self)._chunkEscape_(_st(aMethod)._source()));
 _st($1)._lf();
 $2=_st($1)._nextPutAll_("!");
-return self}, function($ctx1) {$ctx1.fill(self,"exportMethod:of:on:",{aMethod:aMethod,aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportMethod:of:on:",{aMethod:aMethod,aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)})},
 messageSends: ["lf", "nextPutAll:", "chunkEscape:", "source"]}),
 smalltalk.ChunkExporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportMethods:category:of:on:",
-fn: function (methods, category, aClass, aStream) {
+fn: function (methods,category,aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2,$3,$4;
@@ -471,14 +471,14 @@ $3=aStream;
 _st($3)._nextPutAll_(" !");
 _st($3)._lf();
 $4=_st($3)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportMethods:category:of:on:",{methods:methods,category:category,aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportMethods:category:of:on:",{methods:methods,category:category,aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)})},
 messageSends: ["nextPutAll:", ",", "classNameFor:", "do:", "exportMethod:of:on:", "sorted:", "<=", "selector", "lf"]}),
 smalltalk.ChunkExporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportMethodsOf:on:",
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 var map;
 function $Dictionary(){return smalltalk.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
@@ -502,28 +502,28 @@ methods=_st(map)._at_(category);
 methods;
 return _st(self)._exportMethods_category_of_on_(methods,category,aClass,aStream);
 }, function($ctx2) {$ctx2.fillBlock({category:category,methods:methods},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"exportMethodsOf:on:",{aClass:aClass,aStream:aStream,map:map},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportMethodsOf:on:",{aClass:aClass,aStream:aStream,map:map},smalltalk.ChunkExporter)})},
 messageSends: ["new", "protocolsDo:", "ifFalse:", "at:put:", "match:", "do:", "at:", "exportMethods:category:of:on:", "sorted:", "<=", "keys"]}),
 smalltalk.ChunkExporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportPackageDefinitionOf:on:",
-fn: function (package_, aStream) {
+fn: function (package_,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2;
 $1=aStream;
 _st($1)._nextPutAll_(_st(_st("Smalltalk current createPackage: '").__comma(_st(package_)._name())).__comma("'!"));
 $2=_st($1)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportPackageDefinitionOf:on:",{package_:package_,aStream:aStream},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportPackageDefinitionOf:on:",{package_:package_,aStream:aStream},smalltalk.ChunkExporter)})},
 messageSends: ["nextPutAll:", ",", "name", "lf"]}),
 smalltalk.ChunkExporter);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportPackageExtensionsOf:on:",
-fn: function (package_, aStream) {
+fn: function (package_,aStream){
 var self=this;
 var name,map;
 function $Dictionary(){return smalltalk.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
@@ -557,7 +557,7 @@ return _st(self)._exportMethods_category_of_on_(methods,category,aClass,aStream)
 }, function($ctx4) {$ctx4.fillBlock({category:category,methods:methods},$ctx1)})}));
 }, function($ctx3) {$ctx3.fillBlock({aClass:aClass},$ctx1)})}));
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"exportPackageExtensionsOf:on:",{package_:package_,aStream:aStream,name:name,map:map},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportPackageExtensionsOf:on:",{package_:package_,aStream:aStream,name:name,map:map},smalltalk.ChunkExporter)})},
 messageSends: ["name", "do:", "new", "protocolsDo:", "ifTrue:", "at:put:", "match:", ",", "at:", "exportMethods:category:of:on:", "sorted:", "<=", "keys", "class", "sortedClasses:", "classes", "current"]}),
 smalltalk.ChunkExporter);
 
@@ -567,7 +567,7 @@ smalltalk.addClass('StrippedExporter', smalltalk.Exporter, [], 'Importer-Exporte
 smalltalk.addMethod(
 smalltalk.method({
 selector: "exportDefinitionOf:on:",
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2,$3,$4;
@@ -588,7 +588,7 @@ _st($3)._nextPutAll_("], '");
 _st($3)._nextPutAll_(_st(_st(aClass)._category()).__comma("'"));
 $4=_st($3)._nextPutAll_(");");
 _st(aStream)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.StrippedExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.StrippedExporter)})},
 messageSends: ["nextPutAll:", ",", "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category", "lf"]}),
 smalltalk.StrippedExporter);
 
@@ -625,7 +625,7 @@ smalltalk.addClass('Importer', smalltalk.Object, [], 'Importer-Exporter');
 smalltalk.addMethod(
 smalltalk.method({
 selector: "import:",
-fn: function (aStream) {
+fn: function (aStream){
 var self=this;
 var chunk,result,parser,lastEmpty;
 function $ChunkParser(){return smalltalk.ChunkParser||(typeof ChunkParser=="undefined"?nil:ChunkParser)}
@@ -656,7 +656,7 @@ return _st(result)._scanFrom_(parser);
 };
 };
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"import:",{aStream:aStream,chunk:chunk,result:result,parser:parser,lastEmpty:lastEmpty},smalltalk.Importer)});},
+return self}, function($ctx1) {$ctx1.fill(self,"import:",{aStream:aStream,chunk:chunk,result:result,parser:parser,lastEmpty:lastEmpty},smalltalk.Importer)})},
 messageSends: ["on:", "whileFalse:", "ifTrue:ifFalse:", "evaluateExpression:", "new", "ifTrue:", "scanFrom:", "isEmpty", "nextChunk", "isNil"]}),
 smalltalk.Importer);
 
@@ -666,21 +666,21 @@ smalltalk.addClass('PackageHandler', smalltalk.Object, [], 'Importer-Exporter');
 smalltalk.addMethod(
 smalltalk.method({
 selector: "ajaxPutAt:data:",
-fn: function (aURL, aString) {
+fn: function (aURL,aString){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(jQuery)._ajax_options_(aURL,smalltalk.HashedCollection._fromPairs_([_st("type").__minus_gt("PUT"),_st("data").__minus_gt(aString),_st("contentType").__minus_gt("text/plain;charset=UTF-8"),_st("error").__minus_gt((function(xhr){
 return smalltalk.withContext(function($ctx2) {
 return _st(self)._error_(_st(_st(_st(_st("Commiting ").__comma(aURL)).__comma(" failed with reason: \x22")).__comma(_st(xhr)._responseText())).__comma("\x22"));
 }, function($ctx2) {$ctx2.fillBlock({xhr:xhr},$ctx1)})}))]));
-return self}, function($ctx1) {$ctx1.fill(self,"ajaxPutAt:data:",{aURL:aURL,aString:aString},smalltalk.PackageHandler)});},
+return self}, function($ctx1) {$ctx1.fill(self,"ajaxPutAt:data:",{aURL:aURL,aString:aString},smalltalk.PackageHandler)})},
 messageSends: ["ajax:options:", "->", "error:", ",", "responseText"]}),
 smalltalk.PackageHandler);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "commit:",
-fn: function (aPackage) {
+fn: function (aPackage){
 var self=this;
 function $Exporter(){return smalltalk.Exporter||(typeof Exporter=="undefined"?nil:Exporter)}
 function $StrippedExporter(){return smalltalk.StrippedExporter||(typeof StrippedExporter=="undefined"?nil:StrippedExporter)}
@@ -693,14 +693,14 @@ fileContents=_st(_st(_st(commitStrategy)._key())._new())._exportPackage_(_st(aPa
 fileContents;
 return _st(self)._ajaxPutAt_data_(_st(commitStrategy)._value(),fileContents);
 }, function($ctx2) {$ctx2.fillBlock({commitStrategy:commitStrategy,fileContents:fileContents},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"commit:",{aPackage:aPackage},smalltalk.PackageHandler)});},
+return self}, function($ctx1) {$ctx1.fill(self,"commit:",{aPackage:aPackage},smalltalk.PackageHandler)})},
 messageSends: ["do:", "exportPackage:", "name", "new", "key", "ajaxPutAt:data:", "value", "->", ",", "commitPathJs", "commitPathSt"]}),
 smalltalk.PackageHandler);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "loadPackage:prefix:",
-fn: function (packageName, aString) {
+fn: function (packageName,aString){
 var self=this;
 var url;
 return smalltalk.withContext(function($ctx1) { 
@@ -716,28 +716,28 @@ return _st(self)._setupPackageNamed_prefix_(packageName,aString);
 return smalltalk.withContext(function($ctx2) {
 return _st(window)._alert_(_st("Could not load package at: ").__comma(url));
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))]));
-return self}, function($ctx1) {$ctx1.fill(self,"loadPackage:prefix:",{packageName:packageName,aString:aString,url:url},smalltalk.PackageLoader)});},
+return self}, function($ctx1) {$ctx1.fill(self,"loadPackage:prefix:",{packageName:packageName,aString:aString,url:url},smalltalk.PackageHandler)})},
 messageSends: [",", "ajax:options:", "->", "ifTrue:", "setupPackageNamed:prefix:", "=", "readyState", "alert:"]}),
 smalltalk.PackageHandler);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "loadPackages:prefix:",
-fn: function (aCollection, aString) {
+fn: function (aCollection,aString){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(aCollection)._do_((function(each){
 return smalltalk.withContext(function($ctx2) {
 return _st(self)._loadPackage_prefix_(each,aString);
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"loadPackages:prefix:",{aCollection:aCollection,aString:aString},smalltalk.PackageLoader)});},
+return self}, function($ctx1) {$ctx1.fill(self,"loadPackages:prefix:",{aCollection:aCollection,aString:aString},smalltalk.PackageHandler)})},
 messageSends: ["do:", "loadPackage:prefix:"]}),
 smalltalk.PackageHandler);
 
 smalltalk.addMethod(
 smalltalk.method({
 selector: "setupPackageNamed:prefix:",
-fn: function (packageName, aString) {
+fn: function (packageName,aString){
 var self=this;
 function $Package(){return smalltalk.Package||(typeof Package=="undefined"?nil:Package)}
 return smalltalk.withContext(function($ctx1) { 
@@ -746,7 +746,7 @@ $1=_st($Package())._named_(packageName);
 _st($1)._setupClasses();
 _st($1)._commitPathJs_(_st(_st("/").__comma(aString)).__comma("/js"));
 $2=_st($1)._commitPathSt_(_st(_st("/").__comma(aString)).__comma("/st"));
-return self}, function($ctx1) {$ctx1.fill(self,"setupPackageNamed:prefix:",{packageName:packageName,aString:aString},smalltalk.PackageLoader)});},
+return self}, function($ctx1) {$ctx1.fill(self,"setupPackageNamed:prefix:",{packageName:packageName,aString:aString},smalltalk.PackageHandler)})},
 messageSends: ["setupClasses", "named:", "commitPathJs:", ",", "commitPathSt:"]}),
 smalltalk.PackageHandler);
 
@@ -754,13 +754,13 @@ smalltalk.PackageHandler);
 smalltalk.addMethod(
 smalltalk.method({
 selector: "loadPackages:prefix:",
-fn: function (aCollection, aString) {
+fn: function (aCollection,aString){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(_st(self)._new())._loadPackages_prefix_(aCollection,aString);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"loadPackages:prefix:",{aCollection:aCollection,aString:aString},smalltalk.PackageLoader.klass)});},
+}, function($ctx1) {$ctx1.fill(self,"loadPackages:prefix:",{aCollection:aCollection,aString:aString},smalltalk.PackageHandler.klass)})},
 messageSends: ["loadPackages:prefix:", "new"]}),
 smalltalk.PackageHandler.klass);
 
@@ -768,14 +768,14 @@ smalltalk.PackageHandler.klass);
 smalltalk.addMethod(
 smalltalk.method({
 selector: "commit",
-fn: function () {
+fn: function (){
 var self=this;
 function $PackageHandler(){return smalltalk.PackageHandler||(typeof PackageHandler=="undefined"?nil:PackageHandler)}
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(_st($PackageHandler())._new())._commit_(self);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"commit",{},smalltalk.Package)});},
+}, function($ctx1) {$ctx1.fill(self,"commit",{},smalltalk.Package)})},
 messageSends: ["commit:", "new"]}),
 smalltalk.Package);
 

js/Importer-Exporter.js

@@ -4,7 +4,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "nextChunk",
 category: 'reading',
-fn: function () {
+fn: function (){
 var self=this;
 var char,result,chunk;
 return smalltalk.withContext(function($ctx1) { 
@@ -34,7 +34,7 @@ return _st(result)._nextPut_(char);
 return nil;
 }
 catch(e) {if(e===$early)return e[0]; throw e}
-}, function($ctx1) {$ctx1.fill(self,"nextChunk",{char:char,result:result,chunk:chunk},smalltalk.ChunkParser)});},
+}, function($ctx1) {$ctx1.fill(self,"nextChunk",{char:char,result:result,chunk:chunk},smalltalk.ChunkParser)})},
 args: [],
 source: "nextChunk\x0a\x09\x22The chunk format (Smalltalk Interchange Format or Fileout format)\x0a\x09is a trivial format but can be a bit tricky to understand:\x0a\x09\x09- Uses the exclamation mark as delimiter of chunks.\x0a\x09\x09- Inside a chunk a normal exclamation mark must be doubled.\x0a\x09\x09- A non empty chunk must be a valid Smalltalk expression.\x0a\x09\x09- A chunk on top level with a preceding empty chunk is an instruction chunk:\x0a\x09\x09\x09- The object created by the expression then takes over reading chunks.\x0a\x0a\x09This metod returns next chunk as a String (trimmed), empty String (all whitespace) or nil.\x22\x0a\x0a\x09| char result chunk |\x0a\x09result := '' writeStream.\x0a\x09\x09[char := stream next.\x0a\x09\x09char notNil] whileTrue: [\x0a\x09\x09\x09\x09char = '!' ifTrue: [\x0a\x09\x09\x09\x09\x09\x09stream peek = '!'\x0a\x09\x09\x09\x09\x09\x09\x09\x09ifTrue: [stream next \x22skipping the escape double\x22]\x0a\x09\x09\x09\x09\x09\x09\x09\x09ifFalse: [^result contents trimBoth \x22chunk end marker found\x22]].\x0a\x09\x09\x09\x09result nextPut: char].\x0a\x09^nil \x22a chunk needs to end with !\x22",
 messageSends: ["writeStream", "whileTrue:", "ifTrue:", "ifTrue:ifFalse:", "next", "trimBoth", "contents", "=", "peek", "nextPut:", "notNil"],
@@ -46,11 +46,11 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "stream:",
 category: 'accessing',
-fn: function (aStream) {
+fn: function (aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 self["@stream"]=aStream;
-return self}, function($ctx1) {$ctx1.fill(self,"stream:",{aStream:aStream},smalltalk.ChunkParser)});},
+return self}, function($ctx1) {$ctx1.fill(self,"stream:",{aStream:aStream},smalltalk.ChunkParser)})},
 args: ["aStream"],
 source: "stream: aStream\x0a\x09stream := aStream",
 messageSends: [],
@@ -63,13 +63,13 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "on:",
 category: 'not yet classified',
-fn: function (aStream) {
+fn: function (aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(_st(self)._new())._stream_(aStream);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"on:",{aStream:aStream},smalltalk.ChunkParser.klass)});},
+}, function($ctx1) {$ctx1.fill(self,"on:",{aStream:aStream},smalltalk.ChunkParser.klass)})},
 args: ["aStream"],
 source: "on: aStream\x0a\x09^self new stream: aStream",
 messageSends: ["stream:", "new"],
@@ -83,7 +83,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "classNameFor:",
 category: 'private',
-fn: function (aClass) {
+fn: function (aClass){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $2,$3,$1;
@@ -99,7 +99,7 @@ $1=_st(aClass)._name();
 };
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classNameFor:",{aClass:aClass},smalltalk.Exporter)});},
+}, function($ctx1) {$ctx1.fill(self,"classNameFor:",{aClass:aClass},smalltalk.Exporter)})},
 args: ["aClass"],
 source: "classNameFor: aClass\x0a\x09^aClass isMetaclass\x0a\x09\x09ifTrue: [aClass instanceClass name, '.klass']\x0a\x09\x09ifFalse: [\x0a\x09\x09aClass isNil\x0a\x09\x09\x09ifTrue: ['nil']\x0a\x09\x09\x09ifFalse: [aClass name]]",
 messageSends: ["ifTrue:ifFalse:", ",", "name", "instanceClass", "isNil", "isMetaclass"],
@@ -111,7 +111,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportAll",
 category: 'fileOut',
-fn: function () {
+fn: function (){
 var self=this;
 function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
 function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
@@ -125,7 +125,7 @@ return _st(stream)._nextPutAll_(_st(self)._exportPackage_(_st(pkg)._name()));
 }, function($ctx3) {$ctx3.fillBlock({pkg:pkg},$ctx1)})}));
 }, function($ctx2) {$ctx2.fillBlock({stream:stream},$ctx1)})}));
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"exportAll",{},smalltalk.Exporter)});},
+}, function($ctx1) {$ctx1.fill(self,"exportAll",{},smalltalk.Exporter)})},
 args: [],
 source: "exportAll\x0a\x09\x22Export all packages in the system.\x22\x0a\x0a\x09^String streamContents: [:stream |\x0a\x09\x09Smalltalk current packages do: [:pkg |\x0a\x09\x09stream nextPutAll: (self exportPackage: pkg name)]]",
 messageSends: ["streamContents:", "do:", "nextPutAll:", "exportPackage:", "name", "packages", "current"],
@@ -137,7 +137,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportClass:",
 category: 'fileOut',
-fn: function (aClass) {
+fn: function (aClass){
 var self=this;
 function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
 return smalltalk.withContext(function($ctx1) { 
@@ -150,7 +150,7 @@ _st(self)._exportMetaDefinitionOf_on_(aClass,stream);
 return _st(self)._exportMethodsOf_on_(_st(aClass)._class(),stream);
 }, function($ctx2) {$ctx2.fillBlock({stream:stream},$ctx1)})}));
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"exportClass:",{aClass:aClass},smalltalk.Exporter)});},
+}, function($ctx1) {$ctx1.fill(self,"exportClass:",{aClass:aClass},smalltalk.Exporter)})},
 args: ["aClass"],
 source: "exportClass: aClass\x0a\x09\x22Export a single class. Subclasses override these methods.\x22\x0a\x0a\x09^String streamContents: [:stream |\x0a\x09\x09self exportDefinitionOf: aClass on: stream.\x0a\x09\x09self exportMethodsOf: aClass on: stream.\x0a\x09\x09self exportMetaDefinitionOf: aClass on: stream.\x0a\x09\x09self exportMethodsOf: aClass class on: stream]",
 messageSends: ["streamContents:", "exportDefinitionOf:on:", "exportMethodsOf:on:", "exportMetaDefinitionOf:on:", "class"],
@@ -162,7 +162,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportDefinitionOf:on:",
 category: 'private',
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2,$3,$4,$5,$6,$7;
@@ -193,7 +193,7 @@ $7=_st($6)._nextPutAll_(_st(_st(aClass)._comment())._asJavascript());
 $7;
 };
 _st(aStream)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)})},
 args: ["aClass", "aStream"],
 source: "exportDefinitionOf: aClass on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: 'smalltalk.addClass(';\x0a\x09\x09nextPutAll: '''', (self classNameFor: aClass), ''', ';\x0a\x09\x09nextPutAll: 'smalltalk.', (self classNameFor: aClass superclass);\x0a\x09\x09nextPutAll: ', ['.\x0a\x09aClass instanceVariableNames\x0a\x09\x09do: [:each | aStream nextPutAll: '''', each, '''']\x0a\x09\x09separatedBy: [aStream nextPutAll: ', '].\x0a\x09aStream\x0a\x09\x09nextPutAll: '], ''';\x0a\x09\x09nextPutAll: aClass category, '''';\x0a\x09\x09nextPutAll: ');'.\x0a\x09aClass comment notEmpty ifTrue: [\x0a\x09\x09aStream\x0a\x09\x09\x09lf;\x0a\x09\x09nextPutAll: 'smalltalk.';\x0a\x09\x09nextPutAll: (self classNameFor: aClass);\x0a\x09\x09nextPutAll: '.comment=';\x0a\x09\x09nextPutAll: aClass comment asJavascript].\x0a\x09aStream lf",
 messageSends: ["nextPutAll:", ",", "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "lf", "asJavascript", "comment", "notEmpty"],
@@ -205,7 +205,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportMetaDefinitionOf:on:",
 category: 'private',
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 function $String(){return smalltalk.String||(typeof String=="undefined"?nil:String)}
 return smalltalk.withContext(function($ctx1) { 
@@ -225,7 +225,7 @@ return _st(aStream)._nextPutAll_(",");
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
 _st(aStream)._nextPutAll_(_st("];").__comma(_st($String())._lf()));
 };
-return self}, function($ctx1) {$ctx1.fill(self,"exportMetaDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportMetaDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)})},
 args: ["aClass", "aStream"],
 source: "exportMetaDefinitionOf: aClass on: aStream\x0a\x09aClass class instanceVariableNames isEmpty ifFalse: [\x0a\x09\x09aStream\x0a\x09\x09nextPutAll: 'smalltalk.', (self classNameFor: aClass class);\x0a\x09\x09nextPutAll: '.iVarNames = ['.\x0a\x09\x09aClass class instanceVariableNames\x0a\x09\x09do: [:each | aStream nextPutAll: '''', each, '''']\x0a\x09\x09separatedBy: [aStream nextPutAll: ','].\x0a\x09\x09aStream nextPutAll: '];', String lf]",
 messageSends: ["ifFalse:", "nextPutAll:", ",", "classNameFor:", "class", "do:separatedBy:", "instanceVariableNames", "lf", "isEmpty"],
@@ -279,7 +279,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportMethodsOf:on:",
 category: 'private',
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
@@ -294,7 +294,7 @@ return _st(self)._exportMethod_of_on_(each,aClass,aStream);
 };
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
 _st(aStream)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportMethodsOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportMethodsOf:on:",{aClass:aClass,aStream:aStream},smalltalk.Exporter)})},
 args: ["aClass", "aStream"],
 source: "exportMethodsOf: aClass on: aStream\x0a\x09\x22Issue #143: sort methods alphabetically\x22\x0a\x0a\x09((aClass methodDictionary values) sorted: [:a :b | a selector <= b selector]) do: [:each |\x0a\x09\x09(each category match: '^\x5c*') ifFalse: [\x0a\x09\x09\x09self exportMethod: each of: aClass on: aStream]].\x0a\x09aStream lf",
 messageSends: ["do:", "ifFalse:", "exportMethod:of:on:", "match:", "category", "sorted:", "<=", "selector", "values", "methodDictionary", "lf"],
@@ -306,7 +306,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportPackage:",
 category: 'fileOut',
-fn: function (packageName) {
+fn: function (packageName){
 var self=this;
 var package_;
 function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
@@ -325,7 +325,7 @@ return _st(stream)._nextPutAll_(_st(self)._exportClass_(each));
 return _st(self)._exportPackageExtensionsOf_on_(package_,stream);
 }, function($ctx2) {$ctx2.fillBlock({stream:stream},$ctx1)})}));
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"exportPackage:",{packageName:packageName,package_:package_},smalltalk.Exporter)});},
+}, function($ctx1) {$ctx1.fill(self,"exportPackage:",{packageName:packageName,package_:package_},smalltalk.Exporter)})},
 args: ["packageName"],
 source: "exportPackage: packageName\x0a\x09\x22Export a given package by name.\x22\x0a\x0a\x09| package |\x0a\x09^String streamContents: [:stream |\x0a\x09\x09\x09\x09package := Smalltalk current packageAt: packageName.\x0a\x09\x09\x09\x09self exportPackageDefinitionOf: package on: stream.\x0a\x0a\x09\x09\x22Export classes in dependency order.\x0a\x09\x09Update (issue #171): Remove duplicates for export\x22\x0a\x09\x09\x09package sortedClasses asSet do: [:each |\x0a\x09\x09\x09\x09\x09\x09stream nextPutAll: (self exportClass: each)].\x0a\x09\x09self exportPackageExtensionsOf: package on: stream]",
 messageSends: ["streamContents:", "packageAt:", "current", "exportPackageDefinitionOf:on:", "do:", "nextPutAll:", "exportClass:", "asSet", "sortedClasses", "exportPackageExtensionsOf:on:"],
@@ -337,7 +337,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportPackageDefinitionOf:on:",
 category: 'private',
-fn: function (package_, aStream) {
+fn: function (package_,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2;
@@ -345,7 +345,7 @@ $1=aStream;
 _st($1)._nextPutAll_("smalltalk.addPackage(");
 _st($1)._nextPutAll_(_st(_st("'").__comma(_st(package_)._name())).__comma("');"));
 $2=_st($1)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportPackageDefinitionOf:on:",{package_:package_,aStream:aStream},smalltalk.Exporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportPackageDefinitionOf:on:",{package_:package_,aStream:aStream},smalltalk.Exporter)})},
 args: ["package", "aStream"],
 source: "exportPackageDefinitionOf: package on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: 'smalltalk.addPackage(';\x0a\x09\x09nextPutAll: '''', package name, ''');';\x0a\x09\x09lf",
 messageSends: ["nextPutAll:", ",", "name", "lf"],
@@ -357,7 +357,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportPackageExtensionsOf:on:",
 category: 'private',
-fn: function (package_, aStream) {
+fn: function (package_,aStream){
 var self=this;
 var name;
 function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
@@ -381,7 +381,7 @@ return _st(self)._exportMethod_of_on_(method,aClass,aStream);
 }, function($ctx4) {$ctx4.fillBlock({method:method},$ctx1)})}));
 }, function($ctx3) {$ctx3.fillBlock({aClass:aClass},$ctx1)})}));
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"exportPackageExtensionsOf:on:",{package_:package_,aStream:aStream,name:name},smalltalk.Exporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportPackageExtensionsOf:on:",{package_:package_,aStream:aStream,name:name},smalltalk.Exporter)})},
 args: ["package", "aStream"],
 source: "exportPackageExtensionsOf: package on: aStream\x0a\x09\x22Issue #143: sort classes and methods alphabetically\x22\x0a\x0a\x09| name |\x0a\x09name := package name.\x0a\x09(Package sortedClasses: Smalltalk current classes) do: [:each |\x0a\x09\x09{each. each class} do: [:aClass |\x0a\x09\x09\x09((aClass methodDictionary values) sorted: [:a :b | a selector <= b selector]) do: [:method |\x0a\x09\x09\x09\x09(method category match: '^\x5c*', name) ifTrue: [\x0a\x09\x09\x09\x09\x09self exportMethod: method of: aClass on: aStream ]]]]",
 messageSends: ["name", "do:", "ifTrue:", "exportMethod:of:on:", "match:", ",", "category", "sorted:", "<=", "selector", "values", "methodDictionary", "class", "sortedClasses:", "classes", "current"],
@@ -396,13 +396,13 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "chunkEscape:",
 category: 'not yet classified',
-fn: function (aString) {
+fn: function (aString){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(_st(aString)._replace_with_("!","!!"))._trimBoth();
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"chunkEscape:",{aString:aString},smalltalk.ChunkExporter)});},
+}, function($ctx1) {$ctx1.fill(self,"chunkEscape:",{aString:aString},smalltalk.ChunkExporter)})},
 args: ["aString"],
 source: "chunkEscape: aString\x0a\x09\x22Replace all occurrences of ! with !! and trim at both ends.\x22\x0a\x0a\x09^(aString replace: '!' with: '!!') trimBoth",
 messageSends: ["trimBoth", "replace:with:"],
@@ -414,7 +414,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "classNameFor:",
 category: 'not yet classified',
-fn: function (aClass) {
+fn: function (aClass){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $2,$3,$1;
@@ -430,7 +430,7 @@ $1=_st(aClass)._name();
 };
 };
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"classNameFor:",{aClass:aClass},smalltalk.ChunkExporter)});},
+}, function($ctx1) {$ctx1.fill(self,"classNameFor:",{aClass:aClass},smalltalk.ChunkExporter)})},
 args: ["aClass"],
 source: "classNameFor: aClass\x0a\x09^aClass isMetaclass\x0a\x09\x09ifTrue: [aClass instanceClass name, ' class']\x0a\x09\x09ifFalse: [\x0a\x09\x09aClass isNil\x0a\x09\x09\x09ifTrue: ['nil']\x0a\x09\x09\x09ifFalse: [aClass name]]",
 messageSends: ["ifTrue:ifFalse:", ",", "name", "instanceClass", "isNil", "isMetaclass"],
@@ -442,7 +442,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportDefinitionOf:on:",
 category: 'not yet classified',
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2,$3,$4,$5,$6,$7;
@@ -475,7 +475,7 @@ $7=_st($6)._lf();
 $7;
 };
 _st(aStream)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)})},
 args: ["aClass", "aStream"],
 source: "exportDefinitionOf: aClass on: aStream\x0a\x09\x22Chunk format.\x22\x0a\x0a\x09aStream\x0a\x09\x09nextPutAll: (self classNameFor: aClass superclass);\x0a\x09\x09nextPutAll: ' subclass: #', (self classNameFor: aClass); lf;\x0a\x09\x09tab; nextPutAll: 'instanceVariableNames: '''.\x0a\x09aClass instanceVariableNames\x0a\x09\x09do: [:each | aStream nextPutAll: each]\x0a\x09\x09separatedBy: [aStream nextPutAll: ' '].\x0a\x09aStream\x0a\x09\x09nextPutAll: ''''; lf;\x0a\x09\x09tab; nextPutAll: 'package: ''', aClass category, '''!'; lf.\x0a\x09aClass comment notEmpty ifTrue: [\x0a\x09\x09aStream\x0a\x09\x09nextPutAll: '!', (self classNameFor: aClass), ' commentStamp!';lf;\x0a\x09\x09nextPutAll: (self chunkEscape: aClass comment), '!';lf].\x0a\x09aStream lf",
 messageSends: ["nextPutAll:", "classNameFor:", "superclass", ",", "lf", "tab", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "chunkEscape:", "comment", "notEmpty"],
@@ -487,7 +487,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportMetaDefinitionOf:on:",
 category: 'not yet classified',
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2,$3,$4,$5;
@@ -510,7 +510,7 @@ _st($4)._lf();
 $5=_st($4)._lf();
 $5;
 };
-return self}, function($ctx1) {$ctx1.fill(self,"exportMetaDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportMetaDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)})},
 args: ["aClass", "aStream"],
 source: "exportMetaDefinitionOf: aClass on: aStream\x0a\x0a\x09aClass class instanceVariableNames isEmpty ifFalse: [\x0a\x09\x09aStream\x0a\x09\x09\x09nextPutAll: (self classNameFor: aClass class);\x0a\x09\x09\x09nextPutAll: ' instanceVariableNames: '''.\x0a\x09\x09aClass class instanceVariableNames\x0a\x09\x09\x09do: [:each | aStream nextPutAll: each]\x0a\x09\x09\x09separatedBy: [aStream nextPutAll: ' '].\x0a\x09\x09aStream\x0a\x09\x09\x09nextPutAll: '''!'; lf; lf]",
 messageSends: ["ifFalse:", "nextPutAll:", "classNameFor:", "class", "do:separatedBy:", "instanceVariableNames", "lf", "isEmpty"],
@@ -522,7 +522,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportMethod:of:on:",
 category: 'not yet classified',
-fn: function (aMethod, aClass, aStream) {
+fn: function (aMethod,aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2;
@@ -532,7 +532,7 @@ _st($1)._lf();
 _st($1)._nextPutAll_(_st(self)._chunkEscape_(_st(aMethod)._source()));
 _st($1)._lf();
 $2=_st($1)._nextPutAll_("!");
-return self}, function($ctx1) {$ctx1.fill(self,"exportMethod:of:on:",{aMethod:aMethod,aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportMethod:of:on:",{aMethod:aMethod,aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)})},
 args: ["aMethod", "aClass", "aStream"],
 source: "exportMethod: aMethod of: aClass on: aStream\x0a\x09aStream\x0a\x09\x09lf; lf; nextPutAll: (self chunkEscape: aMethod source); lf;\x0a\x09\x09nextPutAll: '!'",
 messageSends: ["lf", "nextPutAll:", "chunkEscape:", "source"],
@@ -544,7 +544,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportMethods:category:of:on:",
 category: 'not yet classified',
-fn: function (methods, category, aClass, aStream) {
+fn: function (methods,category,aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2,$3,$4;
@@ -562,7 +562,7 @@ $3=aStream;
 _st($3)._nextPutAll_(" !");
 _st($3)._lf();
 $4=_st($3)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportMethods:category:of:on:",{methods:methods,category:category,aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportMethods:category:of:on:",{methods:methods,category:category,aClass:aClass,aStream:aStream},smalltalk.ChunkExporter)})},
 args: ["methods", "category", "aClass", "aStream"],
 source: "exportMethods: methods category: category of: aClass on: aStream\x0a\x09\x22Issue #143: sort methods alphabetically\x22\x0a\x0a\x09aStream\x0a\x09\x09nextPutAll: '!', (self classNameFor: aClass);\x0a\x09\x09nextPutAll: ' methodsFor: ''', category, '''!'.\x0a\x09\x09(methods sorted: [:a :b | a selector <= b selector]) do: [:each |\x0a\x09\x09\x09\x09self exportMethod: each of: aClass on: aStream].\x0a\x09aStream nextPutAll: ' !'; lf; lf",
 messageSends: ["nextPutAll:", ",", "classNameFor:", "do:", "exportMethod:of:on:", "sorted:", "<=", "selector", "lf"],
@@ -574,7 +574,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportMethodsOf:on:",
 category: 'not yet classified',
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 var map;
 function $Dictionary(){return smalltalk.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
@@ -598,7 +598,7 @@ methods=_st(map)._at_(category);
 methods;
 return _st(self)._exportMethods_category_of_on_(methods,category,aClass,aStream);
 }, function($ctx2) {$ctx2.fillBlock({category:category,methods:methods},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"exportMethodsOf:on:",{aClass:aClass,aStream:aStream,map:map},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportMethodsOf:on:",{aClass:aClass,aStream:aStream,map:map},smalltalk.ChunkExporter)})},
 args: ["aClass", "aStream"],
 source: "exportMethodsOf: aClass on: aStream\x0a\x09\x22Issue #143: sort protocol alphabetically\x22\x0a\x0a\x09| map |\x0a\x09map := Dictionary new.\x0a\x09aClass protocolsDo: [:category :methods |\x0a\x09\x09(category match: '^\x5c*') ifFalse: [ map at: category put: methods ]].\x0a\x09(map keys sorted: [:a :b | a <= b ]) do: [:category | | methods |\x0a\x09\x09methods := map at: category.\x0a\x09\x09self\x0a\x09\x09\x09exportMethods: methods\x0a\x09\x09\x09category: category\x0a\x09\x09\x09of: aClass\x0a\x09\x09\x09on: aStream ]",
 messageSends: ["new", "protocolsDo:", "ifFalse:", "at:put:", "match:", "do:", "at:", "exportMethods:category:of:on:", "sorted:", "<=", "keys"],
@@ -610,14 +610,14 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportPackageDefinitionOf:on:",
 category: 'not yet classified',
-fn: function (package_, aStream) {
+fn: function (package_,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2;
 $1=aStream;
 _st($1)._nextPutAll_(_st(_st("Smalltalk current createPackage: '").__comma(_st(package_)._name())).__comma("'!"));
 $2=_st($1)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportPackageDefinitionOf:on:",{package_:package_,aStream:aStream},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportPackageDefinitionOf:on:",{package_:package_,aStream:aStream},smalltalk.ChunkExporter)})},
 args: ["package", "aStream"],
 source: "exportPackageDefinitionOf: package on: aStream\x0a\x09\x22Chunk format.\x22\x0a\x0a\x09aStream\x0a\x09\x09nextPutAll: 'Smalltalk current createPackage: ''', package name, '''!';\x0a\x09\x09lf",
 messageSends: ["nextPutAll:", ",", "name", "lf"],
@@ -629,7 +629,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportPackageExtensionsOf:on:",
 category: 'not yet classified',
-fn: function (package_, aStream) {
+fn: function (package_,aStream){
 var self=this;
 var name,map;
 function $Dictionary(){return smalltalk.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
@@ -663,7 +663,7 @@ return _st(self)._exportMethods_category_of_on_(methods,category,aClass,aStream)
 }, function($ctx4) {$ctx4.fillBlock({category:category,methods:methods},$ctx1)})}));
 }, function($ctx3) {$ctx3.fillBlock({aClass:aClass},$ctx1)})}));
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"exportPackageExtensionsOf:on:",{package_:package_,aStream:aStream,name:name,map:map},smalltalk.ChunkExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportPackageExtensionsOf:on:",{package_:package_,aStream:aStream,name:name,map:map},smalltalk.ChunkExporter)})},
 args: ["package", "aStream"],
 source: "exportPackageExtensionsOf: package on: aStream\x0a\x09\x22We need to override this one too since we need to group\x0a\x09all methods in a given protocol under a leading methodsFor: chunk\x0a\x09for that class.\x22\x0a\x0a\x09\x22Issue #143: sort protocol alphabetically\x22\x0a\x0a\x09| name map |\x0a\x09name := package name.\x0a\x09(Package sortedClasses: Smalltalk current classes) do: [:each |\x0a\x09\x09{each. each class} do: [:aClass |\x0a\x09\x09\x09map := Dictionary new.\x0a\x09\x09\x09aClass protocolsDo: [:category :methods |\x0a\x09\x09\x09\x09(category match: '^\x5c*', name) ifTrue: [ map at: category put: methods ]].\x0a\x09\x09\x09(map keys sorted: [:a :b | a <= b ]) do: [:category | | methods |\x0a\x09\x09\x09\x09methods := map at: category.\x0a\x09\x09\x09\x09self exportMethods: methods category: category of: aClass on: aStream ]]]",
 messageSends: ["name", "do:", "new", "protocolsDo:", "ifTrue:", "at:put:", "match:", ",", "at:", "exportMethods:category:of:on:", "sorted:", "<=", "keys", "class", "sortedClasses:", "classes", "current"],
@@ -678,7 +678,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "exportDefinitionOf:on:",
 category: 'private',
-fn: function (aClass, aStream) {
+fn: function (aClass,aStream){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1,$2,$3,$4;
@@ -699,7 +699,7 @@ _st($3)._nextPutAll_("], '");
 _st($3)._nextPutAll_(_st(_st(aClass)._category()).__comma("'"));
 $4=_st($3)._nextPutAll_(");");
 _st(aStream)._lf();
-return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.StrippedExporter)});},
+return self}, function($ctx1) {$ctx1.fill(self,"exportDefinitionOf:on:",{aClass:aClass,aStream:aStream},smalltalk.StrippedExporter)})},
 args: ["aClass", "aStream"],
 source: "exportDefinitionOf: aClass on: aStream\x0a\x09aStream\x0a\x09\x09nextPutAll: 'smalltalk.addClass(';\x0a\x09\x09nextPutAll: '''', (self classNameFor: aClass), ''', ';\x0a\x09\x09nextPutAll: 'smalltalk.', (self classNameFor: aClass superclass);\x0a\x09\x09nextPutAll: ', ['.\x0a\x09aClass instanceVariableNames\x0a\x09\x09do: [:each | aStream nextPutAll: '''', each, '''']\x0a\x09\x09separatedBy: [aStream nextPutAll: ', '].\x0a\x09aStream\x0a\x09\x09nextPutAll: '], ''';\x0a\x09\x09nextPutAll: aClass category, '''';\x0a\x09\x09nextPutAll: ');'.\x0a\x09aStream lf",
 messageSends: ["nextPutAll:", ",", "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category", "lf"],
@@ -746,7 +746,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "import:",
 category: 'fileIn',
-fn: function (aStream) {
+fn: function (aStream){
 var self=this;
 var chunk,result,parser,lastEmpty;
 function $ChunkParser(){return smalltalk.ChunkParser||(typeof ChunkParser=="undefined"?nil:ChunkParser)}
@@ -777,7 +777,7 @@ return _st(result)._scanFrom_(parser);
 };
 };
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"import:",{aStream:aStream,chunk:chunk,result:result,parser:parser,lastEmpty:lastEmpty},smalltalk.Importer)});},
+return self}, function($ctx1) {$ctx1.fill(self,"import:",{aStream:aStream,chunk:chunk,result:result,parser:parser,lastEmpty:lastEmpty},smalltalk.Importer)})},
 args: ["aStream"],
 source: "import: aStream\x0a\x09| chunk result parser lastEmpty |\x0a\x09parser := ChunkParser on: aStream.\x0a\x09lastEmpty := false.\x0a\x09[chunk := parser nextChunk.\x0a\x09chunk isNil] whileFalse: [\x0a\x09\x09chunk isEmpty\x0a\x09\x09\x09ifTrue: [lastEmpty := true]\x0a\x09\x09\x09ifFalse: [\x0a\x09\x09\x09\x09result := Compiler new evaluateExpression: chunk.\x0a\x09\x09\x09\x09lastEmpty\x0a\x09\x09\x09\x09\x09\x09ifTrue: [\x0a\x09\x09\x09\x09\x09\x09\x09\x09\x09lastEmpty := false.\x0a\x09\x09\x09\x09\x09\x09\x09\x09\x09result scanFrom: parser]]]",
 messageSends: ["on:", "whileFalse:", "ifTrue:ifFalse:", "evaluateExpression:", "new", "ifTrue:", "scanFrom:", "isEmpty", "nextChunk", "isNil"],
@@ -792,14 +792,14 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "ajaxPutAt:data:",
 category: 'private',
-fn: function (aURL, aString) {
+fn: function (aURL,aString){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(jQuery)._ajax_options_(aURL,smalltalk.HashedCollection._fromPairs_([_st("type").__minus_gt("PUT"),_st("data").__minus_gt(aString),_st("contentType").__minus_gt("text/plain;charset=UTF-8"),_st("error").__minus_gt((function(xhr){
 return smalltalk.withContext(function($ctx2) {
 return _st(self)._error_(_st(_st(_st(_st("Commiting ").__comma(aURL)).__comma(" failed with reason: \x22")).__comma(_st(xhr)._responseText())).__comma("\x22"));
 }, function($ctx2) {$ctx2.fillBlock({xhr:xhr},$ctx1)})}))]));
-return self}, function($ctx1) {$ctx1.fill(self,"ajaxPutAt:data:",{aURL:aURL,aString:aString},smalltalk.PackageHandler)});},
+return self}, function($ctx1) {$ctx1.fill(self,"ajaxPutAt:data:",{aURL:aURL,aString:aString},smalltalk.PackageHandler)})},
 args: ["aURL", "aString"],
 source: "ajaxPutAt: aURL data: aString\x0a\x09jQuery\x0a\x09\x09ajax: aURL \x0a\x09\x09options: #{ \x0a\x09\x09\x09'type' -> 'PUT'.\x0a\x09\x09\x09'data' -> aString.\x0a\x09\x09\x09'contentType' -> 'text/plain;charset=UTF-8'.\x0a\x09\x09\x09'error' -> [ :xhr | self error: 'Commiting ' , aURL , ' failed with reason: \x22' , (xhr responseText) , '\x22'] }",
 messageSends: ["ajax:options:", "->", "error:", ",", "responseText"],
@@ -811,7 +811,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "commit:",
 category: 'committing',
-fn: function (aPackage) {
+fn: function (aPackage){
 var self=this;
 function $Exporter(){return smalltalk.Exporter||(typeof Exporter=="undefined"?nil:Exporter)}
 function $StrippedExporter(){return smalltalk.StrippedExporter||(typeof StrippedExporter=="undefined"?nil:StrippedExporter)}
@@ -824,7 +824,7 @@ fileContents=_st(_st(_st(commitStrategy)._key())._new())._exportPackage_(_st(aPa
 fileContents;
 return _st(self)._ajaxPutAt_data_(_st(commitStrategy)._value(),fileContents);
 }, function($ctx2) {$ctx2.fillBlock({commitStrategy:commitStrategy,fileContents:fileContents},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"commit:",{aPackage:aPackage},smalltalk.PackageHandler)});},
+return self}, function($ctx1) {$ctx1.fill(self,"commit:",{aPackage:aPackage},smalltalk.PackageHandler)})},
 args: ["aPackage"],
 source: "commit: aPackage\x0a\x09{ \x0a\x09\x09Exporter -> (aPackage commitPathJs, '/', aPackage name, '.js').\x0a\x09\x09StrippedExporter -> (aPackage commitPathJs, '/', aPackage name, '.deploy.js').\x0a\x09\x09ChunkExporter -> (aPackage commitPathSt, '/', aPackage name, '.st')\x0a\x09} \x0a\x09\x09do: [ :commitStrategy|| fileContents |\x0a\x09\x09\x09fileContents := (commitStrategy key new exportPackage: aPackage name).\x0a\x09\x09\x09self ajaxPutAt: commitStrategy value data: fileContents ]",
 messageSends: ["do:", "exportPackage:", "name", "new", "key", "ajaxPutAt:data:", "value", "->", ",", "commitPathJs", "commitPathSt"],
@@ -836,7 +836,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "loadPackage:prefix:",
 category: 'loading',
-fn: function (packageName, aString) {
+fn: function (packageName,aString){
 var self=this;
 var url;
 return smalltalk.withContext(function($ctx1) { 
@@ -852,7 +852,7 @@ return _st(self)._setupPackageNamed_prefix_(packageName,aString);
 return smalltalk.withContext(function($ctx2) {
 return _st(window)._alert_(_st("Could not load package at: ").__comma(url));
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))]));
-return self}, function($ctx1) {$ctx1.fill(self,"loadPackage:prefix:",{packageName:packageName,aString:aString,url:url},smalltalk.PackageLoader)});},
+return self}, function($ctx1) {$ctx1.fill(self,"loadPackage:prefix:",{packageName:packageName,aString:aString,url:url},smalltalk.PackageHandler)})},
 args: ["packageName", "aString"],
 source: "loadPackage: packageName prefix: aString\x0a\x09| url |\x0a\x09url := '/', aString, '/js/', packageName, '.js'.\x0a\x09jQuery\x0a\x09\x09ajax: url\x0a\x09\x09options: #{\x0a\x09\x09\x09'type' -> 'GET'.\x0a\x09\x09\x09'dataType' -> 'script'.\x0a\x09\x09\x09'complete' -> [ :jqXHR :textStatus |\x0a\x09\x09\x09\x09jqXHR readyState = 4\x0a\x09\x09\x09\x09\x09ifTrue: [ self setupPackageNamed: packageName prefix: aString ] ].\x0a\x09\x09\x09'error' -> [ window alert: 'Could not load package at: ', url ]\x0a\x09\x09}",
 messageSends: [",", "ajax:options:", "->", "ifTrue:", "setupPackageNamed:prefix:", "=", "readyState", "alert:"],
@@ -864,14 +864,14 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "loadPackages:prefix:",
 category: 'loading',
-fn: function (aCollection, aString) {
+fn: function (aCollection,aString){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 _st(aCollection)._do_((function(each){
 return smalltalk.withContext(function($ctx2) {
 return _st(self)._loadPackage_prefix_(each,aString);
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"loadPackages:prefix:",{aCollection:aCollection,aString:aString},smalltalk.PackageLoader)});},
+return self}, function($ctx1) {$ctx1.fill(self,"loadPackages:prefix:",{aCollection:aCollection,aString:aString},smalltalk.PackageHandler)})},
 args: ["aCollection", "aString"],
 source: "loadPackages: aCollection prefix: aString\x0a\x09aCollection do: [ :each |\x0a\x09\x09self loadPackage: each prefix: aString ]",
 messageSends: ["do:", "loadPackage:prefix:"],
@@ -883,7 +883,7 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "setupPackageNamed:prefix:",
 category: 'private',
-fn: function (packageName, aString) {
+fn: function (packageName,aString){
 var self=this;
 function $Package(){return smalltalk.Package||(typeof Package=="undefined"?nil:Package)}
 return smalltalk.withContext(function($ctx1) { 
@@ -892,7 +892,7 @@ $1=_st($Package())._named_(packageName);
 _st($1)._setupClasses();
 _st($1)._commitPathJs_(_st(_st("/").__comma(aString)).__comma("/js"));
 $2=_st($1)._commitPathSt_(_st(_st("/").__comma(aString)).__comma("/st"));
-return self}, function($ctx1) {$ctx1.fill(self,"setupPackageNamed:prefix:",{packageName:packageName,aString:aString},smalltalk.PackageLoader)});},
+return self}, function($ctx1) {$ctx1.fill(self,"setupPackageNamed:prefix:",{packageName:packageName,aString:aString},smalltalk.PackageHandler)})},
 args: ["packageName", "aString"],
 source: "setupPackageNamed: packageName prefix: aString\x0a\x0a\x09(Package named: packageName)\x0a\x09\x09setupClasses;\x0a\x09\x09commitPathJs: '/', aString, '/js';\x0a\x09\x09commitPathSt: '/', aString, '/st'",
 messageSends: ["setupClasses", "named:", "commitPathJs:", ",", "commitPathSt:"],
@@ -905,13 +905,13 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "loadPackages:prefix:",
 category: 'not yet classified',
-fn: function (aCollection, aString) {
+fn: function (aCollection,aString){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(_st(self)._new())._loadPackages_prefix_(aCollection,aString);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"loadPackages:prefix:",{aCollection:aCollection,aString:aString},smalltalk.PackageLoader.klass)});},
+}, function($ctx1) {$ctx1.fill(self,"loadPackages:prefix:",{aCollection:aCollection,aString:aString},smalltalk.PackageHandler.klass)})},
 args: ["aCollection", "aString"],
 source: "loadPackages: aCollection prefix: aString\x0a\x09^ self new loadPackages: aCollection prefix: aString",
 messageSends: ["loadPackages:prefix:", "new"],
@@ -924,14 +924,14 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "commit",
 category: '*Importer-Exporter',
-fn: function () {
+fn: function (){
 var self=this;
 function $PackageHandler(){return smalltalk.PackageHandler||(typeof PackageHandler=="undefined"?nil:PackageHandler)}
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 $1=_st(_st($PackageHandler())._new())._commit_(self);
 return $1;
-}, function($ctx1) {$ctx1.fill(self,"commit",{},smalltalk.Package)});},
+}, function($ctx1) {$ctx1.fill(self,"commit",{},smalltalk.Package)})},
 args: [],
 source: "commit\x0a\x09^ PackageHandler new commit: self",
 messageSends: ["commit:", "new"],

js/Kernel-Announcements.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Kernel-Announcements');
 smalltalk.addClass('AnnouncementSubscription', smalltalk.Object, ['block', 'announcementClass'], 'Kernel-Announcements');
 smalltalk.addMethod(
-"_announcementClass",
 smalltalk.method({
 selector: "announcementClass",
 fn: function (){
@@ -15,7 +14,6 @@ messageSends: []}),
 smalltalk.AnnouncementSubscription);
 
 smalltalk.addMethod(
-"_announcementClass_",
 smalltalk.method({
 selector: "announcementClass:",
 fn: function (aClass){
@@ -27,7 +25,6 @@ messageSends: []}),
 smalltalk.AnnouncementSubscription);
 
 smalltalk.addMethod(
-"_block",
 smalltalk.method({
 selector: "block",
 fn: function (){
@@ -41,7 +38,6 @@ messageSends: []}),
 smalltalk.AnnouncementSubscription);
 
 smalltalk.addMethod(
-"_block_",
 smalltalk.method({
 selector: "block:",
 fn: function (aBlock){
@@ -53,7 +49,6 @@ messageSends: []}),
 smalltalk.AnnouncementSubscription);
 
 smalltalk.addMethod(
-"_deliver_",
 smalltalk.method({
 selector: "deliver:",
 fn: function (anAnnouncement){
@@ -69,7 +64,6 @@ messageSends: ["ifTrue:", "value:", "block", "handlesAnnouncement:"]}),
 smalltalk.AnnouncementSubscription);
 
 smalltalk.addMethod(
-"_handlesAnnouncement_",
 smalltalk.method({
 selector: "handlesAnnouncement:",
 fn: function (anAnnouncement){
@@ -86,7 +80,6 @@ smalltalk.AnnouncementSubscription);
 
 smalltalk.addClass('Announcer', smalltalk.Object, ['registry', 'subscriptions'], 'Kernel-Announcements');
 smalltalk.addMethod(
-"_announce_",
 smalltalk.method({
 selector: "announce:",
 fn: function (anAnnouncement){
@@ -101,7 +94,6 @@ messageSends: ["do:", "deliver:"]}),
 smalltalk.Announcer);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 fn: function (){
@@ -115,7 +107,6 @@ messageSends: ["initialize", "new"]}),
 smalltalk.Announcer);
 
 smalltalk.addMethod(
-"_on_do_",
 smalltalk.method({
 selector: "on:do:",
 fn: function (aClass,aBlock){
@@ -138,7 +129,6 @@ smalltalk.addClass('SystemAnnouncer', smalltalk.Announcer, [], 'Kernel-Announcem
 
 smalltalk.SystemAnnouncer.klass.iVarNames = ['current'];
 smalltalk.addMethod(
-"_current",
 smalltalk.method({
 selector: "current",
 fn: function (){
@@ -158,7 +148,6 @@ messageSends: ["ifNil:", "new"]}),
 smalltalk.SystemAnnouncer.klass);
 
 smalltalk.addMethod(
-"_new",
 smalltalk.method({
 selector: "new",
 fn: function (){
@@ -172,7 +161,6 @@ smalltalk.SystemAnnouncer.klass);
 
 smalltalk.addClass('SystemAnnouncement', smalltalk.Object, ['theClass'], 'Kernel-Announcements');
 smalltalk.addMethod(
-"_theClass",
 smalltalk.method({
 selector: "theClass",
 fn: function (){
@@ -186,7 +174,6 @@ messageSends: []}),
 smalltalk.SystemAnnouncement);
 
 smalltalk.addMethod(
-"_theClass_",
 smalltalk.method({
 selector: "theClass:",
 fn: function (aClass){
@@ -201,7 +188,6 @@ smalltalk.SystemAnnouncement);
 
 smalltalk.addClass('ClassAnnouncement', smalltalk.SystemAnnouncement, ['theClass'], 'Kernel-Announcements');
 smalltalk.addMethod(
-"_theClass",
 smalltalk.method({
 selector: "theClass",
 fn: function (){
@@ -215,7 +201,6 @@ messageSends: []}),
 smalltalk.ClassAnnouncement);
 
 smalltalk.addMethod(
-"_theClass_",
 smalltalk.method({
 selector: "theClass:",
 fn: function (aClass){
@@ -245,7 +230,6 @@ smalltalk.addClass('ClassRenamed', smalltalk.ClassAnnouncement, [], 'Kernel-Anno
 
 smalltalk.addClass('MethodAnnouncement', smalltalk.SystemAnnouncement, ['method'], 'Kernel-Announcements');
 smalltalk.addMethod(
-"_method",
 smalltalk.method({
 selector: "method",
 fn: function (){
@@ -259,7 +243,6 @@ messageSends: []}),
 smalltalk.MethodAnnouncement);
 
 smalltalk.addMethod(
-"_method_",
 smalltalk.method({
 selector: "method:",
 fn: function (aCompiledMethod){
@@ -277,7 +260,6 @@ smalltalk.addClass('MethodAdded', smalltalk.MethodAnnouncement, [], 'Kernel-Anno
 
 smalltalk.addClass('MethodModified', smalltalk.MethodAnnouncement, ['oldMethod'], 'Kernel-Announcements');
 smalltalk.addMethod(
-"_oldMethod",
 smalltalk.method({
 selector: "oldMethod",
 fn: function (){
@@ -291,7 +273,6 @@ messageSends: []}),
 smalltalk.MethodModified);
 
 smalltalk.addMethod(
-"_oldMethod_",
 smalltalk.method({
 selector: "oldMethod:",
 fn: function (aMethod){
@@ -309,7 +290,6 @@ smalltalk.addClass('MethodRemoved', smalltalk.MethodAnnouncement, [], 'Kernel-An
 
 smalltalk.addClass('PackageAnnouncement', smalltalk.SystemAnnouncement, ['package'], 'Kernel-Announcements');
 smalltalk.addMethod(
-"_package",
 smalltalk.method({
 selector: "package",
 fn: function (){
@@ -323,7 +303,6 @@ messageSends: []}),
 smalltalk.PackageAnnouncement);
 
 smalltalk.addMethod(
-"_package_",
 smalltalk.method({
 selector: "package:",
 fn: function (aPackage){
@@ -344,7 +323,6 @@ smalltalk.addClass('PackageRemoved', smalltalk.PackageAnnouncement, [], 'Kernel-
 
 smalltalk.addClass('ProtocolAnnouncement', smalltalk.SystemAnnouncement, ['theClass', 'protocol'], 'Kernel-Announcements');
 smalltalk.addMethod(
-"_protocol",
 smalltalk.method({
 selector: "protocol",
 fn: function (){
@@ -358,7 +336,6 @@ messageSends: []}),
 smalltalk.ProtocolAnnouncement);
 
 smalltalk.addMethod(
-"_protocol_",
 smalltalk.method({
 selector: "protocol:",
 fn: function (aString){
@@ -370,7 +347,6 @@ messageSends: []}),
 smalltalk.ProtocolAnnouncement);
 
 smalltalk.addMethod(
-"_theClass",
 smalltalk.method({
 selector: "theClass",
 fn: function (){
@@ -384,7 +360,6 @@ messageSends: []}),
 smalltalk.ProtocolAnnouncement);
 
 smalltalk.addMethod(
-"_theClass_",
 smalltalk.method({
 selector: "theClass:",
 fn: function (aClass){

js/Kernel-Announcements.js

@@ -2,7 +2,6 @@ smalltalk.addPackage('Kernel-Announcements');
 smalltalk.addClass('AnnouncementSubscription', smalltalk.Object, ['block', 'announcementClass'], 'Kernel-Announcements');
 smalltalk.AnnouncementSubscription.comment="The subscription is a single entry in a subscription registry of an `Announcer`.\x0aSeveral subscriptions by the same object is possible."
 smalltalk.addMethod(
-"_announcementClass",
 smalltalk.method({
 selector: "announcementClass",
 category: 'accessing',
@@ -21,7 +20,6 @@ referencedClasses: []
 smalltalk.AnnouncementSubscription);
 
 smalltalk.addMethod(
-"_announcementClass_",
 smalltalk.method({
 selector: "announcementClass:",
 category: 'accessing',
@@ -38,7 +36,6 @@ referencedClasses: []
 smalltalk.AnnouncementSubscription);
 
 smalltalk.addMethod(
-"_block",
 smalltalk.method({
 selector: "block",
 category: 'accessing',
@@ -57,7 +54,6 @@ referencedClasses: []
 smalltalk.AnnouncementSubscription);
 
 smalltalk.addMethod(
-"_block_",
 smalltalk.method({
 selector: "block:",
 category: 'accessing',
@@ -74,7 +70,6 @@ referencedClasses: []
 smalltalk.AnnouncementSubscription);
 
 smalltalk.addMethod(
-"_deliver_",
 smalltalk.method({
 selector: "deliver:",
 category: 'announcing',
@@ -95,7 +90,6 @@ referencedClasses: []
 smalltalk.AnnouncementSubscription);
 
 smalltalk.addMethod(
-"_handlesAnnouncement_",
 smalltalk.method({
 selector: "handlesAnnouncement:",
 category: 'announcing',
@@ -118,7 +112,6 @@ smalltalk.AnnouncementSubscription);
 smalltalk.addClass('Announcer', smalltalk.Object, ['registry', 'subscriptions'], 'Kernel-Announcements');
 smalltalk.Announcer.comment="The code is based on the announcements as [described by Vassili Bykov](http://www.cincomsmalltalk.com/userblogs/vbykov/blogView?searchCategory=Announcements%20Framework).\x0aThe Announcer holds annoncement subscriptions (`AnnouncementSubscription`) in a private registry.\x0a\x0aUse `#on:do:` to register subscriptions."
 smalltalk.addMethod(
-"_announce_",
 smalltalk.method({
 selector: "announce:",
 category: 'announcing',
@@ -138,7 +131,6 @@ referencedClasses: []
 smalltalk.Announcer);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 category: 'initialization',
@@ -157,7 +149,6 @@ referencedClasses: ["Array"]
 smalltalk.Announcer);
 
 smalltalk.addMethod(
-"_on_do_",
 smalltalk.method({
 selector: "on:do:",
 category: 'subscribing',
@@ -186,7 +177,6 @@ smalltalk.SystemAnnouncer.comment="My unique instance #current is the global ann
 
 smalltalk.SystemAnnouncer.klass.iVarNames = ['current'];
 smalltalk.addMethod(
-"_current",
 smalltalk.method({
 selector: "current",
 category: 'accessing',
@@ -211,7 +201,6 @@ referencedClasses: []
 smalltalk.SystemAnnouncer.klass);
 
 smalltalk.addMethod(
-"_new",
 smalltalk.method({
 selector: "new",
 category: 'instance creation',
@@ -231,7 +220,6 @@ smalltalk.SystemAnnouncer.klass);
 smalltalk.addClass('SystemAnnouncement', smalltalk.Object, ['theClass'], 'Kernel-Announcements');
 smalltalk.SystemAnnouncement.comment="I am the superclass of all system announcements"
 smalltalk.addMethod(
-"_theClass",
 smalltalk.method({
 selector: "theClass",
 category: 'accessing',
@@ -250,7 +238,6 @@ referencedClasses: []
 smalltalk.SystemAnnouncement);
 
 smalltalk.addMethod(
-"_theClass_",
 smalltalk.method({
 selector: "theClass:",
 category: 'accessing',
@@ -270,7 +257,6 @@ smalltalk.SystemAnnouncement);
 
 smalltalk.addClass('ClassAnnouncement', smalltalk.SystemAnnouncement, ['theClass'], 'Kernel-Announcements');
 smalltalk.addMethod(
-"_theClass",
 smalltalk.method({
 selector: "theClass",
 category: 'accessing',
@@ -289,7 +275,6 @@ referencedClasses: []
 smalltalk.ClassAnnouncement);
 
 smalltalk.addMethod(
-"_theClass_",
 smalltalk.method({
 selector: "theClass:",
 category: 'accessing',
@@ -329,7 +314,6 @@ smalltalk.ClassRenamed.comment="I am emitted when a class is renamed.\x0aSee Cla
 
 smalltalk.addClass('MethodAnnouncement', smalltalk.SystemAnnouncement, ['method'], 'Kernel-Announcements');
 smalltalk.addMethod(
-"_method",
 smalltalk.method({
 selector: "method",
 category: 'accessing',
@@ -348,7 +332,6 @@ referencedClasses: []
 smalltalk.MethodAnnouncement);
 
 smalltalk.addMethod(
-"_method_",
 smalltalk.method({
 selector: "method:",
 category: 'accessing',
@@ -371,7 +354,6 @@ smalltalk.addClass('MethodAdded', smalltalk.MethodAnnouncement, [], 'Kernel-Anno
 
 smalltalk.addClass('MethodModified', smalltalk.MethodAnnouncement, ['oldMethod'], 'Kernel-Announcements');
 smalltalk.addMethod(
-"_oldMethod",
 smalltalk.method({
 selector: "oldMethod",
 category: 'accessing',
@@ -390,7 +372,6 @@ referencedClasses: []
 smalltalk.MethodModified);
 
 smalltalk.addMethod(
-"_oldMethod_",
 smalltalk.method({
 selector: "oldMethod:",
 category: 'accessing',
@@ -413,7 +394,6 @@ smalltalk.addClass('MethodRemoved', smalltalk.MethodAnnouncement, [], 'Kernel-An
 
 smalltalk.addClass('PackageAnnouncement', smalltalk.SystemAnnouncement, ['package'], 'Kernel-Announcements');
 smalltalk.addMethod(
-"_package",
 smalltalk.method({
 selector: "package",
 category: 'accessing',
@@ -432,7 +412,6 @@ referencedClasses: []
 smalltalk.PackageAnnouncement);
 
 smalltalk.addMethod(
-"_package_",
 smalltalk.method({
 selector: "package:",
 category: 'accessing',
@@ -458,7 +437,6 @@ smalltalk.addClass('PackageRemoved', smalltalk.PackageAnnouncement, [], 'Kernel-
 
 smalltalk.addClass('ProtocolAnnouncement', smalltalk.SystemAnnouncement, ['theClass', 'protocol'], 'Kernel-Announcements');
 smalltalk.addMethod(
-"_protocol",
 smalltalk.method({
 selector: "protocol",
 category: 'accessing',
@@ -477,7 +455,6 @@ referencedClasses: []
 smalltalk.ProtocolAnnouncement);
 
 smalltalk.addMethod(
-"_protocol_",
 smalltalk.method({
 selector: "protocol:",
 category: 'accessing',
@@ -494,7 +471,6 @@ referencedClasses: []
 smalltalk.ProtocolAnnouncement);
 
 smalltalk.addMethod(
-"_theClass",
 smalltalk.method({
 selector: "theClass",
 category: 'accessing',
@@ -513,7 +489,6 @@ referencedClasses: []
 smalltalk.ProtocolAnnouncement);
 
 smalltalk.addMethod(
-"_theClass_",
 smalltalk.method({
 selector: "theClass:",
 category: 'accessing',

js/Kernel-Classes.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Kernel-Classes');
 smalltalk.addClass('Behavior', smalltalk.Object, [], 'Kernel-Classes');
 smalltalk.addMethod(
-"_addCompiledMethod_",
 smalltalk.method({
 selector: "addCompiledMethod:",
 fn: function (aMethod){
@@ -40,7 +39,6 @@ messageSends: ["at:ifAbsent:", "selector", "methodDictionary", "ifFalse:", "addE
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_allInstanceVariableNames",
 smalltalk.method({
 selector: "allInstanceVariableNames",
 fn: function (){
@@ -62,7 +60,6 @@ messageSends: ["copy", "instanceVariableNames", "ifNotNil:", "addAll:", "allInst
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_allSelectors",
 smalltalk.method({
 selector: "allSelectors",
 fn: function (){
@@ -82,7 +79,6 @@ messageSends: ["inject:into:", "selectors", "addAll:", "yourself", "allSuperclas
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_allSubclasses",
 smalltalk.method({
 selector: "allSubclasses",
 fn: function (){
@@ -102,21 +98,21 @@ messageSends: ["subclasses", "do:", "addAll:", "allSubclasses"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_allSubclassesDo_",
 smalltalk.method({
 selector: "allSubclassesDo:",
 fn: function (aBlock){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._subclasses())._do_((function(each){
-return smalltalk.withContext(function($ctx2) {
_st(aBlock)._value_(each);
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._subclasses())._do_((function(each){
+return smalltalk.withContext(function($ctx2) {
+_st(aBlock)._value_(each);
 return _st(each)._allSubclassesDo_(aBlock);
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"allSubclassesDo:",{aBlock:aBlock}, smalltalk.Behavior)})},
+return self}, function($ctx1) {$ctx1.fill(self,"allSubclassesDo:",{aBlock:aBlock},smalltalk.Behavior)})},
 messageSends: ["do:", "value:", "allSubclassesDo:", "subclasses"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_allSuperclasses",
 smalltalk.method({
 selector: "allSuperclasses",
 fn: function (){
@@ -141,7 +137,6 @@ messageSends: ["ifNil:", "superclass", "addAll:", "allSuperclasses", "with:", "y
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_basicAddCompiledMethod_",
 smalltalk.method({
 selector: "basicAddCompiledMethod:",
 fn: function (aMethod){
@@ -153,7 +148,6 @@ messageSends: []}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_basicNew",
 smalltalk.method({
 selector: "basicNew",
 fn: function (){
@@ -165,7 +159,6 @@ messageSends: []}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_basicRemoveCompiledMethod_",
 smalltalk.method({
 selector: "basicRemoveCompiledMethod:",
 fn: function (aMethod){
@@ -180,7 +173,6 @@ messageSends: []}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_canUnderstand_",
 smalltalk.method({
 selector: "canUnderstand:",
 fn: function (aSelector){
@@ -200,7 +192,6 @@ messageSends: ["or:", "and:", "canUnderstand:", "superclass", "notNil", "include
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_comment",
 smalltalk.method({
 selector: "comment",
 fn: function (){
@@ -219,7 +210,6 @@ messageSends: ["ifNil:", "basicAt:"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_comment_",
 smalltalk.method({
 selector: "comment:",
 fn: function (aString){
@@ -238,7 +228,6 @@ messageSends: ["basicAt:put:", "announce:", "theClass:", "new", "yourself", "cur
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_commentStamp",
 smalltalk.method({
 selector: "commentStamp",
 fn: function (){
@@ -256,7 +245,6 @@ messageSends: ["class:", "new", "yourself"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_commentStamp_prior_",
 smalltalk.method({
 selector: "commentStamp:prior:",
 fn: function (aStamp,prior){
@@ -270,7 +258,6 @@ messageSends: ["commentStamp"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_compile_",
 smalltalk.method({
 selector: "compile:",
 fn: function (aString){
@@ -282,7 +269,6 @@ messageSends: ["compile:category:"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_compile_category_",
 smalltalk.method({
 selector: "compile:category:",
 fn: function (aString,anotherString){
@@ -295,7 +281,6 @@ messageSends: ["install:forClass:category:", "new"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_definition",
 smalltalk.method({
 selector: "definition",
 fn: function (){
@@ -307,7 +292,6 @@ messageSends: []}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_includesSelector_",
 smalltalk.method({
 selector: "includesSelector:",
 fn: function (aString){
@@ -321,7 +305,6 @@ messageSends: ["includesKey:", "methodDictionary"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_inheritsFrom_",
 smalltalk.method({
 selector: "inheritsFrom:",
 fn: function (aClass){
@@ -335,7 +318,6 @@ messageSends: ["includes:", "allSubclasses"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_instanceVariableNames",
 smalltalk.method({
 selector: "instanceVariableNames",
 fn: function (){
@@ -347,7 +329,6 @@ messageSends: []}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_lookupSelector_",
 smalltalk.method({
 selector: "lookupSelector:",
 fn: function (selector){
@@ -379,7 +360,6 @@ messageSends: ["whileFalse:", "ifTrue:", "methodAt:", "includesSelector:", "supe
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_methodAt_",
 smalltalk.method({
 selector: "methodAt:",
 fn: function (aString){
@@ -393,7 +373,6 @@ messageSends: ["at:", "methodDictionary"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_methodDictionary",
 smalltalk.method({
 selector: "methodDictionary",
 fn: function (){
@@ -412,7 +391,6 @@ messageSends: []}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_methods",
 smalltalk.method({
 selector: "methods",
 fn: function (){
@@ -426,7 +404,6 @@ messageSends: ["values", "methodDictionary"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_methodsFor_",
 smalltalk.method({
 selector: "methodsFor:",
 fn: function (aString){
@@ -444,7 +421,6 @@ messageSends: ["class:category:", "new", "yourself"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_methodsFor_stamp_",
 smalltalk.method({
 selector: "methodsFor:stamp:",
 fn: function (aString,aStamp){
@@ -458,7 +434,6 @@ messageSends: ["methodsFor:"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_methodsInProtocol_",
 smalltalk.method({
 selector: "methodsInProtocol:",
 fn: function (aString){
@@ -475,7 +450,6 @@ messageSends: ["select:", "=", "protocol", "values", "methodDictionary"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_name",
 smalltalk.method({
 selector: "name",
 fn: function (){
@@ -487,7 +461,6 @@ messageSends: []}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_new",
 smalltalk.method({
 selector: "new",
 fn: function (){
@@ -501,7 +474,6 @@ messageSends: ["initialize", "basicNew"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_organization",
 smalltalk.method({
 selector: "organization",
 fn: function (){
@@ -515,7 +487,6 @@ messageSends: ["basicAt:"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_protocols",
 smalltalk.method({
 selector: "protocols",
 fn: function (){
@@ -529,7 +500,6 @@ messageSends: ["sorted", "elements", "organization"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_protocolsDo_",
 smalltalk.method({
 selector: "protocolsDo:",
 fn: function (aBlock){
@@ -555,7 +525,6 @@ messageSends: ["new", "do:", "add:", "at:ifAbsentPut:", "category", "values", "m
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_prototype",
 smalltalk.method({
 selector: "prototype",
 fn: function (){
@@ -567,7 +536,6 @@ messageSends: []}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_removeCompiledMethod_",
 smalltalk.method({
 selector: "removeCompiledMethod:",
 fn: function (aMethod){
@@ -593,7 +561,6 @@ messageSends: ["basicRemoveCompiledMethod:", "detect:ifNone:", "=", "protocol",
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_selectors",
 smalltalk.method({
 selector: "selectors",
 fn: function (){
@@ -607,7 +574,6 @@ messageSends: ["keys", "methodDictionary"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_subclasses",
 smalltalk.method({
 selector: "subclasses",
 fn: function (){
@@ -619,7 +585,6 @@ messageSends: []}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_superclass",
 smalltalk.method({
 selector: "superclass",
 fn: function (){
@@ -631,7 +596,6 @@ messageSends: []}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_theMetaClass",
 smalltalk.method({
 selector: "theMetaClass",
 fn: function (){
@@ -645,7 +609,6 @@ messageSends: ["class"]}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_theNonMetaClass",
 smalltalk.method({
 selector: "theNonMetaClass",
 fn: function (){
@@ -659,7 +622,6 @@ messageSends: []}),
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_withAllSubclasses",
 smalltalk.method({
 selector: "withAllSubclasses",
 fn: function (){
@@ -680,7 +642,6 @@ smalltalk.Behavior);
 
 smalltalk.addClass('Class', smalltalk.Behavior, [], 'Kernel-Classes');
 smalltalk.addMethod(
-"_asJavascript",
 smalltalk.method({
 selector: "asJavascript",
 fn: function (){
@@ -694,7 +655,6 @@ messageSends: [",", "name"]}),
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_category",
 smalltalk.method({
 selector: "category",
 fn: function (){
@@ -713,7 +673,6 @@ messageSends: ["ifNil:ifNotNil:", "name", "package"]}),
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_definition",
 smalltalk.method({
 selector: "definition",
 fn: function (){
@@ -750,7 +709,6 @@ messageSends: ["streamContents:", "nextPutAll:", "asString", "superclass", "name
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_isClass",
 smalltalk.method({
 selector: "isClass",
 fn: function (){
@@ -762,7 +720,6 @@ messageSends: []}),
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_package",
 smalltalk.method({
 selector: "package",
 fn: function (){
@@ -774,7 +731,6 @@ messageSends: []}),
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_package_",
 smalltalk.method({
 selector: "package:",
 fn: function (aPackage){
@@ -786,7 +742,6 @@ messageSends: []}),
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_printOn_",
 smalltalk.method({
 selector: "printOn:",
 fn: function (aStream){
@@ -798,7 +753,6 @@ messageSends: ["nextPutAll:", "name"]}),
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_rename_",
 smalltalk.method({
 selector: "rename:",
 fn: function (aString){
@@ -811,7 +765,6 @@ messageSends: ["renameClass:to:", "new"]}),
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_subclass_instanceVariableNames_",
 smalltalk.method({
 selector: "subclass:instanceVariableNames:",
 fn: function (aString,anotherString){
@@ -825,7 +778,6 @@ messageSends: ["subclass:instanceVariableNames:package:"]}),
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_subclass_instanceVariableNames_category_",
 smalltalk.method({
 selector: "subclass:instanceVariableNames:category:",
 fn: function (aString,aString2,aString3){
@@ -840,7 +792,6 @@ messageSends: ["deprecatedAPI", "subclass:instanceVariableNames:package:"]}),
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_subclass_instanceVariableNames_classVariableNames_poolDictionaries_category_",
 smalltalk.method({
 selector: "subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:",
 fn: function (aString,aString2,classVars,pools,aString3){
@@ -854,7 +805,6 @@ messageSends: ["subclass:instanceVariableNames:package:"]}),
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_subclass_instanceVariableNames_package_",
 smalltalk.method({
 selector: "subclass:instanceVariableNames:package:",
 fn: function (aString,aString2,aString3){
@@ -872,7 +822,6 @@ smalltalk.Class);
 
 smalltalk.addClass('Metaclass', smalltalk.Behavior, [], 'Kernel-Classes');
 smalltalk.addMethod(
-"_asJavascript",
 smalltalk.method({
 selector: "asJavascript",
 fn: function (){
@@ -886,7 +835,6 @@ messageSends: [",", "name", "instanceClass"]}),
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_definition",
 smalltalk.method({
 selector: "definition",
 fn: function (){
@@ -915,7 +863,6 @@ messageSends: ["streamContents:", "nextPutAll:", "asString", "do:separatedBy:",
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_instanceClass",
 smalltalk.method({
 selector: "instanceClass",
 fn: function (){
@@ -927,7 +874,6 @@ messageSends: []}),
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_instanceVariableNames_",
 smalltalk.method({
 selector: "instanceVariableNames:",
 fn: function (aCollection){
@@ -940,7 +886,6 @@ messageSends: ["class:instanceVariableNames:", "new"]}),
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_isMetaclass",
 smalltalk.method({
 selector: "isMetaclass",
 fn: function (){
@@ -952,7 +897,6 @@ messageSends: []}),
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_printOn_",
 smalltalk.method({
 selector: "printOn:",
 fn: function (aStream){
@@ -967,7 +911,6 @@ messageSends: ["nextPutAll:", "name", "instanceClass"]}),
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_theMetaClass",
 smalltalk.method({
 selector: "theMetaClass",
 fn: function (){
@@ -981,7 +924,6 @@ messageSends: []}),
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_theNonMetaClass",
 smalltalk.method({
 selector: "theNonMetaClass",
 fn: function (){
@@ -998,7 +940,6 @@ smalltalk.Metaclass);
 
 smalltalk.addClass('ClassBuilder', smalltalk.Object, [], 'Kernel-Classes');
 smalltalk.addMethod(
-"_addSubclassOf_named_instanceVariableNames_package_",
 smalltalk.method({
 selector: "addSubclassOf:named:instanceVariableNames:package:",
 fn: function (aClass,aString,aCollection,packageName){
@@ -1025,7 +966,6 @@ messageSends: ["at:", "current", "ifNotNil:", "ifFalse:", "migrateClassNamed:sup
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_basicAddSubclassOf_named_instanceVariableNames_package_",
 smalltalk.method({
 selector: "basicAddSubclassOf:named:instanceVariableNames:package:",
 fn: function (aClass,aString,aCollection,packageName){
@@ -1040,7 +980,6 @@ messageSends: []}),
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_basicClass_instanceVariableNames_",
 smalltalk.method({
 selector: "basicClass:instanceVariableNames:",
 fn: function (aClass,aString){
@@ -1052,7 +991,6 @@ messageSends: ["basicClass:instanceVariables:", "instanceVariableNamesFor:"]}),
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_basicClass_instanceVariables_",
 smalltalk.method({
 selector: "basicClass:instanceVariables:",
 fn: function (aClass,aCollection){
@@ -1069,7 +1007,6 @@ messageSends: ["ifFalse:", "error:", ",", "name", "isMetaclass", "basicAt:put:"]
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_basicRemoveClass_",
 smalltalk.method({
 selector: "basicRemoveClass:",
 fn: function (aClass){
@@ -1081,7 +1018,6 @@ messageSends: []}),
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_basicRenameClass_to_",
 smalltalk.method({
 selector: "basicRenameClass:to:",
 fn: function (aClass,aString){
@@ -1097,7 +1033,6 @@ messageSends: []}),
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_basicSwapClassNames_with_",
 smalltalk.method({
 selector: "basicSwapClassNames:with:",
 fn: function (aClass,anotherClass){
@@ -1113,7 +1048,6 @@ messageSends: []}),
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_class_instanceVariableNames_",
 smalltalk.method({
 selector: "class:instanceVariableNames:",
 fn: function (aClass,aString){
@@ -1133,7 +1067,6 @@ messageSends: ["basicClass:instanceVariableNames:", "setupClass:", "announce:",
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_copyClass_named_",
 smalltalk.method({
 selector: "copyClass:named:",
 fn: function (aClass,aString){
@@ -1150,7 +1083,6 @@ messageSends: ["addSubclassOf:named:instanceVariableNames:package:", "superclass
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_copyClass_to_",
 smalltalk.method({
 selector: "copyClass:to:",
 fn: function (aClass,anotherClass){
@@ -1173,7 +1105,6 @@ messageSends: ["comment:", "comment", "do:", "install:forClass:category:", "sour
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_installMethod_forClass_category_",
 smalltalk.method({
 selector: "installMethod:forClass:category:",
 fn: function (aCompiledMethod,aBehavior,aString){
@@ -1190,7 +1121,6 @@ messageSends: ["category:", "addCompiledMethod:", "setupClass:"]}),
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_instanceVariableNamesFor_",
 smalltalk.method({
 selector: "instanceVariableNamesFor:",
 fn: function (aString){
@@ -1207,7 +1137,6 @@ messageSends: ["reject:", "isEmpty", "tokenize:"]}),
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_migrateClass_superclass_",
 smalltalk.method({
 selector: "migrateClass:superclass:",
 fn: function (aClass,anotherClass){
@@ -1220,7 +1149,6 @@ messageSends: ["log:", "name", "migrateClassNamed:superclass:instanceVariableNam
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_migrateClassNamed_superclass_instanceVariableNames_package_",
 smalltalk.method({
 selector: "migrateClassNamed:superclass:instanceVariableNames:package:",
 fn: function (aString,aClass,aCollection,packageName){
@@ -1260,7 +1188,6 @@ messageSends: [",", "at:", "current", "addSubclassOf:named:instanceVariableNames
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_rawRenameClass_to_",
 smalltalk.method({
 selector: "rawRenameClass:to:",
 fn: function (aClass,aString){
@@ -1274,7 +1201,6 @@ messageSends: []}),
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_renameClass_to_",
 smalltalk.method({
 selector: "renameClass:to:",
 fn: function (aClass,aString){
@@ -1293,7 +1219,6 @@ messageSends: ["basicRenameClass:to:", "announce:", "theClass:", "new", "yoursel
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_setupClass_",
 smalltalk.method({
 selector: "setupClass:",
 fn: function (aClass){
@@ -1305,7 +1230,6 @@ messageSends: []}),
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_superclass_subclass_",
 smalltalk.method({
 selector: "superclass:subclass:",
 fn: function (aClass,aString){
@@ -1319,7 +1243,6 @@ messageSends: ["superclass:subclass:instanceVariableNames:package:"]}),
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_superclass_subclass_instanceVariableNames_package_",
 smalltalk.method({
 selector: "superclass:subclass:instanceVariableNames:package:",
 fn: function (aClass,aString,aString2,aString3){
@@ -1355,7 +1278,6 @@ smalltalk.ClassBuilder);
 
 smalltalk.addClass('ClassCategoryReader', smalltalk.Object, ['class', 'category'], 'Kernel-Classes');
 smalltalk.addMethod(
-"_class_category_",
 smalltalk.method({
 selector: "class:category:",
 fn: function (aClass,aString){
@@ -1368,7 +1290,6 @@ messageSends: []}),
 smalltalk.ClassCategoryReader);
 
 smalltalk.addMethod(
-"_compileMethod_",
 smalltalk.method({
 selector: "compileMethod:",
 fn: function (aString){
@@ -1381,7 +1302,6 @@ messageSends: ["install:forClass:category:", "new"]}),
 smalltalk.ClassCategoryReader);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 fn: function (){
@@ -1393,7 +1313,6 @@ messageSends: ["initialize"]}),
 smalltalk.ClassCategoryReader);
 
 smalltalk.addMethod(
-"_scanFrom_",
 smalltalk.method({
 selector: "scanFrom:",
 fn: function (aChunkParser){
@@ -1419,7 +1338,6 @@ smalltalk.ClassCategoryReader);
 
 smalltalk.addClass('ClassCommentReader', smalltalk.Object, ['class'], 'Kernel-Classes');
 smalltalk.addMethod(
-"_class_",
 smalltalk.method({
 selector: "class:",
 fn: function (aClass){
@@ -1431,7 +1349,6 @@ messageSends: []}),
 smalltalk.ClassCommentReader);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 fn: function (){
@@ -1443,7 +1360,6 @@ messageSends: ["initialize"]}),
 smalltalk.ClassCommentReader);
 
 smalltalk.addMethod(
-"_scanFrom_",
 smalltalk.method({
 selector: "scanFrom:",
 fn: function (aChunkParser){
@@ -1461,7 +1377,6 @@ messageSends: ["nextChunk", "ifFalse:", "setComment:", "isEmpty"]}),
 smalltalk.ClassCommentReader);
 
 smalltalk.addMethod(
-"_setComment_",
 smalltalk.method({
 selector: "setComment:",
 fn: function (aString){
@@ -1476,7 +1391,6 @@ smalltalk.ClassCommentReader);
 
 smalltalk.addClass('ClassSorterNode', smalltalk.Object, ['theClass', 'level', 'nodes'], 'Kernel-Classes');
 smalltalk.addMethod(
-"_getNodesFrom_",
 smalltalk.method({
 selector: "getNodesFrom:",
 fn: function (aCollection){
@@ -1505,7 +1419,6 @@ messageSends: ["do:", "ifTrue:ifFalse:", "add:", "=", "theClass", "superclass",
 smalltalk.ClassSorterNode);
 
 smalltalk.addMethod(
-"_level",
 smalltalk.method({
 selector: "level",
 fn: function (){
@@ -1519,7 +1432,6 @@ messageSends: []}),
 smalltalk.ClassSorterNode);
 
 smalltalk.addMethod(
-"_level_",
 smalltalk.method({
 selector: "level:",
 fn: function (anInteger){
@@ -1531,7 +1443,6 @@ messageSends: []}),
 smalltalk.ClassSorterNode);
 
 smalltalk.addMethod(
-"_nodes",
 smalltalk.method({
 selector: "nodes",
 fn: function (){
@@ -1545,7 +1456,6 @@ messageSends: []}),
 smalltalk.ClassSorterNode);
 
 smalltalk.addMethod(
-"_theClass",
 smalltalk.method({
 selector: "theClass",
 fn: function (){
@@ -1559,7 +1469,6 @@ messageSends: []}),
 smalltalk.ClassSorterNode);
 
 smalltalk.addMethod(
-"_theClass_",
 smalltalk.method({
 selector: "theClass:",
 fn: function (aClass){
@@ -1571,7 +1480,6 @@ messageSends: []}),
 smalltalk.ClassSorterNode);
 
 smalltalk.addMethod(
-"_traverseClassesWith_",
 smalltalk.method({
 selector: "traverseClassesWith:",
 fn: function (aCollection){
@@ -1591,7 +1499,6 @@ smalltalk.ClassSorterNode);
 
 
 smalltalk.addMethod(
-"_on_classes_level_",
 smalltalk.method({
 selector: "on:classes:level:",
 fn: function (aClass,aCollection,anInteger){

js/Kernel-Classes.js

@@ -2,7 +2,6 @@ smalltalk.addPackage('Kernel-Classes');
 smalltalk.addClass('Behavior', smalltalk.Object, [], 'Kernel-Classes');
 smalltalk.Behavior.comment="Behavior is the superclass of all class objects.\x0a\x0aIt defines the protocol for creating instances of a class with `#basicNew` and `#new` (see `boot.js` for class constructors details).\x0aInstances know about the subclass/superclass relationships between classes, contain the description that instances are created from,\x0aand hold the method dictionary that's associated with each class.\x0a\x0aBehavior also provides methods for compiling methods, examining the method dictionary, and iterating over the class hierarchy."
 smalltalk.addMethod(
-"_addCompiledMethod_",
 smalltalk.method({
 selector: "addCompiledMethod:",
 category: 'compiling',
@@ -46,7 +45,6 @@ referencedClasses: ["MethodAdded", "MethodModified", "SystemAnnouncer"]
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_allInstanceVariableNames",
 smalltalk.method({
 selector: "allInstanceVariableNames",
 category: 'accessing',
@@ -73,7 +71,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_allSelectors",
 smalltalk.method({
 selector: "allSelectors",
 category: 'accessing',
@@ -98,7 +95,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_allSubclasses",
 smalltalk.method({
 selector: "allSubclasses",
 category: 'accessing',
@@ -123,17 +119,18 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_allSubclassesDo_",
 smalltalk.method({
 selector: "allSubclassesDo:",
 category: 'enumerating',
 fn: function (aBlock){
 var self=this;
-return smalltalk.withContext(function($ctx1) { 
_st(_st(self)._subclasses())._do_((function(each){
-return smalltalk.withContext(function($ctx2) {
_st(aBlock)._value_(each);
+return smalltalk.withContext(function($ctx1) { 
+_st(_st(self)._subclasses())._do_((function(each){
+return smalltalk.withContext(function($ctx2) {
+_st(aBlock)._value_(each);
 return _st(each)._allSubclassesDo_(aBlock);
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
-return self}, function($ctx1) {$ctx1.fill(self,"allSubclassesDo:",{aBlock:aBlock}, smalltalk.Behavior)})},
+return self}, function($ctx1) {$ctx1.fill(self,"allSubclassesDo:",{aBlock:aBlock},smalltalk.Behavior)})},
 args: ["aBlock"],
 source: "allSubclassesDo: aBlock\x0a\x09\x22Evaluate the argument, aBlock, for each of the receiver's subclasses.\x22\x0a\x0a\x09self subclasses do: [ :each |\x0a    \x09aBlock value: each.\x0a        each allSubclassesDo: aBlock ].",
 messageSends: ["do:", "value:", "allSubclassesDo:", "subclasses"],
@@ -142,7 +139,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_allSuperclasses",
 smalltalk.method({
 selector: "allSuperclasses",
 category: 'accessing',
@@ -172,7 +168,6 @@ referencedClasses: ["OrderedCollection"]
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_basicAddCompiledMethod_",
 smalltalk.method({
 selector: "basicAddCompiledMethod:",
 category: 'private',
@@ -189,7 +184,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_basicNew",
 smalltalk.method({
 selector: "basicNew",
 category: 'instance creation',
@@ -206,7 +200,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_basicRemoveCompiledMethod_",
 smalltalk.method({
 selector: "basicRemoveCompiledMethod:",
 category: 'private',
@@ -226,7 +219,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_canUnderstand_",
 smalltalk.method({
 selector: "canUnderstand:",
 category: 'testing',
@@ -251,7 +243,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_comment",
 smalltalk.method({
 selector: "comment",
 category: 'accessing',
@@ -275,7 +266,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_comment_",
 smalltalk.method({
 selector: "comment:",
 category: 'accessing',
@@ -299,7 +289,6 @@ referencedClasses: ["ClassCommentChanged", "SystemAnnouncer"]
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_commentStamp",
 smalltalk.method({
 selector: "commentStamp",
 category: 'accessing',
@@ -322,7 +311,6 @@ referencedClasses: ["ClassCommentReader"]
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_commentStamp_prior_",
 smalltalk.method({
 selector: "commentStamp:prior:",
 category: 'accessing',
@@ -341,7 +329,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_compile_",
 smalltalk.method({
 selector: "compile:",
 category: 'compiling',
@@ -358,7 +345,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_compile_category_",
 smalltalk.method({
 selector: "compile:category:",
 category: 'compiling',
@@ -376,7 +362,6 @@ referencedClasses: ["Compiler"]
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_definition",
 smalltalk.method({
 selector: "definition",
 category: 'accessing',
@@ -393,7 +378,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_includesSelector_",
 smalltalk.method({
 selector: "includesSelector:",
 category: 'testing',
@@ -412,7 +396,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_inheritsFrom_",
 smalltalk.method({
 selector: "inheritsFrom:",
 category: 'testing',
@@ -431,7 +414,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_instanceVariableNames",
 smalltalk.method({
 selector: "instanceVariableNames",
 category: 'accessing',
@@ -448,7 +430,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_lookupSelector_",
 smalltalk.method({
 selector: "lookupSelector:",
 category: 'accessing',
@@ -485,7 +466,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_methodAt_",
 smalltalk.method({
 selector: "methodAt:",
 category: 'accessing',
@@ -504,7 +484,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_methodDictionary",
 smalltalk.method({
 selector: "methodDictionary",
 category: 'accessing',
@@ -528,7 +507,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_methods",
 smalltalk.method({
 selector: "methods",
 category: 'accessing',
@@ -547,7 +525,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_methodsFor_",
 smalltalk.method({
 selector: "methodsFor:",
 category: 'accessing',
@@ -570,7 +547,6 @@ referencedClasses: ["ClassCategoryReader"]
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_methodsFor_stamp_",
 smalltalk.method({
 selector: "methodsFor:stamp:",
 category: 'accessing',
@@ -589,7 +565,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_methodsInProtocol_",
 smalltalk.method({
 selector: "methodsInProtocol:",
 category: 'accessing',
@@ -611,7 +586,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_name",
 smalltalk.method({
 selector: "name",
 category: 'accessing',
@@ -628,7 +602,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_new",
 smalltalk.method({
 selector: "new",
 category: 'instance creation',
@@ -647,7 +620,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_organization",
 smalltalk.method({
 selector: "organization",
 category: 'accessing',
@@ -666,7 +638,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_protocols",
 smalltalk.method({
 selector: "protocols",
 category: 'accessing',
@@ -685,7 +656,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_protocolsDo_",
 smalltalk.method({
 selector: "protocolsDo:",
 category: 'enumerating',
@@ -716,7 +686,6 @@ referencedClasses: ["HashedCollection", "Array"]
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_prototype",
 smalltalk.method({
 selector: "prototype",
 category: 'accessing',
@@ -733,7 +702,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_removeCompiledMethod_",
 smalltalk.method({
 selector: "removeCompiledMethod:",
 category: 'compiling',
@@ -764,7 +732,6 @@ referencedClasses: ["MethodRemoved", "SystemAnnouncer"]
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_selectors",
 smalltalk.method({
 selector: "selectors",
 category: 'accessing',
@@ -783,7 +750,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_subclasses",
 smalltalk.method({
 selector: "subclasses",
 category: 'accessing',
@@ -800,7 +766,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_superclass",
 smalltalk.method({
 selector: "superclass",
 category: 'accessing',
@@ -817,7 +782,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_theMetaClass",
 smalltalk.method({
 selector: "theMetaClass",
 category: 'accessing',
@@ -836,7 +800,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_theNonMetaClass",
 smalltalk.method({
 selector: "theNonMetaClass",
 category: 'accessing',
@@ -855,7 +818,6 @@ referencedClasses: []
 smalltalk.Behavior);
 
 smalltalk.addMethod(
-"_withAllSubclasses",
 smalltalk.method({
 selector: "withAllSubclasses",
 category: 'accessing',
@@ -882,7 +844,6 @@ smalltalk.Behavior);
 smalltalk.addClass('Class', smalltalk.Behavior, [], 'Kernel-Classes');
 smalltalk.Class.comment="Class is __the__ class object.\x0a\x0aInstances are the classes of the system.\x0aClass creation is done throught a `ClassBuilder`"
 smalltalk.addMethod(
-"_asJavascript",
 smalltalk.method({
 selector: "asJavascript",
 category: 'converting',
@@ -901,7 +862,6 @@ referencedClasses: []
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_category",
 smalltalk.method({
 selector: "category",
 category: 'accessing',
@@ -925,7 +885,6 @@ referencedClasses: []
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_definition",
 smalltalk.method({
 selector: "definition",
 category: 'accessing',
@@ -967,7 +926,6 @@ referencedClasses: ["String"]
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_isClass",
 smalltalk.method({
 selector: "isClass",
 category: 'testing',
@@ -984,7 +942,6 @@ referencedClasses: []
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_package",
 smalltalk.method({
 selector: "package",
 category: 'accessing',
@@ -1001,7 +958,6 @@ referencedClasses: []
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_package_",
 smalltalk.method({
 selector: "package:",
 category: 'accessing',
@@ -1018,7 +974,6 @@ referencedClasses: []
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_printOn_",
 smalltalk.method({
 selector: "printOn:",
 category: 'printing',
@@ -1035,7 +990,6 @@ referencedClasses: []
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_rename_",
 smalltalk.method({
 selector: "rename:",
 category: 'accessing',
@@ -1053,7 +1007,6 @@ referencedClasses: ["ClassBuilder"]
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_subclass_instanceVariableNames_",
 smalltalk.method({
 selector: "subclass:instanceVariableNames:",
 category: 'class creation',
@@ -1072,7 +1025,6 @@ referencedClasses: []
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_subclass_instanceVariableNames_category_",
 smalltalk.method({
 selector: "subclass:instanceVariableNames:category:",
 category: 'class creation',
@@ -1092,7 +1044,6 @@ referencedClasses: []
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_subclass_instanceVariableNames_classVariableNames_poolDictionaries_category_",
 smalltalk.method({
 selector: "subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:",
 category: 'class creation',
@@ -1111,7 +1062,6 @@ referencedClasses: []
 smalltalk.Class);
 
 smalltalk.addMethod(
-"_subclass_instanceVariableNames_package_",
 smalltalk.method({
 selector: "subclass:instanceVariableNames:package:",
 category: 'class creation',
@@ -1135,7 +1085,6 @@ smalltalk.Class);
 smalltalk.addClass('Metaclass', smalltalk.Behavior, [], 'Kernel-Classes');
 smalltalk.Metaclass.comment="Metaclass is the root of the class hierarchy.\x0a\x0aMetaclass instances are metaclasses, one for each real class.\x0aMetaclass instances have a single instance, which they hold onto, which is the class that they are the metaclass of."
 smalltalk.addMethod(
-"_asJavascript",
 smalltalk.method({
 selector: "asJavascript",
 category: 'converting',
@@ -1154,7 +1103,6 @@ referencedClasses: []
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_definition",
 smalltalk.method({
 selector: "definition",
 category: 'accessing',
@@ -1188,7 +1136,6 @@ referencedClasses: ["String"]
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_instanceClass",
 smalltalk.method({
 selector: "instanceClass",
 category: 'accessing',
@@ -1205,7 +1152,6 @@ referencedClasses: []
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_instanceVariableNames_",
 smalltalk.method({
 selector: "instanceVariableNames:",
 category: 'accessing',
@@ -1223,7 +1169,6 @@ referencedClasses: ["ClassBuilder"]
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_isMetaclass",
 smalltalk.method({
 selector: "isMetaclass",
 category: 'testing',
@@ -1240,7 +1185,6 @@ referencedClasses: []
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_printOn_",
 smalltalk.method({
 selector: "printOn:",
 category: 'printing',
@@ -1260,7 +1204,6 @@ referencedClasses: []
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_theMetaClass",
 smalltalk.method({
 selector: "theMetaClass",
 category: 'accessing',
@@ -1279,7 +1222,6 @@ referencedClasses: []
 smalltalk.Metaclass);
 
 smalltalk.addMethod(
-"_theNonMetaClass",
 smalltalk.method({
 selector: "theNonMetaClass",
 category: 'accessing',
@@ -1302,7 +1244,6 @@ smalltalk.Metaclass);
 smalltalk.addClass('ClassBuilder', smalltalk.Object, [], 'Kernel-Classes');
 smalltalk.ClassBuilder.comment="ClassBuilder is responsible for compiling new classes or modifying existing classes in the system.\x0a\x0aRather than using ClassBuilder directly to compile a class, use `Class >> subclass:instanceVariableNames:package:`."
 smalltalk.addMethod(
-"_addSubclassOf_named_instanceVariableNames_package_",
 smalltalk.method({
 selector: "addSubclassOf:named:instanceVariableNames:package:",
 category: 'class definition',
@@ -1334,7 +1275,6 @@ referencedClasses: ["Smalltalk"]
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_basicAddSubclassOf_named_instanceVariableNames_package_",
 smalltalk.method({
 selector: "basicAddSubclassOf:named:instanceVariableNames:package:",
 category: 'private',
@@ -1354,7 +1294,6 @@ referencedClasses: []
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_basicClass_instanceVariableNames_",
 smalltalk.method({
 selector: "basicClass:instanceVariableNames:",
 category: 'private',
@@ -1371,7 +1310,6 @@ referencedClasses: []
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_basicClass_instanceVariables_",
 smalltalk.method({
 selector: "basicClass:instanceVariables:",
 category: 'private',
@@ -1393,7 +1331,6 @@ referencedClasses: []
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_basicRemoveClass_",
 smalltalk.method({
 selector: "basicRemoveClass:",
 category: 'private',
@@ -1410,7 +1347,6 @@ referencedClasses: []
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_basicRenameClass_to_",
 smalltalk.method({
 selector: "basicRenameClass:to:",
 category: 'private',
@@ -1431,7 +1367,6 @@ referencedClasses: []
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_basicSwapClassNames_with_",
 smalltalk.method({
 selector: "basicSwapClassNames:with:",
 category: 'private',
@@ -1452,7 +1387,6 @@ referencedClasses: []
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_class_instanceVariableNames_",
 smalltalk.method({
 selector: "class:instanceVariableNames:",
 category: 'class definition',
@@ -1477,7 +1411,6 @@ referencedClasses: ["ClassDefinitionChanged", "SystemAnnouncer"]
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_copyClass_named_",
 smalltalk.method({
 selector: "copyClass:named:",
 category: 'copying',
@@ -1499,7 +1432,6 @@ referencedClasses: []
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_copyClass_to_",
 smalltalk.method({
 selector: "copyClass:to:",
 category: 'copying',
@@ -1527,7 +1459,6 @@ referencedClasses: ["Compiler"]
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_installMethod_forClass_category_",
 smalltalk.method({
 selector: "installMethod:forClass:category:",
 category: 'method definition',
@@ -1549,7 +1480,6 @@ referencedClasses: []
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_instanceVariableNamesFor_",
 smalltalk.method({
 selector: "instanceVariableNamesFor:",
 category: 'accessing',
@@ -1571,7 +1501,6 @@ referencedClasses: []
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_migrateClass_superclass_",
 smalltalk.method({
 selector: "migrateClass:superclass:",
 category: 'class migration',
@@ -1589,7 +1518,6 @@ referencedClasses: []
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_migrateClassNamed_superclass_instanceVariableNames_package_",
 smalltalk.method({
 selector: "migrateClassNamed:superclass:instanceVariableNames:package:",
 category: 'class migration',
@@ -1634,7 +1562,6 @@ referencedClasses: ["Smalltalk", "Error"]
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_rawRenameClass_to_",
 smalltalk.method({
 selector: "rawRenameClass:to:",
 category: 'private',
@@ -1653,7 +1580,6 @@ referencedClasses: []
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_renameClass_to_",
 smalltalk.method({
 selector: "renameClass:to:",
 category: 'class migration',
@@ -1677,7 +1603,6 @@ referencedClasses: ["ClassRenamed", "SystemAnnouncer"]
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_setupClass_",
 smalltalk.method({
 selector: "setupClass:",
 category: 'public',
@@ -1694,7 +1619,6 @@ referencedClasses: []
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_superclass_subclass_",
 smalltalk.method({
 selector: "superclass:subclass:",
 category: 'class definition',
@@ -1713,7 +1637,6 @@ referencedClasses: []
 smalltalk.ClassBuilder);
 
 smalltalk.addMethod(
-"_superclass_subclass_instanceVariableNames_package_",
 smalltalk.method({
 selector: "superclass:subclass:instanceVariableNames:package:",
 category: 'class definition',
@@ -1755,7 +1678,6 @@ smalltalk.ClassBuilder);
 smalltalk.addClass('ClassCategoryReader', smalltalk.Object, ['class', 'category'], 'Kernel-Classes');
 smalltalk.ClassCategoryReader.comment="ClassCategoryReader represents a mechanism for retrieving class descriptions stored on a file."
 smalltalk.addMethod(
-"_class_category_",
 smalltalk.method({
 selector: "class:category:",
 category: 'accessing',
@@ -1773,7 +1695,6 @@ referencedClasses: []
 smalltalk.ClassCategoryReader);
 
 smalltalk.addMethod(
-"_compileMethod_",
 smalltalk.method({
 selector: "compileMethod:",
 category: 'private',
@@ -1791,7 +1712,6 @@ referencedClasses: ["Compiler"]
 smalltalk.ClassCategoryReader);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 category: 'initialization',
@@ -1808,7 +1728,6 @@ referencedClasses: []
 smalltalk.ClassCategoryReader);
 
 smalltalk.addMethod(
-"_scanFrom_",
 smalltalk.method({
 selector: "scanFrom:",
 category: 'fileIn',
@@ -1840,7 +1759,6 @@ smalltalk.ClassCategoryReader);
 smalltalk.addClass('ClassCommentReader', smalltalk.Object, ['class'], 'Kernel-Classes');
 smalltalk.ClassCommentReader.comment="ClassCommentReader represents a mechanism for retrieving class comments stored on a file.\x0aSee `ClassCategoryReader` too."
 smalltalk.addMethod(
-"_class_",
 smalltalk.method({
 selector: "class:",
 category: 'accessing',
@@ -1857,7 +1775,6 @@ referencedClasses: []
 smalltalk.ClassCommentReader);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 category: 'initialization',
@@ -1874,7 +1791,6 @@ referencedClasses: []
 smalltalk.ClassCommentReader);
 
 smalltalk.addMethod(
-"_scanFrom_",
 smalltalk.method({
 selector: "scanFrom:",
 category: 'fileIn',
@@ -1897,7 +1813,6 @@ referencedClasses: []
 smalltalk.ClassCommentReader);
 
 smalltalk.addMethod(
-"_setComment_",
 smalltalk.method({
 selector: "setComment:",
 category: 'private',
@@ -1917,7 +1832,6 @@ smalltalk.ClassCommentReader);
 
 smalltalk.addClass('ClassSorterNode', smalltalk.Object, ['theClass', 'level', 'nodes'], 'Kernel-Classes');
 smalltalk.addMethod(
-"_getNodesFrom_",
 smalltalk.method({
 selector: "getNodesFrom:",
 category: 'accessing',
@@ -1951,7 +1865,6 @@ referencedClasses: ["ClassSorterNode"]
 smalltalk.ClassSorterNode);
 
 smalltalk.addMethod(
-"_level",
 smalltalk.method({
 selector: "level",
 category: 'accessing',
@@ -1970,7 +1883,6 @@ referencedClasses: []
 smalltalk.ClassSorterNode);
 
 smalltalk.addMethod(
-"_level_",
 smalltalk.method({
 selector: "level:",
 category: 'accessing',
@@ -1987,7 +1899,6 @@ referencedClasses: []
 smalltalk.ClassSorterNode);
 
 smalltalk.addMethod(
-"_nodes",
 smalltalk.method({
 selector: "nodes",
 category: 'accessing',
@@ -2006,7 +1917,6 @@ referencedClasses: []
 smalltalk.ClassSorterNode);
 
 smalltalk.addMethod(
-"_theClass",
 smalltalk.method({
 selector: "theClass",
 category: 'accessing',
@@ -2025,7 +1935,6 @@ referencedClasses: []
 smalltalk.ClassSorterNode);
 
 smalltalk.addMethod(
-"_theClass_",
 smalltalk.method({
 selector: "theClass:",
 category: 'accessing',
@@ -2042,7 +1951,6 @@ referencedClasses: []
 smalltalk.ClassSorterNode);
 
 smalltalk.addMethod(
-"_traverseClassesWith_",
 smalltalk.method({
 selector: "traverseClassesWith:",
 category: 'visiting',
@@ -2067,7 +1975,6 @@ smalltalk.ClassSorterNode);
 
 
 smalltalk.addMethod(
-"_on_classes_level_",
 smalltalk.method({
 selector: "on:classes:level:",
 category: 'instance creation',

js/Kernel-Exceptions.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Kernel-Exceptions');
 smalltalk.addClass('Error', smalltalk.Object, ['messageText'], 'Kernel-Exceptions');
 smalltalk.addMethod(
-"_context",
 smalltalk.method({
 selector: "context",
 fn: function (){
@@ -13,7 +12,6 @@ messageSends: []}),
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 fn: function (){
@@ -25,7 +23,6 @@ messageSends: ["messageText:", ",", "name", "class"]}),
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_isSmalltalkError",
 smalltalk.method({
 selector: "isSmalltalkError",
 fn: function (){
@@ -37,7 +34,6 @@ messageSends: []}),
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_jsStack",
 smalltalk.method({
 selector: "jsStack",
 fn: function (){
@@ -49,7 +45,6 @@ messageSends: []}),
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 fn: function (){
@@ -63,7 +58,6 @@ messageSends: []}),
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_messageText_",
 smalltalk.method({
 selector: "messageText:",
 fn: function (aString){
@@ -75,7 +69,6 @@ messageSends: []}),
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_signal",
 smalltalk.method({
 selector: "signal",
 fn: function (){
@@ -87,7 +80,6 @@ messageSends: []}),
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_signal_",
 smalltalk.method({
 selector: "signal:",
 fn: function (aString){
@@ -101,7 +93,6 @@ smalltalk.Error);
 
 
 smalltalk.addMethod(
-"_signal",
 smalltalk.method({
 selector: "signal",
 fn: function (){
@@ -115,7 +106,6 @@ messageSends: ["signal", "new"]}),
 smalltalk.Error.klass);
 
 smalltalk.addMethod(
-"_signal_",
 smalltalk.method({
 selector: "signal:",
 fn: function (aString){
@@ -131,7 +121,6 @@ smalltalk.Error.klass);
 
 smalltalk.addClass('JavaScriptException', smalltalk.Error, ['exception'], 'Kernel-Exceptions');
 smalltalk.addMethod(
-"_context_",
 smalltalk.method({
 selector: "context:",
 fn: function (aMethodContext){
@@ -143,7 +132,6 @@ messageSends: []}),
 smalltalk.JavaScriptException);
 
 smalltalk.addMethod(
-"_exception",
 smalltalk.method({
 selector: "exception",
 fn: function (){
@@ -157,7 +145,6 @@ messageSends: []}),
 smalltalk.JavaScriptException);
 
 smalltalk.addMethod(
-"_exception_",
 smalltalk.method({
 selector: "exception:",
 fn: function (anException){
@@ -169,7 +156,6 @@ messageSends: []}),
 smalltalk.JavaScriptException);
 
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 fn: function (){
@@ -182,7 +168,6 @@ smalltalk.JavaScriptException);
 
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 fn: function (anException){
@@ -199,7 +184,6 @@ messageSends: ["exception:", "new", "yourself"]}),
 smalltalk.JavaScriptException.klass);
 
 smalltalk.addMethod(
-"_on_context_",
 smalltalk.method({
 selector: "on:context:",
 fn: function (anException,aMethodContext){
@@ -219,7 +203,6 @@ smalltalk.JavaScriptException.klass);
 
 smalltalk.addClass('MessageNotUnderstood', smalltalk.Error, ['message', 'receiver'], 'Kernel-Exceptions');
 smalltalk.addMethod(
-"_message",
 smalltalk.method({
 selector: "message",
 fn: function (){
@@ -233,7 +216,6 @@ messageSends: []}),
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-"_message_",
 smalltalk.method({
 selector: "message:",
 fn: function (aMessage){
@@ -245,7 +227,6 @@ messageSends: []}),
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 fn: function (){
@@ -259,7 +240,6 @@ messageSends: [",", "selector", "message", "asString", "receiver"]}),
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-"_receiver",
 smalltalk.method({
 selector: "receiver",
 fn: function (){
@@ -273,7 +253,6 @@ messageSends: []}),
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-"_receiver_",
 smalltalk.method({
 selector: "receiver:",
 fn: function (anObject){
@@ -288,7 +267,6 @@ smalltalk.MessageNotUnderstood);
 
 smalltalk.addClass('NonBooleanReceiver', smalltalk.Error, ['object'], 'Kernel-Exceptions');
 smalltalk.addMethod(
-"_object",
 smalltalk.method({
 selector: "object",
 fn: function (){
@@ -302,7 +280,6 @@ messageSends: []}),
 smalltalk.NonBooleanReceiver);
 
 smalltalk.addMethod(
-"_object_",
 smalltalk.method({
 selector: "object:",
 fn: function (anObject){
@@ -317,7 +294,6 @@ smalltalk.NonBooleanReceiver);
 
 smalltalk.addClass('ErrorHandler', smalltalk.Object, [], 'Kernel-Exceptions');
 smalltalk.addMethod(
-"_handleError_",
 smalltalk.method({
 selector: "handleError:",
 fn: function (anError){
@@ -336,7 +312,6 @@ messageSends: ["ifNotNil:", "logErrorContext:", "context", "logError:"]}),
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-"_log_",
 smalltalk.method({
 selector: "log:",
 fn: function (aString){
@@ -348,7 +323,6 @@ messageSends: ["log:"]}),
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-"_logContext_",
 smalltalk.method({
 selector: "logContext:",
 fn: function (aContext){
@@ -367,7 +341,6 @@ messageSends: ["ifNotNil:", "logContext:", "home", "log:", ",", "asString", "sel
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-"_logError_",
 smalltalk.method({
 selector: "logError:",
 fn: function (anError){
@@ -379,7 +352,6 @@ messageSends: ["log:", "messageText"]}),
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-"_logErrorContext_",
 smalltalk.method({
 selector: "logErrorContext:",
 fn: function (aContext){
@@ -404,7 +376,6 @@ smalltalk.ErrorHandler);
 
 smalltalk.ErrorHandler.klass.iVarNames = ['current'];
 smalltalk.addMethod(
-"_current",
 smalltalk.method({
 selector: "current",
 fn: function (){
@@ -424,7 +395,6 @@ messageSends: ["ifNil:", "new"]}),
 smalltalk.ErrorHandler.klass);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 fn: function (){
@@ -436,7 +406,6 @@ messageSends: ["register"]}),
 smalltalk.ErrorHandler.klass);
 
 smalltalk.addMethod(
-"_register",
 smalltalk.method({
 selector: "register",
 fn: function (){
@@ -449,7 +418,6 @@ messageSends: ["setCurrent:", "new"]}),
 smalltalk.ErrorHandler.klass);
 
 smalltalk.addMethod(
-"_setCurrent_",
 smalltalk.method({
 selector: "setCurrent:",
 fn: function (anHandler){

js/Kernel-Exceptions.js

@@ -2,7 +2,6 @@ smalltalk.addPackage('Kernel-Exceptions');
 smalltalk.addClass('Error', smalltalk.Object, ['messageText'], 'Kernel-Exceptions');
 smalltalk.Error.comment="From the ANSI standard:\x0a\x0aThis protocol describes the behavior of instances of class `Error`.\x0aThese are used to represent error conditions that prevent the normal continuation of processing.\x0aActual error exceptions used by an application may be subclasses of this class.\x0aAs `Error` is explicitly specified to be subclassable, conforming implementations must implement its behavior in a non-fragile manner."
 smalltalk.addMethod(
-"_context",
 smalltalk.method({
 selector: "context",
 category: 'accessing',
@@ -19,7 +18,6 @@ referencedClasses: []
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 category: 'initialization',
@@ -36,7 +34,6 @@ referencedClasses: []
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_isSmalltalkError",
 smalltalk.method({
 selector: "isSmalltalkError",
 category: 'testing',
@@ -53,7 +50,6 @@ referencedClasses: []
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_jsStack",
 smalltalk.method({
 selector: "jsStack",
 category: 'accessing',
@@ -70,7 +66,6 @@ referencedClasses: []
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 category: 'accessing',
@@ -89,7 +84,6 @@ referencedClasses: []
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_messageText_",
 smalltalk.method({
 selector: "messageText:",
 category: 'accessing',
@@ -106,7 +100,6 @@ referencedClasses: []
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_signal",
 smalltalk.method({
 selector: "signal",
 category: 'signaling',
@@ -123,7 +116,6 @@ referencedClasses: []
 smalltalk.Error);
 
 smalltalk.addMethod(
-"_signal_",
 smalltalk.method({
 selector: "signal:",
 category: 'signaling',
@@ -142,7 +134,6 @@ smalltalk.Error);
 
 
 smalltalk.addMethod(
-"_signal",
 smalltalk.method({
 selector: "signal",
 category: 'instance creation',
@@ -161,7 +152,6 @@ referencedClasses: []
 smalltalk.Error.klass);
 
 smalltalk.addMethod(
-"_signal_",
 smalltalk.method({
 selector: "signal:",
 category: 'instance creation',
@@ -183,7 +173,6 @@ smalltalk.Error.klass);
 smalltalk.addClass('JavaScriptException', smalltalk.Error, ['exception'], 'Kernel-Exceptions');
 smalltalk.JavaScriptException.comment="A JavaScriptException is thrown when a non-Smalltalk exception occurs while in the Smalltalk stack.\x0aSee `boot.js` `inContext()` and `BlockClosure >> on:do:`"
 smalltalk.addMethod(
-"_context_",
 smalltalk.method({
 selector: "context:",
 category: 'accessing',
@@ -200,7 +189,6 @@ referencedClasses: []
 smalltalk.JavaScriptException);
 
 smalltalk.addMethod(
-"_exception",
 smalltalk.method({
 selector: "exception",
 category: 'accessing',
@@ -219,7 +207,6 @@ referencedClasses: []
 smalltalk.JavaScriptException);
 
 smalltalk.addMethod(
-"_exception_",
 smalltalk.method({
 selector: "exception:",
 category: 'accessing',
@@ -236,7 +223,6 @@ referencedClasses: []
 smalltalk.JavaScriptException);
 
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 category: 'accessing',
@@ -254,7 +240,6 @@ smalltalk.JavaScriptException);
 
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 category: 'instance creation',
@@ -276,7 +261,6 @@ referencedClasses: []
 smalltalk.JavaScriptException.klass);
 
 smalltalk.addMethod(
-"_on_context_",
 smalltalk.method({
 selector: "on:context:",
 category: 'instance creation',
@@ -302,7 +286,6 @@ smalltalk.JavaScriptException.klass);
 smalltalk.addClass('MessageNotUnderstood', smalltalk.Error, ['message', 'receiver'], 'Kernel-Exceptions');
 smalltalk.MessageNotUnderstood.comment="This exception is provided to support `Object>>doesNotUnderstand:`."
 smalltalk.addMethod(
-"_message",
 smalltalk.method({
 selector: "message",
 category: 'accessing',
@@ -321,7 +304,6 @@ referencedClasses: []
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-"_message_",
 smalltalk.method({
 selector: "message:",
 category: 'accessing',
@@ -338,7 +320,6 @@ referencedClasses: []
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 category: 'accessing',
@@ -357,7 +338,6 @@ referencedClasses: []
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-"_receiver",
 smalltalk.method({
 selector: "receiver",
 category: 'accessing',
@@ -376,7 +356,6 @@ referencedClasses: []
 smalltalk.MessageNotUnderstood);
 
 smalltalk.addMethod(
-"_receiver_",
 smalltalk.method({
 selector: "receiver:",
 category: 'accessing',
@@ -397,7 +376,6 @@ smalltalk.MessageNotUnderstood);
 smalltalk.addClass('NonBooleanReceiver', smalltalk.Error, ['object'], 'Kernel-Exceptions');
 smalltalk.NonBooleanReceiver.comment="NonBooleanReceiver exceptions may be thrown when executing inlined methods such as `#ifTrue:` with a non boolean receiver."
 smalltalk.addMethod(
-"_object",
 smalltalk.method({
 selector: "object",
 category: 'accessing',
@@ -416,7 +394,6 @@ referencedClasses: []
 smalltalk.NonBooleanReceiver);
 
 smalltalk.addMethod(
-"_object_",
 smalltalk.method({
 selector: "object:",
 category: 'accessing',
@@ -437,7 +414,6 @@ smalltalk.NonBooleanReceiver);
 smalltalk.addClass('ErrorHandler', smalltalk.Object, [], 'Kernel-Exceptions');
 smalltalk.ErrorHandler.comment="ErrorHandler is used to manage Smalltalk errors.\x0aSee `boot.js` `handleError()` function.\x0a\x0aSubclasses of `ErrorHandler` can register themselves as the current handler with\x0a`ErrorHandler class >> register`.\x0a\x0aSubclasses may override `#handleError:` to perform an action on the thrown exception.\x0aThe default behavior is to log the error and the context stack to the JavaScript console."
 smalltalk.addMethod(
-"_handleError_",
 smalltalk.method({
 selector: "handleError:",
 category: 'error handling',
@@ -461,7 +437,6 @@ referencedClasses: []
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-"_log_",
 smalltalk.method({
 selector: "log:",
 category: 'private',
@@ -478,7 +453,6 @@ referencedClasses: []
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-"_logContext_",
 smalltalk.method({
 selector: "logContext:",
 category: 'private',
@@ -502,7 +476,6 @@ referencedClasses: []
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-"_logError_",
 smalltalk.method({
 selector: "logError:",
 category: 'private',
@@ -519,7 +492,6 @@ referencedClasses: []
 smalltalk.ErrorHandler);
 
 smalltalk.addMethod(
-"_logErrorContext_",
 smalltalk.method({
 selector: "logErrorContext:",
 category: 'private',
@@ -549,7 +521,6 @@ smalltalk.ErrorHandler);
 
 smalltalk.ErrorHandler.klass.iVarNames = ['current'];
 smalltalk.addMethod(
-"_current",
 smalltalk.method({
 selector: "current",
 category: 'accessing',
@@ -574,7 +545,6 @@ referencedClasses: []
 smalltalk.ErrorHandler.klass);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 category: 'initialization',
@@ -591,7 +561,6 @@ referencedClasses: []
 smalltalk.ErrorHandler.klass);
 
 smalltalk.addMethod(
-"_register",
 smalltalk.method({
 selector: "register",
 category: 'initialization',
@@ -609,7 +578,6 @@ referencedClasses: ["ErrorHandler"]
 smalltalk.ErrorHandler.klass);
 
 smalltalk.addMethod(
-"_setCurrent_",
 smalltalk.method({
 selector: "setCurrent:",
 category: 'accessing',

js/Kernel-Methods.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Kernel-Methods');
 smalltalk.addClass('BlockClosure', smalltalk.Object, [], 'Kernel-Methods');
 smalltalk.addMethod(
-"_applyTo_arguments_",
 smalltalk.method({
 selector: "applyTo:arguments:",
 fn: function (anObject,aCollection){
@@ -13,7 +12,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_asCompiledMethod_",
 smalltalk.method({
 selector: "asCompiledMethod:",
 fn: function (aString){
@@ -25,7 +23,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_compiledSource",
 smalltalk.method({
 selector: "compiledSource",
 fn: function (){
@@ -37,7 +34,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_currySelf",
 smalltalk.method({
 selector: "currySelf",
 fn: function (){
@@ -55,7 +51,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_ensure_",
 smalltalk.method({
 selector: "ensure:",
 fn: function (aBlock){
@@ -67,7 +62,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_fork",
 smalltalk.method({
 selector: "fork",
 fn: function (){
@@ -80,7 +74,6 @@ messageSends: ["fork:", "default"]}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_new",
 smalltalk.method({
 selector: "new",
 fn: function (){
@@ -92,7 +85,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_newValue_",
 smalltalk.method({
 selector: "newValue:",
 fn: function (anObject){
@@ -104,7 +96,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_newValue_value_",
 smalltalk.method({
 selector: "newValue:value:",
 fn: function (anObject,anObject2){
@@ -116,7 +107,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_newValue_value_value_",
 smalltalk.method({
 selector: "newValue:value:value:",
 fn: function (anObject,anObject2,anObject3){
@@ -128,7 +118,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_numArgs",
 smalltalk.method({
 selector: "numArgs",
 fn: function (){
@@ -140,7 +129,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_on_do_",
 smalltalk.method({
 selector: "on:do:",
 fn: function (anErrorClass,aBlock){
@@ -166,7 +154,6 @@ messageSends: ["try:catch:", "asSmalltalkException:", "current", "ifTrue:ifFalse
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_timeToRun",
 smalltalk.method({
 selector: "timeToRun",
 fn: function (){
@@ -181,7 +168,6 @@ messageSends: ["millisecondsToRun:"]}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_value",
 smalltalk.method({
 selector: "value",
 fn: function (){
@@ -193,7 +179,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_value_",
 smalltalk.method({
 selector: "value:",
 fn: function (anArg){
@@ -205,7 +190,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_value_value_",
 smalltalk.method({
 selector: "value:value:",
 fn: function (firstArg,secondArg){
@@ -217,7 +201,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_value_value_value_",
 smalltalk.method({
 selector: "value:value:value:",
 fn: function (firstArg,secondArg,thirdArg){
@@ -229,7 +212,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_valueWithInterval_",
 smalltalk.method({
 selector: "valueWithInterval:",
 fn: function (aNumber){
@@ -244,7 +226,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_valueWithPossibleArguments_",
 smalltalk.method({
 selector: "valueWithPossibleArguments:",
 fn: function (aCollection){
@@ -256,7 +237,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_valueWithTimeout_",
 smalltalk.method({
 selector: "valueWithTimeout:",
 fn: function (aNumber){
@@ -271,7 +251,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_whileFalse",
 smalltalk.method({
 selector: "whileFalse",
 fn: function (){
@@ -285,7 +264,6 @@ messageSends: ["whileFalse:"]}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_whileFalse_",
 smalltalk.method({
 selector: "whileFalse:",
 fn: function (aBlock){
@@ -297,7 +275,6 @@ messageSends: []}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_whileTrue",
 smalltalk.method({
 selector: "whileTrue",
 fn: function (){
@@ -311,7 +288,6 @@ messageSends: ["whileTrue:"]}),
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_whileTrue_",
 smalltalk.method({
 selector: "whileTrue:",
 fn: function (aBlock){
@@ -326,7 +302,6 @@ smalltalk.BlockClosure);
 
 smalltalk.addClass('CompiledMethod', smalltalk.Object, [], 'Kernel-Methods');
 smalltalk.addMethod(
-"_arguments",
 smalltalk.method({
 selector: "arguments",
 fn: function (){
@@ -338,7 +313,6 @@ messageSends: []}),
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_category",
 smalltalk.method({
 selector: "category",
 fn: function (){
@@ -357,7 +331,6 @@ messageSends: ["ifNil:", "defaultCategory", "basicAt:"]}),
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_category_",
 smalltalk.method({
 selector: "category:",
 fn: function (aString){
@@ -385,7 +358,6 @@ messageSends: ["category", "basicAt:put:", "ifNotNil:", "addElement:", "organiza
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_defaultCategory",
 smalltalk.method({
 selector: "defaultCategory",
 fn: function (){
@@ -397,7 +369,6 @@ messageSends: []}),
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_fn",
 smalltalk.method({
 selector: "fn",
 fn: function (){
@@ -411,7 +382,6 @@ messageSends: ["basicAt:"]}),
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_fn_",
 smalltalk.method({
 selector: "fn:",
 fn: function (aBlock){
@@ -423,7 +393,6 @@ messageSends: ["basicAt:put:"]}),
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_isCompiledMethod",
 smalltalk.method({
 selector: "isCompiledMethod",
 fn: function (){
@@ -435,7 +404,6 @@ messageSends: []}),
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_messageSends",
 smalltalk.method({
 selector: "messageSends",
 fn: function (){
@@ -449,7 +417,6 @@ messageSends: ["basicAt:"]}),
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_methodClass",
 smalltalk.method({
 selector: "methodClass",
 fn: function (){
@@ -463,7 +430,6 @@ messageSends: ["basicAt:"]}),
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_protocol",
 smalltalk.method({
 selector: "protocol",
 fn: function (){
@@ -477,7 +443,6 @@ messageSends: ["category"]}),
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_referencedClasses",
 smalltalk.method({
 selector: "referencedClasses",
 fn: function (){
@@ -491,7 +456,6 @@ messageSends: ["basicAt:"]}),
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_selector",
 smalltalk.method({
 selector: "selector",
 fn: function (){
@@ -505,7 +469,6 @@ messageSends: ["basicAt:"]}),
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_selector_",
 smalltalk.method({
 selector: "selector:",
 fn: function (aString){
@@ -517,7 +480,6 @@ messageSends: ["basicAt:put:"]}),
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_source",
 smalltalk.method({
 selector: "source",
 fn: function (){
@@ -536,7 +498,6 @@ messageSends: ["ifNil:", "basicAt:"]}),
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_source_",
 smalltalk.method({
 selector: "source:",
 fn: function (aString){
@@ -551,7 +512,6 @@ smalltalk.CompiledMethod);
 
 smalltalk.addClass('ForkPool', smalltalk.Object, ['poolSize', 'maxPoolSize', 'queue', 'worker'], 'Kernel-Methods');
 smalltalk.addMethod(
-"_addWorker",
 smalltalk.method({
 selector: "addWorker",
 fn: function (){
@@ -564,7 +524,6 @@ messageSends: ["valueWithTimeout:", "+"]}),
 smalltalk.ForkPool);
 
 smalltalk.addMethod(
-"_defaultMaxPoolSize",
 smalltalk.method({
 selector: "defaultMaxPoolSize",
 fn: function (){
@@ -578,7 +537,6 @@ messageSends: ["defaultMaxPoolSize", "class"]}),
 smalltalk.ForkPool);
 
 smalltalk.addMethod(
-"_fork_",
 smalltalk.method({
 selector: "fork:",
 fn: function (aBlock){
@@ -595,7 +553,6 @@ messageSends: ["ifTrue:", "addWorker", "<", "maxPoolSize", "nextPut:"]}),
 smalltalk.ForkPool);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 fn: function (){
@@ -611,7 +568,6 @@ messageSends: ["initialize", "new", "makeWorker"]}),
 smalltalk.ForkPool);
 
 smalltalk.addMethod(
-"_makeWorker",
 smalltalk.method({
 selector: "makeWorker",
 fn: function (){
@@ -648,7 +604,6 @@ messageSends: ["new", "-", "nextIfAbsent:", "ifFalse:", "ensure:", "addWorker",
 smalltalk.ForkPool);
 
 smalltalk.addMethod(
-"_maxPoolSize",
 smalltalk.method({
 selector: "maxPoolSize",
 fn: function (){
@@ -667,7 +622,6 @@ messageSends: ["ifNil:", "defaultMaxPoolSize"]}),
 smalltalk.ForkPool);
 
 smalltalk.addMethod(
-"_maxPoolSize_",
 smalltalk.method({
 selector: "maxPoolSize:",
 fn: function (anInteger){
@@ -681,7 +635,6 @@ smalltalk.ForkPool);
 
 smalltalk.ForkPool.klass.iVarNames = ['default'];
 smalltalk.addMethod(
-"_default",
 smalltalk.method({
 selector: "default",
 fn: function (){
@@ -701,7 +654,6 @@ messageSends: ["ifNil:", "new"]}),
 smalltalk.ForkPool.klass);
 
 smalltalk.addMethod(
-"_defaultMaxPoolSize",
 smalltalk.method({
 selector: "defaultMaxPoolSize",
 fn: function (){
@@ -715,7 +667,6 @@ messageSends: []}),
 smalltalk.ForkPool.klass);
 
 smalltalk.addMethod(
-"_resetDefault",
 smalltalk.method({
 selector: "resetDefault",
 fn: function (){
@@ -729,7 +680,6 @@ smalltalk.ForkPool.klass);
 
 smalltalk.addClass('Message', smalltalk.Object, ['selector', 'arguments'], 'Kernel-Methods');
 smalltalk.addMethod(
-"_arguments",
 smalltalk.method({
 selector: "arguments",
 fn: function (){
@@ -743,7 +693,6 @@ messageSends: []}),
 smalltalk.Message);
 
 smalltalk.addMethod(
-"_arguments_",
 smalltalk.method({
 selector: "arguments:",
 fn: function (anArray){
@@ -755,7 +704,6 @@ messageSends: []}),
 smalltalk.Message);
 
 smalltalk.addMethod(
-"_printOn_",
 smalltalk.method({
 selector: "printOn:",
 fn: function (aStream){
@@ -772,7 +720,6 @@ messageSends: ["printOn:", "nextPutAll:", "selector"]}),
 smalltalk.Message);
 
 smalltalk.addMethod(
-"_selector",
 smalltalk.method({
 selector: "selector",
 fn: function (){
@@ -786,7 +733,6 @@ messageSends: []}),
 smalltalk.Message);
 
 smalltalk.addMethod(
-"_selector_",
 smalltalk.method({
 selector: "selector:",
 fn: function (aString){
@@ -798,7 +744,6 @@ messageSends: []}),
 smalltalk.Message);
 
 smalltalk.addMethod(
-"_sendTo_",
 smalltalk.method({
 selector: "sendTo:",
 fn: function (anObject){
@@ -813,7 +758,6 @@ smalltalk.Message);
 
 
 smalltalk.addMethod(
-"_selector_arguments_",
 smalltalk.method({
 selector: "selector:arguments:",
 fn: function (aString,anArray){
@@ -833,7 +777,6 @@ smalltalk.Message.klass);
 
 smalltalk.addClass('MethodContext', smalltalk.Object, [], 'Kernel-Methods');
 smalltalk.addMethod(
-"_asString",
 smalltalk.method({
 selector: "asString",
 fn: function (){
@@ -852,7 +795,6 @@ messageSends: ["ifTrue:ifFalse:", ",", "printString", "class", "receiver", "meth
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_home",
 smalltalk.method({
 selector: "home",
 fn: function (){
@@ -864,7 +806,6 @@ messageSends: []}),
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_isBlockContext",
 smalltalk.method({
 selector: "isBlockContext",
 fn: function (){
@@ -878,7 +819,6 @@ messageSends: ["isNil", "selector"]}),
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_locals",
 smalltalk.method({
 selector: "locals",
 fn: function (){
@@ -890,7 +830,6 @@ messageSends: []}),
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_method",
 smalltalk.method({
 selector: "method",
 fn: function (){
@@ -904,7 +843,6 @@ messageSends: ["lookupSelector:", "selector", "methodContext", "class", "receive
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_methodContext",
 smalltalk.method({
 selector: "methodContext",
 fn: function (){
@@ -923,7 +861,6 @@ messageSends: ["ifFalse:", "isBlockContext", "home"]}),
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_outerContext",
 smalltalk.method({
 selector: "outerContext",
 fn: function (){
@@ -935,7 +872,6 @@ messageSends: []}),
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_pc",
 smalltalk.method({
 selector: "pc",
 fn: function (){
@@ -947,7 +883,6 @@ messageSends: []}),
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_printOn_",
 smalltalk.method({
 selector: "printOn:",
 fn: function (aStream){
@@ -964,7 +899,6 @@ messageSends: ["printOn:", "nextPutAll:", "asString"]}),
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_receiver",
 smalltalk.method({
 selector: "receiver",
 fn: function (){
@@ -976,7 +910,6 @@ messageSends: []}),
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_selector",
 smalltalk.method({
 selector: "selector",
 fn: function (){
@@ -994,7 +927,6 @@ messageSends: []}),
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_temps",
 smalltalk.method({
 selector: "temps",
 fn: function (){
@@ -1013,7 +945,6 @@ smalltalk.MethodContext);
 smalltalk.addClass('NativeFunction', smalltalk.Object, [], 'Kernel-Methods');
 
 smalltalk.addMethod(
-"_constructor_",
 smalltalk.method({
 selector: "constructor:",
 fn: function (aString){
@@ -1028,7 +959,6 @@ messageSends: []}),
 smalltalk.NativeFunction.klass);
 
 smalltalk.addMethod(
-"_constructor_value_",
 smalltalk.method({
 selector: "constructor:value:",
 fn: function (aString,anObject){
@@ -1043,7 +973,6 @@ messageSends: []}),
 smalltalk.NativeFunction.klass);
 
 smalltalk.addMethod(
-"_constructor_value_value_",
 smalltalk.method({
 selector: "constructor:value:value:",
 fn: function (aString,anObject,anObject2){
@@ -1058,7 +987,6 @@ messageSends: []}),
 smalltalk.NativeFunction.klass);
 
 smalltalk.addMethod(
-"_constructor_value_value_value_",
 smalltalk.method({
 selector: "constructor:value:value:value:",
 fn: function (aString,anObject,anObject2,anObject3){
@@ -1073,7 +1001,6 @@ messageSends: []}),
 smalltalk.NativeFunction.klass);
 
 smalltalk.addMethod(
-"_exists_",
 smalltalk.method({
 selector: "exists:",
 fn: function (aString){

js/Kernel-Methods.js

@@ -2,7 +2,6 @@ smalltalk.addPackage('Kernel-Methods');
 smalltalk.addClass('BlockClosure', smalltalk.Object, [], 'Kernel-Methods');
 smalltalk.BlockClosure.comment="A BlockClosure is a lexical closure.\x0aThe JavaScript representation is a function.\x0a\x0aA BlockClosure is evaluated with the `#value*` methods in the 'evaluating' protocol."
 smalltalk.addMethod(
-"_applyTo_arguments_",
 smalltalk.method({
 selector: "applyTo:arguments:",
 category: 'evaluating',
@@ -19,7 +18,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_asCompiledMethod_",
 smalltalk.method({
 selector: "asCompiledMethod:",
 category: 'converting',
@@ -36,7 +34,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_compiledSource",
 smalltalk.method({
 selector: "compiledSource",
 category: 'accessing',
@@ -53,7 +50,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_currySelf",
 smalltalk.method({
 selector: "currySelf",
 category: 'converting',
@@ -76,7 +72,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_ensure_",
 smalltalk.method({
 selector: "ensure:",
 category: 'evaluating',
@@ -93,7 +88,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_fork",
 smalltalk.method({
 selector: "fork",
 category: 'timeout/interval',
@@ -111,7 +105,6 @@ referencedClasses: ["ForkPool"]
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_new",
 smalltalk.method({
 selector: "new",
 category: 'evaluating',
@@ -128,7 +121,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_newValue_",
 smalltalk.method({
 selector: "newValue:",
 category: 'evaluating',
@@ -145,7 +137,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_newValue_value_",
 smalltalk.method({
 selector: "newValue:value:",
 category: 'evaluating',
@@ -162,7 +153,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_newValue_value_value_",
 smalltalk.method({
 selector: "newValue:value:value:",
 category: 'evaluating',
@@ -179,7 +169,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_numArgs",
 smalltalk.method({
 selector: "numArgs",
 category: 'accessing',
@@ -196,7 +185,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_on_do_",
 smalltalk.method({
 selector: "on:do:",
 category: 'error handling',
@@ -227,7 +215,6 @@ referencedClasses: ["Smalltalk"]
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_timeToRun",
 smalltalk.method({
 selector: "timeToRun",
 category: 'evaluating',
@@ -247,7 +234,6 @@ referencedClasses: ["Date"]
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_value",
 smalltalk.method({
 selector: "value",
 category: 'evaluating',
@@ -264,7 +250,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_value_",
 smalltalk.method({
 selector: "value:",
 category: 'evaluating',
@@ -281,7 +266,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_value_value_",
 smalltalk.method({
 selector: "value:value:",
 category: 'evaluating',
@@ -298,7 +282,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_value_value_value_",
 smalltalk.method({
 selector: "value:value:value:",
 category: 'evaluating',
@@ -315,7 +298,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_valueWithInterval_",
 smalltalk.method({
 selector: "valueWithInterval:",
 category: 'timeout/interval',
@@ -335,7 +317,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_valueWithPossibleArguments_",
 smalltalk.method({
 selector: "valueWithPossibleArguments:",
 category: 'evaluating',
@@ -352,7 +333,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_valueWithTimeout_",
 smalltalk.method({
 selector: "valueWithTimeout:",
 category: 'timeout/interval',
@@ -372,7 +352,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_whileFalse",
 smalltalk.method({
 selector: "whileFalse",
 category: 'controlling',
@@ -391,7 +370,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_whileFalse_",
 smalltalk.method({
 selector: "whileFalse:",
 category: 'controlling',
@@ -408,7 +386,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_whileTrue",
 smalltalk.method({
 selector: "whileTrue",
 category: 'controlling',
@@ -427,7 +404,6 @@ referencedClasses: []
 smalltalk.BlockClosure);
 
 smalltalk.addMethod(
-"_whileTrue_",
 smalltalk.method({
 selector: "whileTrue:",
 category: 'controlling',
@@ -448,7 +424,6 @@ smalltalk.BlockClosure);
 smalltalk.addClass('CompiledMethod', smalltalk.Object, [], 'Kernel-Methods');
 smalltalk.CompiledMethod.comment="CompiledMethod hold the source and compiled code of a class method.\x0a\x0aYou can get a CompiledMethod using `Behavior>>methodAt:`\x0a\x0a\x09String methodAt: 'lines'\x0a\x0aand read the source code\x0a\x0a\x09(String methodAt: 'lines') source\x0a\x0aSee referenced classes:\x0a\x0a\x09(String methodAt: 'lines') referencedClasses\x0a\x0aor messages sent from this method:\x0a\x09\x0a\x09(String methodAt: 'lines') messageSends"
 smalltalk.addMethod(
-"_arguments",
 smalltalk.method({
 selector: "arguments",
 category: 'accessing',
@@ -465,7 +440,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_category",
 smalltalk.method({
 selector: "category",
 category: 'accessing',
@@ -489,7 +463,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_category_",
 smalltalk.method({
 selector: "category:",
 category: 'accessing',
@@ -522,7 +495,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_defaultCategory",
 smalltalk.method({
 selector: "defaultCategory",
 category: 'defaults',
@@ -539,7 +511,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_fn",
 smalltalk.method({
 selector: "fn",
 category: 'accessing',
@@ -558,7 +529,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_fn_",
 smalltalk.method({
 selector: "fn:",
 category: 'accessing',
@@ -575,7 +545,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_isCompiledMethod",
 smalltalk.method({
 selector: "isCompiledMethod",
 category: 'testing',
@@ -592,7 +561,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_messageSends",
 smalltalk.method({
 selector: "messageSends",
 category: 'accessing',
@@ -611,7 +579,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_methodClass",
 smalltalk.method({
 selector: "methodClass",
 category: 'accessing',
@@ -630,7 +597,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_protocol",
 smalltalk.method({
 selector: "protocol",
 category: 'accessing',
@@ -649,7 +615,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_referencedClasses",
 smalltalk.method({
 selector: "referencedClasses",
 category: 'accessing',
@@ -668,7 +633,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_selector",
 smalltalk.method({
 selector: "selector",
 category: 'accessing',
@@ -687,7 +651,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_selector_",
 smalltalk.method({
 selector: "selector:",
 category: 'accessing',
@@ -704,7 +667,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_source",
 smalltalk.method({
 selector: "source",
 category: 'accessing',
@@ -728,7 +690,6 @@ referencedClasses: []
 smalltalk.CompiledMethod);
 
 smalltalk.addMethod(
-"_source_",
 smalltalk.method({
 selector: "source:",
 category: 'accessing',
@@ -749,7 +710,6 @@ smalltalk.CompiledMethod);
 smalltalk.addClass('ForkPool', smalltalk.Object, ['poolSize', 'maxPoolSize', 'queue', 'worker'], 'Kernel-Methods');
 smalltalk.ForkPool.comment="A ForkPool is responsible for handling forked blocks.\x0aThe pool size sets the maximum concurrent forked blocks.\x0a\x0aThe default instance is accessed with `ForkPool default`"
 smalltalk.addMethod(
-"_addWorker",
 smalltalk.method({
 selector: "addWorker",
 category: 'private',
@@ -767,7 +727,6 @@ referencedClasses: []
 smalltalk.ForkPool);
 
 smalltalk.addMethod(
-"_defaultMaxPoolSize",
 smalltalk.method({
 selector: "defaultMaxPoolSize",
 category: 'defaults',
@@ -786,7 +745,6 @@ referencedClasses: []
 smalltalk.ForkPool);
 
 smalltalk.addMethod(
-"_fork_",
 smalltalk.method({
 selector: "fork:",
 category: 'actions',
@@ -808,7 +766,6 @@ referencedClasses: []
 smalltalk.ForkPool);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 category: 'initialization',
@@ -829,7 +786,6 @@ referencedClasses: ["Queue"]
 smalltalk.ForkPool);
 
 smalltalk.addMethod(
-"_makeWorker",
 smalltalk.method({
 selector: "makeWorker",
 category: 'initialization',
@@ -871,7 +827,6 @@ referencedClasses: ["Object"]
 smalltalk.ForkPool);
 
 smalltalk.addMethod(
-"_maxPoolSize",
 smalltalk.method({
 selector: "maxPoolSize",
 category: 'accessing',
@@ -895,7 +850,6 @@ referencedClasses: []
 smalltalk.ForkPool);
 
 smalltalk.addMethod(
-"_maxPoolSize_",
 smalltalk.method({
 selector: "maxPoolSize:",
 category: 'accessing',
@@ -914,7 +868,6 @@ smalltalk.ForkPool);
 
 smalltalk.ForkPool.klass.iVarNames = ['default'];
 smalltalk.addMethod(
-"_default",
 smalltalk.method({
 selector: "default",
 category: 'accessing',
@@ -939,7 +892,6 @@ referencedClasses: []
 smalltalk.ForkPool.klass);
 
 smalltalk.addMethod(
-"_defaultMaxPoolSize",
 smalltalk.method({
 selector: "defaultMaxPoolSize",
 category: 'accessing',
@@ -958,7 +910,6 @@ referencedClasses: []
 smalltalk.ForkPool.klass);
 
 smalltalk.addMethod(
-"_resetDefault",
 smalltalk.method({
 selector: "resetDefault",
 category: 'accessing',
@@ -978,7 +929,6 @@ smalltalk.ForkPool.klass);
 smalltalk.addClass('Message', smalltalk.Object, ['selector', 'arguments'], 'Kernel-Methods');
 smalltalk.Message.comment="Generally, the system does not use instances of Message for efficiency reasons.\x0aHowever, when a message is not understood by its receiver, the interpreter will make up an instance of it in order to capture the information involved in an actual message transmission.\x0aThis instance is sent it as an argument with the message `doesNotUnderstand:` to the receiver.\x0a\x0aSee boot.js, `messageNotUnderstood` and its counterpart `Object>>doesNotUnderstand:`"
 smalltalk.addMethod(
-"_arguments",
 smalltalk.method({
 selector: "arguments",
 category: 'accessing',
@@ -997,7 +947,6 @@ referencedClasses: []
 smalltalk.Message);
 
 smalltalk.addMethod(
-"_arguments_",
 smalltalk.method({
 selector: "arguments:",
 category: 'accessing',
@@ -1014,7 +963,6 @@ referencedClasses: []
 smalltalk.Message);
 
 smalltalk.addMethod(
-"_printOn_",
 smalltalk.method({
 selector: "printOn:",
 category: 'printing',
@@ -1036,7 +984,6 @@ referencedClasses: []
 smalltalk.Message);
 
 smalltalk.addMethod(
-"_selector",
 smalltalk.method({
 selector: "selector",
 category: 'accessing',
@@ -1055,7 +1002,6 @@ referencedClasses: []
 smalltalk.Message);
 
 smalltalk.addMethod(
-"_selector_",
 smalltalk.method({
 selector: "selector:",
 category: 'accessing',
@@ -1072,7 +1018,6 @@ referencedClasses: []
 smalltalk.Message);
 
 smalltalk.addMethod(
-"_sendTo_",
 smalltalk.method({
 selector: "sendTo:",
 category: 'actions',
@@ -1092,7 +1037,6 @@ smalltalk.Message);
 
 
 smalltalk.addMethod(
-"_selector_arguments_",
 smalltalk.method({
 selector: "selector:arguments:",
 category: 'instance creation',
@@ -1118,7 +1062,6 @@ smalltalk.Message.klass);
 smalltalk.addClass('MethodContext', smalltalk.Object, [], 'Kernel-Methods');
 smalltalk.MethodContext.comment="MethodContext holds all the dynamic state associated with the execution of either a method activation resulting from a message send. That is used to build the call stack while debugging.\x0a\x0aMethodContext instances are JavaScript `SmalltalkMethodContext` objects defined in boot.js"
 smalltalk.addMethod(
-"_asString",
 smalltalk.method({
 selector: "asString",
 category: 'converting',
@@ -1142,7 +1085,6 @@ referencedClasses: []
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_home",
 smalltalk.method({
 selector: "home",
 category: 'accessing',
@@ -1159,7 +1101,6 @@ referencedClasses: []
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_isBlockContext",
 smalltalk.method({
 selector: "isBlockContext",
 category: 'testing',
@@ -1178,7 +1119,6 @@ referencedClasses: []
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_locals",
 smalltalk.method({
 selector: "locals",
 category: 'accessing',
@@ -1195,7 +1135,6 @@ referencedClasses: []
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_method",
 smalltalk.method({
 selector: "method",
 category: 'accessing',
@@ -1214,7 +1153,6 @@ referencedClasses: []
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_methodContext",
 smalltalk.method({
 selector: "methodContext",
 category: 'accessing',
@@ -1238,7 +1176,6 @@ referencedClasses: []
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_outerContext",
 smalltalk.method({
 selector: "outerContext",
 category: 'accessing',
@@ -1255,7 +1192,6 @@ referencedClasses: []
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_pc",
 smalltalk.method({
 selector: "pc",
 category: 'accessing',
@@ -1272,7 +1208,6 @@ referencedClasses: []
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_printOn_",
 smalltalk.method({
 selector: "printOn:",
 category: 'printing',
@@ -1294,7 +1229,6 @@ referencedClasses: []
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_receiver",
 smalltalk.method({
 selector: "receiver",
 category: 'accessing',
@@ -1311,7 +1245,6 @@ referencedClasses: []
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_selector",
 smalltalk.method({
 selector: "selector",
 category: 'accessing',
@@ -1334,7 +1267,6 @@ referencedClasses: []
 smalltalk.MethodContext);
 
 smalltalk.addMethod(
-"_temps",
 smalltalk.method({
 selector: "temps",
 category: 'accessing',
@@ -1359,7 +1291,6 @@ smalltalk.addClass('NativeFunction', smalltalk.Object, [], 'Kernel-Methods');
 smalltalk.NativeFunction.comment="NativeFunction is a wrapper around native functions, such as `WebSocket`.\x0aFor 'normal' functions (whose constructor is the JavaScript `Function` object), use `BlockClosure`.\x0a\x0aSee the class-side `instance creation` methods.\x0a\x0aCreated instances will most probably be instance of `JSObjectProxy`.\x0a\x0aUsage example:\x0a\x0a\x09| ws |\x0a\x09ws := NativeFunction constructor: 'WebSocket' value: 'ws://localhost'.\x0a\x09ws at: 'onopen' put: [ ws send: 'hey there from Amber' ]"
 
 smalltalk.addMethod(
-"_constructor_",
 smalltalk.method({
 selector: "constructor:",
 category: 'instance creation',
@@ -1379,7 +1310,6 @@ referencedClasses: []
 smalltalk.NativeFunction.klass);
 
 smalltalk.addMethod(
-"_constructor_value_",
 smalltalk.method({
 selector: "constructor:value:",
 category: 'instance creation',
@@ -1399,7 +1329,6 @@ referencedClasses: []
 smalltalk.NativeFunction.klass);
 
 smalltalk.addMethod(
-"_constructor_value_value_",
 smalltalk.method({
 selector: "constructor:value:value:",
 category: 'instance creation',
@@ -1419,7 +1348,6 @@ referencedClasses: []
 smalltalk.NativeFunction.klass);
 
 smalltalk.addMethod(
-"_constructor_value_value_value_",
 smalltalk.method({
 selector: "constructor:value:value:value:",
 category: 'instance creation',
@@ -1439,7 +1367,6 @@ referencedClasses: []
 smalltalk.NativeFunction.klass);
 
 smalltalk.addMethod(
-"_exists_",
 smalltalk.method({
 selector: "exists:",
 category: 'testing',

js/Kernel-Transcript.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Kernel-Transcript');
 smalltalk.addClass('ConsoleTranscript', smalltalk.Object, ['textarea'], 'Kernel-Transcript');
 smalltalk.addMethod(
-"_clear",
 smalltalk.method({
 selector: "clear",
 fn: function (){
@@ -12,7 +11,6 @@ messageSends: []}),
 smalltalk.ConsoleTranscript);
 
 smalltalk.addMethod(
-"_cr",
 smalltalk.method({
 selector: "cr",
 fn: function (){
@@ -23,7 +21,6 @@ messageSends: []}),
 smalltalk.ConsoleTranscript);
 
 smalltalk.addMethod(
-"_open",
 smalltalk.method({
 selector: "open",
 fn: function (){
@@ -34,7 +31,6 @@ messageSends: []}),
 smalltalk.ConsoleTranscript);
 
 smalltalk.addMethod(
-"_show_",
 smalltalk.method({
 selector: "show:",
 fn: function (anObject){
@@ -47,7 +43,6 @@ smalltalk.ConsoleTranscript);
 
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 fn: function (){
@@ -64,7 +59,6 @@ smalltalk.addClass('Transcript', smalltalk.Object, ['textarea'], 'Kernel-Transcr
 
 smalltalk.Transcript.klass.iVarNames = ['current'];
 smalltalk.addMethod(
-"_clear",
 smalltalk.method({
 selector: "clear",
 fn: function (){
@@ -76,7 +70,6 @@ messageSends: ["clear", "current"]}),
 smalltalk.Transcript.klass);
 
 smalltalk.addMethod(
-"_cr",
 smalltalk.method({
 selector: "cr",
 fn: function (){
@@ -89,7 +82,6 @@ messageSends: ["show:", "cr", "current"]}),
 smalltalk.Transcript.klass);
 
 smalltalk.addMethod(
-"_current",
 smalltalk.method({
 selector: "current",
 fn: function (){
@@ -103,7 +95,6 @@ messageSends: []}),
 smalltalk.Transcript.klass);
 
 smalltalk.addMethod(
-"_new",
 smalltalk.method({
 selector: "new",
 fn: function (){
@@ -115,7 +106,6 @@ messageSends: ["shouldNotImplement"]}),
 smalltalk.Transcript.klass);
 
 smalltalk.addMethod(
-"_open",
 smalltalk.method({
 selector: "open",
 fn: function (){
@@ -127,7 +117,6 @@ messageSends: ["open", "current"]}),
 smalltalk.Transcript.klass);
 
 smalltalk.addMethod(
-"_register_",
 smalltalk.method({
 selector: "register:",
 fn: function (aTranscript){
@@ -139,7 +128,6 @@ messageSends: []}),
 smalltalk.Transcript.klass);
 
 smalltalk.addMethod(
-"_show_",
 smalltalk.method({
 selector: "show:",
 fn: function (anObject){

js/Kernel-Transcript.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Kernel-Transcript');
 smalltalk.addClass('ConsoleTranscript', smalltalk.Object, ['textarea'], 'Kernel-Transcript');
 smalltalk.addMethod(
-"_clear",
 smalltalk.method({
 selector: "clear",
 category: 'printing',
@@ -17,7 +16,6 @@ referencedClasses: []
 smalltalk.ConsoleTranscript);
 
 smalltalk.addMethod(
-"_cr",
 smalltalk.method({
 selector: "cr",
 category: 'printing',
@@ -33,7 +31,6 @@ referencedClasses: []
 smalltalk.ConsoleTranscript);
 
 smalltalk.addMethod(
-"_open",
 smalltalk.method({
 selector: "open",
 category: 'actions',
@@ -49,7 +46,6 @@ referencedClasses: []
 smalltalk.ConsoleTranscript);
 
 smalltalk.addMethod(
-"_show_",
 smalltalk.method({
 selector: "show:",
 category: 'printing',
@@ -67,7 +63,6 @@ smalltalk.ConsoleTranscript);
 
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 category: 'initialization',
@@ -89,7 +84,6 @@ smalltalk.addClass('Transcript', smalltalk.Object, ['textarea'], 'Kernel-Transcr
 
 smalltalk.Transcript.klass.iVarNames = ['current'];
 smalltalk.addMethod(
-"_clear",
 smalltalk.method({
 selector: "clear",
 category: 'printing',
@@ -106,7 +100,6 @@ referencedClasses: []
 smalltalk.Transcript.klass);
 
 smalltalk.addMethod(
-"_cr",
 smalltalk.method({
 selector: "cr",
 category: 'printing',
@@ -124,7 +117,6 @@ referencedClasses: ["String"]
 smalltalk.Transcript.klass);
 
 smalltalk.addMethod(
-"_current",
 smalltalk.method({
 selector: "current",
 category: 'instance creation',
@@ -143,7 +135,6 @@ referencedClasses: []
 smalltalk.Transcript.klass);
 
 smalltalk.addMethod(
-"_new",
 smalltalk.method({
 selector: "new",
 category: 'instance creation',
@@ -160,7 +151,6 @@ referencedClasses: []
 smalltalk.Transcript.klass);
 
 smalltalk.addMethod(
-"_open",
 smalltalk.method({
 selector: "open",
 category: 'instance creation',
@@ -177,7 +167,6 @@ referencedClasses: []
 smalltalk.Transcript.klass);
 
 smalltalk.addMethod(
-"_register_",
 smalltalk.method({
 selector: "register:",
 category: 'instance creation',
@@ -194,7 +183,6 @@ referencedClasses: []
 smalltalk.Transcript.klass);
 
 smalltalk.addMethod(
-"_show_",
 smalltalk.method({
 selector: "show:",
 category: 'printing',

js/SUnit-Tests.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('SUnit-Tests');
 smalltalk.addClass('ExampleSetTest', smalltalk.TestCase, ['empty', 'full'], 'SUnit-Tests');
 smalltalk.addMethod(
-"_setUp",
 smalltalk.method({
 selector: "setUp",
 fn: function (){
@@ -15,7 +14,6 @@ messageSends: ["new", "with:with:"]}),
 smalltalk.ExampleSetTest);
 
 smalltalk.addMethod(
-"_testAdd",
 smalltalk.method({
 selector: "testAdd",
 fn: function (){
@@ -28,7 +26,6 @@ messageSends: ["add:", "assert:", "includes:"]}),
 smalltalk.ExampleSetTest);
 
 smalltalk.addMethod(
-"_testGrow",
 smalltalk.method({
 selector: "testGrow",
 fn: function (){
@@ -41,7 +38,6 @@ messageSends: ["addAll:", "to:", "assert:equals:", "size"]}),
 smalltalk.ExampleSetTest);
 
 smalltalk.addMethod(
-"_testIllegal",
 smalltalk.method({
 selector: "testIllegal",
 fn: function (){
@@ -61,7 +57,6 @@ messageSends: ["should:raise:", "at:", "at:put:"]}),
 smalltalk.ExampleSetTest);
 
 smalltalk.addMethod(
-"_testIncludes",
 smalltalk.method({
 selector: "testIncludes",
 fn: function (){
@@ -74,7 +69,6 @@ messageSends: ["assert:", "includes:"]}),
 smalltalk.ExampleSetTest);
 
 smalltalk.addMethod(
-"_testOccurrences",
 smalltalk.method({
 selector: "testOccurrences",
 fn: function (){
@@ -89,7 +83,6 @@ messageSends: ["assert:equals:", "occurrencesOf:", "add:"]}),
 smalltalk.ExampleSetTest);
 
 smalltalk.addMethod(
-"_testRemove",
 smalltalk.method({
 selector: "testRemove",
 fn: function (){
@@ -106,7 +99,6 @@ smalltalk.ExampleSetTest);
 
 smalltalk.addClass('SUnitAsyncTest', smalltalk.TestCase, ['flag'], 'SUnit-Tests');
 smalltalk.addMethod(
-"_fakeError",
 smalltalk.method({
 selector: "fakeError",
 fn: function (){
@@ -125,7 +117,6 @@ messageSends: ["timeout:", "valueWithTimeout:", "async:", "error:"]}),
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_fakeErrorFailingInTearDown",
 smalltalk.method({
 selector: "fakeErrorFailingInTearDown",
 fn: function (){
@@ -142,7 +133,6 @@ messageSends: ["timeout:", "valueWithTimeout:", "async:", "error:"]}),
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_fakeFailure",
 smalltalk.method({
 selector: "fakeFailure",
 fn: function (){
@@ -161,7 +151,6 @@ messageSends: ["timeout:", "valueWithTimeout:", "async:", "assert:"]}),
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_fakeMultipleTimeoutFailing",
 smalltalk.method({
 selector: "fakeMultipleTimeoutFailing",
 fn: function (){
@@ -181,7 +170,6 @@ messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished"]}),
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_fakeMultipleTimeoutPassing",
 smalltalk.method({
 selector: "fakeMultipleTimeoutPassing",
 fn: function (){
@@ -201,7 +189,6 @@ messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished"]}),
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_fakeTimeout",
 smalltalk.method({
 selector: "fakeTimeout",
 fn: function (){
@@ -217,7 +204,6 @@ messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished"]}),
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_selectorSetOf_",
 smalltalk.method({
 selector: "selectorSetOf:",
 fn: function (aCollection){
@@ -234,7 +220,6 @@ messageSends: ["asSet", "collect:", "selector"]}),
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_setUp",
 smalltalk.method({
 selector: "setUp",
 fn: function (){
@@ -246,7 +231,6 @@ messageSends: []}),
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_tearDown",
 smalltalk.method({
 selector: "tearDown",
 fn: function (){
@@ -258,7 +242,6 @@ messageSends: ["assert:equals:"]}),
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testAsyncErrorsAndFailures",
 smalltalk.method({
 selector: "testAsyncErrorsAndFailures",
 fn: function (){
@@ -295,7 +278,6 @@ messageSends: ["collect:", "selector:", "class", "on:", "timeout:", "result", "a
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testAsyncNeedsTimeout",
 smalltalk.method({
 selector: "testAsyncNeedsTimeout",
 fn: function (){
@@ -321,7 +303,6 @@ messageSends: ["should:raise:", "async:", "timeout:", "shouldnt:raise:", "finish
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testFinishedNeedsTimeout",
 smalltalk.method({
 selector: "testFinishedNeedsTimeout",
 fn: function (){
@@ -342,7 +323,6 @@ messageSends: ["should:raise:", "finished", "timeout:", "shouldnt:raise:"]}),
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testIsAsyncReturnsCorrectValues",
 smalltalk.method({
 selector: "testIsAsyncReturnsCorrectValues",
 fn: function (){
@@ -358,7 +338,6 @@ messageSends: ["deny:", "isAsync", "timeout:", "assert:", "finished"]}),
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testPass",
 smalltalk.method({
 selector: "testPass",
 fn: function (){
@@ -378,7 +357,6 @@ messageSends: ["timeout:", "valueWithTimeout:", "async:", "assert:", "finished"]
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testTimeouts",
 smalltalk.method({
 selector: "testTimeouts",
 fn: function (){
@@ -416,7 +394,6 @@ messageSends: ["collect:", "selector:", "class", "on:", "timeout:", "result", "a
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testTwoAsyncPassesWithFinishedOnlyOneIsRun",
 smalltalk.method({
 selector: "testTwoAsyncPassesWithFinishedOnlyOneIsRun",
 fn: function (){

js/SUnit-Tests.js

@@ -2,7 +2,6 @@ smalltalk.addPackage('SUnit-Tests');
 smalltalk.addClass('ExampleSetTest', smalltalk.TestCase, ['empty', 'full'], 'SUnit-Tests');
 smalltalk.ExampleSetTest.comment="ExampleSetTest is taken from Pharo 1.4.\x0a\x0aTHe purpose of this class is to demonstrate a simple use case of the test framework."
 smalltalk.addMethod(
-"_setUp",
 smalltalk.method({
 selector: "setUp",
 category: 'running',
@@ -21,7 +20,6 @@ referencedClasses: ["Set"]
 smalltalk.ExampleSetTest);
 
 smalltalk.addMethod(
-"_testAdd",
 smalltalk.method({
 selector: "testAdd",
 category: 'tests',
@@ -39,7 +37,6 @@ referencedClasses: []
 smalltalk.ExampleSetTest);
 
 smalltalk.addMethod(
-"_testGrow",
 smalltalk.method({
 selector: "testGrow",
 category: 'tests',
@@ -57,7 +54,6 @@ referencedClasses: []
 smalltalk.ExampleSetTest);
 
 smalltalk.addMethod(
-"_testIllegal",
 smalltalk.method({
 selector: "testIllegal",
 category: 'tests',
@@ -82,7 +78,6 @@ referencedClasses: ["Error"]
 smalltalk.ExampleSetTest);
 
 smalltalk.addMethod(
-"_testIncludes",
 smalltalk.method({
 selector: "testIncludes",
 category: 'tests',
@@ -100,7 +95,6 @@ referencedClasses: []
 smalltalk.ExampleSetTest);
 
 smalltalk.addMethod(
-"_testOccurrences",
 smalltalk.method({
 selector: "testOccurrences",
 category: 'tests',
@@ -120,7 +114,6 @@ referencedClasses: []
 smalltalk.ExampleSetTest);
 
 smalltalk.addMethod(
-"_testRemove",
 smalltalk.method({
 selector: "testRemove",
 category: 'tests',
@@ -142,7 +135,6 @@ smalltalk.ExampleSetTest);
 
 smalltalk.addClass('SUnitAsyncTest', smalltalk.TestCase, ['flag'], 'SUnit-Tests');
 smalltalk.addMethod(
-"_fakeError",
 smalltalk.method({
 selector: "fakeError",
 category: 'helpers',
@@ -166,7 +158,6 @@ referencedClasses: []
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_fakeErrorFailingInTearDown",
 smalltalk.method({
 selector: "fakeErrorFailingInTearDown",
 category: 'helpers',
@@ -188,7 +179,6 @@ referencedClasses: []
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_fakeFailure",
 smalltalk.method({
 selector: "fakeFailure",
 category: 'helpers',
@@ -212,7 +202,6 @@ referencedClasses: []
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_fakeMultipleTimeoutFailing",
 smalltalk.method({
 selector: "fakeMultipleTimeoutFailing",
 category: 'helpers',
@@ -237,7 +226,6 @@ referencedClasses: []
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_fakeMultipleTimeoutPassing",
 smalltalk.method({
 selector: "fakeMultipleTimeoutPassing",
 category: 'helpers',
@@ -262,7 +250,6 @@ referencedClasses: []
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_fakeTimeout",
 smalltalk.method({
 selector: "fakeTimeout",
 category: 'helpers',
@@ -283,7 +270,6 @@ referencedClasses: []
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_selectorSetOf_",
 smalltalk.method({
 selector: "selectorSetOf:",
 category: 'private',
@@ -305,7 +291,6 @@ referencedClasses: []
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_setUp",
 smalltalk.method({
 selector: "setUp",
 category: 'running',
@@ -322,7 +307,6 @@ referencedClasses: []
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_tearDown",
 smalltalk.method({
 selector: "tearDown",
 category: 'running',
@@ -339,7 +323,6 @@ referencedClasses: []
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testAsyncErrorsAndFailures",
 smalltalk.method({
 selector: "testAsyncErrorsAndFailures",
 category: 'tests',
@@ -381,7 +364,6 @@ referencedClasses: ["TestSuiteRunner", "ResultAnnouncement"]
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testAsyncNeedsTimeout",
 smalltalk.method({
 selector: "testAsyncNeedsTimeout",
 category: 'tests',
@@ -412,7 +394,6 @@ referencedClasses: ["Error"]
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testFinishedNeedsTimeout",
 smalltalk.method({
 selector: "testFinishedNeedsTimeout",
 category: 'tests',
@@ -438,7 +419,6 @@ referencedClasses: ["Error"]
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testIsAsyncReturnsCorrectValues",
 smalltalk.method({
 selector: "testIsAsyncReturnsCorrectValues",
 category: 'tests',
@@ -459,7 +439,6 @@ referencedClasses: []
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testPass",
 smalltalk.method({
 selector: "testPass",
 category: 'tests',
@@ -484,7 +463,6 @@ referencedClasses: []
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testTimeouts",
 smalltalk.method({
 selector: "testTimeouts",
 category: 'tests',
@@ -527,7 +505,6 @@ referencedClasses: ["TestSuiteRunner", "Set", "ResultAnnouncement"]
 smalltalk.SUnitAsyncTest);
 
 smalltalk.addMethod(
-"_testTwoAsyncPassesWithFinishedOnlyOneIsRun",
 smalltalk.method({
 selector: "testTwoAsyncPassesWithFinishedOnlyOneIsRun",
 category: 'tests',

js/SUnit.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('SUnit');
 smalltalk.addClass('ResultAnnouncement', smalltalk.Object, ['result'], 'SUnit');
 smalltalk.addMethod(
-"_result",
 smalltalk.method({
 selector: "result",
 fn: function (){
@@ -15,7 +14,6 @@ messageSends: []}),
 smalltalk.ResultAnnouncement);
 
 smalltalk.addMethod(
-"_result_",
 smalltalk.method({
 selector: "result:",
 fn: function (aTestResult){
@@ -30,7 +28,6 @@ smalltalk.ResultAnnouncement);
 
 smalltalk.addClass('TestCase', smalltalk.Object, ['testSelector', 'asyncTimeout', 'context'], 'SUnit');
 smalltalk.addMethod(
-"_assert_",
 smalltalk.method({
 selector: "assert:",
 fn: function (aBoolean){
@@ -42,7 +39,6 @@ messageSends: ["assert:description:"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_assert_description_",
 smalltalk.method({
 selector: "assert:description:",
 fn: function (aBoolean,aString){
@@ -58,7 +54,6 @@ messageSends: ["ifFalse:", "signalFailure:"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_assert_equals_",
 smalltalk.method({
 selector: "assert:equals:",
 fn: function (actual,expected){
@@ -72,7 +67,6 @@ messageSends: ["assert:description:", "=", ",", "asString"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_async_",
 smalltalk.method({
 selector: "async:",
 fn: function (aBlock){
@@ -95,7 +89,6 @@ messageSends: ["errorIfNotAsync:", "ifTrue:", "execute:", "isAsync"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_context_",
 smalltalk.method({
 selector: "context:",
 fn: function (aRunningTestContext){
@@ -107,7 +100,6 @@ messageSends: []}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_deny_",
 smalltalk.method({
 selector: "deny:",
 fn: function (aBoolean){
@@ -119,7 +111,6 @@ messageSends: ["assert:", "not"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_errorIfNotAsync_",
 smalltalk.method({
 selector: "errorIfNotAsync:",
 fn: function (aString){
@@ -135,7 +126,6 @@ messageSends: ["ifFalse:", "error:", ",", "isAsync"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_finished",
 smalltalk.method({
 selector: "finished",
 fn: function (){
@@ -148,7 +138,6 @@ messageSends: ["errorIfNotAsync:"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_isAsync",
 smalltalk.method({
 selector: "isAsync",
 fn: function (){
@@ -162,7 +151,6 @@ messageSends: ["notNil"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_performTest",
 smalltalk.method({
 selector: "performTest",
 fn: function (){
@@ -175,7 +163,6 @@ messageSends: ["perform:", "selector"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_runCase",
 smalltalk.method({
 selector: "runCase",
 fn: function (){
@@ -188,7 +175,6 @@ messageSends: ["start", "testCase:"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_selector",
 smalltalk.method({
 selector: "selector",
 fn: function (){
@@ -202,7 +188,6 @@ messageSends: []}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_setTestSelector_",
 smalltalk.method({
 selector: "setTestSelector:",
 fn: function (aSelector){
@@ -214,7 +199,6 @@ messageSends: []}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_setUp",
 smalltalk.method({
 selector: "setUp",
 fn: function (){
@@ -225,7 +209,6 @@ messageSends: []}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_should_",
 smalltalk.method({
 selector: "should:",
 fn: function (aBlock){
@@ -237,7 +220,6 @@ messageSends: ["assert:", "value"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_should_raise_",
 smalltalk.method({
 selector: "should:raise:",
 fn: function (aBlock,anExceptionClass){
@@ -256,7 +238,6 @@ messageSends: ["assert:", "on:do:", "value"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_shouldnt_raise_",
 smalltalk.method({
 selector: "shouldnt:raise:",
 fn: function (aBlock,anExceptionClass){
@@ -275,7 +256,6 @@ messageSends: ["assert:", "on:do:", "value"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_signalFailure_",
 smalltalk.method({
 selector: "signalFailure:",
 fn: function (aString){
@@ -291,7 +271,6 @@ messageSends: ["messageText:", "new", "signal"]}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_tearDown",
 smalltalk.method({
 selector: "tearDown",
 fn: function (){
@@ -302,7 +281,6 @@ messageSends: []}),
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_timeout_",
 smalltalk.method({
 selector: "timeout:",
 fn: function (aNumber){
@@ -326,7 +304,6 @@ smalltalk.TestCase);
 
 
 smalltalk.addMethod(
-"_allTestSelectors",
 smalltalk.method({
 selector: "allTestSelectors",
 fn: function (){
@@ -346,7 +323,6 @@ messageSends: ["testSelectors", "ifTrue:", "addAll:", "allTestSelectors", "super
 smalltalk.TestCase.klass);
 
 smalltalk.addMethod(
-"_buildSuite",
 smalltalk.method({
 selector: "buildSuite",
 fn: function (){
@@ -363,7 +339,6 @@ messageSends: ["collect:", "selector:", "allTestSelectors"]}),
 smalltalk.TestCase.klass);
 
 smalltalk.addMethod(
-"_isAbstract",
 smalltalk.method({
 selector: "isAbstract",
 fn: function (){
@@ -377,7 +352,6 @@ messageSends: ["=", "name"]}),
 smalltalk.TestCase.klass);
 
 smalltalk.addMethod(
-"_lookupHierarchyRoot",
 smalltalk.method({
 selector: "lookupHierarchyRoot",
 fn: function (){
@@ -392,7 +366,6 @@ messageSends: []}),
 smalltalk.TestCase.klass);
 
 smalltalk.addMethod(
-"_selector_",
 smalltalk.method({
 selector: "selector:",
 fn: function (aSelector){
@@ -409,7 +382,6 @@ messageSends: ["setTestSelector:", "new", "yourself"]}),
 smalltalk.TestCase.klass);
 
 smalltalk.addMethod(
-"_shouldInheritSelectors",
 smalltalk.method({
 selector: "shouldInheritSelectors",
 fn: function (){
@@ -423,7 +395,6 @@ messageSends: ["~=", "lookupHierarchyRoot"]}),
 smalltalk.TestCase.klass);
 
 smalltalk.addMethod(
-"_testSelectors",
 smalltalk.method({
 selector: "testSelectors",
 fn: function (){
@@ -442,7 +413,6 @@ smalltalk.TestCase.klass);
 
 smalltalk.addClass('TestContext', smalltalk.Object, ['testCase'], 'SUnit');
 smalltalk.addMethod(
-"_execute_",
 smalltalk.method({
 selector: "execute:",
 fn: function (aBlock){
@@ -478,7 +448,6 @@ messageSends: ["context:", "ensure:", "ifTrue:", "finished", "and:", "isAsync",
 smalltalk.TestContext);
 
 smalltalk.addMethod(
-"_start",
 smalltalk.method({
 selector: "start",
 fn: function (){
@@ -494,7 +463,6 @@ messageSends: ["execute:", "setUp", "performTest"]}),
 smalltalk.TestContext);
 
 smalltalk.addMethod(
-"_testCase_",
 smalltalk.method({
 selector: "testCase:",
 fn: function (aTestCase){
@@ -507,7 +475,6 @@ smalltalk.TestContext);
 
 
 smalltalk.addMethod(
-"_testCase_",
 smalltalk.method({
 selector: "testCase:",
 fn: function (aTestCase){
@@ -526,7 +493,6 @@ smalltalk.TestContext.klass);
 
 smalltalk.addClass('ReportingTestContext', smalltalk.TestContext, ['finished', 'result'], 'SUnit');
 smalltalk.addMethod(
-"_execute_",
 smalltalk.method({
 selector: "execute:",
 fn: function (aBlock){
@@ -552,7 +518,6 @@ messageSends: ["ensure:", "ifFalse:", "increaseRuns", "value", "isAsync", "withE
 smalltalk.ReportingTestContext);
 
 smalltalk.addMethod(
-"_finished_",
 smalltalk.method({
 selector: "finished:",
 fn: function (aBlock){
@@ -564,7 +529,6 @@ messageSends: []}),
 smalltalk.ReportingTestContext);
 
 smalltalk.addMethod(
-"_result_",
 smalltalk.method({
 selector: "result:",
 fn: function (aTestResult){
@@ -576,7 +540,6 @@ messageSends: []}),
 smalltalk.ReportingTestContext);
 
 smalltalk.addMethod(
-"_withErrorReporting_",
 smalltalk.method({
 selector: "withErrorReporting:",
 fn: function (aBlock){
@@ -600,7 +563,6 @@ smalltalk.ReportingTestContext);
 
 
 smalltalk.addMethod(
-"_testCase_result_finished_",
 smalltalk.method({
 selector: "testCase:result:finished:",
 fn: function (aTestCase,aTestResult,aBlock){
@@ -623,7 +585,6 @@ smalltalk.addClass('TestFailure', smalltalk.Error, [], 'SUnit');
 
 smalltalk.addClass('TestResult', smalltalk.Object, ['timestamp', 'runs', 'errors', 'failures', 'total'], 'SUnit');
 smalltalk.addMethod(
-"_addError_",
 smalltalk.method({
 selector: "addError:",
 fn: function (anError){
@@ -635,7 +596,6 @@ messageSends: ["add:", "errors"]}),
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_addFailure_",
 smalltalk.method({
 selector: "addFailure:",
 fn: function (aFailure){
@@ -647,7 +607,6 @@ messageSends: ["add:", "failures"]}),
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_errors",
 smalltalk.method({
 selector: "errors",
 fn: function (){
@@ -661,7 +620,6 @@ messageSends: []}),
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_failures",
 smalltalk.method({
 selector: "failures",
 fn: function (){
@@ -675,7 +633,6 @@ messageSends: []}),
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_increaseRuns",
 smalltalk.method({
 selector: "increaseRuns",
 fn: function (){
@@ -687,7 +644,6 @@ messageSends: ["+"]}),
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 fn: function (){
@@ -706,7 +662,6 @@ messageSends: ["initialize", "now", "new"]}),
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_nextRunDo_",
 smalltalk.method({
 selector: "nextRunDo:",
 fn: function (aBlock){
@@ -723,7 +678,6 @@ messageSends: ["ifFalse:", "value:", "+", "runs", "==", "total"]}),
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_runCase_",
 smalltalk.method({
 selector: "runCase:",
 fn: function (aTestCase){
@@ -750,7 +704,6 @@ messageSends: ["on:do:", "addError:", "addFailure:", "increaseRuns", "runCase"]}
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_runs",
 smalltalk.method({
 selector: "runs",
 fn: function (){
@@ -764,7 +717,6 @@ messageSends: []}),
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_status",
 smalltalk.method({
 selector: "status",
 fn: function (){
@@ -788,7 +740,6 @@ messageSends: ["ifTrue:ifFalse:", "isEmpty", "failures", "errors"]}),
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_timestamp",
 smalltalk.method({
 selector: "timestamp",
 fn: function (){
@@ -802,7 +753,6 @@ messageSends: []}),
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_total",
 smalltalk.method({
 selector: "total",
 fn: function (){
@@ -816,7 +766,6 @@ messageSends: []}),
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_total_",
 smalltalk.method({
 selector: "total:",
 fn: function (aNumber){
@@ -831,7 +780,6 @@ smalltalk.TestResult);
 
 smalltalk.addClass('TestSuiteRunner', smalltalk.Object, ['suite', 'result', 'announcer', 'runNextTest'], 'SUnit');
 smalltalk.addMethod(
-"_announcer",
 smalltalk.method({
 selector: "announcer",
 fn: function (){
@@ -845,7 +793,6 @@ messageSends: []}),
 smalltalk.TestSuiteRunner);
 
 smalltalk.addMethod(
-"_contextOf_",
 smalltalk.method({
 selector: "contextOf:",
 fn: function (anInteger){
@@ -863,7 +810,6 @@ messageSends: ["testCase:result:finished:", "at:", "resume"]}),
 smalltalk.TestSuiteRunner);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 fn: function (){
@@ -890,7 +836,6 @@ messageSends: ["initialize", "new", "runs", "ifTrue:", "start", "contextOf:", "+
 smalltalk.TestSuiteRunner);
 
 smalltalk.addMethod(
-"_result",
 smalltalk.method({
 selector: "result",
 fn: function (){
@@ -904,7 +849,6 @@ messageSends: []}),
 smalltalk.TestSuiteRunner);
 
 smalltalk.addMethod(
-"_resume",
 smalltalk.method({
 selector: "resume",
 fn: function (){
@@ -918,7 +862,6 @@ messageSends: ["fork", "announce:", "result:", "new"]}),
 smalltalk.TestSuiteRunner);
 
 smalltalk.addMethod(
-"_run",
 smalltalk.method({
 selector: "run",
 fn: function (){
@@ -931,7 +874,6 @@ messageSends: ["total:", "size", "resume"]}),
 smalltalk.TestSuiteRunner);
 
 smalltalk.addMethod(
-"_suite_",
 smalltalk.method({
 selector: "suite:",
 fn: function (aCollection){
@@ -944,7 +886,6 @@ smalltalk.TestSuiteRunner);
 
 
 smalltalk.addMethod(
-"_new",
 smalltalk.method({
 selector: "new",
 fn: function (){
@@ -956,7 +897,6 @@ messageSends: ["shouldNotImplement"]}),
 smalltalk.TestSuiteRunner.klass);
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 fn: function (aCollection){

js/SUnit.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('SUnit');
 smalltalk.addClass('ResultAnnouncement', smalltalk.Object, ['result'], 'SUnit');
 smalltalk.addMethod(
-"_result",
 smalltalk.method({
 selector: "result",
 category: 'accessing',
@@ -20,7 +19,6 @@ referencedClasses: []
 smalltalk.ResultAnnouncement);
 
 smalltalk.addMethod(
-"_result_",
 smalltalk.method({
 selector: "result:",
 category: 'accessing',
@@ -41,7 +39,6 @@ smalltalk.ResultAnnouncement);
 smalltalk.addClass('TestCase', smalltalk.Object, ['testSelector', 'asyncTimeout', 'context'], 'SUnit');
 smalltalk.TestCase.comment="A TestCase is an implementation of the command pattern to run a test.\x0a\x0a`TestCase` instances are created with the class method `#selector:`,\x0apassing the symbol that names the method to be executed when the test case runs.\x0a\x0aWhen you discover a new fixture, subclass `TestCase` and create a `#test...` method for the first test.\x0aAs that method develops and more `#test...` methods are added, you will find yourself refactoring temps\x0ainto instance variables for the objects in the fixture and overriding `#setUp` to initialize these variables.\x0aAs required, override `#tearDown` to nil references, release objects and deallocate."
 smalltalk.addMethod(
-"_assert_",
 smalltalk.method({
 selector: "assert:",
 category: 'testing',
@@ -58,7 +55,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_assert_description_",
 smalltalk.method({
 selector: "assert:description:",
 category: 'testing',
@@ -79,7 +75,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_assert_equals_",
 smalltalk.method({
 selector: "assert:equals:",
 category: 'testing',
@@ -98,7 +93,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_async_",
 smalltalk.method({
 selector: "async:",
 category: 'async',
@@ -126,7 +120,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_context_",
 smalltalk.method({
 selector: "context:",
 category: 'accessing',
@@ -143,7 +136,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_deny_",
 smalltalk.method({
 selector: "deny:",
 category: 'testing',
@@ -160,7 +152,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_errorIfNotAsync_",
 smalltalk.method({
 selector: "errorIfNotAsync:",
 category: 'error handling',
@@ -181,7 +172,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_finished",
 smalltalk.method({
 selector: "finished",
 category: 'async',
@@ -199,7 +189,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_isAsync",
 smalltalk.method({
 selector: "isAsync",
 category: 'testing',
@@ -218,7 +207,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_performTest",
 smalltalk.method({
 selector: "performTest",
 category: 'running',
@@ -236,7 +224,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_runCase",
 smalltalk.method({
 selector: "runCase",
 category: 'running',
@@ -254,7 +241,6 @@ referencedClasses: ["TestContext"]
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_selector",
 smalltalk.method({
 selector: "selector",
 category: 'accessing',
@@ -273,7 +259,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_setTestSelector_",
 smalltalk.method({
 selector: "setTestSelector:",
 category: 'accessing',
@@ -290,7 +275,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_setUp",
 smalltalk.method({
 selector: "setUp",
 category: 'running',
@@ -306,7 +290,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_should_",
 smalltalk.method({
 selector: "should:",
 category: 'testing',
@@ -323,7 +306,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_should_raise_",
 smalltalk.method({
 selector: "should:raise:",
 category: 'testing',
@@ -347,7 +329,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_shouldnt_raise_",
 smalltalk.method({
 selector: "shouldnt:raise:",
 category: 'testing',
@@ -371,7 +352,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_signalFailure_",
 smalltalk.method({
 selector: "signalFailure:",
 category: 'private',
@@ -392,7 +372,6 @@ referencedClasses: ["TestFailure"]
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_tearDown",
 smalltalk.method({
 selector: "tearDown",
 category: 'running',
@@ -408,7 +387,6 @@ referencedClasses: []
 smalltalk.TestCase);
 
 smalltalk.addMethod(
-"_timeout_",
 smalltalk.method({
 selector: "timeout:",
 category: 'async',
@@ -437,7 +415,6 @@ smalltalk.TestCase);
 
 
 smalltalk.addMethod(
-"_allTestSelectors",
 smalltalk.method({
 selector: "allTestSelectors",
 category: 'accessing',
@@ -462,7 +439,6 @@ referencedClasses: []
 smalltalk.TestCase.klass);
 
 smalltalk.addMethod(
-"_buildSuite",
 smalltalk.method({
 selector: "buildSuite",
 category: 'accessing',
@@ -484,7 +460,6 @@ referencedClasses: []
 smalltalk.TestCase.klass);
 
 smalltalk.addMethod(
-"_isAbstract",
 smalltalk.method({
 selector: "isAbstract",
 category: 'testing',
@@ -503,7 +478,6 @@ referencedClasses: []
 smalltalk.TestCase.klass);
 
 smalltalk.addMethod(
-"_lookupHierarchyRoot",
 smalltalk.method({
 selector: "lookupHierarchyRoot",
 category: 'accessing',
@@ -523,7 +497,6 @@ referencedClasses: ["TestCase"]
 smalltalk.TestCase.klass);
 
 smalltalk.addMethod(
-"_selector_",
 smalltalk.method({
 selector: "selector:",
 category: 'accessing',
@@ -545,7 +518,6 @@ referencedClasses: []
 smalltalk.TestCase.klass);
 
 smalltalk.addMethod(
-"_shouldInheritSelectors",
 smalltalk.method({
 selector: "shouldInheritSelectors",
 category: 'testing',
@@ -564,7 +536,6 @@ referencedClasses: []
 smalltalk.TestCase.klass);
 
 smalltalk.addMethod(
-"_testSelectors",
 smalltalk.method({
 selector: "testSelectors",
 category: 'accessing',
@@ -589,7 +560,6 @@ smalltalk.TestCase.klass);
 smalltalk.addClass('TestContext', smalltalk.Object, ['testCase'], 'SUnit');
 smalltalk.TestContext.comment="TestContext governs running a particular test case.\x0a\x0aIt's main added value is `#execute:` method which runs a block\x0aas a part of test case (restores context, nilling it afterwards,\x0acleaning/calling tearDown as appropriate for sync/async scenario)."
 smalltalk.addMethod(
-"_execute_",
 smalltalk.method({
 selector: "execute:",
 category: 'running',
@@ -630,7 +600,6 @@ referencedClasses: []
 smalltalk.TestContext);
 
 smalltalk.addMethod(
-"_start",
 smalltalk.method({
 selector: "start",
 category: 'running',
@@ -651,7 +620,6 @@ referencedClasses: []
 smalltalk.TestContext);
 
 smalltalk.addMethod(
-"_testCase_",
 smalltalk.method({
 selector: "testCase:",
 category: 'accessing',
@@ -669,7 +637,6 @@ smalltalk.TestContext);
 
 
 smalltalk.addMethod(
-"_testCase_",
 smalltalk.method({
 selector: "testCase:",
 category: 'instance creation',
@@ -694,7 +661,6 @@ smalltalk.TestContext.klass);
 smalltalk.addClass('ReportingTestContext', smalltalk.TestContext, ['finished', 'result'], 'SUnit');
 smalltalk.ReportingTestContext.comment="ReportingTestContext adds `TestResult` reporting\x0ato `TestContext`.\x0a\x0aErrors are caught and save into a `TestResult`,\x0aWhen test case is finished (which can be later for async tests),\x0aa callback block is executed; this is used by a `TestSuiteRunner`."
 smalltalk.addMethod(
-"_execute_",
 smalltalk.method({
 selector: "execute:",
 category: 'running',
@@ -725,7 +691,6 @@ referencedClasses: []
 smalltalk.ReportingTestContext);
 
 smalltalk.addMethod(
-"_finished_",
 smalltalk.method({
 selector: "finished:",
 category: 'accessing',
@@ -742,7 +707,6 @@ referencedClasses: []
 smalltalk.ReportingTestContext);
 
 smalltalk.addMethod(
-"_result_",
 smalltalk.method({
 selector: "result:",
 category: 'accessing',
@@ -759,7 +723,6 @@ referencedClasses: []
 smalltalk.ReportingTestContext);
 
 smalltalk.addMethod(
-"_withErrorReporting_",
 smalltalk.method({
 selector: "withErrorReporting:",
 category: 'private',
@@ -788,7 +751,6 @@ smalltalk.ReportingTestContext);
 
 
 smalltalk.addMethod(
-"_testCase_result_finished_",
 smalltalk.method({
 selector: "testCase:result:finished:",
 category: 'instance creation',
@@ -818,7 +780,6 @@ smalltalk.TestFailure.comment="The test framework distinguishes between failures
 smalltalk.addClass('TestResult', smalltalk.Object, ['timestamp', 'runs', 'errors', 'failures', 'total'], 'SUnit');
 smalltalk.TestResult.comment="A TestResult implements the collecting parameter pattern for running a bunch of tests.\x0a\x0aA TestResult holds tests that have run, sorted into the result categories of passed, failures and errors.\x0a\x0aTestResult is an interesting object to subclass or substitute. `#runCase:` is the external protocol you need to reproduce"
 smalltalk.addMethod(
-"_addError_",
 smalltalk.method({
 selector: "addError:",
 category: 'accessing',
@@ -835,7 +796,6 @@ referencedClasses: []
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_addFailure_",
 smalltalk.method({
 selector: "addFailure:",
 category: 'accessing',
@@ -852,7 +812,6 @@ referencedClasses: []
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_errors",
 smalltalk.method({
 selector: "errors",
 category: 'accessing',
@@ -871,7 +830,6 @@ referencedClasses: []
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_failures",
 smalltalk.method({
 selector: "failures",
 category: 'accessing',
@@ -890,7 +848,6 @@ referencedClasses: []
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_increaseRuns",
 smalltalk.method({
 selector: "increaseRuns",
 category: 'accessing',
@@ -907,7 +864,6 @@ referencedClasses: []
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 category: 'initialization',
@@ -931,7 +887,6 @@ referencedClasses: ["Date", "Array"]
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_nextRunDo_",
 smalltalk.method({
 selector: "nextRunDo:",
 category: 'running',
@@ -953,7 +908,6 @@ referencedClasses: []
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_runCase_",
 smalltalk.method({
 selector: "runCase:",
 category: 'running',
@@ -985,7 +939,6 @@ referencedClasses: ["Error", "TestFailure"]
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_runs",
 smalltalk.method({
 selector: "runs",
 category: 'accessing',
@@ -1004,7 +957,6 @@ referencedClasses: []
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_status",
 smalltalk.method({
 selector: "status",
 category: 'accessing',
@@ -1033,7 +985,6 @@ referencedClasses: []
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_timestamp",
 smalltalk.method({
 selector: "timestamp",
 category: 'accessing',
@@ -1052,7 +1003,6 @@ referencedClasses: []
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_total",
 smalltalk.method({
 selector: "total",
 category: 'accessing',
@@ -1071,7 +1021,6 @@ referencedClasses: []
 smalltalk.TestResult);
 
 smalltalk.addMethod(
-"_total_",
 smalltalk.method({
 selector: "total:",
 category: 'accessing',
@@ -1091,7 +1040,6 @@ smalltalk.TestResult);
 
 smalltalk.addClass('TestSuiteRunner', smalltalk.Object, ['suite', 'result', 'announcer', 'runNextTest'], 'SUnit');
 smalltalk.addMethod(
-"_announcer",
 smalltalk.method({
 selector: "announcer",
 category: 'accessing',
@@ -1110,7 +1058,6 @@ referencedClasses: []
 smalltalk.TestSuiteRunner);
 
 smalltalk.addMethod(
-"_contextOf_",
 smalltalk.method({
 selector: "contextOf:",
 category: 'private',
@@ -1133,7 +1080,6 @@ referencedClasses: ["ReportingTestContext"]
 smalltalk.TestSuiteRunner);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 category: 'initialization',
@@ -1165,7 +1111,6 @@ referencedClasses: ["Announcer", "TestResult"]
 smalltalk.TestSuiteRunner);
 
 smalltalk.addMethod(
-"_result",
 smalltalk.method({
 selector: "result",
 category: 'accessing',
@@ -1184,7 +1129,6 @@ referencedClasses: []
 smalltalk.TestSuiteRunner);
 
 smalltalk.addMethod(
-"_resume",
 smalltalk.method({
 selector: "resume",
 category: 'actions',
@@ -1203,7 +1147,6 @@ referencedClasses: ["ResultAnnouncement"]
 smalltalk.TestSuiteRunner);
 
 smalltalk.addMethod(
-"_run",
 smalltalk.method({
 selector: "run",
 category: 'actions',
@@ -1221,7 +1164,6 @@ referencedClasses: []
 smalltalk.TestSuiteRunner);
 
 smalltalk.addMethod(
-"_suite_",
 smalltalk.method({
 selector: "suite:",
 category: 'accessing',
@@ -1239,7 +1181,6 @@ smalltalk.TestSuiteRunner);
 
 
 smalltalk.addMethod(
-"_new",
 smalltalk.method({
 selector: "new",
 category: 'instance creation',
@@ -1256,7 +1197,6 @@ referencedClasses: []
 smalltalk.TestSuiteRunner.klass);
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 category: 'instance creation',

js/Spaces.deploy.js

@@ -1,7 +1,6 @@
 smalltalk.addPackage('Spaces');
 smalltalk.addClass('ObjectSpace', smalltalk.Object, ['frame'], 'Spaces');
 smalltalk.addMethod(
-"_connectTo_",
 smalltalk.method({
 selector: "connectTo:",
 fn: function (aFrame){
@@ -14,7 +13,6 @@ messageSends: ["release"]}),
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_create",
 smalltalk.method({
 selector: "create",
 fn: function (){
@@ -28,7 +26,6 @@ messageSends: ["append:", "jQuery:", "last", "get", "location:", "location", "co
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_destroy",
 smalltalk.method({
 selector: "destroy",
 fn: function (){
@@ -49,7 +46,6 @@ messageSends: ["ifNil:", "remove", "jQuery:", "release"]}),
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_do_",
 smalltalk.method({
 selector: "do:",
 fn: function (aBlock){
@@ -69,7 +65,6 @@ messageSends: ["ifFalse:", "signal", "isConnected", "eval:", ",", "compiledSourc
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_frame",
 smalltalk.method({
 selector: "frame",
 fn: function (){
@@ -83,7 +78,6 @@ messageSends: []}),
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 fn: function (){
@@ -96,7 +90,6 @@ messageSends: ["initialize", "create"]}),
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_isConnected",
 smalltalk.method({
 selector: "isConnected",
 fn: function (){
@@ -110,7 +103,6 @@ messageSends: ["notNil", "frame"]}),
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_release",
 smalltalk.method({
 selector: "release",
 fn: function (){
@@ -122,7 +114,6 @@ messageSends: []}),
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_whenReadyDo_",
 smalltalk.method({
 selector: "whenReadyDo:",
 fn: function (aBlock){
@@ -135,7 +126,6 @@ smalltalk.ObjectSpace);
 
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 fn: function (aFrame){
@@ -154,7 +144,6 @@ smalltalk.ObjectSpace.klass);
 
 smalltalk.addClass('ObjectSpaceConnectionError', smalltalk.Error, [], 'Spaces');
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 fn: function (){
@@ -169,7 +158,6 @@ smalltalk.ObjectSpaceConnectionError);
 
 smalltalk.addClass('ObjectSpaceTest', smalltalk.TestCase, ['space'], 'Spaces');
 smalltalk.addMethod(
-"_setUp",
 smalltalk.method({
 selector: "setUp",
 fn: function (){
@@ -182,7 +170,6 @@ messageSends: ["new"]}),
 smalltalk.ObjectSpaceTest);
 
 smalltalk.addMethod(
-"_tearDown",
 smalltalk.method({
 selector: "tearDown",
 fn: function (){
@@ -194,7 +181,6 @@ messageSends: ["destroy"]}),
 smalltalk.ObjectSpaceTest);
 
 smalltalk.addMethod(
-"_testConnection",
 smalltalk.method({
 selector: "testConnection",
 fn: function (){
@@ -214,7 +200,6 @@ messageSends: ["destroy", "deny:", "isConnected", "should:raise:", "do:"]}),
 smalltalk.ObjectSpaceTest);
 
 smalltalk.addMethod(
-"_testCreate",
 smalltalk.method({
 selector: "testCreate",
 fn: function (){
@@ -227,7 +212,6 @@ messageSends: ["assert:", "notNil", "frame", "isConnected"]}),
 smalltalk.ObjectSpaceTest);
 
 smalltalk.addMethod(
-"_testEvaluation",
 smalltalk.method({
 selector: "testEvaluation",
 fn: function (){
@@ -251,7 +235,6 @@ messageSends: ["whenReadyDo:", "do:", "assert:equals:", "name", "class", "deny:"
 smalltalk.ObjectSpaceTest);
 
 smalltalk.addMethod(
-"_testRelease",
 smalltalk.method({
 selector: "testRelease",
 fn: function (){

js/Spaces.js

@@ -2,7 +2,6 @@ smalltalk.addPackage('Spaces');
 smalltalk.addClass('ObjectSpace', smalltalk.Object, ['frame'], 'Spaces');
 smalltalk.ObjectSpace.comment="I am a connection to another Smalltalk environment.\x0aThe implementation creates an iframe on the same location as the window, and connect to the Amber environment.\x0a\x0a\x0a\x0a## Usage example:\x0a\x0a\x09| space |\x0a\x09\x0a\x09space := ObjectSpace new.\x0a\x09space do: [ smalltalk ] \x22Answers aSmalltalk\x22\x0a\x09(space do: [ smalltalk ]) == smalltalk \x22Answers false\x22\x0a\x09\x0a\x09space release \x22Remove the object space environment\x22"
 smalltalk.addMethod(
-"_connectTo_",
 smalltalk.method({
 selector: "connectTo:",
 category: 'initialization',
@@ -20,7 +19,6 @@ referencedClasses: []
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_create",
 smalltalk.method({
 selector: "create",
 category: 'initialization',
@@ -39,7 +37,6 @@ referencedClasses: []
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_destroy",
 smalltalk.method({
 selector: "destroy",
 category: 'releasing',
@@ -65,7 +62,6 @@ referencedClasses: []
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_do_",
 smalltalk.method({
 selector: "do:",
 category: 'evaluating',
@@ -90,7 +86,6 @@ referencedClasses: ["ObjectSpaceConnectionError"]
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_frame",
 smalltalk.method({
 selector: "frame",
 category: 'accessing',
@@ -109,7 +104,6 @@ referencedClasses: []
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_initialize",
 smalltalk.method({
 selector: "initialize",
 category: 'initialization',
@@ -127,7 +121,6 @@ referencedClasses: []
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_isConnected",
 smalltalk.method({
 selector: "isConnected",
 category: 'initialization',
@@ -146,7 +139,6 @@ referencedClasses: []
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_release",
 smalltalk.method({
 selector: "release",
 category: 'releasing',
@@ -163,7 +155,6 @@ referencedClasses: []
 smalltalk.ObjectSpace);
 
 smalltalk.addMethod(
-"_whenReadyDo_",
 smalltalk.method({
 selector: "whenReadyDo:",
 category: 'events',
@@ -181,7 +172,6 @@ smalltalk.ObjectSpace);
 
 
 smalltalk.addMethod(
-"_on_",
 smalltalk.method({
 selector: "on:",
 category: 'instance creation',
@@ -205,7 +195,6 @@ smalltalk.ObjectSpace.klass);
 
 smalltalk.addClass('ObjectSpaceConnectionError', smalltalk.Error, [], 'Spaces');
 smalltalk.addMethod(
-"_messageText",
 smalltalk.method({
 selector: "messageText",
 category: 'accessing',
@@ -225,7 +214,6 @@ smalltalk.ObjectSpaceConnectionError);
 
 smalltalk.addClass('ObjectSpaceTest', smalltalk.TestCase, ['space'], 'Spaces');
 smalltalk.addMethod(
-"_setUp",
 smalltalk.method({
 selector: "setUp",
 category: 'initialization',
@@ -243,7 +231,6 @@ referencedClasses: ["ObjectSpace"]
 smalltalk.ObjectSpaceTest);
 
 smalltalk.addMethod(
-"_tearDown",
 smalltalk.method({
 selector: "tearDown",
 category: 'initialization',
@@ -260,7 +247,6 @@ referencedClasses: []
 smalltalk.ObjectSpaceTest);
 
 smalltalk.addMethod(
-"_testConnection",
 smalltalk.method({
 selector: "testConnection",
 category: 'tests',
@@ -285,7 +271,6 @@ referencedClasses: ["ObjectSpaceConnectionError"]
 smalltalk.ObjectSpaceTest);
 
 smalltalk.addMethod(
-"_testCreate",
 smalltalk.method({
 selector: "testCreate",
 category: 'tests',
@@ -303,7 +288,6 @@ referencedClasses: []
 smalltalk.ObjectSpaceTest);
 
 smalltalk.addMethod(
-"_testEvaluation",
 smalltalk.method({
 selector: "testEvaluation",
 category: 'tests',
@@ -332,7 +316,6 @@ referencedClasses: ["Smalltalk"]
 smalltalk.ObjectSpaceTest);
 
 smalltalk.addMethod(
-"_testRelease",
 smalltalk.method({
 selector: "testRelease",
 category: 'tests',

js/boot.js

@@ -472,6 +472,7 @@ function Smalltalk() {
      * Add/remove a method to/from a class 
      */
 
+    /* This is a temporary version of addMethod() for backward compatibility */
 	st.addMethod = function(method_exJsSelector, klass_exMethod, exKlass) {
         if (typeof method_exJsSelector === "string") { //legacy
             if (method_exJsSelector !== st.selector(klass_exMethod.selector)) {

st/Compiler-Core.st

@@ -225,6 +225,12 @@ Object subclass: #DoIt
 !DoIt commentStamp!
 `DoIt` is the class used to compile and evaluate expressions. See `Compiler >> evaluateExpression:`.!
 
+!DoIt methodsFor: 'xxxDoIt'!
+
+xxxDoIt ^[Smalltalk current packages do: [ :each |
+	each commit ]] value
+! !
+
 Object subclass: #NodeVisitor
 	instanceVariableNames: ''
 	package: 'Compiler-Core'!

st/Helios-Browser.st

@@ -400,7 +400,7 @@ renderListOn: html
 ! !
 
 HLBrowserListWidget subclass: #HLMethodsListWidget
-	instanceVariableNames: ''
+	instanceVariableNames: 'selectorsCache'
 	package: 'Helios-Browser'!
 
 !HLMethodsListWidget methodsFor: 'accessing'!
@@ -500,19 +500,6 @@ selectItem: aSelector
    	self model selectedMethod: (self methodForSelector: aSelector)
 ! !
 
-!HLMethodsListWidget methodsFor: 'cache'!
-
-flushSelectorsCache
-	selectorsCache := Dictionary new
-! !
-
-!HLMethodsListWidget methodsFor: 'initialization'!
-
-initialize
-	super initialize.
-    self flushSelectorsCache
-! !
-
 !HLMethodsListWidget methodsFor: 'private'!
 
 setItemsForProtocol: aString

st/Helios-Inspector.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'Helios-Inspector'!
 HLWidget subclass: #HLInspector
- instanceVariableNames: 'model variablesWidget displayWidget codeWidget label'
- package: 'Helios-Inspector'!
+	instanceVariableNames: 'model variablesWidget displayWidget codeWidget label'
+	package: 'Helios-Inspector'!
 
 !HLInspector methodsFor: 'accessing'!
 
@@ -167,8 +167,8 @@ canBeOpenAsTab
 ! !
 
 HLNavigationListWidget subclass: #HLInspectorDisplayWidget
- instanceVariableNames: 'model'
- package: 'Helios-Inspector'!
+	instanceVariableNames: 'model'
+	package: 'Helios-Inspector'!
 
 !HLInspectorDisplayWidget methodsFor: 'accessing'!
 
@@ -198,8 +198,8 @@ selectionDisplayString
 ! !
 
 Object subclass: #HLInspectorModel
- instanceVariableNames: 'announcer environment inspectee code variables selection'
- package: 'Helios-Inspector'!
+	instanceVariableNames: 'announcer environment inspectee code variables selection'
+	package: 'Helios-Inspector'!
 
 !HLInspectorModel methodsFor: 'accessing'!
 
@@ -303,8 +303,8 @@ on: anEnvironment
 ! !
 
 HLNavigationListWidget subclass: #HLInspectorVariablesWidget
- instanceVariableNames: 'announcer model list diveButton'
- package: 'Helios-Inspector'!
+	instanceVariableNames: 'announcer model list diveButton'
+	package: 'Helios-Inspector'!
 
 !HLInspectorVariablesWidget methodsFor: 'accessing'!
 

st/Helios-KeyBindings.st

@@ -282,8 +282,7 @@ evaluate: aString
 release
 	status := nil.
 	wrapper := nil.
-	binder := nil.
-	inputText := nil
+	binder := nil
 ! !
 
 !HLBindingInput methodsFor: 'rendering'!

st/Kernel-Classes.st

@@ -136,19 +136,6 @@ protocols
 	^ self organization elements sorted
 !
 
-protocolsDo: aBlock
-	"Execute aBlock for each method category with
-	its collection of methods in the sort order of category name."
-
-	| methodsByCategory |
-	methodsByCategory := HashedCollection new.
-	self methodDictionary values do: [:m |
-		(methodsByCategory at: m category ifAbsentPut: [Array new])
-			add: m].
-	self protocols do: [:category |
-		aBlock value: category value: (methodsByCategory at: category)]
-!
-
 prototype
 	<return self.fn.prototype>
 !
@@ -249,7 +236,7 @@ protocolsDo: aBlock
 	methodsByCategory := HashedCollection new.
 	self methodDictionary values do: [:m |
 		(methodsByCategory at: m category ifAbsentPut: [Array new])
- 			add: m]. 
+			add: m].
 	self protocols do: [:category |
 		aBlock value: category value: (methodsByCategory at: category)]
 ! !