Categorize methods in "Find references" commands

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