The Inbox: ConfigBrowser-topa.5.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: ConfigBrowser-topa.5.mcz

commits-2
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].!