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

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


!Example1 methodsFor: 'actions'!

printValue
	"*** changed April 23, 1996 at 1:13:28 pm by EML (Eric Lunt) ***"

	"If the button is pressed, print the current value of the model to the Transcript."

	Transcript show: 'The current value is '; show: self model value; cr! !

!Example1 methodsFor: 'aspects'!

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

	"This is the model behind the input field. Give it an initial value."

	^model isNil
		ifTrue: [model := 'Initial' asValue]
		ifFalse: [model]! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

Example1 class
	instanceVariableNames: ''!


!Example1 class methodsFor: 'interface specs'!

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

	<resource: #canvas>
	^#(#FullSpec 
		#window: 
		#(#WindowSpec 
			#label: 'Example 1' 
			#bounds: #(#Rectangle 448 194 687 246 ) 
			#colors: 
			#(#LookPreferences 
				#setForegroundColor: nil 
				#setBackgroundColor: #(#ColorValue 6143 6143 8191 ) 
				#setSelectionForegroundColor: nil 
				#setSelectionBackgroundColor: nil 
				#setBorderColor: nil ) 
			#isEventDriven: true ) 
		#component: 
		#(#SpecCollection 
			#collection: #(
				#(#InputFieldSpec 
					#layout: #(#Rectangle 12 9 112 34 ) 
					#name: #field 
					#model: #model 
					#numChars: 15 ) 
				#(#ActionButtonSpec 
					#layout: #(#Rectangle 134 9 221 34 ) 
					#name: #printValue 
					#model: #printValue 
					#label: 'Print Value' 
					#defaultable: true ) ) ) )! !