The Inbox: ConfigBrowser-ar.2.mcz

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

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

Name: ConfigBrowser-ar.2
Author: ar
Time: 19 May 2010, 11:35:28.93 pm
UUID: e3fdefc6-a611-e440-ad1a-050e8babb7a8
Ancestors: ConfigBrowser-ar.1

Per request, no versions. But do list author if available.

=============== Diff against ConfigBrowser-ar.1 ===============

Item was added:
+ ----- Method: ConfigProxy>>author (in category 'accessing') -----
+ author
+ ^author!

Item was added:
+ ----- Method: ConfigClass>>author (in category 'accessing') -----
+ author
+ self versions do:[:v| v author ifNotNil:[:a| ^a]].
+ ^nil!

Item was changed:
  Object subclass: #ConfigProxy
+ instanceVariableNames: 'blessing author targets description'
- instanceVariableNames: 'blessing targets description'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ConfigBrowser-UI'!

Item was added:
+ ----- Method: ConfigClass>>authorFor: (in category 'accessing') -----
+ authorFor: selector
+ | proxy |
+ proxy := ConfigProxy new.
+ item new perform: selector with: proxy.
+ ^proxy author!

Item was changed:
  ----- Method: ConfigClass>>items (in category 'accessing') -----
  items
  "Collect the available versions in the configuration"
+ true ifTrue:[^#()].
+ ^self versions!
-
- | versions |
- versions := Array streamContents:[:s|
- Pragma withPragmasIn: item do:[:pragma|
- (pragma keyword == #version:
- or:[pragma keyword == #version:imports:])
- ifTrue:[s nextPut: pragma selector -> pragma arguments first]]].
- versions := versions select:[:assoc| self isBlessingAcceptableIn: assoc key].
- ^versions collect:[:each|
- (ConfigVersion on: each value in: self) selector: each key
- ].!

Item was changed:
  ----- Method: ConfigClass>>description (in category 'accessing') -----
  description
 
  ^Text streamContents:[:s|
  s nextPutAll:'Name: ' asText allBold.
  s nextPutAll: self name.
+ s cr; nextPutAll:'Author: ' asText allBold.
+ s nextPutAll: (self author ifNil:['Unknown']).
+
+ " s cr; nextPutAll:'Versions: ' asText allBold.
+ self items do:[:each| s nextPutAll: each name] separatedBy:[s nextPutAll: ', ']."
- s cr; nextPutAll:'Versions: ' asText allBold.
- self items do:[:each| s nextPutAll: each name] separatedBy:[s nextPutAll: ', '].
  s cr; nextPutAll: 'Description: ' asText allBold.
  item hasComment ifTrue:[s cr; cr; nextPutAll: item comment].
  ]!

Item was added:
+ ----- Method: ConfigVersion>>author (in category 'accessing') -----
+ author
+ ^parent authorFor: selector!

Item was changed:
  ----- Method: ConfigProxy>>author: (in category 'api') -----
  author: aString
  "Author name"
+ author := aString.
 
  !

Item was added:
+ ----- Method: ConfigClass>>versions (in category 'accessing') -----
+ versions
+ "The actual versions"
+
+ | versions |
+ versions := Array streamContents:[:s|
+ Pragma withPragmasIn: item do:[:pragma|
+ (pragma keyword == #version:
+ or:[pragma keyword == #version:imports:])
+ ifTrue:[s nextPut: pragma selector -> pragma arguments first]]].
+ versions := versions select:[:assoc| self isBlessingAcceptableIn: assoc key].
+ ^versions collect:[:each|
+ (ConfigVersion on: each value in: self) selector: each key
+ ].!

On Thu, 20 May 2010 06:44:14.487 0000, [hidden email]
<[hidden email]> wrote: The ConfigBrowser looks neat. However clicking on 'Install' brings up
ConfigBrowser doesNotUnderstand: #installPackageRelease

--Hannes