core: add accessor for global text focus

hpi-swa · Oct 4, 2023 · 707fc4d · 707fc4d
1 parent 89dae6b
commit 707fc4d
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/packages/Sandblocks-Core/SBEditor.class.st b/packages/Sandblocks-Core/SBEditor.class.st
@@ -1676,6 +1676,12 @@ SBEditor >> summarizeActionsDuring: aBlock [
 	history summarizeActionsDuring: aBlock
 ]
 
+{ #category : #'as yet unclassified' }
+SBEditor >> textFocus [
+
+	^ self selection activeTextMorph
+]
+
 { #category : #actions }
 SBEditor >> toggleFullscreen [
 	<globalAction>