[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