[squeak-dev] The Trunk: MonticelloConfigurations-ul.150.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Mar 13 14:49:51 UTC 2017
Levente Uzonyi uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-ul.150.mcz
==================== Summary ====================
Name: MonticelloConfigurations-ul.150
Author: ul
Time: 13 March 2017, 2:39:52.445035 pm
UUID: 1a830f68-298a-46d1-aebb-e057733c9a93
Ancestors: MonticelloConfigurations-bf.149
SortedCollection Whack-a-mole
=============== Diff against MonticelloConfigurations-bf.149 ===============
Item was changed:
----- Method: MCConfigurationBrowser>>pickWorkingCopiesSatisfying: (in category 'morphic ui') -----
pickWorkingCopiesSatisfying: aBlock
| copies item |
copies := (MCWorkingCopy allManagers select: aBlock)
+ sort: [:a :b | a packageName <= b packageName].
- asSortedCollection: [:a :b | a packageName <= b packageName].
item := UIManager default chooseFrom: #('match ...'),(copies collect: [:ea | ea packageName]) lines: #(1) title: 'Package:'.
item = 1 ifTrue: [
| pattern |
pattern := UIManager default request: 'Packages matching:' initialAnswer: '*'.
^pattern isEmptyOrNil
ifTrue: [#()]
ifFalse: [
(pattern includes: $*) ifFalse: [pattern := '*', pattern, '*'].
copies select: [:ea | pattern match: ea packageName]]
].
^ item = 0
ifTrue: [#()]
ifFalse: [{copies at: item - 1}]!
More information about the Squeak-dev
mailing list
|