Use a single char string instead of the char code as key of commands

js/Helios-Commands-Browser.deploy.js

@@ -26,9 +26,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(71);
-return $1;
+return "g";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLBrowserGoToCommand.klass)})},
 messageSends: []}),
 smalltalk.HLBrowserGoToCommand.klass);
@@ -64,9 +62,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToClassesCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToClassesCommand.klass);
@@ -102,9 +98,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(77);
-return $1;
+return "m";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToMethodsCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToMethodsCommand.klass);
@@ -140,9 +134,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(80);
-return $1;
+return "p";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToPackagesCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToPackagesCommand.klass);
@@ -178,9 +170,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(84);
-return $1;
+return "t";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToProtocolsCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToProtocolsCommand.klass);
@@ -216,9 +206,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(83);
-return $1;
+return "s";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
 messageSends: []}),
 smalltalk.HLGoToSourceCodeCommand.klass);
@@ -278,9 +266,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(75);
-return $1;
+return "k";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCommitPackageCommand.klass)})},
 messageSends: []}),
 smalltalk.HLCommitPackageCommand.klass);
@@ -291,7 +277,7 @@ selector: "label",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-return "Commit package";
+return "Commit";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCommitPackageCommand.klass)})},
 messageSends: []}),
 smalltalk.HLCommitPackageCommand.klass);
@@ -305,9 +291,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCopyCommand.klass)})},
 messageSends: []}),
 smalltalk.HLCopyCommand.klass);
@@ -391,9 +375,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCopyClassCommand.klass)})},
 messageSends: []}),
 smalltalk.HLCopyClassCommand.klass);
@@ -429,9 +411,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(70);
-return $1;
+return "f";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindCommand.klass)})},
 messageSends: []}),
 smalltalk.HLFindCommand.klass);
@@ -513,9 +493,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindClassCommand.klass)})},
 messageSends: []}),
 smalltalk.HLFindClassCommand.klass);
@@ -540,9 +518,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(77);
-return $1;
+return "m";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveToCommand.klass)})},
 messageSends: []}),
 smalltalk.HLMoveToCommand.klass);
@@ -580,9 +556,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveClassToCommand.klass)})},
 messageSends: []}),
 smalltalk.HLMoveClassToCommand.klass);
@@ -599,7 +573,7 @@ messageSends: []}),
 smalltalk.HLMoveClassToCommand.klass);
 
 
-smalltalk.addClass('HLMoveClassCommand', smalltalk.HLMoveClassToCommand, [], 'Helios-Commands-Browser');
+smalltalk.addClass('HLMoveClassToPackageCommand', smalltalk.HLMoveClassToCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
 smalltalk.method({
 selector: "displayLabel",
@@ -609,7 +583,7 @@ return smalltalk.withContext(function($ctx1) {
 return "select a package";
 }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveClassCommand)})},
 messageSends: []}),
-smalltalk.HLMoveClassCommand);
+smalltalk.HLMoveClassToPackageCommand);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -620,7 +594,7 @@ return smalltalk.withContext(function($ctx1) {
 _st(_st(self)._model())._moveClassToPackage_(_st(self)._input());
 return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveClassCommand)})},
 messageSends: ["moveClassToPackage:", "input", "model"]}),
-smalltalk.HLMoveClassCommand);
+smalltalk.HLMoveClassToPackageCommand);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -633,7 +607,7 @@ $1=_st(_st(self)._model())._availablePackageNames();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveClassCommand)})},
 messageSends: ["availablePackageNames", "model"]}),
-smalltalk.HLMoveClassCommand);
+smalltalk.HLMoveClassToPackageCommand);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -644,7 +618,7 @@ return smalltalk.withContext(function($ctx1) {
 return "Move class to package:";
 }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveClassCommand)})},
 messageSends: []}),
-smalltalk.HLMoveClassCommand);
+smalltalk.HLMoveClassToPackageCommand);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -655,7 +629,7 @@ return smalltalk.withContext(function($ctx1) {
 return true;
 }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveClassCommand)})},
 messageSends: []}),
-smalltalk.HLMoveClassCommand);
+smalltalk.HLMoveClassToPackageCommand);
 
 
 smalltalk.addMethod(
@@ -669,7 +643,7 @@ $1=_st(anObject)._isBehavior();
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLMoveClassCommand.klass)})},
 messageSends: ["isBehavior"]}),
