'From VisualWorks(R), Release 2.5 of September 26, 1995 on May 1, 1996 at 8:33:48 pm'!

ApplicationModel subclass: #Example2
	instanceVariableNames: 'model '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'MVC Examples'!


!Example2 methodsFor: 'aspects'!

model
	"*** changed April 23, 1996 at 1:17:55 pm by EML (Eric Lunt) ***"

	"This isn't exactly the same as the Java applet. Instead of assigning the second input field to the 
	first input field's model, we just tell them both to come here for their model."

	^model isNil
		ifTrue: [model := String new asValue]
		ifFalse: [model]! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

Example2 class
	instanceVariableNames: ''!


!Example2 class methodsFor: 'interface specs'!

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

	<resource: #canvas>
	^#(#FullSpec 
		#window: 
		#(#WindowSpec 
			#label: 'Example 2' 
			#bounds: #(#Rectangle 448 194 687 286 ) 
			#colors: 
			#(#LookPreferences 
				#setForegroundColor: nil 
				#setBackgroundColor: #(#ColorValue 6143 6143 8191 ) 
				#setSelectionForegroundColor: nil 
				#setSelectionBackgroundColor: nil 
				#setBorderColor: nil ) 
			#isEventDriven: true ) 
		#component: 
		#(#SpecCollection 
			#collection: #(
				#(#InputFieldSpec 
					#layout: #(#Rectangle 94 9 194 34 ) 
					#name: #field1 
					#model: #model 
					#numChars: 15 ) 
				#(#LabelSpec 
					#layout: #(#Point 21 10 ) 
					#label: 'Field 1:' ) 
				#(#LabelSpec 
					#layout: #(#Point 21 48 ) 
					#label: 'Field 2:' ) 
				#(#InputFieldSpec 
					#layout: #(#Rectangle 94 47 194 72 ) 
					#name: #field2 
					#model: #model 
					#numChars: 15 ) ) ) )! !