Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.158.mcz

==================== Summary ====================

Name: ToolBuilder-Kernel-mt.158
Author: mt
Time: 20 April 2022, 11:19:14.772586 am
UUID: a2ee749c-5f12-4d49-98e8-7cb1da888303
Ancestors: ToolBuilder-Kernel-tpr.157

Adds missing selectors of new #chooseOption... protocol. Avoid #subclassResponsibility when it can be implemented with existing messages.

=============== Diff against ToolBuilder-Kernel-tpr.157 ===============

Item was added:
+ ----- Method: UIManager>>chooseOptionFrom: (in category 'ui requests') -----
+ chooseOptionFrom: aList
+ 	"Choose an option from the given list. Answer the index of the selected item."
+ 	^self chooseOptionFrom: aList lines: #()!

Item was changed:
  ----- Method: UIManager>>chooseOptionFrom:lines:title: (in category 'ui requests') -----
  chooseOptionFrom: aList lines: linesArray title: aString
  	"Choose an option from the given list. Answer the index of the selected item."
+ 
+ 	^ self chooseFrom: aList lines: linesArray title: aString!
- 	^self subclassResponsibility!

Item was added:
+ ----- Method: UIManager>>chooseOptionFrom:values: (in category 'ui requests') -----
+ chooseOptionFrom: labelList values: valueList
+ 	"Choose an option from the given list. Answer the selected option from the valueList."
+ 	^self chooseOptionFrom: labelList values: valueList lines: #()!

Item was added:
+ ----- Method: UIManager>>chooseOptionFrom:values:lines: (in category 'ui requests') -----
+ chooseOptionFrom: labelList values: valueList lines: linesArray
+ 	"Choose an option from the given list. Answer the selected option from the valueList."
+ 	^self chooseOptionFrom: labelList values: valueList lines: linesArray title: ''!

Item was added:
+ ----- Method: UIManager>>chooseOptionFrom:values:lines:title: (in category 'ui requests') -----
+ chooseOptionFrom: labelList values: valueList lines: linesArray title: aString
+ 	"Choose an option from the given list. Answer the selected option from the valueList."
+ 	^ self chooseFrom: labelList values: valueList lines: linesArray title: aString!

Item was added:
+ ----- Method: UIManager>>chooseOptionFrom:values:title: (in category 'ui requests') -----
+ chooseOptionFrom: labelList values: valueList title: aString
+ 	"Choose an option from the given list. Answer the selected option from the valueList."
+ 	^self chooseOptionFrom: labelList values: valueList lines: #() title: aString!

Item was added:
+ ----- Method: UIManager>>chooseOptionFromLabeledValues: (in category 'ui requests') -----
+ chooseOptionFromLabeledValues: aDictionary
+ 	"Choose a key from the given dictionary. Answer the corresponding value."
+ 	^self chooseOptionFromLabeledValues: aDictionary title: ''!

Item was added:
+ ----- Method: UIManager>>chooseOptionFromLabeledValues:title: (in category 'ui requests') -----
+ chooseOptionFromLabeledValues: aDictionary title: aString
+ 	"Choose a key from the given dictionary. Answer the corresponding value."
+ 	^self chooseOptionFrom: aDictionary keys values: aDictionary values title: aString!