[squeak-dev] The Inbox: ConfigBrowser-topa.5.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Feb 18 08:06:40 UTC 2017


A new version of ConfigBrowser was added to project The Inbox:
http://source.squeak.org/inbox/ConfigBrowser-topa.5.mcz

==================== Summary ====================

Name: ConfigBrowser-topa.5
Author: topa
Time: 18 February 2017, 9:06:32.806 am
UUID: 885aa44d-ac83-4ab2-b1e7-5538e2fe7775
Ancestors: ConfigBrowser-tbn.4

Make loadable with new Metacello

=============== Diff against ConfigBrowser-tbn.4 ===============

Item was added:
+ ----- Method: ConfigBrowser>>packagesMenu: (in category 'model access') -----
+ packagesMenu: aMenu
+ 
+ 	^ aMenu!

Item was changed:
  ----- Method: ConfigCategory>>items (in category 'accessing') -----
  items
  	"Collect the config classes in this category"
  
  	| list |
+ 	list :=  MetacelloToolBox configurationClasses select:[:aClass| aClass category = item].
+ 	^(list asArray sort:[:c1 :c2| c1 name <= c2 name]) collect:[:each| ConfigClass on: each in: self]
- 	list := MetacelloConfiguration allSubclasses select:[:aClass| aClass category = item].
- 	^(list sort:[:c1 :c2| c1 name <= c2 name]) collect:[:each| ConfigClass on: each in: self]
  !

Item was changed:
  ----- Method: ConfigClass>>name (in category 'accessing') -----
  name
  	"Strip off the ConfigurationOf from the class name"
  
+ 	(item name beginsWith: 'ConfigurationOf')
+ 		ifTrue:[^ item name allButFirst: 'ConfigurationOf' size].
+ 	(item name beginsWith: 'BaselineOf')
+ 		ifTrue:[^ item name allButFirst: 'BaselineOf' size].
+ 	^ item name!
- 	^(item name beginsWith: 'ConfigurationOf')
- 		ifTrue:[item name allButFirst: 'ConfigurationOf' size]
- 		ifFalse:[item name]!

Item was added:
+ ----- Method: ConfigProxy>>baseline:with: (in category 'api') -----
+ baseline: aString with: aBlock 
+ 
+ 	"Defines a new basline (external target) with settings in aBlock.
+ 	Baseline target = BaselineOfXXX + package"
+ 	aBlock value.!

Item was added:
+ ----- Method: ConfigProxy>>import: (in category 'api') -----
+ import: aString 
+ 
+ 	!

Item was changed:
  ----- Method: ConfigRoot>>items (in category 'accessing') -----
  items
  	| classes categories |
+ 	classes := MetacelloToolBox configurationClasses.
- 	classes := MetacelloConfiguration allSubclasses.
  	categories := classes collect:[:each| each category] as: Set.
  	^(categories asArray sort) collect:[:cat| ConfigCategory on: cat in: self].!



More information about the Squeak-dev mailing list