'From VisualWorks(R), Release 2.5 of September 26, 1995 on May 5, 1996 at 10:06:36 pm'!

ApplicationModel subclass: #Example6
	instanceVariableNames: 'listModel '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'MVC Examples'!


!Example6 methodsFor: 'actions'!

populateListWithBulls
	"*** changed May 2, 1996 at 10:16:04 am by EML (Eric Lunt) ***"

	"Make the list have Strings which represent Bulls players"

	| newList |
	newList := OrderedCollection withAll: #('Scottie Pippen' 'Dennis Rodman' 'Luc Longley' 'Ron Harper' 'Micheal Jordan').
	self listModel list: newList!

populateListWithMagic
	"*** changed May 2, 1996 at 10:15:14 am by EML (Eric Lunt) ***"

	"Make the list have Strings which represent Magic players"

	| newList |
	newList := OrderedCollection withAll: #('Dennis Scott' 'Shaquille O''Neal' 'Anfernee Hardaway' 'Nick Andersen' 'Horace Grant').
	self listModel list: newList! !

!Example6 methodsFor: 'aspects'!

listModel
	"*** changed May 2, 1996 at 10:10:42 am by EML (Eric Lunt) ***"

	"This is the model behind playerList"

	^listModel isNil
		ifTrue:
			[listModel := SelectionInList new]
		ifFalse:
			[listModel]! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

Example6 class
	instanceVariableNames: ''!


!Example6 class methodsFor: 'interface specs'!

windowSpec
	"UIPainter new openOnClass: self andSelector: #windowSpec"

	<resource: #canvas>
	^#(#FullSpec 
		#window: 
		#(#WindowSpec 
			#label: 'Example 6' 
			#bounds: #(#Rectangle 117 319 300 522 ) 
			#colors: 
			#(#LookPreferences 
				#setBackgroundColor: #(#ColorValue 6143 6143 8191 ) ) 
			#isEventDriven: true ) 
		#component: 
		#(#SpecCollection 
			#collection: #(
				#(#SequenceViewSpec 
					#layout: #(#LayoutFrame 0 0 25 0 0 1 -25 1 ) 
					#name: #playerList 
					#model: #listModel 
					#useModifierKeys: true 
					#selectionType: #highlight ) 
				#(#ActionButtonSpec 
					#layout: #(#LayoutFrame 0 0 0 0 0 1 25 0 ) 
					#name: #bullsButton 
					#model: #populateListWithBulls 
					#label: 'The Bulls' 
					#defaultable: true ) 
				#(#ActionButtonSpec 
					#layout: #(#LayoutFrame 0 0 -25 1 0 1 0 1 ) 
					#name: #magicButton 
					#model: #populateListWithMagic 
					#label: 'The Magic' 
					#defaultable: true ) ) ) )! !