[Pkg] Installer: Installer-Core-damiencassou.294.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

Damien Cassou uploaded a new version of Installer-Core to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-damiencassou.294.mcz

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

Name: Installer-Core-damiencassou.294
Author: damiencassou
Time: 20 February 2009, 8:34:51 pm
UUID: d75d0b42-70f5-4dfc-a5ce-19ba79a14dd2
Ancestors: Installer-Core-kph.293

- Fix printString

=============== Diff against Installer-Core-kph.293 ===============

Item was added:
+ ----- Method: InstallerMonticello>>printConfigurationOn: (in category 'as yet unclassified') -----
+ printConfigurationOn: stream
+ 	self project
+ 		ifNotNil: [:projectName | stream
+ 							nextPutAll: ' project:''';
+ 							nextPutAll: projectName;
+ 							nextPut: $']!

Item was added:
+ ----- Method: InstallerWeb class>>label (in category 'accessing') -----
+ label
+ 	^ 'web'!

Item was changed:
  ----- Method: Installer>>search: (in category 'searching') -----
  search: aMatch
- 
- 	self sm ifTrue: [ ^ self smSearch: ('*',aMatch,'*') ].
- 	self mc ifNotNil: [ ^ self mcSearch: ('*',aMatch,'*')  ].
- 	self wsm ifNotNil: [ ^ self wsmSearch: ('*',aMatch,'*')  ].
  	^'search type not supported'!

Item was added:
+ ----- Method: InstallerSqueakMap class>>label (in category 'accessing') -----
+ label
+ 	^ 'squeakmap'!

Item was added:
+ ----- Method: InstallerCruft class>>label (in category 'accessing') -----
+ label
+ 	^ 'cruft'!

Item was added:
+ ----- Method: InstallerUpdateStream class>>label (in category 'accessing') -----
+ label
+ 	^ 'updatestream'!

Item was changed:
  ----- Method: Installer>>printOn: (in category 'printing') -----
  printOn: s
+ 	s
+ 		nextPutAll: '(Installer ';
+ 		nextPutAll: self label;
+ 		nextPut: $).
- 
- 	"I don't feel like fixing this yet"
- 	true ifTrue: [^ super printOn: s].
-  
- 	s nextPutAll: '(Installer'.
  
+ 	"lf project ifNotNil: [ s nextPutAll: ' project:'; nextPutAll: '''', self project, ''''.
+ 						self package ifNotNil: [ s nextPutAll: '; '] ]."
- 	self sm ifTrue: [ s nextPutAll: ' squeakmap' ].
- 	self ma ifNotNil: [ s nextPutAll: ' mantis' ].
- 	self wsm ifNotNil: [ s nextPutAll: ' websqueakmap' ].
- 	self url ifNotNil: [ s nextPutAll: ' url:''', self url,'''' ].
- 	self mc ifNotNil: [ s nextPutAll: ' repository:''', mc description,'''' ].
- 
- 	s nextPut: $).
- 
- 	self project ifNotNil: [ s nextPutAll: ' project:'; nextPutAll: '''', self project, ''''.
- 						self package ifNotNil: [ s nextPutAll: '; '] ].
- 					
  	self package ifNotNil: [ s nextPutAll: ' package:'; nextPutAll: '''', self package asString, '''' ].
+ 	self printConfigurationOn: s.
- 					
  	s nextPut: $..!

Item was added:
+ ----- Method: Installer class>>label (in category 'accessing') -----
+ label
+ 	^ ''!

Item was added:
+ ----- Method: InstallerUrl class>>label (in category 'accessing') -----
+ label
+ 	^ 'url'!

Item was added:
+ ----- Method: InstallerSqueakMap>>search: (in category 'searching') -----
+ search: aMatch  
+ 
+ 	| results |
+ 	results := Set new.
+ 	self availablePackages do: [ :pkg |
+ 		({ 'name:',pkg name.
+ 		   'summary:', pkg summary.
+ 		   'description:', pkg description.
+ 		   'author:', pkg author. } anySatisfy: [ :field | aMatch match: field ])
+ 		 ifTrue: [ results add: (self copy package: pkg name) ]. 
+ 	].
+ 	^results
+ 
+ !

Item was added:
+ ----- Method: Installer>>label (in category 'accessing') -----
+ label
+ 	^ self class label!

Item was added:
+ ----- Method: InstallerMonticello class>>label (in category 'accessing') -----
+ label
+ 	^ 'monticello'!

Item was added:
+ ----- Method: InstallerSake class>>label (in category 'accessing') -----
+ label
+ 	^ 'sake'!

Item was added:
+ ----- Method: InstallerWebSqueakMap class>>label (in category 'accessing') -----
+ label
+ 	^ 'websqueammap'!

Item was added:
+ ----- Method: InstallerUrl>>label (in category 'accessing') -----
+ label
+ 	^ 'url:''', url, ''''!

Item was added:
+ ----- Method: InstallerMonticello>>label (in category 'accessing') -----
+ label
+ 	^ 'repository:''', mc description, ''''!

Item was added:
+ ----- Method: InstallerFile class>>label (in category 'accessing') -----
+ label
+ 	^ 'file'!

Item was added:
+ ----- Method: Installer>>printConfigurationOn: (in category 'printing') -----
+ printConfigurationOn: stream
+ 	!

Item was added:
+ ----- Method: InstallerMantis class>>label (in category 'accessing') -----
+ label
+ 	^ 'mantis'!

Item was added:
+ ----- Method: InstallerUniverse class>>label (in category 'as yet unclassified') -----
+ label
+ 	^ 'universe'!

Item was removed:
- ----- Method: InstallerSqueakMap>>smSearch: (in category 'searching') -----
- smSearch: aMatch  
- 
- 	| results |
- 	results := Set new.
- 	self availablePackages do: [ :pkg |
- 		({ 'name:',pkg name.
- 		   'summary:', pkg summary.
- 		   'description:', pkg description.
- 		   'author:', pkg author. } anySatisfy: [ :field | aMatch match: field ])
- 		 ifTrue: [ results add: (self copy package: pkg name) ]. 
- 	].
- 	^results
- 
- !