isHideable is now true by default

OpenPonk · Nov 7, 2024 · 53aa7cb · 53aa7cb
1 parent e04e1c2
commit 53aa7cb
Show file tree

Hide file tree

Showing 5 changed files with 2 additions and 22 deletions.
diff --git a/repository/OpenPonk-ClassEditor/OPUmlClassifierController.class.st b/repository/OpenPonk-ClassEditor/OPUmlClassifierController.class.st
@@ -70,11 +70,6 @@ OPUmlClassifierController >> hookDiagramElement [
 	self diagramElement hiddenPackages: self hiddenPackages
 ]
 
-{ #category : 'testing' }
-OPUmlClassifierController >> isHideable [
-	^ true
-]
-
 { #category : 'accessing' }
 OPUmlClassifierController >> modelClassName [
 	^ self subclassResponsibility

diff --git a/repository/OpenPonk-ClassEditor/OPUmlClassifierItemController.class.st b/repository/OpenPonk-ClassEditor/OPUmlClassifierItemController.class.st
@@ -37,11 +37,6 @@ OPUmlClassifierItemController >> descriptionName [
 	^ description
 ]
 
-{ #category : 'testing' }
-OPUmlClassifierItemController >> isHideable [
-	^ true
-]
-
 { #category : 'hooks' }
 OPUmlClassifierItemController >> placeholderName [
 

diff --git a/repository/OpenPonk-ClassEditor/OPUmlPackageController.class.st b/repository/OpenPonk-ClassEditor/OPUmlPackageController.class.st
@@ -93,11 +93,6 @@ OPUmlPackageController >> hookDiagramElement [
 	self diagramElement hiddenPackages: self hiddenPackages
 ]
 
-{ #category : 'testing' }
-OPUmlPackageController >> isHideable [
-	^ true
-]
-
 { #category : 'accessing' }
 OPUmlPackageController >> modelClass [
 	modelClass ifNil: [ self beForPackage ].

diff --git a/repository/OpenPonk-ClassEditor/OPUmlPackageDiagramController.class.st b/repository/OpenPonk-ClassEditor/OPUmlPackageDiagramController.class.st
@@ -375,12 +375,12 @@ OPUmlPackageDiagramController >> rebuildPalette [
 { #category : 'as yet unclassified' }
 OPUmlPackageDiagramController >> typeOfModel: aModel [
 	^ OPModelObjectType
-		named: (aModel umlClassName splitOnCapitals joinUsing: ' ')
+		named: (aModel umlClassName splitCamelCase joinUsing: ' ')
 		withSubtype:
 			(aModel appliedStereotypes
 				ifEmpty: [ OPModelObjectType named: '(without stereotype)' ]
 				ifNotEmpty: [ OPModelObjectType
 						named:
-							(aModel appliedStereotypes first umlClassName splitOnCapitals
+							(aModel appliedStereotypes first umlClassName splitCamelCase
 								joinUsing: ' ') ])
 ]
diff --git a/repository/OpenPonk-ClassEditor/OPUmlRelationshipController.class.st b/repository/OpenPonk-ClassEditor/OPUmlRelationshipController.class.st
@@ -11,11 +11,6 @@ Class {
 	#tag : 'Controllers'
 }
 
-{ #category : 'testing' }
-OPUmlRelationshipController >> isHideable [
-	^ true
-]
-
 { #category : 'accessing' }
 OPUmlRelationshipController >> magritteDescription [
 	| container |