From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:46:09 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>Customer2Example</name> <environment>Examples</environment> <super>Core.Object</super> <private>false</private> none customers <imports></imports> <category>Examples-Help</category> <attributes> <package>Cust2-Example</package> </attributes> </class> <comment> Examples.Customer2Example
This example class is the domain model for Adaptor4Example and others. Instances are collections of customer objects, instances of Customer1Example.
</comment> <methods> Examples.Customer2Example <category>accessing</category>
customers ^customers
customers: aCollection customers := aCollection
</methods> <methods> Examples.Customer2Example <category>initialize-release</category>
initialize customers := OrderedCollection new.
</methods> <methods> Examples.Customer2Example class <category>instance creation</category>
new ^super new initialize
</methods> "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' <class> <name>Object</name> <environment>Core</environment> <super></super> <private>false</private> none <imports></imports> <category>Kernel-Objects</category> <attributes> <package>Kernel-Objects</package> </attributes> </class>