Merge pull request #690 from olekscode/686-Replace-CMR3SpaceDiagram-w…

…ith-CMR3SpaceDiagramBuilder Removing redundant classes
cormas · Aug 2, 2023 · 4668e8a · 4668e8a
2 parents 727a18d + 81fa227
commit 4668e8a
Show file tree

Hide file tree

Showing 5 changed files with 2 additions and 226 deletions.
diff --git a/repository/Cormas-UI-Roassal3/CMR3UMLDiagram.class.st b/repository/Cormas-UI-Roassal3/CMR3UMLDiagram.class.st
diff --git a/repository/Cormas-UI-Roassal3/CMR3UMLPresenter.class.st b/repository/Cormas-UI-Roassal3/CMR3UMLPresenter.class.st
diff --git a/repository/Cormas-UI-Roassal3/CMSpacePreferences.class.st b/repository/Cormas-UI-Roassal3/CMSpacePreferences.class.st
diff --git a/repository/Cormas-UI/CMExternalBrowser.class.st b/repository/Cormas-UI/CMExternalBrowser.class.st
diff --git a/repository/Cormas-UI/CMSpOpenProjectNotebookPresenter.class.st b/repository/Cormas-UI/CMSpOpenProjectNotebookPresenter.class.st
@@ -45,9 +45,9 @@ CMSpOpenProjectNotebookPresenter >> initializeProjectPanel [
 	"This will be initialised in fact on the first refresh"
 
 	notebookPanel
-		addPage: (infoPage := self newProjectInfoPage);
+		addPage: (infoPage := self newProjectInfoPage)";
 		addPage: (sourceCodePage := self newSourceCodePage);
-		addPage: (umlPage := self newUMLPage)		
+		addPage: (umlPage := self newUMLPage)"		
 	"	addPage: (resourcesPage := self newResourcesPage 
 			title: 'Resources';
 			presenterProvider: [ self resourcesPresenter ];"
@@ -70,24 +70,6 @@ CMSpOpenProjectNotebookPresenter >> newProjectInfoPage [
 		provider: [ self projectInfoPresenter ]
 ]
 
-{ #category : #initialization }
-CMSpOpenProjectNotebookPresenter >> newSourceCodePage [
-
-	^ SpNotebookPage  
-		title: 'Source'
-		icon: (self iconNamed: #smallHierarchyBrowser)
-		provider: [ self projectSourcePresenter ]
-]
-
-{ #category : #initialization }
-CMSpOpenProjectNotebookPresenter >> newUMLPage [
-
-	^ SpNotebookPage  
-		title: 'UML'
-		icon: (self iconNamed: #morph)
-		provider: [ self projectUMLPresenter ]
-]
-
 { #category : #initialization }
 CMSpOpenProjectNotebookPresenter >> projectInfoPresenter [
 
@@ -97,26 +79,6 @@ CMSpOpenProjectNotebookPresenter >> projectInfoPresenter [
 		application: self application
 ]
 
-{ #category : #initialization }
-CMSpOpenProjectNotebookPresenter >> projectSourcePresenter [
-	" Answer a <ComposablePresenter> to browse source code in the receiver's selected model "
-
-	selectedModel ifNil: [ ^ self newEmpty ].
-	selectedModel fileReference
-		ifNotNil: [ : fileRef | ^ CMExternalBrowser on: selectedModel fileReference ]
-		ifNil: [ self inform: 'Cannot preview the model' ]
-]
-
-{ #category : #initialization }
-CMSpOpenProjectNotebookPresenter >> projectUMLPresenter [
-	" Answer a <ComposablePresenter> to browse source code in the receiver's selected model "
-
-	selectedModel ifNil: [ ^ self newEmpty ].
-
-	^ CMR3UMLPresenter on: selectedModel
-
-]
-
 { #category : #accessing }
 CMSpOpenProjectNotebookPresenter >> refresh [