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].!
squeak-dev@lists.squeakfoundation.org