Refactoring of component contract

OpenSmock · Dec 1, 2023 · 3df4f60 · 3df4f60
1 parent 203e811
commit 3df4f60
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 16 deletions.
diff --git a/GeoView/GeoViewManagerImpl.class.st b/GeoView/GeoViewManagerImpl.class.st
@@ -28,15 +28,15 @@ GeoViewManagerImpl >> activateComponents [
 	].
 ]
 
-{ #category : #'event strategy' }
+{ #category : #'parameters - event strategy' }
 GeoViewManagerImpl >> addEventBehavior: aGeoViewEventBehavior [
 
 	aGeoViewEventBehavior ifNil:[^self].
 	aGeoViewEventBehavior geoViewManager: self.
 	eventStrategyStack add: aGeoViewEventBehavior.
 ]
 
-{ #category : #'event strategy' }
+{ #category : #'parameters - event strategy' }
 GeoViewManagerImpl >> addEventBehaviorAtFirst: aGeoViewEventBehavior [
 
 	aGeoViewEventBehavior ifNil:[^self].
@@ -157,7 +157,7 @@ GeoViewManagerImpl >> cursorPositionChanged: anAssociation [
 	self getGeoViewManagerCursorEventsNotifier cursor: anAssociation key positionChanged: anAssociation value view: self componentName
 ]
 
-{ #category : #'event strategy' }
+{ #category : #'parameters - event strategy' }
 GeoViewManagerImpl >> deleteEventBehavior: aGeoViewEventBehavior [
 
 	aGeoViewEventBehavior ifNil:[^self].
@@ -166,7 +166,7 @@ GeoViewManagerImpl >> deleteEventBehavior: aGeoViewEventBehavior [
 	eventStrategyStack remove: aGeoViewEventBehavior ifAbsent:[nil].
 ]
 
-{ #category : #'event strategy' }
+{ #category : #'parameters - event strategy' }
 GeoViewManagerImpl >> deleteEventBehaviors [
 
 	| stack |
@@ -215,7 +215,7 @@ GeoViewManagerImpl >> geoObjectsIndexAccessor: anObject [
 	geoObjectsIndexAccessor := anObject
 ]
 
-{ #category : #'event strategy' }
+{ #category : #'parameters - event strategy' }
 GeoViewManagerImpl >> getEventBehaviors [
 
 	^eventStrategyStack copy
@@ -497,7 +497,7 @@ GeoViewManagerImpl >> selectionCleared [
 	self selectedKeysHasChanged: OrderedCollection new
 ]
 
-{ #category : #'event strategy' }
+{ #category : #'parameters - event strategy' }
 GeoViewManagerImpl >> setEventBehaviors: anEventBehaviorList [
 
 	self deleteEventBehaviors.
@@ -527,10 +527,12 @@ GeoViewManagerImpl >> setScaleInMeters: aNumber [
 	self scaleInMeters: scale.
 ]
 
-{ #category : #'selection manager' }
-GeoViewManagerImpl >> setSmockSelectionManager: aSmockSelectionManager [
+{ #category : #'parameters - selection manager' }
+GeoViewManagerImpl >> setSelectionManager: aSmockSelectionManager [
 	"Set a selection manager to manage the selection"
 	| component |
+
+	self flag:'labordep: ecrire setSelectionManagerName: et cabler proprement avec la mécanique molecule'.
 	(aSmockSelectionManager isNil or:[(aSmockSelectionManager isComponent not) or:[aSmockSelectionManager componentName isNil]]) ifTrue:[^ self].
 
 	"Check if the internal component is already initialized or activated and remove it"

diff --git a/GeoView/GeoViewManagerParameters.trait.st b/GeoView/GeoViewManagerParameters.trait.st
@@ -8,30 +8,30 @@ Trait {
 	#category : #'GeoView-Core'
 }
 
-{ #category : #'event strategy' }
+{ #category : #'parameters - event strategy' }
 GeoViewManagerParameters >> addEventBehavior: aGeoViewEventBehavior [
 ]
 
-{ #category : #'event strategy' }
+{ #category : #'parameters - event strategy' }
 GeoViewManagerParameters >> addEventBehaviorAtFirst: aGeoViewEventBehavior [
 ]
 
-{ #category : #'event strategy' }
+{ #category : #'parameters - event strategy' }
 GeoViewManagerParameters >> deleteEventBehavior: aGeoViewEventBehavior [
 ]
 
-{ #category : #'event strategy' }
+{ #category : #'parameters - event strategy' }
 GeoViewManagerParameters >> deleteEventBehaviors [
 ]
 
-{ #category : #'event strategy' }
+{ #category : #'parameters - event strategy' }
 GeoViewManagerParameters >> getEventBehaviors [
 ]
 
-{ #category : #'event strategy' }
+{ #category : #'parameters - event strategy' }
 GeoViewManagerParameters >> setEventBehaviors: anEventBehaviorList [
 ]
 
-{ #category : #'selection manager' }
-GeoViewManagerParameters >> setSmockSelectionManager: aSmockSelectionManager [
+{ #category : #'parameters - selection manager' }
+GeoViewManagerParameters >> setSelectionManager: aSmockSelectionManager [
 ]