From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:49:52 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>LensExampleApplication</name> <environment>Smalltalk</environment> <super>Lens.LensMainApplication</super> <private>false</private> none <imports></imports> <category>Lens-Applications-New</category> <attributes> <package>Lens-Example2</package> </attributes> </class> <comment> LensExampleApplication
LensExampleApplication is a simple stand alone Lens application. It contains the database specifications for all three tables used, and inherits the machinery necessary to manipulate add and remove data. It doesn't contain any user interface for updating the database interactively.
</comment> <class> <name>Employee</name> <environment>Smalltalk</environment> <super>Core.Object</super> <private>false</private> none employeeId lastName firstName middleInitial hireDate salary commission jobId managerId <imports></imports> <category>Lens-Applications-New</category> <attributes> <package>Lens-Example2</package> </attributes> </class> <comment> Employee
Employee is an entity class, representing a single row in a database table. Instance variables represent columns. Instance Variables: employeeId <SerialNumber> Unique ID for this Employee lastName <String> Employee's last name firstName <String> Employee's first name middleInitial <String> Employee's middle initial hireDate <Date> Date of hire salary <FixedPoint> Employee's salary commission <String> Commission jobId <Job> Employee's Job managerId <Employee> Employee's Manager
</comment> <class> <name>Customer</name> <environment>Smalltalk</environment> <super>Core.Object</super> <private>false</private> none zipCode areaCode phoneNumber creditLimit comments salespersonId customerId <imports></imports> <category>Lens-Applications-New</category> <attributes> <package>Lens-Example2</package> </attributes> </class> <comment> Customer
Customer is an entity class, representing a single row in a database table. Instance variables represent columns. Instance Variables: customerId <SerialNumber> Unique ID representing this customer zipCode <String> Customer's ZIP code areaCode <String> Customer's area code phoneNumber <String> Customer's phone number creditLimit <FixedPoint> Customer's credit limit comments <String> Remarks on this customer salespersonId <Employee> Salesperson assigned to this customer
</comment> <class> <name>Job</name> <environment>Smalltalk</environment> <super>Core.Object</super> <private>false</private> none jobId function <imports></imports> <category>Lens-Applications-New</category> <attributes> <package>Lens-Example2</package> </attributes> </class> <comment> Job
Job is an entity class, representing a single row in a database table. Instance variables represent columns. Instance Variables: jobId <SerialNumber> Unique ID for this Job function <String> Job Description/function
</comment> <methods> LensExampleApplication class <category>accessing</category>
lockPolicy ^#lockOnAccept
</methods> <methods> Employee <category>accessing</category>
commission "Answer the receiver's commission." ^commission
commission: newCommission "Set the receiver's commission to newCommission." self update: 'commission' to: newCommission
employeeId "Answer the receiver's employeeId." ^employeeId
employeeId: newEmployeeId "Set the receiver's employeeId to newEmployeeId." self update: 'employeeId' to: newEmployeeId
firstName "Answer the receiver's firstName." ^firstName
firstName: newFirstName "Set the receiver's firstName to newFirstName." self update: 'firstName' to: newFirstName
hireDate "Answer the receiver's hireDate." ^hireDate
hireDate: newHireDate "Set the receiver's hireDate to newHireDate." self update: 'hireDate' to: newHireDate
job "Answer the receiver's job." ^job
job: newJob "Set the receiver's job to newJob." self update: 'job' to: newJob
jobId "Answer the receiver's jobId." ^jobId
jobId: newJobId "Set the receiver's jobId to newJobId." self update: 'jobId' to: newJobId
lastName "Answer the receiver's lastName." ^lastName
lastName: newLastName "Set the receiver's lastName to newLastName." self update: 'lastName' to: newLastName
managerId "Answer the receiver's managerId." ^managerId
managerId: newManagerId "Set the receiver's managerId to newManagerId." self update: 'managerId' to: newManagerId
middleInitial "Answer the receiver's middleInitial." ^middleInitial
middleInitial: newMiddleInitial "Set the receiver's middleInitial to newMiddleInitial." self update: 'middleInitial' to: newMiddleInitial
salary "Answer the receiver's salary." ^salary
salary: newSalary "Set the receiver's salary to newSalary." self update: 'salary' to: newSalary
</methods> <methods> Customer <category>accessing</category>
areaCode "Answer the receiver's areaCode." ^areaCode
areaCode: newAreaCode "Set the receiver's areaCode to newAreaCode." self update: 'areaCode' to: newAreaCode
comments "Answer the receiver's comments." ^comments
comments: newComments "Set the receiver's comments to newComments." self update: 'comments' to: newComments
creditLimit "Answer the receiver's creditLimit." ^creditLimit
creditLimit: newCreditLimit "Set the receiver's creditLimit to newCreditLimit." self update: 'creditLimit' to: newCreditLimit
customerId "Answer the receiver's customerId." ^customerId
customerId: newCustomerId "Set the receiver's customerId to newCustomerId." self update: 'customerId' to: newCustomerId
phoneNumber "Answer the receiver's phoneNumber." ^phoneNumber
phoneNumber: newPhoneNumber "Set the receiver's phoneNumber to newPhoneNumber." self update: 'phoneNumber' to: newPhoneNumber
salespersonId "Answer the receiver's salespersonId." ^salespersonId
salespersonId: newSalespersonId "Set the receiver's salespersonId to newSalespersonId." self update: 'salespersonId' to: newSalespersonId
zipCode "Answer the receiver's zipCode." ^zipCode
zipCode: newZipCode "Set the receiver's zipCode to newZipCode." self update: 'zipCode' to: newZipCode
</methods> <methods> Job <category>accessing</category>
function "Answer the receiver's function." ^function
function: newFunction "Set the receiver's function to newFunction." self update: 'function' to: newFunction
jobId "Answer the receiver's jobId." ^jobId
jobId: newJobId "Set the receiver's jobId to newJobId." self update: 'jobId' to: newJobId
</methods> <methods> LensExampleApplication class <category>interface specs</category>
windowSpec "UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: 'LensExampleApplication' #bounds: #(#{Graphics.Rectangle} 230 304 467 417 ) #flags: 4 #menu: #menuBar ) #component: #(#{UI.SpecCollection} #collection: #() ) )
</methods> <methods> LensExampleApplication class <category>lens data model specs</category>
dataModelSpec "LensEditor new openOnClass: self andSelector: #dataModelSpec" <resource: #dataModel> ^#(#{Lens.LensDataModel} #setDatabaseContext: #(#{Oracle7Context} #username: 'support' #environment: 'bear73' ) #structureTypes: #( #(#{Lens.LensStructureType} #memberClass: #{Customer} #setVariables: #( #(#{Lens.LensStructureVariable} #name: 'zipCode' #setValueType: #String #fieldType: #String #column: #(#{Oracle7TableColumn} #name: 'zipCode' #dataType: 'varchar2' #maxColumnConstraint: 10 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'areaCode' #setValueType: #String #fieldType: #String #column: #(#{Oracle7TableColumn} #name: 'areaCode' #dataType: 'varchar2' #maxColumnConstraint: 10 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'phoneNumber' #setValueType: #String #fieldType: #String #column: #(#{Oracle7TableColumn} #name: 'phoneNumber' #dataType: 'varchar2' #maxColumnConstraint: 10 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'creditLimit' #setValueType: #FixedPoint #fieldType: #FixedPoint #column: #(#{Oracle7TableColumn} #name: 'creditLimit' #dataType: 'number' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'comments' #setValueType: #String #fieldType: #String #column: #(#{Oracle7TableColumn} #name: 'comments' #dataType: 'varchar2' #maxColumnConstraint: 40 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'salespersonId' #setValueType: #Employee #fieldType: #Integer #column: #(#{Oracle7TableColumn} #name: 'salespersonId' #dataType: 'number' #isNotNil: true ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true #isNotNil: true ) #(#{Lens.LensStructureVariable} #name: 'customerId' #setValueType: #SerialNumber #fieldType: #Integer #column: #(#{Oracle7TableColumn} #name: 'customerId' #dataType: 'number' #isNotNil: true ) #generatesAccessor: true #generatesMutator: true #isId: true #privateIsMapped: true #isNotNil: true ) ) #table: #(#{Oracle7Table} #name: 'Customer' ) #defersPostingUpdates: true #idVariable: #('customerId' ) #idGeneratorType: #sequenceId #indexes: #() ) #(#{Lens.LensStructureType} #memberClass: #{Employee} #setVariables: #( #(#{Lens.LensStructureVariable} #name: 'employeeId' #setValueType: #SerialNumber #fieldType: #Integer #column: #(#{Oracle7TableColumn} #name: 'employeeId' #dataType: 'number' #isNotNil: true ) #generatesAccessor: true #generatesMutator: true #isId: true #privateIsMapped: true #isNotNil: true ) #(#{Lens.LensStructureVariable} #name: 'lastName' #setValueType: #String #fieldType: #String #column: #(#{Oracle7TableColumn} #name: 'lastName' #dataType: 'varchar2' #maxColumnConstraint: 30 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'firstName' #setValueType: #String #fieldType: #String #column: #(#{Oracle7TableColumn} #name: 'firstName' #dataType: 'varchar2' #maxColumnConstraint: 30 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'middleInitial' #setValueType: #String #fieldType: #String #column: #(#{Oracle7TableColumn} #name: 'middleInitial' #dataType: 'varchar2' #maxColumnConstraint: 10 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'hireDate' #setValueType: #Date #fieldType: #Timestamp #column: #(#{Oracle7TableColumn} #name: 'hireDate' #dataType: 'date' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'salary' #setValueType: #FixedPoint #fieldType: #FixedPoint #column: #(#{Oracle7TableColumn} #name: 'salary' #dataType: 'number' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'commission' #setValueType: #String #fieldType: #String #column: #(#{Oracle7TableColumn} #name: 'commission' #dataType: 'varchar2' #maxColumnConstraint: 30 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'jobId' #setValueType: #Job #fieldType: #Integer #column: #(#{Oracle7TableColumn} #name: 'jobId' #dataType: 'number' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'managerId' #setValueType: #Integer #fieldType: #Integer #column: #(#{Oracle7TableColumn} #name: 'managerId' #dataType: 'number' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) ) #table: #(#{Oracle7Table} #name: 'Employee' ) #defersPostingUpdates: true #idVariable: #('employeeId' ) #idGeneratorType: #sequenceId #indexes: #() ) #(#{Lens.LensStructureType} #memberClass: #{Job} #setVariables: #( #(#{Lens.LensStructureVariable} #name: 'jobId' #setValueType: #SerialNumber #fieldType: #Integer #column: #(#{Oracle7TableColumn} #name: 'jobId' #dataType: 'number' #isNotNil: true ) #generatesAccessor: true #generatesMutator: true #isId: true #privateIsMapped: true #isNotNil: true ) #(#{Lens.LensStructureVariable} #name: 'function' #setValueType: #String #fieldType: #String #column: #(#{Oracle7TableColumn} #name: 'function' #dataType: 'varchar2' #maxColumnConstraint: 30 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) ) #table: #(#{Oracle7Table} #name: 'Job' ) #defersPostingUpdates: true #idVariable: #('jobId' ) #idGeneratorType: #sequenceId #indexes: #() ) ) #lensPolicyName: #Mixed #lensTransactionPolicyName: #PessimisticRR #validity: #installed )
</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> <class> <name>LensMainApplication</name> <environment>Lens</environment> <super>Lens.LensApplicationModel</super> <private>false</private> none <imports></imports> <category>Lens-Applications-Framework</category> <attributes> <package>Lens-Runtime</package> </attributes> </class>