Home Explore Help
Register Sign In
ajpo-amber
/
amber
forked from amber/amber
2
0
Fork 0
Files
Browse Source

Helios: Commands refactorings

Nicolas Petton 11 years ago
parent
e617fdbc4b
commit
d3659a00bf
10 changed files with 56 additions and 1097 deletions
Split View Show Diff Stats
  1. 1 1
      helios.html
  2. 2 2
      js/Helios-Browser.deploy.js
  3. 4 4
      js/Helios-Browser.js
  4. 13 364
      js/Helios-Commands-Tools.deploy.js
  5. 14 510
      js/Helios-Commands-Tools.js
  6. 2 2
      js/Helios-Core.deploy.js
  7. 5 5
      js/Helios-Core.js
  8. 1 1
      st/Helios-Browser.st
  9. 10 204
      st/Helios-Commands-Tools.st
  10. 4 4
      st/Helios-Core.st

+ 1 - 1
helios.html
View File 

@@ -14,7 +14,7 @@
 
   </head> 
   <body> 
     
-    <script type='text/javascript'> loadAmber({packages: ['Spaces', 'Helios-Core', 'Helios-Exceptions', 'Helios-Commands-Core','Helios-Commands-Tools', 'Helios-Layout','Helios-KeyBindings', 'Helios-Browser', 'Helios-Workspace', 'Helios-Inspector', 'Helios-References', 'Helios-Announcements']}) </script>
 
+    <script type='text/javascript'> loadAmber({packages: ['Spaces', 'Helios-Core', 'Helios-Exceptions', 'Helios-Commands-Core','Helios-Commands-Tools', 'Helios-Commands-Browser', 'Helios-Layout','Helios-KeyBindings', 'Helios-Browser', 'Helios-Workspace', 'Helios-Inspector', 'Helios-References', 'Helios-Announcements']}) </script>
 
     <link rel="stylesheet" type="text/css" href='css/helios.css' />
 
     
     <div id="helper">Loading Helios...</div>

+ 2 - 2
js/Helios-Browser.deploy.js
View File 

@@ -157,9 +157,9 @@ smalltalk.method({
 
 selector: "registerBindingsOn:",
 
 fn: function (aBindingGroup){
 
 var self=this;
 
-function $HLBrowserCommand(){return smalltalk.HLBrowserCommand||(typeof HLBrowserCommand=="undefined"?nil:HLBrowserCommand)}
 
+function $HLToolCommand(){return smalltalk.HLToolCommand||(typeof HLToolCommand=="undefined"?nil:HLToolCommand)}
 
 return smalltalk.withContext(function($ctx1) { 
-_st($HLBrowserCommand())._registerConcreteClassesOn_for_(aBindingGroup,_st(self)._model());
 
+_st($HLToolCommand())._registerConcreteClassesOn_for_(aBindingGroup,_st(self)._model());
 
 return self}, function($ctx1) {$ctx1.fill(self,"registerBindingsOn:",{aBindingGroup:aBindingGroup},smalltalk.HLBrowser)})},
 
 messageSends: ["registerConcreteClassesOn:for:", "model"]}),
 
 smalltalk.HLBrowser);

+ 4 - 4
js/Helios-Browser.js
View File 

@@ -203,14 +203,14 @@ selector: "registerBindingsOn:",
 
 category: 'keybindings',
 
 fn: function (aBindingGroup){
 
 var self=this;
 
-function $HLBrowserCommand(){return smalltalk.HLBrowserCommand||(typeof HLBrowserCommand=="undefined"?nil:HLBrowserCommand)}
 
+function $HLToolCommand(){return smalltalk.HLToolCommand||(typeof HLToolCommand=="undefined"?nil:HLToolCommand)}
 
 return smalltalk.withContext(function($ctx1) { 
-_st($HLBrowserCommand())._registerConcreteClassesOn_for_(aBindingGroup,_st(self)._model());
 
+_st($HLToolCommand())._registerConcreteClassesOn_for_(aBindingGroup,_st(self)._model());
 
 return self}, function($ctx1) {$ctx1.fill(self,"registerBindingsOn:",{aBindingGroup:aBindingGroup},smalltalk.HLBrowser)})},
 
 args: ["aBindingGroup"],
 
