The Trunk: ToolBuilder-Morphic-mt.165.mcz

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!