-smalltalk.HLMoveClassCommand.klass);
+smalltalk.HLMoveClassToPackageCommand.klass);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -677,12 +651,10 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(80);
-return $1;
+return "p";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveClassCommand.klass)})},
 messageSends: []}),
-smalltalk.HLMoveClassCommand.klass);
+smalltalk.HLMoveClassToPackageCommand.klass);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -693,7 +665,7 @@ return smalltalk.withContext(function($ctx1) {
 return "to package";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveClassCommand.klass)})},
 messageSends: []}),
-smalltalk.HLMoveClassCommand.klass);
+smalltalk.HLMoveClassToPackageCommand.klass);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -704,7 +676,7 @@ return smalltalk.withContext(function($ctx1) {
 return "Move to package...";
 }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLMoveClassCommand.klass)})},
 messageSends: []}),
-smalltalk.HLMoveClassCommand.klass);
+smalltalk.HLMoveClassToPackageCommand.klass);
 
 
 smalltalk.addClass('HLMoveMethodToCommand', smalltalk.HLMoveToCommand, [], 'Helios-Commands-Browser');
@@ -728,9 +700,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(77);
-return $1;
+return "m";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToCommand.klass)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToCommand.klass);
@@ -825,9 +795,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToClassCommand.klass);
@@ -933,9 +901,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(84);
-return $1;
+return "t";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
 messageSends: []}),
 smalltalk.HLMoveMethodToProtocolCommand.klass);
@@ -971,9 +937,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(88);
-return $1;
+return "x";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveCommand.klass)})},
 messageSends: []}),
 smalltalk.HLRemoveCommand.klass);
@@ -1035,9 +999,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveClassCommand.klass)})},
 messageSends: []}),
 smalltalk.HLRemoveClassCommand.klass);
@@ -1110,9 +1072,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(77);
-return $1;
+return "m";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveMethodCommand.klass)})},
 messageSends: []}),
 smalltalk.HLRemoveMethodCommand.klass);
@@ -1148,9 +1108,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(82);
-return $1;
+return "r";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameCommand.klass)})},
 messageSends: []}),
 smalltalk.HLRenameCommand.klass);
@@ -1234,9 +1192,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "m";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameClassCommand.klass)})},
 messageSends: []}),
 smalltalk.HLRenameClassCommand.klass);
@@ -1272,9 +1228,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(84);
-return $1;
+return "t";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleCommand.klass)})},
 messageSends: []}),
 smalltalk.HLToggleCommand.klass);
@@ -1310,9 +1264,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(68);
-return $1;
+return "d";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassCommentCommand.klass)})},
 messageSends: []}),
 smalltalk.HLToggleClassCommentCommand.klass);
@@ -1348,9 +1300,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassSideCommand.klass)})},
 messageSends: []}),
 smalltalk.HLToggleClassSideCommand.klass);
@@ -1386,9 +1336,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(73);
-return $1;
+return "i";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
 messageSends: []}),
 smalltalk.HLToggleInstanceSideCommand.klass);

js/Helios-Commands-Browser.js

@@ -32,12 +32,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(71);
-return $1;
+return "g";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLBrowserGoToCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 71",
+source: "key\x0a\x09^ 'g'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -85,12 +83,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToClassesCommand.klass)})},
 args: [],
-source: "key\x0a\x09\x22c\x22\x0a    \x0a\x09^ 67",
+source: "key\x0a\x09^ 'c'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -138,12 +134,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(77);
-return $1;
+return "m";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToMethodsCommand.klass)})},
 args: [],
-source: "key\x0a\x09\x22m\x22\x0a    \x0a\x09^ 77",
+source: "key\x0a\x09^ 'm'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -191,12 +185,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(80);
-return $1;
+return "p";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToPackagesCommand.klass)})},
 args: [],
-source: "key\x0a\x09\x22p\x22\x0a    \x0a\x09^ 80",
+source: "key\x0a\x09^ 'p'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -244,12 +236,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(84);
-return $1;
+return "t";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToProtocolsCommand.klass)})},
 args: [],
-source: "key\x0a\x09\x22p\x22\x0a    \x0a\x09^ 84",
+source: "key\x0a\x09^ 't'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -297,12 +287,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(83);
-return $1;
+return "s";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
 args: [],