-source: "registerBindingsOn: aBindingGroup\x0a\x09HLBrowserCommand \x0a\x09\x09registerConcreteClassesOn: aBindingGroup \x0a\x09\x09for: self model",
 
+source: "registerBindingsOn: aBindingGroup\x0a\x09HLToolCommand \x0a\x09\x09registerConcreteClassesOn: aBindingGroup \x0a\x09\x09for: self model",
 
 messageSends: ["registerConcreteClassesOn:for:", "model"],
 
-referencedClasses: ["HLBrowserCommand"]
 
+referencedClasses: ["HLToolCommand"]
 
 }),
 
 smalltalk.HLBrowser);

+ 13 - 364
js/Helios-Commands-Tools.deploy.js
View File 

@@ -1,5 +1,5 @@
 
 smalltalk.addPackage('Helios-Commands-Tools');
 
-smalltalk.addClass('HLBrowserCommand', smalltalk.HLModelCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLToolCommand', smalltalk.HLModelCommand, [], 'Helios-Commands-Tools');
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
 selector: "category",
 
@@ -7,9 +7,9 @@ fn: function (){
 
 var self=this;
 
 return smalltalk.withContext(function($ctx1) { 
 return nil;
 
-}, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLBrowserCommand)})},
 
+}, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLToolCommand)})},
 
 messageSends: []}),
 
-smalltalk.HLBrowserCommand);
 
+smalltalk.HLToolCommand);
 
 
 
 smalltalk.addMethod(
 
@@ -24,9 +24,9 @@ _st($2)._model_(aToolModel);
 
 $3=_st($2)._yourself();
 
 $1=$3;
 
 return $1;
 
-}, function($ctx1) {$ctx1.fill(self,"for:",{aToolModel:aToolModel},smalltalk.HLBrowserCommand.klass)})},
 
+}, function($ctx1) {$ctx1.fill(self,"for:",{aToolModel:aToolModel},smalltalk.HLToolCommand.klass)})},
 
 messageSends: ["model:", "new", "yourself"]}),
 
-smalltalk.HLBrowserCommand.klass);
 
+smalltalk.HLToolCommand.klass);
 
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
@@ -37,230 +37,12 @@ return smalltalk.withContext(function($ctx1) {
 
 var $1;
 
 $1=_st(aModel)._isToolModel();
 
 return $1;
 
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLBrowserCommand.klass)})},
 
+}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLToolCommand.klass)})},
 
 messageSends: ["isToolModel"]}),
 
-smalltalk.HLBrowserCommand.klass);
 
+smalltalk.HLToolCommand.klass);
 
 
 
-smalltalk.addClass('HLBrowserGoToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "isValidFor:",
 
-fn: function (aModel){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-var $1;
 
-$1=_st(aModel)._isBrowserModel();
 
-return $1;
 
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLBrowserGoToCommand.klass)})},
 
-messageSends: ["isBrowserModel"]}),
 
-smalltalk.HLBrowserGoToCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "g";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLBrowserGoToCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLBrowserGoToCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function (){
 
-var self=this;
 
-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-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function (){
 
-var self=this;
 
-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(
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "c";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToClassesCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLGoToClassesCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Classes";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToClassesCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLGoToClassesCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToMethodsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function (){
 
-var self=this;
 
-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(
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "m";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToMethodsCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLGoToMethodsCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Methods";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToMethodsCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLGoToMethodsCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToPackagesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function (){
 
-var self=this;
 
-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(
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "p";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToPackagesCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLGoToPackagesCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Packages";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToPackagesCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLGoToPackagesCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToProtocolsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function (){
 
-var self=this;
 
-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(
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "t";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToProtocolsCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLGoToProtocolsCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Protocols";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToProtocolsCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLGoToProtocolsCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToSourceCodeCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function (){
 
-var self=this;
 
-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(
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "s";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLGoToSourceCodeCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Source code";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLGoToSourceCodeCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLCommitPackageCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLCommitPackageCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
 selector: "category",
 
@@ -318,7 +100,7 @@ messageSends: []}),
 
 smalltalk.HLCommitPackageCommand.klass);
 
 
 
-smalltalk.addClass('HLCopyCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLCopyCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
 
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
@@ -449,7 +231,7 @@ messageSends: []}),
 
 smalltalk.HLCopyClassCommand.klass);
 
 
 
-smalltalk.addClass('HLFindCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLFindCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
 
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
@@ -669,7 +451,7 @@ messageSends: []}),
 
 smalltalk.HLFindReferencesCommand.klass);
 
 
 
