[Enh]: OCR Element - Extract #selectedText

seandenigris · Oct 26, 2020 · 431ee4d · 431ee4d
1 parent 9c334fa
commit 431ee4d
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/ResourcesLive-GToolkit/RlhOCRElement.class.st b/src/ResourcesLive-GToolkit/RlhOCRElement.class.st
@@ -30,10 +30,8 @@ RlhOCRElement >> addShortcuts [
 		shortcut := BlShortcut new
 			combination: keyCombo;
 			action: [ :anEvent :aShortcut | 
-				| selectedText |
-				selectedText := (self selection first userData at: #node) string.
 				self client
-					write: (desc fromString: selectedText) 
+					write: (desc fromString: self selectedText) 
 					using: desc. ].
 		self addShortcut: shortcut ]
 ]
@@ -85,6 +83,11 @@ RlhOCRElement >> initialize [
 		requestFocus.
 ]
 
+{ #category : #accessing }
+RlhOCRElement >> selectedText [
+	^ (self selection first userData at: #node) string
+]
+
 { #category : #accessing }
 RlhOCRElement >> selection [
 	^ self selectionHandler selected_hOCR