-source: "key\x0a\x09\x22s\x22\x0a    \x0a\x09^ 83",
+source: "key\x0a\x09^ 's'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -384,12 +372,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(75);
-return $1;
+return "k";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCommitPackageCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 75",
+source: "key\x0a\x09^ 'k'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -402,10 +388,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-return "Commit package";
+return "Commit";
 }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCommitPackageCommand.klass)})},
 args: [],
-source: "label\x0a\x09^ 'Commit package'",
+source: "label\x0a\x09^ 'Commit'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -421,12 +407,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCopyCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 67",
+source: "key\x0a\x09^ 'c'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -542,12 +526,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCopyClassCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 67",
+source: "key\x0a\x09^ 'c'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -595,12 +577,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(70);
-return $1;
+return "f";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 70",
+source: "key\x0a\x09^ 'f'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -714,12 +694,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindClassCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 67",
+source: "key\x0a\x09^ 'c'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -751,12 +729,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(77);
-return $1;
+return "m";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveToCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 77",
+source: "key\x0a\x09^ 'm'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -806,12 +782,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveClassToCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 67",
+source: "key\x0a\x09^ 'c'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -834,7 +808,7 @@ referencedClasses: []
 smalltalk.HLMoveClassToCommand.klass);
 
 
-smalltalk.addClass('HLMoveClassCommand', smalltalk.HLMoveClassToCommand, [], 'Helios-Commands-Browser');
+smalltalk.addClass('HLMoveClassToPackageCommand', smalltalk.HLMoveClassToCommand, [], 'Helios-Commands-Browser');
 smalltalk.addMethod(
 smalltalk.method({
 selector: "displayLabel",
@@ -849,7 +823,7 @@ source: "displayLabel\x0a\x09^ 'select a package'",
 messageSends: [],
 referencedClasses: []
 }),
-smalltalk.HLMoveClassCommand);
+smalltalk.HLMoveClassToPackageCommand);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -865,7 +839,7 @@ source: "execute\x0a\x09self model moveClassToPackage: self input",
 messageSends: ["moveClassToPackage:", "input", "model"],
 referencedClasses: []
 }),
-smalltalk.HLMoveClassCommand);
+smalltalk.HLMoveClassToPackageCommand);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -883,7 +857,7 @@ source: "inputCompletion\x0a\x09^ self model availablePackageNames",
 messageSends: ["availablePackageNames", "model"],
 referencedClasses: []
 }),
-smalltalk.HLMoveClassCommand);
+smalltalk.HLMoveClassToPackageCommand);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -899,7 +873,7 @@ source: "inputLabel\x0a\x09^ 'Move class to package:'",
 messageSends: [],
 referencedClasses: []
 }),
-smalltalk.HLMoveClassCommand);
+smalltalk.HLMoveClassToPackageCommand);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -915,7 +889,7 @@ source: "isInputRequired\x0a\x09^ true",
 messageSends: [],
 referencedClasses: []
 }),
-smalltalk.HLMoveClassCommand);
+smalltalk.HLMoveClassToPackageCommand);
 
 
 smalltalk.addMethod(
@@ -934,7 +908,7 @@ source: "isValidFor: anObject\x0a\x09^ anObject isBehavior",
 messageSends: ["isBehavior"],
 referencedClasses: []
 }),
-smalltalk.HLMoveClassCommand.klass);
+smalltalk.HLMoveClassToPackageCommand.klass);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -943,16 +917,14 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(80);
-return $1;
+return "p";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveClassCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 80",
+source: "key\x0a\x09^ 'p'",
 messageSends: [],
 referencedClasses: []
 }),
-smalltalk.HLMoveClassCommand.klass);
+smalltalk.HLMoveClassToPackageCommand.klass);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -968,7 +940,7 @@ source: "label\x0a\x09^ 'to package'",
 messageSends: [],
 referencedClasses: []
 }),
-smalltalk.HLMoveClassCommand.klass);
+smalltalk.HLMoveClassToPackageCommand.klass);
 
 smalltalk.addMethod(
 smalltalk.method({
@@ -984,7 +956,7 @@ source: "menuLabel\x09\x0a\x09^ 'Move to package...'",
 messageSends: [],
 referencedClasses: []
 }),
-smalltalk.HLMoveClassCommand.klass);
+smalltalk.HLMoveClassToPackageCommand.klass);
 
 
 smalltalk.addClass('HLMoveMethodToCommand', smalltalk.HLMoveToCommand, [], 'Helios-Commands-Browser');
