[squeak-dev] The Trunk: ToolBuilder-Morphic-tpr.314.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu May 12 19:48:31 UTC 2022
tim Rowledge uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-tpr.314.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-tpr.314
Author: tpr
Time: 12 May 2022, 12:48:30.296071 pm
UUID: 73487fcb-62cf-4a6a-8254-0473faf55697
Ancestors: ToolBuilder-Morphic-mt.313
Extend the #chooseClassOr... to handle a list of recently browser-viewed classes. This allows the 'find class...' dialog to add those classes at the top of the list of all classes.
=============== Diff against ToolBuilder-Morphic-mt.313 ===============
Item was changed:
----- Method: MorphicUIManager>>chooseClassOrTrait:from: (in category 'ui requests') -----
chooseClassOrTrait: label from: environment
"Let the user choose a Class or Trait. Use ListChooser in Morphic."
+ ^self chooseClassOrTrait: label from: environment withRecentList: nil!
- | names index |
- names := environment classAndTraitNames.
- index := self
- chooseFrom: names
- lines: #()
- title: label.
- index = 0 ifTrue: [ ^nil ].
- ^environment
- at: (names at: index)
- ifAbsent: [ nil ]!
Item was added:
+ ----- Method: MorphicUIManager>>chooseClassOrTrait:from:withRecentList: (in category 'ui requests') -----
+ chooseClassOrTrait: label from: environment withRecentList: recentList
+ "Let the user choose a Class or Trait. Use ListChooser in Morphic."
+
+ | names index |
+ names := environment classAndTraitNames.
+ recentList ifNotNil:
+ [names := names asOrderedCollection addAllFirst: recentList; yourself ].
+ index := self
+ chooseFrom: names
+ lines: #()
+ title: label.
+ index = 0 ifTrue: [ ^nil ].
+ ^environment
+ at: (names at: index)
+ ifAbsent: [ nil ]!
More information about the Squeak-dev
mailing list
|