#UI_ENHANCEMENT by cg
class: TextView
changed:
#flyByHelpSpec
#openSearchBoxAndSearch
focus behavior for modeless searchbox
--- a/TextView.st Fri May 13 02:54:14 2016 +0200
+++ b/TextView.st Sat May 14 15:41:53 2016 +0200
@@ -333,16 +333,16 @@
^ Dictionary new addPairsFrom:#(
#matchSearch
-'Search for a pattern (glob) as opposed to a direct string search'
+'Search for a pattern (GLOB) as opposed to a direct string search'
#searchCaseSensitive
'Care for case differences'
#searchFullWord
-'Search only for full words (ignore occurrences as substring)'
+'Search only for full words (ignore occurrences in substring)'
#searchAtBeginOfLineOnly
-'Search only for the string at the beginning if a line'
+'Search only for the string at the beginning of a line'
#searchPattern
'String or match-pattern to be searched'
@@ -351,7 +351,7 @@
'Search only for that variable name (ignore occurrences in other contexts)'
#replaceText
-'If checked, matching text is replaced by this (everywhere)'
+'If checked, matching text is replaced by this'
#selectLines
'If checked, lines containing the matched string are selected.'
@@ -366,7 +366,7 @@
'Wrap around at the end of the text, and continue the search from the top'
#matchWithRegex
-'Use regex pattern for search (as opposed to glob pattern)'
+'Use regex pattern for search (as opposed to GLOB pattern)'
)
! !
@@ -2246,7 +2246,10 @@
(modal not
and:[ searchBox window realized ]) ifTrue:[
"/ reuse it.
- searchBox raiseDeiconified.
+ searchBox window
+ raiseDeiconified;
+ requestFocus;
+ assignKeyboardFocusToFirstKeyboardConsumer.
^ self.
].
searchBox closeRequest.