'From Squeak3.3alpha of 18 January 2002 [latest update: #4924] on 24 July 2002 at 10:40:24 am'!
"Change Set:		seeInternalUpdates-sw
Date:			24 July 2002
Author:			Scott Wallace

Private to SqC!!  File this in and your image will subsequently be able to update from the SqC internal update servers.  When confronted with the prompt for which update server to use, choose the one named 'SqC Internal Updates*'

This update also includes a method for *removing* the SqC internal update stream from the list of update servers groups."!


!Utilities class methodsFor: 'fetching updates' stamp: 'sw 7/24/2002 10:19'!
assureAbsenceOfInternalUpdateStream
	"Check to see if the SqC Internal Updates server is in the list; if it is, *remove* it.  This is the *opposite* of #assureAvailabilityOfInternalUpdateStream"

	UpdateUrlLists ifNil: [UpdateUrlLists _ OrderedCollection new].
	UpdateUrlLists _ UpdateUrlLists select:
		[:pair | pair first ~= 'SqC Internal Updates*']


"Utilities assureAbsenceOfInternalUpdateStream"! !

!Utilities class methodsFor: 'fetching updates' stamp: 'sw 7/24/2002 10:13'!
assureAvailabilityOfInternalUpdateStream
	"Check to see if the SqC Internnal Updates server is in the list; if not, add it"

	UpdateUrlLists ifNil: [UpdateUrlLists _ OrderedCollection new].
	UpdateUrlLists do:
		[:pair | (pair first =  'SqC Internal Updates*') ifTrue: [^ self]].

	UpdateUrlLists addFirst: #('SqC Internal Updates*' #('squeak.cs.uiuc.edu/Squeak2.0/' 'update.squeakfoundation.org/external/'))

"Utilities assureAvailabilityOfInternalUpdateStream"! !

"Postscript:"
Utilities assureAvailabilityOfInternalUpdateStream.
!