WAStoreCart

Comment:

A shopping cart.  This is essentially a specialized Bag: you can #add: or #remove: WAStoreItems to it, and calculate their #totalPrice.  You can also use #countsAndItems to get a collection of associations between the items and the number of times they appear in the cart, useful for summary displays.

Hierarchy:

ProtoObject

Object

WAStoreCart

Summary:

Detail:

	items ifNil: [items _ Bag new].
	items add: anObject

	^ items sortedCounts

	^ items notNil and: [items isEmpty not]

	^ items

	items remove: anObject ifAbsent: []

	^ items detectSum: [:ea | ea price]

^top