Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.165.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.165 Author: mt Time: 1 June 2016, 4:43:17.541666 pm UUID: eb5a9bb7-d38f-c84d-bf97-5643786996e8 Ancestors: ToolBuilder-Morphic-cmm.164
Our list choosers use system windows. Request input for specific data. Use that to update the current keyboard focus. See #update:with: in pluggable list and text morphs.
=============== Diff against ToolBuilder-Morphic-cmm.164 ===============
Item was changed: ----- Method: ListChooser>>chooseItemFrom:title:addAllowed: (in category 'initialize-release') ----- chooseItemFrom: labelList title: aString addAllowed: aBoolean fullList := labelList asOrderedCollection. "coerce everything into an OC" builder := ToolBuilder default. self list: fullList. self title: aString. addAllowed := aBoolean. window := ToolBuilder default open: self. window center: Sensor cursorPoint. window setConstrainedPosition: (Sensor cursorPoint - (window fullBounds extent // 2)) hangOut: false. + + self changed: #inputRequested with: #searchText. + window lookFocused. "Sigh..." + builder runModal: window. ^ result!
Item was changed: ----- Method: ListMultipleChooser>>choose (in category 'actions') ----- choose
| builder window | builder := ToolBuilder default. window := builder open: self.. window center: Sensor cursorPoint. "Avoid morphic dependency here..." + + self changed: #inputRequested with: #selectedIndex. + window lookFocused. "Sigh..." + builder runModal: window. ^ self selectedValues!