Find class references command

src/Helios-Commands-Tools.js

@@ -766,6 +766,113 @@ return "Find class";
 $globals.HLFindClassCommand.a$cls);
 
 
+$core.addClass("HLFindClassReferencesCommand", $globals.HLFindCommand, "Helios-Commands-Tools");
+$core.addMethod(
+$core.method({
+selector: "category",
+protocol: "as yet unclassified",
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "category\x0a\x09^ 'Classes'",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: []
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "Classes";
+
+}; }),
+$globals.HLFindClassReferencesCommand);
+
+$core.addMethod(
+$core.method({
+selector: "execute",
+protocol: "as yet unclassified",
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "execute\x0a\x0a\x09HLReferences new \x0a\x09\x09openAsTab;\x0a\x09\x09search: self model selectedClass theNonMetaClass name",
+referencedClasses: ["HLReferences"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["openAsTab", "new", "search:", "name", "theNonMetaClass", "selectedClass", "model"]
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+return $core.withContext(function($ctx1) {
+//>>excludeEnd("ctx");
+var $1;
+$1=$recv($globals.HLReferences)._new();
+$recv($1)._openAsTab();
+$recv($1)._search_($recv($recv($recv($self._model())._selectedClass())._theNonMetaClass())._name());
+return self;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+}, function($ctx1) {$ctx1.fill(self,"execute",{})});
+//>>excludeEnd("ctx");
+}; }),
+$globals.HLFindClassReferencesCommand);
+
+$core.addMethod(
+$core.method({
+selector: "isActive",
+protocol: "as yet unclassified",
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "isActive\x0a\x09^ self model selectedClass notNil",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["notNil", "selectedClass", "model"]
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+return $core.withContext(function($ctx1) {
+//>>excludeEnd("ctx");
+return $recv($recv($self._model())._selectedClass())._notNil();
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+}, function($ctx1) {$ctx1.fill(self,"isActive",{})});
+//>>excludeEnd("ctx");
+}; }),
+$globals.HLFindClassReferencesCommand);
+
+$core.addMethod(
+$core.method({
+selector: "isInputRequired",
+protocol: "as yet unclassified",
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "isInputRequired\x0a\x09^ false",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: []
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return false;
+
+}; }),
+$globals.HLFindClassReferencesCommand);
+
+
+$core.addMethod(
+$core.method({
+selector: "menuLabel",
+protocol: "as yet unclassified",
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "menuLabel\x0a\x09^ 'Find class references...'",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: []
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "Find class references...";
+
+}; }),
+$globals.HLFindClassReferencesCommand.a$cls);
+
+
 $core.addClass("HLFindReferencesCommand", $globals.HLFindCommand, "Helios-Commands-Tools");
 $core.addMethod(
 $core.method({

src/Helios-Commands-Tools.st

@@ -225,6 +225,37 @@ label
 	^ 'Find class'
 ! !
 
+HLFindCommand subclass: #HLFindClassReferencesCommand
+	slots: {}
+	package: 'Helios-Commands-Tools'!
+
+!HLFindClassReferencesCommand methodsFor: 'as yet unclassified'!
+
+category
+	^ 'Classes'
+!
+
+execute
+
+	HLReferences new 
+		openAsTab;
+		search: self model selectedClass theNonMetaClass name
+!
+
+isActive
+	^ self model selectedClass notNil
+!
+
+isInputRequired
+	^ false
+! !
+
+!HLFindClassReferencesCommand class methodsFor: 'as yet unclassified'!
+
+menuLabel
+	^ 'Find class references...'
+! !
+
 HLFindCommand subclass: #HLFindReferencesCommand
 	slots: {}
 	package: 'Helios-Commands-Tools'!