First steps towards displaying scopes on calypso

pharo-spec · Oct 12, 2023 · 24c915e · 24c915e
1 parent 2821b20
commit 24c915e
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 1 deletion.
diff --git a/src/NewTools-Scopes-Browser/ScopesPresenter.class.st b/src/NewTools-Scopes-Browser/ScopesPresenter.class.st
@@ -57,6 +57,18 @@ ScopesPresenter >> addScopeToTree: aRBEnvironment [
 			asOrderedCollection
 ]
 
+{ #category : 'accessing' }
+ScopesPresenter >> argumentsListMenu [
+	^ self newMenu
+		addGroup: [ :aGroup |
+			aGroup
+				addItem: [ :anItem |
+					anItem
+						name: 'Open on calypso';
+						visibleIf: [ scopesTree selectedItem isScopeNode ];
+						action: [ self openOnCalypso: scopesTree selectedItem value ] ] ]
+]
+
 { #category : 'deletion' }
 ScopesPresenter >> deleteSelectedScope [
 
@@ -95,7 +107,8 @@ ScopesPresenter >> initializeScopesTree [
 					   ScopeScopeNode on: package ]) asOrderedCollection sorted;
 		  beResizable;
 		  activateOnDoubleClick;
-		  whenActivatedDo: [ :selection | scopesTree toggleSelectedItems ]
+		  whenActivatedDo: [ :selection | scopesTree toggleSelectedItems ];
+		  contextMenu: self argumentsListMenu
 ]
 
 { #category : 'accessing' }
@@ -126,6 +139,11 @@ ScopesPresenter >> nodesListColumn [
 		  yourself
 ]
 
+{ #category : 'private' }
+ScopesPresenter >> openOnCalypso: aScope [
+	ClyFullBrowserMorph openOn: aScope
+]
+
 { #category : 'private' }
 ScopesPresenter >> openScopeEditor [
 	self newScopeEditor open

diff --git a/src/NewTools-Scopes/RBBrowserEnvironmentWrapper.extension.st b/src/NewTools-Scopes/RBBrowserEnvironmentWrapper.extension.st
@@ -0,0 +1,11 @@
+Extension { #name : 'RBBrowserEnvironmentWrapper' }
+
+{ #category : '*NewTools-Scopes' }
+RBBrowserEnvironmentWrapper >> packagesDo: aBlock [
+	self packages do: [ :each | aBlock value: each ]
+]
+
+{ #category : '*NewTools-Scopes' }
+RBBrowserEnvironmentWrapper >> systemScope [
+	^ self
+]