src/Helios-Commands-Tools.js

@@ -770,7 +770,7 @@ $core.addClass("HLFindClassReferencesCommand", $globals.HLFindCommand, "Helios-C
 $core.addMethod(
 $core.method({
 selector: "category",
-protocol: "as yet unclassified",
+protocol: "accessing",
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "category\x0a\x09^ 'Classes'",
@@ -788,7 +788,7 @@ $globals.HLFindClassReferencesCommand);
 $core.addMethod(
 $core.method({
 selector: "execute",
-protocol: "as yet unclassified",
+protocol: "executing",
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "execute\x0a\x0a\x09HLReferences new \x0a\x09\x09openAsTab;\x0a\x09\x09search: self model selectedClass theNonMetaClass name",
@@ -815,7 +815,7 @@ $globals.HLFindClassReferencesCommand);
 $core.addMethod(
 $core.method({
 selector: "isActive",
-protocol: "as yet unclassified",
+protocol: "testing",
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "isActive\x0a\x09^ self model selectedClass notNil",
@@ -838,7 +838,7 @@ $globals.HLFindClassReferencesCommand);
 $core.addMethod(
 $core.method({
 selector: "isInputRequired",
-protocol: "as yet unclassified",
+protocol: "testing",
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "isInputRequired\x0a\x09^ false",
@@ -877,7 +877,7 @@ $core.addClass("HLFindMethodReferencesCommand", $globals.HLFindCommand, "Helios-
 $core.addMethod(
 $core.method({
 selector: "category",
-protocol: "as yet unclassified",
+protocol: "accessing",
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "category\x0a\x09^ 'Methods'",
@@ -895,7 +895,7 @@ $globals.HLFindMethodReferencesCommand);
 $core.addMethod(
 $core.method({
 selector: "execute",
-protocol: "as yet unclassified",
+protocol: "executing",
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "execute\x0a\x0a\x09HLReferences new \x0a\x09\x09openAsTab;\x0a\x09\x09search: self model selectedMethod selector",
@@ -922,7 +922,7 @@ $globals.HLFindMethodReferencesCommand);
 $core.addMethod(
 $core.method({
 selector: "isActive",
-protocol: "as yet unclassified",
+protocol: "testing",
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "isActive\x0a\x09^ self model selectedMethod notNil",
@@ -945,7 +945,7 @@ $globals.HLFindMethodReferencesCommand);
 $core.addMethod(
 $core.method({
 selector: "isInputRequired",
-protocol: "as yet unclassified",
+protocol: "testing",
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "isInputRequired\x0a\x09^ false",

src/Helios-Commands-Tools.st

@@ -229,18 +229,22 @@ HLFindCommand subclass: #HLFindClassReferencesCommand
 	slots: {}
 	package: 'Helios-Commands-Tools'!
 
-!HLFindClassReferencesCommand methodsFor: 'as yet unclassified'!
+!HLFindClassReferencesCommand methodsFor: 'accessing'!
 
 category
 	^ 'Classes'
-!
+! !
+
+!HLFindClassReferencesCommand methodsFor: 'executing'!
 
 execute
 
 	HLReferences new 
 		openAsTab;
 		search: self model selectedClass theNonMetaClass name
-!
+! !
+
+!HLFindClassReferencesCommand methodsFor: 'testing'!
 
 isActive
 	^ self model selectedClass notNil
@@ -260,18 +264,22 @@ HLFindCommand subclass: #HLFindMethodReferencesCommand
 	slots: {}
 	package: 'Helios-Commands-Tools'!
 
-!HLFindMethodReferencesCommand methodsFor: 'as yet unclassified'!
+!HLFindMethodReferencesCommand methodsFor: 'accessing'!
 
 category
 	^ 'Methods'
-!
+! !
+
+!HLFindMethodReferencesCommand methodsFor: 'executing'!
 
 execute
 
 	HLReferences new 
 		openAsTab;
 		search: self model selectedMethod selector
-!
+! !
+
+!HLFindMethodReferencesCommand methodsFor: 'testing'!
 
 isActive
 	^ self model selectedMethod notNil

src/Helios-Workspace.js

@@ -321,11 +321,11 @@ selector: "browseIt",
 protocol: "actions",
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "browseIt\x0a\x09[ Finder findString: self currentLineOrSelection ] fork",
-referencedClasses: ["Finder"],
+source: "browseIt\x0a\x09[ self model browse: self basicDoIt ] fork",
+referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
-messageSends: ["fork", "findString:", "currentLineOrSelection"]
+messageSends: ["fork", "browse:", "model", "basicDoIt"]
 }, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
@@ -335,7 +335,7 @@ $recv((function(){
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx2) {
 //>>excludeEnd("ctx");
-return $recv($globals.Finder)._findString_($self._currentLineOrSelection());
+return $recv($self._model())._browse_($self._basicDoIt());
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
 //>>excludeEnd("ctx");

src/Helios-Workspace.st

@@ -148,7 +148,7 @@ basicDoIt
 !
 
 browseIt
-	[ Finder findString: self currentLineOrSelection ] fork
+	[ self model browse: self basicDoIt ] fork
 !
 
 clear