"{ Package: 'stx:goodies/metacello' }"

MetacelloAbstractPackageSpec subclass:#MetacelloGroupSpec

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Metacello-Core-Specs'

!

!MetacelloGroupSpec methodsFor:'accessing'!

answers: aListOfPairs

	self shouldNotImplement

!

requires: aCollection

	self shouldNotImplement

! !

!MetacelloGroupSpec methodsFor:'printing'!

configMethodCascadeOn: aStream member: aMember last: lastCascade indent: indent

	aMember methodUpdateSelector == #remove:

		ifTrue: [ aStream nextPutAll: 'removeGroup: ', self name printString. ]

		ifFalse: [

			aStream 

				nextPutAll: 'group: ', self name printString;

				space; 

				nextPutAll: aMember methodUpdateSelector asString, ' #('.

			self includes do: [:str | aStream nextPutAll: str printString, ' ' ].

			aStream nextPut: $) ].

	lastCascade

		ifTrue: [ aStream nextPut: $. ]

		ifFalse: [ aStream nextPut: $;; cr ].

!

configMethodOn: aStream indent: indent

	aStream 

		tab: indent;

		nextPutAll: 'spec '; cr;

		tab: indent + 1;

		nextPutAll: 'name: ', self name printString, ';'.

	self configMethodBodyOn: aStream hasName: true cascading: false indent: indent + 1.

	aStream nextPut: $.

! !

!MetacelloGroupSpec methodsFor:'visiting'!

projectDo: projectBlock packageDo: packageBlock groupDo: groupBlock

	groupBlock value: self

! !

!MetacelloGroupSpec class methodsFor:'documentation'!

version_SVN

    ^ '$Id::                                                                                                                        $'

! !