@@ -1014,12 +986,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(77);
-return $1;
+return "m";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 77",
+source: "key\x0a\x09^ 'm'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -1151,12 +1121,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 67",
+source: "key\x0a\x09^ 'c'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -1304,12 +1272,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(84);
-return $1;
+return "t";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 84",
+source: "key\x0a\x09^ 't'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -1357,12 +1323,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(88);
-return $1;
+return "x";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 88",
+source: "key\x0a\x09^ 'x'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -1446,12 +1410,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveClassCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 67",
+source: "key\x0a\x09^ 'c'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -1551,12 +1513,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(77);
-return $1;
+return "m";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveMethodCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 77",
+source: "key\x0a\x09^ 'm'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -1604,12 +1564,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(82);
-return $1;
+return "r";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 82",
+source: "key\x0a\x09^ 'r'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -1725,12 +1683,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "m";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameClassCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 67",
+source: "key\x0a\x09^ 'm'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -1778,12 +1734,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(84);
-return $1;
+return "t";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 84",
+source: "key\x0a\x09^ 't'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -1831,12 +1785,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(68);
-return $1;
+return "d";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassCommentCommand.klass)})},
 args: [],
-source: "key\x0a\x09\x22d\x22\x0a    \x0a\x09^ 68",
+source: "key\x0a\x09^ 'd'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -1884,12 +1836,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(67);
-return $1;
+return "c";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassSideCommand.klass)})},
 args: [],
-source: "key\x0a\x09\x22c\x22\x0a    \x0a\x09^ 67",
+source: "key\x0a\x09^ 'c'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -1937,12 +1887,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(73);
-return $1;
+return "i";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
 args: [],
-source: "key\x0a\x09\x22i\x22\x0a    \x0a\x09^ 73",
+source: "key\x0a\x09^ 'i'",
 messageSends: [],
 referencedClasses: []
 }),

js/Helios-Commands-Core.deploy.js

@@ -8,13 +8,13 @@ var self=this;
 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());
+$2=_st($HLBindingAction())._on_labelled_(_st(self)._keyCode(),_st(self)._label());
 _st($2)._command_(self);
 $3=_st($2)._yourself();
 $1=$3;
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"asActionBinding",{},smalltalk.HLCommand)})},
-messageSends: ["command:", "on:labelled:", "key", "label", "yourself"]}),
+messageSends: ["command:", "on:labelled:", "keyCode", "label", "yourself"]}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
@@ -43,10 +43,10 @@ var self=this;
 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());
+$1=_st($HLBindingGroup())._on_labelled_(_st(self)._keyCode(),_st(self)._label());
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"asGroupBinding",{},smalltalk.HLCommand)})},
-messageSends: ["on:labelled:", "key", "label"]}),
+messageSends: ["on:labelled:", "keyCode", "label"]}),
 smalltalk.HLCommand);
 
 smalltalk.addMethod(
@@ -184,6 +184,19 @@ return $1;
 messageSends: ["key", "class"]}),
 smalltalk.HLCommand);
 
+smalltalk.addMethod(
+smalltalk.method({
+selector: "keyCode",
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st(_st(_st(self)._key())._asUppercase())._charCodeAt_((1));
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"keyCode",{},smalltalk.HLCommand)})},
+messageSends: ["charCodeAt:", "asUppercase", "key"]}),
+smalltalk.HLCommand);
+
 smalltalk.addMethod(
 smalltalk.method({
 selector: "label",
@@ -376,9 +389,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(87);
-return $1;
+return "w";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCloseTabCommand.klass)})},
 messageSends: []}),
 smalltalk.HLCloseTabCommand.klass);
@@ -480,9 +491,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(79);
-return $1;
+return "o";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenCommand.klass)})},
 messageSends: []}),
 smalltalk.HLOpenCommand.klass);
@@ -521,9 +530,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(66);
-return $1;
+return "b";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenBrowserCommand.klass)})},
 messageSends: []}),
 smalltalk.HLOpenBrowserCommand.klass);
@@ -562,9 +569,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(84);
-return $1;
+return "t";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenTranscriptCommand.klass)})},
 messageSends: []}),
 smalltalk.HLOpenTranscriptCommand.klass);
