[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