From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:49:24 pm (Dialog confirm: 'You are filing-in a Parcel source file!\\While this is possible it will not have\the same effect as loading the parcel.\None of the Parcel''s prerequisites will\be loaded and none of its load actions\will be performed.\\Are you sure you want to file-in?' withCRs) ifFalse: [self error: 'Parcel file-in abandoned. Choose terminate or close.'] <class> <name>Adaptor8Example</name> <environment>Examples</environment> <super>UI.ApplicationModel</super> <private>false</private> none vector <imports></imports> <category>Help-Examples</category> <attributes> <package>Adapt8-Example</package> </attributes> </class> <comment> Examples.Adaptor8Example
Adaptor8Example, a variation of Adaptor5Example, minimizes coding of IndexedAdaptors by using the application builder to build them from specifications. Instance Variables: vector <ValueHolder on: Vector> model on Vector instance
</comment> <methods> Examples.Adaptor8Example <category>initialize-release</category>
initialize vector := ( (Vector new: 3) at: 1 put: 5; at: 2 put: 10; at: 3 put: 15; yourself) asValue
</methods> <methods> Examples.Adaptor8Example <category>aspects</category>
vector ^vector
</methods> <methods> Examples.Adaptor8Example class <category>interface specs</category>
windowSpec "Tools.UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: 'Adaptor8Example' #min: #(#{Core.Point} 20 20 ) #bounds: #(#{Graphics.Rectangle} 800 600 999 801 ) ) #component: #(#{UI.SpecCollection} #collection: #( #(#{UI.LabelSpec} #layout: #(#{Core.Point} 31 22 ) #label: 'x' ) #(#{UI.LabelSpec} #layout: #(#{Core.Point} 31 72 ) #label: 'y' ) #(#{UI.LabelSpec} #layout: #(#{Core.Point} 31 122 ) #label: 'z' ) #(#{UI.LabelSpec} #layout: #(#{Core.Point} 61 160 ) #label: '(These fields use' #style: #small ) #(#{UI.LabelSpec} #layout: #(#{Core.Point} 61 175 ) #label: 'IndexedAdaptors)' #style: #small ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 60 22 160 43 ) #model: #'vector 1' #type: #number ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 60 72 160 93 ) #model: #'vector 2' #type: #number ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 60 121 160 143 ) #model: #'vector 3' #type: #number ) ) ) )
</methods> "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' <class> <name>ApplicationModel</name> <environment>UI</environment> <super>UI.Model</super> <private>false</private> none builder uiSession eventHandlers savedWindowInformation <imports></imports> <category>UIBuilder-Framework</category> <attributes> <package>UIBuilder-Framework</package> </attributes> </class>