'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 11 August 2005 at 12:03:09 pm'!
Object subclass: #ListRootPersistent
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'SC-GoodsTools'!

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

ListRootPersistent class
	instanceVariableNames: ''!

!ListRootPersistent class methodsFor: 'initializing database' stamp: 'cds 8/11/2005 11:15'!
initializeInDatabase: db 
	db root at: self listName put: self makeCollection! !


!ListRootPersistent class methodsFor: 'subclass responsibility' stamp: 'cds 8/11/2005 11:15'!
listName
	"The String name of the list.  Must be unique in the GOODS database instance."
	self subclassResponsibility! !

!ListRootPersistent class methodsFor: 'subclass responsibility' stamp: 'cds 8/11/2005 11:16'!
makeCollection
	^OrderedCollection new! !


!ListRootPersistent class methodsFor: 'entries' stamp: 'cds 8/11/2005 11:16'!
addEntry: entry in: db
	(self allEntriesIn: db) add: entry! !

!ListRootPersistent class methodsFor: 'entries' stamp: 'cds 8/11/2005 11:17'!
allEntriesIn: db 
	^db root at: self listName! !

!ListRootPersistent class methodsFor: 'entries' stamp: 'cds 8/11/2005 11:18'!
removeEntry: entry in: db
	(self allEntriesIn: db) remove: entry! !