operations working properly

pharo-spec · Oct 29, 2023 · edf9ba7 · edf9ba7
1 parent 87aa7bb
commit edf9ba7
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 8 deletions.
diff --git a/src/NewTools-Scopes-Browser/ScopeNode.class.st b/src/NewTools-Scopes-Browser/ScopeNode.class.st
@@ -79,7 +79,8 @@ ScopeNode >> isScopeNode [
 
 { #category : 'accessing' }
 ScopeNode >> label [
-	^ self value name
+
+	^ self value name , ' [package: ' , self value package name , ']'
 ]
 
 { #category : 'accessing' }

diff --git a/src/NewTools-Scopes-Browser/ScopeScopeNode.class.st b/src/NewTools-Scopes-Browser/ScopeScopeNode.class.st
@@ -14,7 +14,7 @@ ScopeScopeNode >> children [
 
 	| fullPackages orphanClasses packageChildren classChildren clss |
 	clss := self value classes.
-self halt.
+
 	fullPackages := ScopesManager fullPackagesFrom: clss.
 	orphanClasses := ScopesManager
 		                 orphanClassesIn: clss

diff --git a/src/NewTools-Scopes-Browser/ScopesPresenter.class.st b/src/NewTools-Scopes-Browser/ScopesPresenter.class.st
@@ -97,6 +97,10 @@ ScopesPresenter >> argumentsListMenu [
 						  name: 'Rename';
 						  visibleIf: [ scopesTree selectedItem isScopeNode ];
 						  action: [ self renameSelectedScope ] ];
+				  addItem: [ :anItem |
+					  anItem
+						  name: 'Inspect';
+						  action: [ scopesTree selectedItem inspect ] ];
 				  addItem: [ :anItem |
 					  anItem
 						  name: 'Open on Calypso';
@@ -112,7 +116,8 @@ ScopesPresenter >> argumentsListMenu [
 					  anItem
 						  name: 'Class references';
 						  visibleIf: [ scopesTree selectedItem isClassNode ];
-						  action: [ self showReferencesToClass: scopesTree selectedItem value] ] ];
+						  action: [
+							  self showReferencesToClass: scopesTree selectedItem value ] ] ];
 		  addGroup: [ :aGroup |
 			  aGroup
 				  addItem: [ :anItem |

diff --git a/src/NewTools-Scopes/ScopesManager.class.st b/src/NewTools-Scopes/ScopesManager.class.st
@@ -97,11 +97,6 @@ ScopesManager class >> newScopeFrom: scopeA and: scopeB [
 	^ self newScopeFrom: fullPackages , classesInterAB
 ]
 
-{ #category : 'operations' }
-ScopesManager class >> newScopeFrom: scopeA or: scopeB [
-	^ scopeA | scopeB
-]
-
 { #category : 'operations' }
 ScopesManager class >> newScopeFromNot: scope [