From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:48:12 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>PreferredCustomerExample</name> <environment>Examples</environment> <super>Examples.Customer1Example</super> <private>false</private> none yearsOfPatronage <imports></imports> <category>Examples-Help</category> <attributes> <package>PreferredCustomer-Example</package> </attributes> </class> <comment> Examples.PreferredCustomerExample
PreferredCustomerExample demonstrates creating a subclass by subclassing Customer1Example and adding an instance variable. Browse its initialize method.
</comment> <methods> Examples.PreferredCustomerExample <category>initialize-release</category>
initialize super initialize. yearsOfPatronage := 3.
</methods> "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' <class> <name>Customer1Example</name> <environment>Examples</environment> <super>Core.Object</super> <private>false</private> none accountID name address phoneNumber <imports></imports> <category>Examples-Help</category> <attributes> <package>Cust1-Example</package> </attributes> </class>