unused code cleanup

OpenPonk · Nov 25, 2023 · a3d524e · a3d524e
1 parent 8cf4a36
commit a3d524e
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 64 deletions.
diff --git a/repository/OpenPonk-Core/OPElementController.class.st b/repository/OpenPonk-Core/OPElementController.class.st
@@ -49,9 +49,8 @@ OPElementController >> createDiagramElement [
 
 { #category : #deprecated }
 OPElementController >> createFigure [
-	self deprecated: 'Use renderFigureIn: instead.'.
 
-"	^ OPRTCallbackBuilder block: [ :view | self createFigureInView: view ]"
+	self deprecated: 'Use renderFigureIn: instead.'
 ]
 
 { #category : #deprecated }

diff --git a/repository/OpenPonk-Roassal/OPRSRemoveable.class.st b/repository/OpenPonk-Roassal/OPRSRemoveable.class.st
diff --git a/repository/OpenPonk-Spec/OPDefaultNavigatorAdapter.class.st b/repository/OpenPonk-Spec/OPDefaultNavigatorAdapter.class.st
@@ -40,10 +40,9 @@ OPDefaultNavigatorAdapter >> displayMapping [
 { #category : #'widget API' }
 OPDefaultNavigatorAdapter >> hasMappingFor: anObject in: aModel [
 
-	^ { 
+	^ {
 		  OPProject.
-		  OPTestModel.
-		  OPTestContainerModel } anySatisfy: [ :any | 
+		  OPTestContainerModel } anySatisfy: [ :any |
 		  anObject isKindOf: any ]
 ]
 

diff --git a/repository/OpenPonk-Spec/OPExportImageDialog.class.st b/repository/OpenPonk-Spec/OPExportImageDialog.class.st
@@ -36,10 +36,8 @@ OPExportImageDialog >> confirmed [
 	file ifNil: [ ^ self ].
 	zoomNumber := (NumberParser
 		               parse: zoomText text
-		               onError: [ 
-		               TRCamera basicNew defaultCameraScale * 100 ]) / 100.
-	zoomNumber < 0.01 ifTrue: [ 
-		zoomNumber := TRCamera basicNew defaultCameraScale ].
+		               onError: [ RSCamera new scale * 100 ]) / 100.
+	zoomNumber < 0.01 ifTrue: [ zoomNumber := RSCamera new scale ].
 
 	okAction cull: file cull: zoomNumber
 ]

diff --git a/repository/OpenPonk-Spec/OPPalette.class.st b/repository/OpenPonk-Spec/OPPalette.class.st
@@ -222,15 +222,6 @@ OPPalette >> newCreationTool: aFactoryBlock with: aToolConfigBlock [
 	^ item
 ]
 
-{ #category : #protocol }
-OPPalette >> newModelCreationTool: aFactoryBlock [
-	| entry |
-	entry := self addEntry.
-	entry tool: (OPModelCreationTool new palette: self).
-	entry factory: aFactoryBlock.
-	^ entry
-]
-
 { #category : #private }
 OPPalette >> newSelectionTool [