ModelValueViewContainer subclass: #ItemViewContainer
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Vending Views'!


!ItemViewContainer methodsFor: 'view creation'!

buildViewOn: aDispensingHolder 
	self addNameViewOn: aDispensingHolder.
	self addPriceViewOn: aDispensingHolder.
	self addSelectButtonOn: aDispensingHolder.! !

!ItemViewContainer methodsFor: 'view layout'!

addNameViewOn: aDispensingHolder 
	| itemView itemArea |
	itemView := self makeDisplayBoxOn: aDispensingHolder 
				for: #dispensableItemName.
	itemArea := self constraintFrame: 0 @ 0
					corner: 2 / 3 @ (1 / 2).
	self addView: itemView in: itemArea!

addPriceViewOn: aDispensingHolder
	| itemView itemArea |
	itemView := self makeDisplayBoxOn: aDispensingHolder
				for: #dispensableItemPrice.
	itemArea := self constraintFrame: 0 @ (1 / 2) 
					corner: 2 / 3 @ 1.
	self addView: itemView in: itemArea!

addSelectButtonOn: aDispensingHolder 
	| button buttonArea |
	button := self
				makeButton: 'Select'
				on: aDispensingHolder
				for: #vendTheDispensableItem.
	buttonArea := self constraintFrame: 2 / 3 @ (1 / 2) corner: 1 @ 1.
	self addView: button in: buttonArea! !

!ItemViewContainer methodsFor: 'window opening'!

windowLabel
	^'Items'!

windowSize
	^200 @ 66	"pixels"! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

ItemViewContainer class
	instanceVariableNames: ''!


!ItemViewContainer class methodsFor: 'demos'!

vendingMachineDemoFor: dispensingHolders and: 
	cashDevice 
	| composite rowFraction window |
	composite := ModelValueViewContainer new.
	rowFraction := 1.0 / dispensingHolders size.
	1 to: dispensingHolders size do: [:index | self
			viewFor: (dispensingHolders at: index) 
			in: composite
			at: index - 1 * rowFraction
			to: index * rowFraction].
	window := ScheduledWindow new.
	window component: composite.
	window minimumSize: 200 @ 200.
	window label: 'Vending Machine'.
	window open.
	CashDeviceViewContainer new openOn: cashDevice!

viewFor: dispenser in: composite at: topFraction 
	to: bottomFraction 
	| itemContainer frame |
	itemContainer := ItemViewContainer new buildViewOn: 
		dispenser.
	frame := composite constraintFrame: 0 @ topFraction 
		corner: 1 @ bottomFraction.
	composite addView: itemContainer in: frame! !

ModelValueViewContainer subclass: #CashDeviceViewContainer
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Vending Views'!


!CashDeviceViewContainer methodsFor: 'prototypes'!

class
	"Answer the object which is the receiver's class."

	<primitive: 111>
	self primitiveFailed!

doesNotUnderstand: aMessage 
	"The default behavior is to create a Notifier containing the 
	appropriate message and to allow the user to open a Debugger. 
	Subclasses can override this message in order to modify this behavior."

	(Object canUnderstand: aMessage selector)
		ifTrue:	[self class copy: aMessage selector from: Object.
				^self perform: aMessage selector withArguments: aMessage arguments].

	^Object messageNotUnderstoodSignal
		raiseRequestWith: aMessage
		errorString: 'Message not understood: ' , aMessage selector! !

!CashDeviceViewContainer methodsFor: 'view creation'!

buildViewOn: aMoneyDevice 

	self addValueViewOn: aMoneyDevice.
	self addIncrementButtonOn: aMoneyDevice.
	self addReturnButtonOn: aMoneyDevice.! !

!CashDeviceViewContainer methodsFor: 'view layout'!

addIncrementButtonOn: aCashDevice 
	| button buttonArea |
	button := self
			makeButton: 'Add Cash'
			on: aCashDevice
			for: #addCash.
	buttonArea := self constraintFrame: 2 /3 @ 0
				corner: 1 @ (1 / 2).
	self addView: button in: buttonArea!

addReturnButtonOn: aCashDevice
	| button buttonArea |
	button := self
			makeButton: 'Return'
			on: aCashDevice
			for: #return.
	buttonArea := self constraintFrame: 2 /3 @ (1 / 2)
				corner: 1 @ 1.
	self addView: button in: buttonArea!

addValueViewOn: aMoneyDevice
	| itemView itemArea |
	itemView := self makeDisplayBoxOn: aMoneyDevice
				for: #amountCollected.
	itemArea := self constraintFrame: 0 @ 1 / 3
				corner: 2 / 3 @ 2 / 3.
	self addView: itemView in: itemArea! !

!CashDeviceViewContainer methodsFor: 'window opening'!

windowLabel
	^'Cash Device'!

windowSize
	^250 @ 50  "pixels"! !