[Pkg] Installer: Installer-Core-damiencassou.294.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Fri Feb 20 19:34:56 UTC 2009
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
-
- !
More information about the Packages
mailing list