@@ -603,9 +608,7 @@ selector: "key",
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(87);
-return $1;
+return "w";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenWorkspaceCommand.klass)})},
 messageSends: []}),
 smalltalk.HLOpenWorkspaceCommand.klass);

js/Helios-Commands-Core.js

@@ -9,15 +9,15 @@ var self=this;
 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());
+$2=_st($HLBindingAction())._on_labelled_(_st(self)._keyCode(),_st(self)._label());
 _st($2)._command_(self);
 $3=_st($2)._yourself();
 $1=$3;
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"asActionBinding",{},smalltalk.HLCommand)})},
 args: [],
-source: "asActionBinding\x0a\x09^ (HLBindingAction on: self key labelled: self label)\x0a    \x09command: self;\x0a\x09\x09yourself",
-messageSends: ["command:", "on:labelled:", "key", "label", "yourself"],
+source: "asActionBinding\x0a\x09^ (HLBindingAction on: self keyCode labelled: self label)\x0a    \x09command: self;\x0a\x09\x09yourself",
+messageSends: ["command:", "on:labelled:", "keyCode", "label", "yourself"],
 referencedClasses: ["HLBindingAction"]
 }),
 smalltalk.HLCommand);
@@ -54,12 +54,12 @@ var self=this;
 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());
+$1=_st($HLBindingGroup())._on_labelled_(_st(self)._keyCode(),_st(self)._label());
 return $1;
 }, function($ctx1) {$ctx1.fill(self,"asGroupBinding",{},smalltalk.HLCommand)})},
 args: [],
-source: "asGroupBinding\x0a\x09^ HLBindingGroup \x0a\x09\x09on: self key \x0a\x09\x09labelled: self label",
-messageSends: ["on:labelled:", "key", "label"],
+source: "asGroupBinding\x0a\x09^ HLBindingGroup \x0a\x09\x09on: self keyCode\x0a\x09\x09labelled: self label",
+messageSends: ["on:labelled:", "keyCode", "label"],
 referencedClasses: ["HLBindingGroup"]
 }),
 smalltalk.HLCommand);
@@ -254,6 +254,24 @@ referencedClasses: []
 }),
 smalltalk.HLCommand);
 
+smalltalk.addMethod(
+smalltalk.method({
+selector: "keyCode",
+category: 'accessing',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st(_st(_st(self)._key())._asUppercase())._charCodeAt_((1));
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"keyCode",{},smalltalk.HLCommand)})},
+args: [],
+source: "keyCode\x0a\x09^ self key asUppercase charCodeAt: 1",
+messageSends: ["charCodeAt:", "asUppercase", "key"],
+referencedClasses: []
+}),
+smalltalk.HLCommand);
+
 smalltalk.addMethod(
 smalltalk.method({
 selector: "label",
@@ -398,7 +416,7 @@ return smalltalk.withContext(function($ctx1) {
 return nil;
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ nil",
+source: "key\x0a\x09\x22Answer a single character string or nil if no key\x22\x0a\x09\x0a\x09^ nil",
 messageSends: [],
 referencedClasses: []
 }),
@@ -512,12 +530,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(87);
-return $1;
+return "w";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCloseTabCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 87",
+source: "key\x0a\x09^ 'w'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -651,12 +667,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(79);
-return $1;
+return "o";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 79",
+source: "key\x0a\x09^ 'o'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -707,12 +721,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(66);
-return $1;
+return "b";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenBrowserCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 66",
+source: "key\x0a\x09^ 'b'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -763,12 +775,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(84);
-return $1;
+return "t";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenTranscriptCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 84",
+source: "key\x0a\x09^ 't'",
 messageSends: [],
 referencedClasses: []
 }),
@@ -819,12 +829,10 @@ category: 'accessing',
 fn: function (){
 var self=this;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=(87);
-return $1;
+return "w";
 }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenWorkspaceCommand.klass)})},
 args: [],
-source: "key\x0a\x09^ 87",
+source: "key\x0a\x09^ 'w'",
 messageSends: [],
 referencedClasses: []
 }),

st/Helios-Commands-Browser.st

@@ -18,7 +18,7 @@ HLBrowserCommand subclass: #HLBrowserGoToCommand
 !HLBrowserGoToCommand class methodsFor: 'accessing'!
 
 key
-	^ 71
+	^ 'g'
 !
 
 label