-smalltalk.addClass('HLMoveToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLMoveToCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
 
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
@@ -1071,7 +853,7 @@ messageSends: []}),
 
 smalltalk.HLMoveMethodToProtocolCommand.klass);
 
 
 
-smalltalk.addClass('HLRemoveCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLRemoveCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
 
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
@@ -1309,7 +1091,7 @@ messageSends: []}),
 
 smalltalk.HLRemoveProtocolCommand.klass);
 
 
 
-smalltalk.addClass('HLRenameCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLRenameCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
 
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
@@ -1546,136 +1328,3 @@ messageSends: []}),
 
 smalltalk.HLRenameProtocolCommand.klass);
 
 
 
-smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "t";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLToggleCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Toggle";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLToggleCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLToggleClassCommentCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-_st(_st(self)._model())._showComment_(true);
 
-return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassCommentCommand)})},
 
-messageSends: ["showComment:", "model"]}),
 
-smalltalk.HLToggleClassCommentCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "d";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassCommentCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLToggleClassCommentCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Documentation";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassCommentCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLToggleClassCommentCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function (){
 
-var self=this;
 
-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(
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "c";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassSideCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLToggleClassSideCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Class side";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassSideCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLToggleClassSideCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function (){
 
-var self=this;
 
-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(
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "i";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLToggleInstanceSideCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Instance side";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
 
-messageSends: []}),
 
-smalltalk.HLToggleInstanceSideCommand.klass);
 
-
 
-

+ 14 - 510
js/Helios-Commands-Tools.js
View File 

@@ -1,5 +1,5 @@
 
 smalltalk.addPackage('Helios-Commands-Tools');
 
-smalltalk.addClass('HLBrowserCommand', smalltalk.HLModelCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLToolCommand', smalltalk.HLModelCommand, [], 'Helios-Commands-Tools');
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
 selector: "category",
 
@@ -8,13 +8,13 @@ fn: function (){
 
 var self=this;
 
 return smalltalk.withContext(function($ctx1) { 
 return nil;
 
-}, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLBrowserCommand)})},
 
+}, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLToolCommand)})},
 
 args: [],
 
 source: "category\x0a\x09^ nil",
 
 messageSends: [],
 
 referencedClasses: []
 
 }),
 
-smalltalk.HLBrowserCommand);
 
+smalltalk.HLToolCommand);
 
 
 
 smalltalk.addMethod(
 
@@ -30,13 +30,13 @@ _st($2)._model_(aToolModel);
 
 $3=_st($2)._yourself();
 
 $1=$3;
 
 return $1;
 
-}, function($ctx1) {$ctx1.fill(self,"for:",{aToolModel:aToolModel},smalltalk.HLBrowserCommand.klass)})},
 
+}, function($ctx1) {$ctx1.fill(self,"for:",{aToolModel:aToolModel},smalltalk.HLToolCommand.klass)})},
 
 args: ["aToolModel"],
 
 source: "for: aToolModel\x0a\x09^ self new\x0a    \x09model: aToolModel;\x0a        yourself",
 
 messageSends: ["model:", "new", "yourself"],
 
 referencedClasses: []
 
 }),
 
-smalltalk.HLBrowserCommand.klass);
 
+smalltalk.HLToolCommand.klass);
 
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
@@ -48,324 +48,16 @@ return smalltalk.withContext(function($ctx1) {
 
 var $1;
 
 $1=_st(aModel)._isToolModel();
 
 return $1;
 
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLBrowserCommand.klass)})},
 
+}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLToolCommand.klass)})},
 
 args: ["aModel"],
 
 source: "isValidFor: aModel\x0a\x09^ aModel isToolModel",
 
 messageSends: ["isToolModel"],
 
 referencedClasses: []
 
 }),
 
