From d52e0157008158fdec339cc7e59e64a012dcce82 Mon Sep 17 00:00:00 2001
From: ClotildeToullec <clotilde.toullec@inria.fr>
Date: Thu, 21 Nov 2024 17:59:32 +0100
Subject: [PATCH] MiAnalysis: rename to browser. Arrange the package. Add a
 menu item.

---
 ...er.class.st => MiAnalysisBrowser.class.st} | 64 ++++++++++++-------
 .../MiAnalysisCloseBrowserCommand.class.st    |  2 +-
 ...MiAnalysisPropagateLocallyCommand.class.st |  2 +-
 .../MiBrowserCardPresenter.class.st           |  2 +-
 src/MooseIDE-Analysis/MiNullBrowser.class.st  |  2 +-
 .../MiShortcutsCategory.extension.st          |  2 +-
 6 files changed, 47 insertions(+), 27 deletions(-)
 rename src/MooseIDE-Analysis/{MiAnalysisPresenter.class.st => MiAnalysisBrowser.class.st} (73%)

diff --git a/src/MooseIDE-Analysis/MiAnalysisPresenter.class.st b/src/MooseIDE-Analysis/MiAnalysisBrowser.class.st
similarity index 73%
rename from src/MooseIDE-Analysis/MiAnalysisPresenter.class.st
rename to src/MooseIDE-Analysis/MiAnalysisBrowser.class.st
index 10a7c01f..c1331f78 100644
--- a/src/MooseIDE-Analysis/MiAnalysisPresenter.class.st
+++ b/src/MooseIDE-Analysis/MiAnalysisBrowser.class.st
@@ -1,5 +1,5 @@
 Class {
-	#name : #MiAnalysisPresenter,
+	#name : #MiAnalysisBrowser,
 	#superclass : #MiAbstractBrowser,
 	#instVars : [
 		'currentBrowser',
@@ -7,17 +7,17 @@ Class {
 		'browsers',
 		'browsersListPresenter'
 	],
-	#category : #'MooseIDE-Analysis'
+	#category : #'MooseIDE-Analysis-Browser'
 }
 
 { #category : #keymaps }
-MiAnalysisPresenter class >> browserKey [
+MiAnalysisBrowser class >> browserKey [
 
 	^ $a
 ]
 
 { #category : #'as yet unclassified' }
-MiAnalysisPresenter class >> duplicationAnalysis [
+MiAnalysisBrowser class >> duplicationAnalysis [
 
 	| duplicationTag queryBrowser duplicationBrowser |
 	duplicationTag := FamixTag named: 'Duplication'.
@@ -39,15 +39,35 @@ MiAnalysisPresenter class >> duplicationAnalysis [
 		  duplicationBrowser }
 ]
 
+{ #category : #'world menu' }
+MiAnalysisBrowser class >> menuCommandOn: aBuilder [
+
+	<worldMenu>
+	<miBrowsersMenu>
+	^ self buildMenuItemIn: aBuilder
+]
+
+{ #category : #'world menu' }
+MiAnalysisBrowser class >> menuItem [
+
+	^ #AnalysisBrowser
+]
+
+{ #category : #'world menu' }
+MiAnalysisBrowser class >> menuPriority [
+
+	^ self menuMainToolsPriority + 6
+]
+
 { #category : #'instance creation' }
-MiAnalysisPresenter class >> open [
+MiAnalysisBrowser class >> open [
 
 	<script>
 	^ super open
 ]
 
 { #category : #'instance creation' }
-MiAnalysisPresenter class >> openDuplicationAnalysis [
+MiAnalysisBrowser class >> openDuplicationAnalysis [
 
 	<script>
 	^ super open
@@ -56,19 +76,19 @@ MiAnalysisPresenter class >> openDuplicationAnalysis [
 ]
 
 { #category : #specs }
-MiAnalysisPresenter class >> title [
+MiAnalysisBrowser class >> title [
 
 	^ 'Moose Analysis'
 ]
 
 { #category : #specs }
-MiAnalysisPresenter class >> windowSize [
+MiAnalysisBrowser class >> windowSize [
 
 	^ 700 @ 500
 ]
 
 { #category : #initialization }
-MiAnalysisPresenter >> addBrowserMenu [
+MiAnalysisBrowser >> addBrowserMenu [
 
 	| menu |
 	menu := self newMenu.
@@ -81,25 +101,25 @@ MiAnalysisPresenter >> addBrowserMenu [
 ]
 
 { #category : #adding }
-MiAnalysisPresenter >> addBrowsers: aCollectionOfBrowsers [
+MiAnalysisBrowser >> addBrowsers: aCollectionOfBrowsers [
 
 	aCollectionOfBrowsers do: [ :browser | self newBrowser: browser ]
 ]
 
 { #category : #accessing }
-MiAnalysisPresenter >> browsers [
+MiAnalysisBrowser >> browsers [
 
 	^ browsers ifNil: [ browsers := self initialBrowsers ]
 ]
 
 { #category : #testing }
-MiAnalysisPresenter >> canFollowEntity: anObject [
+MiAnalysisBrowser >> canFollowEntity: anObject [
 
 	^ currentBrowser canFollowEntity: anObject
 ]
 
 { #category : #layout }
-MiAnalysisPresenter >> defaultLayout [
+MiAnalysisBrowser >> defaultLayout [
 
 	^ SpPanedLayout newLeftToRight
 		  positionOfSlider: 0.3;
@@ -109,7 +129,7 @@ MiAnalysisPresenter >> defaultLayout [
 ]
 
 { #category : #accessing }
-MiAnalysisPresenter >> initialBrowsers [
+MiAnalysisBrowser >> initialBrowsers [
 
 	| modelsBrowser tagBrowser |
 	modelsBrowser := MiModelsBrowser new.
@@ -122,7 +142,7 @@ MiAnalysisPresenter >> initialBrowsers [
 ]
 
 { #category : #initialization }
-MiAnalysisPresenter >> initialize [
+MiAnalysisBrowser >> initialize [
 
 	super initialize.
 
@@ -130,7 +150,7 @@ MiAnalysisPresenter >> initialize [
 ]
 
 { #category : #initialization }
-MiAnalysisPresenter >> initializePresenters [
+MiAnalysisBrowser >> initializePresenters [
 
 	super initializePresenters.
 
@@ -146,19 +166,19 @@ MiAnalysisPresenter >> initializePresenters [
 ]
 
 { #category : #accessing }
-MiAnalysisPresenter >> miSelectedItem [
+MiAnalysisBrowser >> miSelectedItem [
 
 	^ currentBrowser ifNotNil: [ currentBrowser miSelectedItem ]
 ]
 
 { #category : #accessing }
-MiAnalysisPresenter >> miSelectedItemToPropagate [
+MiAnalysisBrowser >> miSelectedItemToPropagate [
 
 	^ currentBrowser miSelectedItemToPropagate
 ]
 
 { #category : #initialization }
-MiAnalysisPresenter >> newBrowser: aBrowser [
+MiAnalysisBrowser >> newBrowser: aBrowser [
 
 	browsers ifNotEmpty: [
 		aBrowser receiveEntity:
@@ -170,7 +190,7 @@ MiAnalysisPresenter >> newBrowser: aBrowser [
 ]
 
 { #category : #action }
-MiAnalysisPresenter >> propagateLocallyFrom: aBrowser [
+MiAnalysisBrowser >> propagateLocallyFrom: aBrowser [
 
 	| target |
 	target := browsers after: aBrowser ifAbsent: [ ^ self ].
@@ -179,7 +199,7 @@ MiAnalysisPresenter >> propagateLocallyFrom: aBrowser [
 ]
 
 { #category : #removing }
-MiAnalysisPresenter >> remove: aBrowser [
+MiAnalysisBrowser >> remove: aBrowser [
 
 	browsers remove: aBrowser.
 	browsersListPresenter items:
@@ -187,7 +207,7 @@ MiAnalysisPresenter >> remove: aBrowser [
 ]
 
 { #category : #initialization }
-MiAnalysisPresenter >> selectedBrowserChanged: aBrowser [
+MiAnalysisBrowser >> selectedBrowserChanged: aBrowser [
 
 	currentBrowser := aBrowser.
 
diff --git a/src/MooseIDE-Analysis/MiAnalysisCloseBrowserCommand.class.st b/src/MooseIDE-Analysis/MiAnalysisCloseBrowserCommand.class.st
index a42e2b93..420bb7c3 100644
--- a/src/MooseIDE-Analysis/MiAnalysisCloseBrowserCommand.class.st
+++ b/src/MooseIDE-Analysis/MiAnalysisCloseBrowserCommand.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #MiAnalysisCloseBrowserCommand,
 	#superclass : #MiCommand,
-	#category : #'MooseIDE-Analysis'
+	#category : #'MooseIDE-Analysis-Commands'
 }
 
 { #category : #default }
diff --git a/src/MooseIDE-Analysis/MiAnalysisPropagateLocallyCommand.class.st b/src/MooseIDE-Analysis/MiAnalysisPropagateLocallyCommand.class.st
index 757b9640..5889a147 100644
--- a/src/MooseIDE-Analysis/MiAnalysisPropagateLocallyCommand.class.st
+++ b/src/MooseIDE-Analysis/MiAnalysisPropagateLocallyCommand.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #MiAnalysisPropagateLocallyCommand,
 	#superclass : #MiCommand,
-	#category : #'MooseIDE-Analysis'
+	#category : #'MooseIDE-Analysis-Commands'
 }
 
 { #category : #default }
diff --git a/src/MooseIDE-Analysis/MiBrowserCardPresenter.class.st b/src/MooseIDE-Analysis/MiBrowserCardPresenter.class.st
index d15628b7..c2d6749e 100644
--- a/src/MooseIDE-Analysis/MiBrowserCardPresenter.class.st
+++ b/src/MooseIDE-Analysis/MiBrowserCardPresenter.class.st
@@ -6,7 +6,7 @@ Class {
 		'titleLabel',
 		'buttons'
 	],
-	#category : #'MooseIDE-Analysis'
+	#category : #'MooseIDE-Analysis-Widgets'
 }
 
 { #category : #commands }
diff --git a/src/MooseIDE-Analysis/MiNullBrowser.class.st b/src/MooseIDE-Analysis/MiNullBrowser.class.st
index ebbb0b23..4901cb77 100644
--- a/src/MooseIDE-Analysis/MiNullBrowser.class.st
+++ b/src/MooseIDE-Analysis/MiNullBrowser.class.st
@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'mainPresenter'
 	],
-	#category : #'MooseIDE-Analysis'
+	#category : #'MooseIDE-Analysis-Widgets'
 }
 
 { #category : #testing }
diff --git a/src/MooseIDE-Tagging/MiShortcutsCategory.extension.st b/src/MooseIDE-Tagging/MiShortcutsCategory.extension.st
index 5bacc179..016376a9 100644
--- a/src/MooseIDE-Tagging/MiShortcutsCategory.extension.st
+++ b/src/MooseIDE-Tagging/MiShortcutsCategory.extension.st
@@ -4,7 +4,7 @@ Extension { #name : #MiShortcutsCategory }
 MiShortcutsCategory >> openAnalysisBrowser [
 
 	<shortcut>
-	^ MiAnalysisPresenter openKeyMap
+	^ MiAnalysisBrowser openKeyMap
 ]
 
 { #category : #'*MooseIDE-Tagging' }