From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:46:19 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>Adaptor5Example</name> <environment>Examples</environment> <super>UI.ApplicationModel</super> <private>false</private> none vector <imports></imports> <category>Examples-Help</category> <attributes> <package>Adapt5-Example</package> </attributes> </class> <comment> Examples.Adaptor5Example
Adaptor5Example class demonstrates the use of an IndexedAdaptor to adapt an application model's aspects to the elements of an indexed domain model, such as a Vector (an Array). Instance Variables: vector <ValueHolder on: Vector> model on Vector instance
</comment> <class> <name>Vector</name> <environment>Examples</environment> <super>Core.Array</super> <private>false</private> objects <imports></imports> <category>Examples-Help</category> <attributes> <package>Adapt5-Example</package> </attributes> </class> <comment> Examples.Vector
Domain model for Adaptor5Example
</comment> <methods> Examples.Adaptor5Example <category>aspects</category>
vector ^vector
xAxis | adaptor | adaptor := IndexedAdaptor subjectChannel: self vector. ^adaptor forIndex: 1
yAxis | adaptor | adaptor := IndexedAdaptor subjectChannel: self vector. ^adaptor forIndex: 2
zAxis | adaptor | adaptor := IndexedAdaptor subjectChannel: self vector. ^adaptor forIndex: 3
</methods> <methods> Examples.Adaptor5Example <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.Adaptor5Example class <category>interface specs</category>
windowSpec "UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#FullSpec #window: #(#WindowSpec #label: 'Adaptor5Example' #min: #(#Point 20 20 ) #bounds: #(#Rectangle 181 323 380 524 ) ) #component: #(#SpecCollection #collection: #( #(#LabelSpec #layout: #(#Point 31 22 ) #label: 'x' ) #(#LabelSpec #layout: #(#Point 31 72 ) #label: 'y' ) #(#LabelSpec #layout: #(#Point 31 122 ) #label: 'z' ) #(#LabelSpec #layout: #(#Point 61 160 ) #label: '(These fields use' #style: #small ) #(#LabelSpec #layout: #(#Point 61 175 ) #label: 'IndexedAdaptors)' #style: #small ) #(#InputFieldSpec #layout: #(#Rectangle 60 22 160 43 ) #model: #xAxis #type: #number ) #(#InputFieldSpec #layout: #(#Rectangle 60 72 160 93 ) #model: #yAxis #type: #number ) #(#InputFieldSpec #layout: #(#Rectangle 60 121 160 143 ) #model: #zAxis #type: #number ) ) ) )
</methods> "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' <class> <name>Array</name> <environment>Core</environment> <super>Core.ArrayedCollection</super> <private>false</private> objects <imports></imports> <category>Collections-Arrayed</category> <attributes> <package>Collections-Arrayed</package> </attributes> </class> <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>