AlbInfiniteEditorElement mode is not an observable slot anymore.

removed whenModeChangedDo:

src/Album/AlbCursorElement.class.st

@@ -6,7 +6,7 @@ Class {
 		'blinking',
 		'blinkTask'
 	],
-	#category : 'Album-UI'
+	#category : #'Album-UI'
 }
 
 { #category : #accessing }
@@ -30,7 +30,7 @@ AlbCursorElement >> defaultBlinking [
 { #category : #initialization }
 AlbCursorElement >> defaultBlurredBackground [
 
-	^ Color brown 
+	^ Color transparent 
 ]
 
 { #category : #initialization }

src/Album/AlbEditorElement.class.st

@@ -27,9 +27,7 @@ AlbEditorElement >> defaultBackground [
 AlbEditorElement >> defaultFrontLayer [
 
 	| layer |
-self flag: 'Check elevation use'.
 	layer := BlElement new.
-	"layer elevation: (BlRelativeElevation elevation: SmallInteger maxVal)."
 	layer constraintsDo: [ :c | 
 		c horizontal matchParent.
 		c vertical matchParent ].
@@ -88,22 +86,26 @@ AlbEditorElement >> initialize [
 	self installRemanentUpdater.
 	self addChild: next.
 
-	self whenModeChangedDo: [
-		self installPrimarySelectionElement.
-		self installRemanentUpdater.
-		self installModeEventHandlers ].
+	self addEventHandler: (BlEventHandler
+			 on: AlbInfiniteEditorModeChangedEvent
+			 do: [ 
+				 self installPrimarySelectionElement.
+				 self installRemanentUpdater.
+				 self installModeEventHandlers ]).
 
-	self whenEditorChangedDo: [ :event |
-		self installRemanentUpdater ].
+	self whenEditorChangedDo: [ :event | self installRemanentUpdater ].
 
 	frontLayer := self defaultFrontLayer.
 	self addChild: frontLayer as: #frontLayer.
 	distributor := BlSharedEventDistributor new
 		               adjustMousePosition: false;
-		               shareEvents: (Array with: BlMouseEvent);
+		               shareEvents: {
+				               BlMouseEvent.
+				               AlbInfiniteEditorModeChangedEvent };
 		               yourself.
 	self frontLayer addEventHandler: distributor.
 	self infinite addEventHandler: distributor.
+	self addEventHandler: distributor.
 	self matchParent.
 	self installModeEventHandlers
 ]

src/Album/AlbInfiniteEditorElement.class.st

@@ -1,16 +1,16 @@
 Class {
 	#name : #AlbInfiniteEditorElement,
 	#superclass : #BlInfiniteElement,
-	#traits : 'TObservable + TBlLayoutResizable',
-	#classTraits : 'TObservable classTrait + TBlLayoutResizable classTrait',
+	#traits : 'TBlLayoutResizable',
+	#classTraits : 'TBlLayoutResizable classTrait',
 	#instVars : [
-		'#mode => ObservableSlot',
-		'#cursorStencil',
-		'#wordStencil',
-		'#modeEventHandlers',
-		'#modeShortcuts'
+		'mode',
+		'cursorStencil',
+		'wordStencil',
+		'modeEventHandlers',
+		'modeShortcuts'
 	],
-	#category : 'Album-UI'
+	#category : #'Album-UI'
 }
 
 { #category : #'accessing - editor' }
@@ -272,24 +272,25 @@ AlbInfiniteEditorElement >> infinite [
 
 { #category : #initialization }
 AlbInfiniteEditorElement >> initialize [
-
-	self class initializeSlots: self.
+
 	super initialize.
-	
+
 	self background: self defaultBackground.
 	cursorStencil := AlbCursorStencil new.
 	self editor: self defaulTextEditor.
 
-	" action when  mode change (Observable slot) "
-	self whenModeChangedDo: [ :m | self modeChanged ].
-	mode := self defaultMode.
+	self addEventHandler: (BlEventHandler
+			 on: AlbInfiniteEditorModeChangedEvent
+			 do: [ self modeChanged ]).
+	self mode: self defaultMode.
 	self matchParent.
 	self margin: self defaultMargin.
 	self padding: self defaultPadding.
-	self whenLayoutedDo: [ 
+	self whenLayoutedDo: [
 		self geometryChanged.
 		self selectionChanged ].
-	self elevation: ((BlRelativeElevation elevation: SmallInteger maxVal - 1)).
+	self elevation:
+		(BlRelativeElevation elevation: SmallInteger maxVal - 1)
 ]
 
 { #category : #'accessing - editor' }
@@ -330,7 +331,8 @@ AlbInfiniteEditorElement >> mode [
 AlbInfiniteEditorElement >> mode: anEditabilityMode [
 
 	mode = anEditabilityMode ifTrue: [ ^ self ].
-	mode := anEditabilityMode
+	mode := anEditabilityMode.
+	self dispatchEvent: AlbInfiniteEditorModeChangedEvent new
 ]
 
 { #category : #'view - configuration' }
@@ -622,14 +624,6 @@ AlbInfiniteEditorElement >> whenEditorChangedDo: aBlock [
 			 do: aBlock)
 ]
 
-{ #category : #'view - configuration' }
-AlbInfiniteEditorElement >> whenModeChangedDo: aBlock [
-
-	"set a block to perform after that the mode has been chanbed, and its action performed"
-
-	self property: #mode whenChangedDo: aBlock
-]
-
 { #category : #'view - configuration' }
 AlbInfiniteEditorElement >> whenTextEditedDo: aBlock [
 

src/Album/AlbInfiniteEditorModeChangedEvent.class.st

@@ -0,0 +1,11 @@
+Class {
+	#name : #AlbInfiniteEditorModeChangedEvent,
+	#superclass : #BlEvent,
+	#category : #'Album-UI'
+}
+
+{ #category : #sending }
+AlbInfiniteEditorModeChangedEvent >> sendTo: anObject [
+
+	anObject infiniteEditorModeChangedEvent: self
+]

src/Album/AlbPrimarySelectionElement.class.st

@@ -1,7 +1,10 @@
 Class {
 	#name : #AlbPrimarySelectionElement,
 	#superclass : #AlbAbstractSubtextElement,
-	#category : 'Album-UI-Text-Portion'
+	#instVars : [
+		'modeChangedEventHandler'
+	],
+	#category : #'Album-UI-Text-Portion'
 }
 
 { #category : #initialization }
@@ -36,7 +39,10 @@ AlbPrimarySelectionElement >> onGotFocus [
 { #category : #'api - install/uninstall  hook' }
 AlbPrimarySelectionElement >> onInstalled [
 
-	self editorElement infinite whenModeChangedDo: [ self onUninstalled ]
+	modeChangedEventHandler := BlEventHandler
+			 on: AlbInfiniteEditorModeChangedEvent
+			 do: [ self onUninstalled ].
+	self editorElement addEventHandler: modeChangedEventHandler
 ]
 
 { #category : #private }
@@ -48,6 +54,7 @@ AlbPrimarySelectionElement >> onLostFocus [
 { #category : #'api - install/uninstall  hook' }
 AlbPrimarySelectionElement >> onUninstalled [
 
+	self editorElement removeEventHandler: modeChangedEventHandler.
 	updateStrategy onUninstalledIn: self
 
 ]

src/Album/AlbRemanentsUpdater.class.st

@@ -3,9 +3,10 @@ Class {
 	#superclass : #AlbTextPortionUpdater,
 	#instVars : [
 		'oppositeEcho',
-		'textReplacedHandler'
+		'textReplacedHandler',
+		'modeChangeHandler'
 	],
-	#category : 'Album-UI-Text-Portion'
+	#category : #'Album-UI-Text-Portion'
 }
 
 { #category : #'opposite delimiter' }
@@ -81,17 +82,23 @@ AlbRemanentsUpdater >> extentChangedIn: anEditorElement [
 AlbRemanentsUpdater >> onInstalledIn: anEditorElement [
 
 	super onInstalledIn: anEditorElement.
-	anEditorElement infinite whenModeChangedDo: [ self onUninstalledIn: anEditorElement ].
+	modeChangeHandler := BlEventHandler
+			 on: AlbInfiniteEditorModeChangedEvent
+			 do: [ self onUninstalledIn: anEditorElement ].
 	textReplacedHandler := BlEventHandler
 		                       on: AlbTextEditorReplacedEvent
-		                       do: [ :evt | self onUninstalledIn: anEditorElement ].
-	anEditorElement infinite addEventHandler: textReplacedHandler
+		                       do: [ :evt |
+		                       self onUninstalledIn: anEditorElement ].
+	anEditorElement infinite addEventHandler: textReplacedHandler.
+	anEditorElement addEventHandler: modeChangeHandler.
+
 ]
 
 { #category : #'api - install/uninstall  hook' }
 AlbRemanentsUpdater >> onUninstalledIn: anEditorElement [
 
 	anEditorElement infinite removeEventHandler: textReplacedHandler.
+	anEditorElement removeEventHandler: modeChangeHandler.
 	super onUninstalledIn: anEditorElement.
 
 ]

src/Album/TAlbInfiniteDecorator.trait.st

@@ -296,14 +296,6 @@ TAlbInfiniteDecorator >> whenEditorChangedDo: aBlock [
 	self next whenEditorChangedDo: aBlock
 ]
 
-{ #category : #'t - infinite editor view - configuration' }
-TAlbInfiniteDecorator >> whenModeChangedDo: aBlock [
-
-	"set a block to perform after that the mode has been chanbed, and its action performed"
-
-	self next whenModeChangedDo: aBlock
-]
-
 { #category : #'t - infinite editor view - configuration' }
 TAlbInfiniteDecorator >> whenTextEditedDo: aBlock [