Comment #7 on issue 3280 by gazzaguru2: Focus indicator for pluggable text
morphs not correctly drawn
http://code.google.com/p/pharo/issues/detail?id=3280
Though technically an unrelated issue try the following to see if you like
it better ;-)
PopupChoiceDialogWindow
filter: aString
"Set the value of filter, used to match the valid choices."
filter := aString.
self changed: #filter.
(self choiceMenus ifNil: [^self]) do: [:embeddedMenu |
embeddedMenu selectItem: nil event: nil]. "clear selection in other
menus"
self choiceMenus do: [:embeddedMenu |
embeddedMenu selectMatch: self filter asLowercase].
self filterMorph hasKeyboardFocus ifFalse: [
self activeHand newKeyboardFocus: self filterMorph.
self filterMorph selectFrom: filter size + 1 to: filter size +
1]