-smalltalk.HLBrowserCommand.klass);
 
+smalltalk.HLToolCommand.klass);
 
 
 
-smalltalk.addClass('HLBrowserGoToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "isValidFor:",
 
-category: 'testing',
 
-fn: function (aModel){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-var $1;
 
-$1=_st(aModel)._isBrowserModel();
 
-return $1;
 
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLBrowserGoToCommand.klass)})},
 
-args: ["aModel"],
 
-source: "isValidFor: aModel\x0a\x09^ aModel isBrowserModel",
 
-messageSends: ["isBrowserModel"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserGoToCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "g";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLBrowserGoToCommand.klass)})},
 
-args: [],
 
-source: "key\x0a\x09^ 'g'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserGoToCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Go to";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLBrowserGoToCommand.klass)})},
 
-args: [],
 
-source: "label\x0a\x09^ 'Go to'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserGoToCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToClassesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-_st(_st(self)._model())._focusOnClasses();
 
-return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToClassesCommand)})},
 
-args: [],
 
-source: "execute\x0a\x09self model focusOnClasses",
 
-messageSends: ["focusOnClasses", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToClassesCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "c";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToClassesCommand.klass)})},
 
-args: [],
 
-source: "key\x0a\x09^ 'c'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToClassesCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Classes";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToClassesCommand.klass)})},
 
-args: [],
 
-source: "label\x0a\x09^ 'Classes'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToClassesCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToMethodsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-_st(_st(self)._model())._focusOnMethods();
 
-return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToMethodsCommand)})},
 
-args: [],
 
-source: "execute\x0a\x09self model focusOnMethods",
 
-messageSends: ["focusOnMethods", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToMethodsCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "m";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToMethodsCommand.klass)})},
 
-args: [],
 
-source: "key\x0a\x09^ 'm'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToMethodsCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Methods";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToMethodsCommand.klass)})},
 
-args: [],
 
-source: "label\x0a\x09^ 'Methods'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToMethodsCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToPackagesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-_st(_st(self)._model())._focusOnPackages();
 
-return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToPackagesCommand)})},
 
-args: [],
 
-source: "execute\x0a\x09self model focusOnPackages",
 
-messageSends: ["focusOnPackages", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToPackagesCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "p";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToPackagesCommand.klass)})},
 
-args: [],
 
-source: "key\x0a\x09^ 'p'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToPackagesCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Packages";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToPackagesCommand.klass)})},
 
-args: [],
 
-source: "label\x0a\x09^ 'Packages'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToPackagesCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToProtocolsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-_st(_st(self)._model())._focusOnProtocols();
 
-return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToProtocolsCommand)})},
 
-args: [],
 
-source: "execute\x0a\x09self model focusOnProtocols",
 
-messageSends: ["focusOnProtocols", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToProtocolsCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "t";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToProtocolsCommand.klass)})},
 
-args: [],
 
-source: "key\x0a\x09^ 't'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToProtocolsCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Protocols";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToProtocolsCommand.klass)})},
 
-args: [],
 
-source: "label\x0a\x09^ 'Protocols'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToProtocolsCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToSourceCodeCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-_st(_st(self)._model())._focusOnSourceCode();
 
-return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToSourceCodeCommand)})},
 
-args: [],
 
-source: "execute\x0a\x09self model focusOnSourceCode",
 
-messageSends: ["focusOnSourceCode", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToSourceCodeCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "s";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
 
-args: [],
 
-source: "key\x0a\x09^ 's'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToSourceCodeCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Source code";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
 
-args: [],
 
-source: "label\x0a\x09^ 'Source code'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToSourceCodeCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLCommitPackageCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLCommitPackageCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
 selector: "category",
 
@@ -448,7 +140,7 @@ referencedClasses: []
 
 smalltalk.HLCommitPackageCommand.klass);
 
 
 
-smalltalk.addClass('HLCopyCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLCopyCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
 
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
@@ -634,7 +326,7 @@ referencedClasses: []
 
 smalltalk.HLCopyClassCommand.klass);
 
 
 
