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!
packages@lists.squeakfoundation.org