polished cursorElement management

pharo-graphics · Jan 3, 2024 · eaca084 · eaca084
1 parent 2e0db6b
commit eaca084
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/Album/AlbInfiniteEditorElement.class.st b/src/Album/AlbInfiniteEditorElement.class.st
@@ -94,7 +94,7 @@ AlbInfiniteEditorElement >> cursorColor: aColor [
 { #category : #'accessing - cursor' }
 AlbInfiniteEditorElement >> cursorElement [
 
-	^ cursorElement startBlinkingTask; yourself
+	^ cursorElement
 ]
 
 { #category : #'private - accessing editor' }
@@ -361,14 +361,18 @@ AlbInfiniteEditorElement >> onExtentChanged [
 AlbInfiniteEditorElement >> onGotFocus [
 
 	self editor onGotFocus.
-	self cursorElement ifNotNil: [ :c | c onGotFocus ]
+	self cursorElement onGotFocus.
+	self cursorElement hasParent ifFalse: [
+		self selecter
+			from: 0 to: 0;
+			select ]
 ]
 
 { #category : #'focus accessing' }
 AlbInfiniteEditorElement >> onLostFocus [
 
 	self editor onLostFocus.
-	self cursorElement ifNotNil: [:ce | ce onLostFocus]
+	self cursorElement onLostFocus
 ]
 
 { #category : #'hooks - scrolling' }