-smalltalk.addClass('HLFindCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLFindCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
 
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
@@ -813,7 +505,7 @@ $1=_st(method)._selector();
 
 return $1;
 
 }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},smalltalk.HLFindReferencesCommand)})},
 
 args: [],
 
-source: "defaultInput\x0a\x09^ self model selectedMethod \x0a\x09\x09ifNil: [\x0a\x09\x09\x09self model selectedClass\x0a\x09\x09\x09\x09ifNil: [ '' ]\x0a\x09\x09\x09\x09ifNotNil: [ :class | class name ] ]\x0a\x09\x09ifNotNil: [ :method | method selector ] ",
 
+source: "defaultInput\x0a\x09^ self model selectedMethod \x0a\x09\x09ifNil: [\x0a\x09\x09\x09self model selectedClass\x0a\x09\x09\x09\x09ifNil: [ '' ]\x0a\x09\x09\x09\x09ifNotNil: [ :class | class name ] ]\x0a\x09\x09ifNotNil: [ :method | method selector ]",
 
 messageSends: ["ifNil:ifNotNil:", "name", "selectedClass", "model", "selector", "selectedMethod"],
 
 referencedClasses: []
 
 }),
 
@@ -939,7 +631,7 @@ referencedClasses: []
 
 smalltalk.HLFindReferencesCommand.klass);
 
 
 
-smalltalk.addClass('HLMoveToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLMoveToCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
 
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
@@ -1511,7 +1203,7 @@ referencedClasses: []
 
 smalltalk.HLMoveMethodToProtocolCommand.klass);
 
 
 
-smalltalk.addClass('HLRemoveCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLRemoveCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
 
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
@@ -1849,7 +1541,7 @@ referencedClasses: []
 
 smalltalk.HLRemoveProtocolCommand.klass);
 
 
 
-smalltalk.addClass('HLRenameCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
+smalltalk.addClass('HLRenameCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
 
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
@@ -2186,191 +1878,3 @@ referencedClasses: []
 
 smalltalk.HLRenameProtocolCommand.klass);
 
 
 
-smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Tools');
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "t";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleCommand.klass)})},
 
-args: [],
 
-source: "key\x0a\x09^ 't'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Toggle";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleCommand.klass)})},
 
-args: [],
 
-source: "label\x0a\x09^ 'Toggle'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLToggleClassCommentCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-_st(_st(self)._model())._showComment_(true);
 
-return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassCommentCommand)})},
 
-args: [],
 
-source: "execute\x0a\x09self model showComment: true",
 
-messageSends: ["showComment:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleClassCommentCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "d";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassCommentCommand.klass)})},
 
-args: [],
 
-source: "key\x0a\x09^ 'd'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleClassCommentCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Documentation";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassCommentCommand.klass)})},
 
-args: [],
 
-source: "label\x0a\x09^ 'Documentation'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleClassCommentCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-_st(_st(self)._model())._showInstance_(false);
 
-return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassSideCommand)})},
 
-args: [],
 
-source: "execute\x0a\x09self model showInstance: false",
 
-messageSends: ["showInstance:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleClassSideCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "c";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassSideCommand.klass)})},
 
-args: [],
 
-source: "key\x0a\x09^ 'c'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleClassSideCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Class side";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassSideCommand.klass)})},
 
-args: [],
 
-source: "label\x0a\x09^ 'Class side'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleClassSideCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Tools');
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-_st(_st(self)._model())._showInstance_(true);
 
-return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleInstanceSideCommand)})},
 
-args: [],
 
-source: "execute\x0a\x09self model showInstance: true",
 
-messageSends: ["showInstance:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleInstanceSideCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "i";
 
-}, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
 
-args: [],
 
-source: "key\x0a\x09^ 'i'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleInstanceSideCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-return "Instance side";
 
-}, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
 
-args: [],
 
-source: "label\x0a\x09^ 'Instance side'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleInstanceSideCommand.klass);
 
-
 
-

+ 2 - 2
js/Helios-Core.deploy.js
View File 