@@ -38,9 +38,7 @@ execute
 !HLGoToClassesCommand class methodsFor: 'accessing'!
 
 key
-	"c"
-    
-	^ 67
+	^ 'c'
 !
 
 label
@@ -60,9 +58,7 @@ execute
 !HLGoToMethodsCommand class methodsFor: 'accessing'!
 
 key
-	"m"
-    
-	^ 77
+	^ 'm'
 !
 
 label
@@ -82,9 +78,7 @@ execute
 !HLGoToPackagesCommand class methodsFor: 'accessing'!
 
 key
-	"p"
-    
-	^ 80
+	^ 'p'
 !
 
 label
@@ -104,9 +98,7 @@ execute
 !HLGoToProtocolsCommand class methodsFor: 'accessing'!
 
 key
-	"p"
-    
-	^ 84
+	^ 't'
 !
 
 label
@@ -126,9 +118,7 @@ execute
 !HLGoToSourceCodeCommand class methodsFor: 'accessing'!
 
 key
-	"s"
-    
-	^ 83
+	^ 's'
 !
 
 label
@@ -155,11 +145,11 @@ isActive
 !HLCommitPackageCommand class methodsFor: 'accessing'!
 
 key
-	^ 75
+	^ 'k'
 !
 
 label
-	^ 'Commit package'
+	^ 'Commit'
 ! !
 
 !HLCommitPackageCommand class methodsFor: 'testing'!
@@ -175,7 +165,7 @@ HLBrowserCommand subclass: #HLCopyCommand
 !HLCopyCommand class methodsFor: 'accessing'!
 
 key
-	^ 67
+	^ 'c'
 !
 
 label
@@ -211,7 +201,7 @@ isInputRequired
 !HLCopyClassCommand class methodsFor: 'accessing'!
 
 key
-	^ 67
+	^ 'c'
 !
 
 label
@@ -235,7 +225,7 @@ HLBrowserCommand subclass: #HLFindCommand
 !HLFindCommand class methodsFor: 'accessing'!
 
 key
-	^ 70
+	^ 'f'
 !
 
 label
@@ -275,7 +265,7 @@ isInputRequired
 !HLFindClassCommand class methodsFor: 'accessing'!
 
 key
-	^ 67
+	^ 'c'
 !
 
 label
@@ -289,7 +279,7 @@ HLBrowserCommand subclass: #HLMoveToCommand
 !HLMoveToCommand class methodsFor: 'accessing'!
 
 key
-	^ 77
+	^ 'm'
 !
 
 label
@@ -309,18 +299,18 @@ isActive
 !HLMoveClassToCommand class methodsFor: 'accessing'!
 
 key
-	^ 67
+	^ 'c'
 !
 
 label
 	^ 'Class'
 ! !
 
-HLMoveClassToCommand subclass: #HLMoveClassCommand
+HLMoveClassToCommand subclass: #HLMoveClassToPackageCommand
 	instanceVariableNames: ''
 	package: 'Helios-Commands-Browser'!
 
-!HLMoveClassCommand methodsFor: 'accessing'!
+!HLMoveClassToPackageCommand methodsFor: 'accessing'!
 
 displayLabel
 	^ 'select a package'
@@ -334,22 +324,22 @@ inputLabel
 	^ 'Move class to package:'
 ! !
 
-!HLMoveClassCommand methodsFor: 'executing'!
+!HLMoveClassToPackageCommand methodsFor: 'executing'!
 
 execute
 	self model moveClassToPackage: self input
 ! !
 
-!HLMoveClassCommand methodsFor: 'testing'!
+!HLMoveClassToPackageCommand methodsFor: 'testing'!
 
 isInputRequired
 	^ true
 ! !
 
-!HLMoveClassCommand class methodsFor: 'accessing'!
+!HLMoveClassToPackageCommand class methodsFor: 'accessing'!
 
 key
-	^ 80
+	^ 'p'
 !
 
 label
@@ -360,7 +350,7 @@ menuLabel
 	^ 'Move to package...'
 ! !
 
-!HLMoveClassCommand class methodsFor: 'testing'!
+!HLMoveClassToPackageCommand class methodsFor: 'testing'!
 
 isValidFor: anObject
 	^ anObject isBehavior
@@ -379,7 +369,7 @@ isActive
 !HLMoveMethodToCommand class methodsFor: 'accessing'!
 
 key
