[Newbies] Loading package plus dependencies via monticello

Chris Cunningham cunningham.cb at gmail.com
Thu Aug 2 21:48:38 UTC 2007


Skipped content of type multipart/alternative-------------- next part --------------
'From Squeak3.8.1 of ''28 Aug 2006'' [latest update: #6747] on 2 August 2007 at 2:43:24 pm'!

!MCConfigurationBrowser methodsFor: 'repositories' stamp: 'CBC 8/2/2007 14:42'!
addRepository
	(self pickRepositorySatisfying: [:ea | (self repositories includes: ea) not])
		ifNotNilDo: [:repo |
"			(repo isKindOf: MCHttpRepository)
				ifFalse: [^self inform: 'Only HTTP repositories are supported']."
			self repositories add: repo.
			self changed: #repositoryList.
		]! !

!MCConfigurationBrowser methodsFor: 'repositories' stamp: 'CBC 8/2/2007 14:42'!
checkRepositories
"	| bad |
	bad := self repositories reject: [:repo | repo isKindOf: MCHttpRepository].
	^bad isEmpty or: [
		self selectRepository: bad first.
		self inform: (String streamContents: [:strm |
			strm nextPutAll: 'Please remove these repositories:'; cr.
			bad do: [:r | strm nextPutAll: r description; cr].
			strm nextPutAll: '(only HTTP repositories are supported)']).
		false]."
	^true! !


!MCDirectoryRepository methodsFor: 'as yet unclassified' stamp: 'CBC 8/2/2007 14:43'!
asCreationTemplate
	^'MCDirectory on: ', directory printString! !



More information about the Beginners mailing list