[squeak-dev] The Trunk: ToolBuilder-Morphic-mt.313.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Apr 20 09:27:44 UTC 2022
Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.313.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.313
Author: mt
Time: 20 April 2022, 11:27:43.577586 am
UUID: df6032ce-9892-e94e-8a9c-75d48dffafd7
Ancestors: ToolBuilder-Morphic-tpr.312
Complements ToolBuilder-Kernel-mt.158
=============== Diff against ToolBuilder-Morphic-tpr.312 ===============
Item was added:
+ ----- Method: MorphicUIManager>>chooseOptionFrom:values:lines:title: (in category 'ui requests') -----
+ chooseOptionFrom: labelList values: valueList lines: linesArray title: aString
+ "Choose an item from the given list. Answer the selected item."
+
+ | index |
+ self
+ askForProvidedAnswerTo: aString
+ ifSupplied:
+ [:answer |
+ (answer = #cancel or: [answer isNil]) ifTrue: [^ nil].
+ ^ valueList at: (labelList indexOf: answer) ifAbsent:
+ [answer isNumber
+ ifTrue: [valueList at: answer ifAbsent: [nil]]
+ ifFalse: [nil]]].
+
+ index := self chooseOptionFrom: labelList lines: linesArray title: aString.
+ ^ index = 0
+ ifTrue: [ nil ]
+ ifFalse: [ valueList at: index ]!
More information about the Squeak-dev
mailing list
|