-	^ 77
+	^ 'm'
 !
 
 label
@@ -419,7 +409,7 @@ isInputRequired
 !HLMoveMethodToClassCommand class methodsFor: 'accessing'!
 
 key
-	^ 67
+	^ 'c'
 !
 
 label	
@@ -469,7 +459,7 @@ isInputRequired
 !HLMoveMethodToProtocolCommand class methodsFor: 'accessing'!
 
 key
-	^ 84
+	^ 't'
 !
 
 label
@@ -493,7 +483,7 @@ HLBrowserCommand subclass: #HLRemoveCommand
 !HLRemoveCommand class methodsFor: 'accessing'!
 
 key
-	^ 88
+	^ 'x'
 !
 
 label
@@ -519,7 +509,7 @@ isActive
 !HLRemoveClassCommand class methodsFor: 'accessing'!
 
 key
-	^ 67
+	^ 'c'
 !
 
 label
@@ -555,7 +545,7 @@ isActive
 !HLRemoveMethodCommand class methodsFor: 'accessing'!
 
 key
-	^ 77
+	^ 'm'
 !
 
 label
@@ -579,7 +569,7 @@ HLBrowserCommand subclass: #HLRenameCommand
 !HLRenameCommand class methodsFor: 'accessing'!
 
 key
-	^ 82
+	^ 'r'
 !
 
 label
@@ -615,7 +605,7 @@ isInputRequired
 !HLRenameClassCommand class methodsFor: 'accessing'!
 
 key
-	^ 67
+	^ 'm'
 !
 
 label
@@ -639,7 +629,7 @@ HLBrowserCommand subclass: #HLToggleCommand
 !HLToggleCommand class methodsFor: 'accessing'!
 
 key
-	^ 84
+	^ 't'
 !
 
 label
@@ -659,9 +649,7 @@ execute
 !HLToggleClassCommentCommand class methodsFor: 'accessing'!
 
 key
-	"d"
-    
-	^ 68
+	^ 'd'
 !
 
 label
@@ -681,9 +669,7 @@ execute
 !HLToggleClassSideCommand class methodsFor: 'accessing'!
 
 key
-	"c"
-    
-	^ 67
+	^ 'c'
 !
 
 label
@@ -703,9 +689,7 @@ execute
 !HLToggleInstanceSideCommand class methodsFor: 'accessing'!
 
 key
-	"i"
-    
-	^ 73
+	^ 'i'
 !
 
 label

st/Helios-Commands-Core.st

@@ -29,6 +29,10 @@ key
 	^ self class key
 !
 
+keyCode
+	^ self key asUppercase charCodeAt: 1
+!
+
 label
 	^ self class label
 !
@@ -40,7 +44,7 @@ menuLabel
 !HLCommand methodsFor: 'converting'!
 
 asActionBinding
-	^ (HLBindingAction on: self key labelled: self label)
+	^ (HLBindingAction on: self keyCode labelled: self label)
     	command: self;
 		yourself
 !
@@ -53,7 +57,7 @@ asBinding
 
 asGroupBinding
 	^ HLBindingGroup 
-		on: self key 
+		on: self keyCode
 		labelled: self label
 ! !
 
@@ -95,6 +99,8 @@ documentation
 !
 
 key
+	"Answer a single character string or nil if no key"
+	
 	^ nil
 !
 
@@ -159,7 +165,7 @@ execute
 !HLCloseTabCommand class methodsFor: 'accessing'!
 
 key
-	^ 87
+	^ 'w'
 !
 
 label
@@ -210,7 +216,7 @@ HLCommand subclass: #HLOpenCommand
 !HLOpenCommand class methodsFor: 'accessing'!
 
 key
-	^ 79
+	^ 'o'
 !
 
 label
@@ -230,7 +236,7 @@ execute
 !HLOpenBrowserCommand class methodsFor: 'accessing'!
 
 key
-	^ 66
+	^ 'b'
 !
 
 label
@@ -250,7 +256,7 @@ execute
 !HLOpenTranscriptCommand class methodsFor: 'accessing'!
 
 key
-	^ 84
+	^ 't'
 !
 
 label
@@ -270,7 +276,7 @@ execute
 !HLOpenWorkspaceCommand class methodsFor: 'accessing'!
 
 key
-	^ 87
+	^ 'w'
 !
 
 label