improve ToLabel editor handling

src/Toplo-Widget-Album/ToLabel.class.st

@@ -30,8 +30,8 @@ ToLabel >> addEditorEvent: anEvent [
 	self editor requestFocus.
 	self editor selecter
 		all;
-		apply
-
+		apply.
+	self editorBuilder value: self editor value: self
 ]
 
 { #category : 'accessing' }
@@ -113,6 +113,20 @@ ToLabel >> editor [
 	^ self userData at: #editor ifAbsent: [  ]
 ]
 
+{ #category : 'accessing' }
+ToLabel >> editorBuilder [
+	" returns a valuable that takes the editor and the label as arguments "
+
+	^ self userData at: #editorBuilder ifAbsentPut: [ :ed :theLabel | ]
+]
+
+{ #category : 'accessing' }
+ToLabel >> editorBuilder: aValuable [
+	" aValuable takes the editor and the label as arguments "
+
+	self userData at: #editorBuilder put: aValuable
+]
+
 { #category : 'api - text style' }
 ToLabel >> foreground: aBlPaint [
 
@@ -162,20 +176,13 @@ ToLabel >> initialize [
 	self addEventHandler: self defaultEventHandler 
 ]
 
-{ #category : 'initialization' }
+{ #category : 'private-editing' }
 ToLabel >> initializeEditorFrameBuilder [
 
 	self isEditable
 		ifTrue: [
-			frameHandler := ToAnchoredWindowHandler new.
-			frameHandler positionHook: [ :event :theLabel |
-				theLabel innerElement bounds inSpace bounds topLeft
-				- (theLabel editor padding left
-					 @ theLabel editor padding top) ].
-			frameHandler element: self.
-			frameHandler builder: [ :anchWin :label |
-				anchWin root addChild: self newEditor.
-				self editor text: self text copy ] ]
+			frameHandler := ToLabelEditorWindowHandler new.
+			frameHandler element: self]
 		ifFalse: [
 			frameHandler ifNil: [ ^ self ].
 			frameHandler element: nil.

src/Toplo-Widget-Album/ToLabelEditorWindow.class.st

@@ -0,0 +1,13 @@
+Class {
+	#name : 'ToLabelEditorWindow',
+	#superclass : 'ToAnchoredWindow',
+	#category : 'Toplo-Widget-Album-Label',
+	#package : 'Toplo-Widget-Album',
+	#tag : 'Label'
+}
+
+{ #category : 'accessing' }
+ToLabelEditorWindow >> defaultElevation [
+
+	^ BlRelativeElevation elevation: (SmallInteger maxVal - 200)
+]

src/Toplo-Widget-Album/ToLabelEditorWindowHandler.class.st

@@ -0,0 +1,33 @@
+Class {
+	#name : 'ToLabelEditorWindowHandler',
+	#superclass : 'ToAnchoredWindowHandler',
+	#category : 'Toplo-Widget-Album-Label',
+	#package : 'Toplo-Widget-Album',
+	#tag : 'Label'
+}
+
+{ #category : 'initialization' }
+ToLabelEditorWindowHandler >> defaulPositionHook [
+
+	^ [ :event :theLabel |
+				theLabel innerElement bounds inSpace bounds topLeft
+				- (theLabel editor padding left
+					 @ theLabel editor padding top) ]
+]
+
+{ #category : 'initialization' }
+ToLabelEditorWindowHandler >> initialize [
+
+	super initialize.
+	self builder: [ :anchWin :label |
+		| ed |
+		ed := label newEditor.
+		anchWin root addChild: ed.
+		ed text: label text copy ]
+]
+
+{ #category : 'accessing' }
+ToLabelEditorWindowHandler >> windowClass [
+
+	^ ToLabelEditorWindow 
+]

src/Toplo-Widget-Album/ToTextField.class.st

@@ -37,7 +37,7 @@ ToTextField >> initialize [
 		adjustMousePosition: false;
 		shareEvents: {
 				BlMouseDownEvent.
-				"BlDragEvent.
+				BlDragEvent.
 				BlDragStartEvent.
 				BlDragEndEvent.
 				BlDragEnterEvent.
@@ -47,9 +47,9 @@ ToTextField >> initialize [
 				BlMouseOverEvent.
 				BlDoubleClickEvent.
 				BlFocusEvent.
-				BlBlurEvent" }.
+				BlBlurEvent }.
 	self addEventHandler: sharedDistributor.
-	self next addEventHandler: sharedDistributor.
+	"self next addEventHandler: sharedDistributor."
 	self infinite addEventHandler: sharedDistributor.
 
 ]