@@ -2304,10 +2304,10 @@ smalltalk.method({
 
 selector: "menuCommands",
 
 fn: function (){
 
 var self=this;
 
-function $HLBrowserCommand(){return smalltalk.HLBrowserCommand||(typeof HLBrowserCommand=="undefined"?nil:HLBrowserCommand)}
 
+function $HLToolCommand(){return smalltalk.HLToolCommand||(typeof HLToolCommand=="undefined"?nil:HLToolCommand)}
 
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 
-$1=_st(_st(_st(_st($HLBrowserCommand())._concreteClasses())._select_((function(each){
 
+$1=_st(_st(_st(_st($HLToolCommand())._concreteClasses())._select_((function(each){
 
 return smalltalk.withContext(function($ctx2) {
 
 return _st(each)._isValidFor_(_st(self)._model());
 
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})))._collect_((function(each){

+ 5 - 5
js/Helios-Core.js
View File 

@@ -855,7 +855,7 @@ return nil;
 
 return $1;
 
 }, function($ctx1) {$ctx1.fill(self,"selectedMethod",{},smalltalk.HLToolModel)})},
 
 args: [],
 
-source: "selectedMethod\x0a\x09^ self selectedClass ifNotNil: [ \x0a\x09\x09\x09self selectedClass methodDictionary \x0a\x09\x09\x09\x09at: selectedSelector \x0a\x09\x09\x09\x09ifAbsent: [ nil ] ]",
 
+source: "selectedMethod\x0a\x09^ self selectedClass ifNotNil: [ \x0a\x09\x09self selectedClass methodDictionary \x0a\x09\x09\x09at: selectedSelector \x0a\x09\x09\x09ifAbsent: [ nil ] ]",
 
 messageSends: ["ifNotNil:", "at:ifAbsent:", "methodDictionary", "selectedClass"],
 
 referencedClasses: []
 
 }),
 
@@ -2995,10 +2995,10 @@ selector: "menuCommands",
 
 category: 'accessing',
 
 fn: function (){
 
 var self=this;
 
-function $HLBrowserCommand(){return smalltalk.HLBrowserCommand||(typeof HLBrowserCommand=="undefined"?nil:HLBrowserCommand)}
 
+function $HLToolCommand(){return smalltalk.HLToolCommand||(typeof HLToolCommand=="undefined"?nil:HLToolCommand)}
 
 return smalltalk.withContext(function($ctx1) { 
 var $1;
 
-$1=_st(_st(_st(_st($HLBrowserCommand())._concreteClasses())._select_((function(each){
 
+$1=_st(_st(_st(_st($HLToolCommand())._concreteClasses())._select_((function(each){
 
 return smalltalk.withContext(function($ctx2) {
 
 return _st(each)._isValidFor_(_st(self)._model());
 
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})))._collect_((function(each){
 
@@ -3017,9 +3017,9 @@ return _st(each)._isActive();
 
 return $1;
 
 }, function($ctx1) {$ctx1.fill(self,"menuCommands",{},smalltalk.HLToolListWidget)})},
 
 args: [],
 
-source: "menuCommands\x0a\x09\x22Answer a collection of commands to be put in the cog menu\x22\x0a\x09\x0a\x09^ ((HLBrowserCommand concreteClasses\x0a\x09\x09select: [ :each | each isValidFor: self model ])\x0a\x09\x09\x09collect: [ :each | each for: self model ])\x0a\x09\x09\x09select: [ :each | \x0a\x09\x09\x09\x09each category = self commandCategory and: [ \x0a\x09\x09\x09\x09\x09each isAction and: [ each isActive ] ] ]",
 
+source: "menuCommands\x0a\x09\x22Answer a collection of commands to be put in the cog menu\x22\x0a\x09\x0a\x09^ ((HLToolCommand concreteClasses\x0a\x09\x09select: [ :each | each isValidFor: self model ])\x0a\x09\x09\x09collect: [ :each | each for: self model ])\x0a\x09\x09\x09select: [ :each | \x0a\x09\x09\x09\x09each category = self commandCategory and: [ \x0a\x09\x09\x09\x09\x09each isAction and: [ each isActive ] ] ]",
 
 messageSends: ["select:", "and:", "isActive", "isAction", "=", "commandCategory", "category", "collect:", "for:", "model", "isValidFor:", "concreteClasses"],
 
-referencedClasses: ["HLBrowserCommand"]
 
+referencedClasses: ["HLToolCommand"]
 
 }),
 
 smalltalk.HLToolListWidget);

+ 1 - 1
st/Helios-Browser.st
View File 

@@ -26,7 +26,7 @@ focus
 
 !HLBrowser methodsFor: 'keybindings'!
 
 
 registerBindingsOn: aBindingGroup
 
-	HLBrowserCommand 
+	HLToolCommand 
 		registerConcreteClassesOn: aBindingGroup 
 		for: self model
 
 ! !

+ 10 - 204
st/Helios-Commands-Tools.st
View File 

@@ -1,15 +1,15 @@
 
 Smalltalk current createPackage: 'Helios-Commands-Tools'!
 
-HLModelCommand subclass: #HLBrowserCommand
 
+HLModelCommand subclass: #HLToolCommand
 
 	instanceVariableNames: ''
 
 	package: 'Helios-Commands-Tools'!
 
 
-!HLBrowserCommand methodsFor: 'accessing'!
 
+!HLToolCommand methodsFor: 'accessing'!
 
 
 category
 
 	^ nil
 
 ! !
 
 
-!HLBrowserCommand class methodsFor: 'instance creation'!
 
+!HLToolCommand class methodsFor: 'instance creation'!
 
 
 for: aToolModel
 
 	^ self new
 
@@ -17,133 +17,13 @@ for: aToolModel
 
         yourself
 
 ! !
 
 
-!HLBrowserCommand class methodsFor: 'testing'!
 
+!HLToolCommand class methodsFor: 'testing'!
 
 
 isValidFor: aModel
 
 	^ aModel isToolModel
 
 ! !
 
 
-HLBrowserCommand subclass: #HLBrowserGoToCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands-Tools'!
 
-
 
-!HLBrowserGoToCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	^ 'g'
 
-!
 
-
 
-label
 
-	^ 'Go to'
 
-! !
 
-
 
-!HLBrowserGoToCommand class methodsFor: 'testing'!
 
-
 
-isValidFor: aModel
 
-	^ aModel isBrowserModel
 
-! !
 
-
 
-HLBrowserGoToCommand subclass: #HLGoToClassesCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands-Tools'!
 
-
 
-!HLGoToClassesCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model focusOnClasses
 
-! !
 
-
 
-!HLGoToClassesCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	^ 'c'
 
-!
 
-
 
-label
 
-	^ 'Classes'
 
-! !
 
-
 
-HLBrowserGoToCommand subclass: #HLGoToMethodsCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands-Tools'!
 
-
 
-!HLGoToMethodsCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model focusOnMethods
 
-! !
 
-
 
-!HLGoToMethodsCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	^ 'm'
 
-!
 
-
 
-label
 
-	^ 'Methods'
 
-! !
 
-
 
-HLBrowserGoToCommand subclass: #HLGoToPackagesCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands-Tools'!
 
-
 
-!HLGoToPackagesCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model focusOnPackages
 
-! !
 
-
 
-!HLGoToPackagesCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	^ 'p'
 
-!
 
-
 
-label
 
-	^ 'Packages'
 
-! !
 
-
 
-HLBrowserGoToCommand subclass: #HLGoToProtocolsCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands-Tools'!
 
-
 
-!HLGoToProtocolsCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model focusOnProtocols
 
-! !
 
-
 
-!HLGoToProtocolsCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	^ 't'
 
-!
 
-
 
-label
 
-	^ 'Protocols'
 
-! !
 
-
 
-HLBrowserGoToCommand subclass: #HLGoToSourceCodeCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands-Tools'!
 
-
 
-!HLGoToSourceCodeCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model focusOnSourceCode
 
-! !
 
-
 
-!HLGoToSourceCodeCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	^ 's'
 
-!
 
-
 
-label
 
-	^ 'Source code'
 
-! !
 
-
 
-HLBrowserCommand subclass: #HLCommitPackageCommand
 
+HLToolCommand subclass: #HLCommitPackageCommand
 
 	instanceVariableNames: ''
 
 	package: 'Helios-Commands-Tools'!
 
 
@@ -176,7 +56,7 @@ label
 
 	^ 'Commit'
 
 ! !
 
 
-HLBrowserCommand subclass: #HLCopyCommand
 
+HLToolCommand subclass: #HLCopyCommand
 
 	instanceVariableNames: ''
 
 	package: 'Helios-Commands-Tools'!
 
 
@@ -240,7 +120,7 @@ menuLabel
 
 	^ 'Copy class...'
 
 ! !
 
 
-HLBrowserCommand subclass: #HLFindCommand
 
+HLToolCommand subclass: #HLFindCommand
 
 	instanceVariableNames: ''
 
 	package: 'Helios-Commands-Tools'!
 
 
@@ -347,7 +227,7 @@ label
 
 	^ 'References'
 
 ! !
 
 
-HLBrowserCommand subclass: #HLMoveToCommand
 
+HLToolCommand subclass: #HLMoveToCommand
 
 	instanceVariableNames: ''
 
 	package: 'Helios-Commands-Tools'!
 
 
@@ -543,7 +423,7 @@ menuLabel
 
 	^ 'Move to protocol...'
 
 ! !
 
 
-HLBrowserCommand subclass: #HLRemoveCommand
 
+HLToolCommand subclass: #HLRemoveCommand
 
 	instanceVariableNames: ''
 
 	package: 'Helios-Commands-Tools'!
 
 
@@ -665,7 +545,7 @@ menuLabel
 
 	^ 'Remove protocol'
 
 ! !
 
 
-HLBrowserCommand subclass: #HLRenameCommand
 
+HLToolCommand subclass: #HLRenameCommand
 
 	instanceVariableNames: ''
 
 	package: 'Helios-Commands-Tools'!
 
 
@@ -779,77 +659,3 @@ menuLabel
 
 	^ 'Rename protocol...'
 
 ! !
 
 
-HLBrowserCommand subclass: #HLToggleCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands-Tools'!
 
-
 
-!HLToggleCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	^ 't'
 
-!
 
-
 
-label
 
-	^ 'Toggle'
 
-! !
 
-
 
-HLToggleCommand subclass: #HLToggleClassCommentCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands-Tools'!
 
-
 
-!HLToggleClassCommentCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model showComment: true
 
-! !
 
-
 
-!HLToggleClassCommentCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	^ 'd'
 
-!
 
-
 
-label
 
-	^ 'Documentation'
 
-! !
 
-
 
-HLToggleCommand subclass: #HLToggleClassSideCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands-Tools'!
 
-
 
-!HLToggleClassSideCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model showInstance: false
 
-! !
 
-
 
-!HLToggleClassSideCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	^ 'c'
 
-!
 
-
 
-label
 
-	^ 'Class side'
 
-! !
 
-
 
-HLToggleCommand subclass: #HLToggleInstanceSideCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands-Tools'!
 
-
 
-!HLToggleInstanceSideCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model showInstance: true
 
-! !
 
-
 
-!HLToggleInstanceSideCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	^ 'i'
 
-!
 
-
 
-label
 
-	^ 'Instance side'
 
-! !
 
-

+ 4 - 4
st/Helios-Core.st
View File 

@@ -106,9 +106,9 @@ selectedClass: aClass
 
 
 selectedMethod
 
 	^ self selectedClass ifNotNil: [ 
-			self selectedClass methodDictionary 
-				at: selectedSelector 
-				ifAbsent: [ nil ] ]
 
+		self selectedClass methodDictionary 
+			at: selectedSelector 
+			ifAbsent: [ nil ] ]
 
 !
 
 
 selectedMethod: aCompiledMethod
 
@@ -992,7 +992,7 @@ label
 
 menuCommands
 
 	"Answer a collection of commands to be put in the cog menu"
 
 	
-	^ ((HLBrowserCommand concreteClasses
 
+	^ ((HLToolCommand concreteClasses
 
 		select: [ :each | each isValidFor: self model ])
 
 			collect: [ :each | each for: self model ])
 
 			select: [ :each |