From VisualWorks®, Pre-Release 7.2 (oct03.1) of 06.10.2003г. on 13.10.2003г. at 13:56:11.000 (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>Tableall</name> <environment>Smalltalk</environment> <super>Core.Object</super> <private>false</private> none unused1 varcharfield varcharbitfield charfield charbitfield longvarcharfield longvarcharbitfield integerfield unused2 smallintfield bigintfield decimalfield decimalfield2 floatfield doublefield datefield timefield timestampfield blobfield clobfield datalinkfield <imports></imports> <category>Lens-Private-DB2</category> <attributes> <package>DB2LensTest</package> </attributes> </class> <class> <name>Db2LensTestAllModel</name> <environment>Smalltalk</environment> <super>Lens.LensMainApplication</super> <private>false</private> none <imports></imports> <category>Lens-Private-DB2</category> <attributes> <package>DB2LensTest</package> </attributes> </class> <class> <name>DB2LensTest</name> <environment>Smalltalk</environment> <super>Core.Object</super> <private>false</private> none <imports></imports> <category>Lens-Private-DB2</category> <attributes> <package>DB2LensTest</package> </attributes> </class> <class> <name>DB2LensTestAllForm</name> <environment>Smalltalk</environment> <super>Lens.LensDataManager</super> <private>false</private> none var <imports></imports> <category>Lens-Private-DB2</category> <attributes> <package>DB2LensTest</package> </attributes> </class> <methods> Tableall <category>accessing</category>
bigintfield "Answer the receiver's bigintfield." ^bigintfield
bigintfield: newBigintfield "Set the receiver's bigintfield to newBigintfield." self update: 'bigintfield' to: newBigintfield
blobfield "Answer the receiver's blobfield." ^blobfield
blobfield: newBlobfield "Set the receiver's blobfield to newBlobfield." self update: 'blobfield' to: newBlobfield
charbitfield "Answer the receiver's charbitfield." ^charbitfield
charbitfield: newCharbitfield "Set the receiver's charbitfield to newCharbitfield." self update: 'charbitfield' to: newCharbitfield
charfield "Answer the receiver's charfield." ^charfield
charfield: newCharfield "Set the receiver's charfield to newCharfield." self update: 'charfield' to: newCharfield
clobfield "Answer the receiver's clobfield." ^clobfield
clobfield: newClobfield "Set the receiver's clobfield to newClobfield." self update: 'clobfield' to: newClobfield
datalinkfield "Answer the receiver's datalinkfield." ^datalinkfield
datalinkfield: newDatalinkfield "Set the receiver's datalinkfield to newDatalinkfield." self update: 'datalinkfield' to: newDatalinkfield
datefield "Answer the receiver's datefield." ^datefield
datefield: newDatefield "Set the receiver's datefield to newDatefield." self update: 'datefield' to: newDatefield
decimalfield "Answer the receiver's decimalfield." ^decimalfield
decimalfield2 "Answer the receiver's decimalfield2." ^decimalfield2
decimalfield2: newDecimalfield2 "Set the receiver's decimalfield2 to newDecimalfield2." self update: 'decimalfield2' to: newDecimalfield2
decimalfield: newDecimalfield "Set the receiver's decimalfield to newDecimalfield." self update: 'decimalfield' to: newDecimalfield
doublefield "Answer the receiver's doublefield." ^doublefield
doublefield: newDoublefield "Set the receiver's doublefield to newDoublefield." self update: 'doublefield' to: newDoublefield
floatfield "Answer the receiver's floatfield." ^floatfield
floatfield: newFloatfield "Set the receiver's floatfield to newFloatfield." self update: 'floatfield' to: newFloatfield
integerfield "Answer the receiver's integerfield." ^integerfield
integerfield: newIntegerfield "Set the receiver's integerfield to newIntegerfield." self update: 'integerfield' to: newIntegerfield
longvarcharbitfield "Answer the receiver's longvarcharbitfield." ^longvarcharbitfield
longvarcharbitfield: newLongvarcharbitfield "Set the receiver's longvarcharbitfield to newLongvarcharbitfield." self update: 'longvarcharbitfield' to: newLongvarcharbitfield
longvarcharfield "Answer the receiver's longvarcharfield." ^longvarcharfield
longvarcharfield: newLongvarcharfield "Set the receiver's longvarcharfield to newLongvarcharfield." self update: 'longvarcharfield' to: newLongvarcharfield
smallintfield "Answer the receiver's smallintfield." ^smallintfield
smallintfield: newSmallintfield "Set the receiver's smallintfield to newSmallintfield." self update: 'smallintfield' to: newSmallintfield
timefield "Answer the receiver's timefield." ^timefield
timefield: newTimefield "Set the receiver's timefield to newTimefield." self update: 'timefield' to: newTimefield
timestampfield "Answer the receiver's timestampfield." ^timestampfield
timestampfield: newTimestampfield "Set the receiver's timestampfield to newTimestampfield." self update: 'timestampfield' to: newTimestampfield
varcharbitfield "Answer the receiver's varcharbitfield." ^varcharbitfield
varcharbitfield: newVarcharbitfield "Set the receiver's varcharbitfield to newVarcharbitfield." self update: 'varcharbitfield' to: newVarcharbitfield
varcharfield "Answer the receiver's varcharfield." ^varcharfield
varcharfield: newVarcharfield "Set the receiver's varcharfield to newVarcharfield." self update: 'varcharfield' to: newVarcharfield
</methods> <methods> Tableall <category>printing</category>
printOn: aStream super printOn: aStream. aStream nextPut: $(. self class instVarNames keysAndValuesDo: [ :i :n | aStream cr; nextPutAll: n; nextPut: $=; nextPutAll: (self instVarAt: i ) printString; nextPut: $, ]. aStream skip: -1; nextPut: $).
</methods> <methods> Db2LensTestAllModel class <category>accessing</category>
lockPolicy ^#lockOnAccept
</methods> <methods> DB2LensTest class <category>tests</category>
initializeTestDatabase "DB2LensTest initializeTestDatabase" DB2EXDITest initializeTestDatabase
runAllTests "self runAllTests" Transcript cr; show: 'Begin Lens tests'. self initializeTestDatabase; testQuery; testAdding; testUpdates; testRemoving. Transcript cr; show: 'End Lens tests'.
testAdding "self testAdding" | dataModel app session query row newEntry answer rows | dataModel:=DB2LensTestAllForm dataModel. session:=dataModel getSession. session isNil ifTrue: [^nil]. session username: DB2EXDITest testUsernameString. session password: DB2EXDITest testPasswordString. session environment: DB2EXDITest testEnvironmentString. session connect. session isDisconnected ifTrue: [^nil]. app:=DB2LensTestAllForm new . "Add 'empty' object" newEntry:=Tableall new smallintfield: -1. session begin. [session add: newEntry. session commit] on: DB2Connection externalDatabaseErrorSignal do: [:ex | session rollback. ^Dialog warn: 'Entry could not be added']. "Copy existing row" query:=app queryById. app var: 123. "set query parameter" query session: session. session begin. "LOB locators live at only current transaction" answer:=query answer. (rows:=query values) isEmpty ifTrue: [^Dialog warn: 'Nothing to copy. Please do-it "DB2LensTest initializeTestDatabase" then try again']. row := rows first. answer close. newEntry:= row copy. newEntry smallintfield: row smallintfield +10. [session add: newEntry. session commit] on: DB2Connection externalDatabaseErrorSignal do: [:ex | session rollback. ^Dialog warn: 'Entry could not be added']. session disconnect.
testQuery "self testQuery" | dataModel app session query rows | dataModel:=DB2LensTestAllForm dataModel. session:=dataModel getSession. session isNil ifTrue: [^nil]. session username: DB2EXDITest testUsernameString. session password: DB2EXDITest testPasswordString. session environment: DB2EXDITest testEnvironmentString. session connect. session isDisconnected ifTrue: [^nil]. app:=DB2LensTestAllForm new . query:=app ownQuery. query session: session. rows := query values. session disconnect. Transcript cr; show: rows printString.
testRemoving "self testRemoving" | dataModel app session query rows | dataModel:=DB2LensTestAllForm dataModel. session:=dataModel getSession. session isNil ifTrue: [^nil]. session username: DB2EXDITest testUsernameString. session password: DB2EXDITest testPasswordString. session environment: DB2EXDITest testEnvironmentString. session connect. session isDisconnected ifTrue: [^nil]. app:=DB2LensTestAllForm new . query:=app queryById. app var: 123. "set query parameter" query session: session. (rows:=query values) isEmpty ifTrue: [^Dialog warn: 'Nothing to remove. Please do-it "DB2LensTest initializeTestDatabase" then try again']. session begin. [session remove: rows first. session commit] on: DB2Connection externalDatabaseErrorSignal do: [:ex | session rollback. ^Dialog warn: 'Entry could not be removed']. session disconnect.
testUpdates "self testUpdates" | dataModel app session query rows entry | dataModel:=DB2LensTestAllForm dataModel. session:=dataModel getSession. session isNil ifTrue: [^nil]. session username: DB2EXDITest testUsernameString. session password: DB2EXDITest testPasswordString. session environment: DB2EXDITest testEnvironmentString. session connect. session isDisconnected ifTrue: [^nil]. app:=DB2LensTestAllForm new . query:=app queryById. app var: 123. "set query parameter" query session: session. (rows:=query values) isEmpty ifTrue: [^Dialog warn: 'Nothing to update. Please do-it "DB2LensTest initializeTestDatabase" then try again']. "Update some attributes now" entry:=rows first. entry bigintfield: entry bigintfield + 1000000. entry datefield: Date today. entry timefield: Time now. entry timestampfield: Timestamp now. entry longvarcharfield: Collection comment asString. session begin. [entry postUpdates. session commit] on: DB2Connection externalDatabaseErrorSignal do: [:ex | session rollback. ^Dialog warn: 'Entry could not be updated']. session disconnect.
</methods> <methods> DB2LensTestAllForm <category>private</category>
var ^var
var: aValue var:=aValue
</methods> <methods> DB2LensTestAllForm class <category>accessing</category>
dataModelDesignator ^#(#{Db2LensTestAllModel} #dataModelSpec)
rowType ^rowType isNil ifTrue: [rowType := #(#(#{Lens.LensContainerReference} #name: #tableall #referred: #Tableall)) collect: [:elt | UIDataReference decodeFromLiteralArray: elt]] ifFalse: [rowType]
</methods> <methods> Db2LensTestAllModel class <category>interface specs</category>
windowSpec "UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: 'Db2LensTestAllModel' #bounds: #(#{Graphics.Rectangle} 230 304 467 417 ) #flags: 4 #menu: #menuBar ) #component: #(#{UI.SpecCollection} #collection: #() ) )
</methods> <methods> Db2LensTestAllModel class <category>lens data model specs</category>
dataModelSpec "LensEditor new openOnClass: self andSelector: #dataModelSpec" <resource: #dataModel> ^#(#{Lens.LensDataModel} #setDatabaseContext: #(#{DB2LensContext} #username: '' #environment: '' ) #structureTypes: #( #(#{Lens.LensStructureType} #memberClass: #{Tableall} #setVariables: #( #(#{Lens.LensStructureVariable} #name: 'unused1' #setValueType: #Object #generatesAccessor: true #generatesMutator: true #privateIsMapped: false ) #(#{Lens.LensStructureVariable} #name: 'varcharfield' #setValueType: #String #fieldType: #String #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #varchar #name: 'VARCHARFIELD' #maxColumnConstraint: 4 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'varcharbitfield' #setValueType: #ByteArray #fieldType: #ByteArray #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #'varchar () for bit data' #name: 'VARCHARBITFIELD' #maxColumnConstraint: 300 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'charfield' #setValueType: #String #fieldType: #String #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #character #name: 'CHARFIELD' #maxColumnConstraint: 4 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'charbitfield' #setValueType: #ByteArray #fieldType: #ByteArray #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #'character () for bit data' #name: 'CHARBITFIELD' #maxColumnConstraint: 4 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'longvarcharfield' #setValueType: #String #fieldType: #String #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #'long varchar' #name: 'LONGVARCHARFIELD' #maxColumnConstraint: 32700 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'longvarcharbitfield' #setValueType: #ByteArray #fieldType: #ByteArray #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #'long varchar for bit data' #name: 'LONGVARCHARBITFIELD' #maxColumnConstraint: 32700 ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'integerfield' #setValueType: #Integer #fieldType: #Integer #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #integer #name: 'INTEGERFIELD' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'unused2' #setValueType: #Object #generatesAccessor: true #generatesMutator: true #privateIsMapped: false ) #(#{Lens.LensStructureVariable} #name: 'smallintfield' #setValueType: #Integer #fieldType: #Integer #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #smallint #name: 'SMALLINTFIELD' ) #generatesAccessor: true #generatesMutator: true #isId: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'bigintfield' #setValueType: #LargeInteger #fieldType: #LargeInteger #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #bigint #name: 'BIGINTFIELD' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'decimalfield' #setValueType: #FixedPoint #fieldType: #FixedPoint #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #decimal #name: 'DECIMALFIELD' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'decimalfield2' #setValueType: #FixedPoint #fieldType: #FixedPoint #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #decimal #name: 'DECIMALFIELD2' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'floatfield' #setValueType: #Float #fieldType: #Float #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #float #name: 'FLOATFIELD' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'doublefield' #setValueType: #Float #fieldType: #Float #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #float #name: 'DOUBLEFIELD' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'datefield' #setValueType: #Date #fieldType: #Date #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #date #name: 'DATEFIELD' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'timefield' #setValueType: #Time #fieldType: #Time #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #time #name: 'TIMEFIELD' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'timestampfield' #setValueType: #Timestamp #fieldType: #Timestamp #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #timestamp #name: 'TIMESTAMPFIELD' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'blobfield' #setValueType: #BlobLocator #fieldType: #BlobLocator #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #blob #name: 'BLOBFIELD' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'clobfield' #setValueType: #ClobLocator #fieldType: #ClobLocator #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #clob #name: 'CLOBFIELD' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) #(#{Lens.LensStructureVariable} #name: 'datalinkfield' #setValueType: #Datalink #fieldType: #Datalink #column: #(#{DB2LensTableColumn} #isNotNil: false #dataType: #datalink #name: 'DATALINKFIELD' ) #generatesAccessor: true #generatesMutator: true #privateIsMapped: true ) ) #table: #(#{DB2LensTable} #name: 'TABLEALL' ) #defersPostingUpdates: true #idVariable: #('smallintfield' ) #idGeneratorType: #userDefinedId #indexes: #() ) ) #lensPolicyName: #Mixed #lensTransactionPolicyName: #PessimisticRR #validity: #installed )
</methods> <methods> DB2LensTestAllForm <category>query</category>
ownQuery "This method was generated by UIDefiner. Any edits made here will be lost if the class is regenerated anew. Any edits should be made only using the Query Editor, any other changes may be lost." "QueryEditor new openOnClass: self andSelector: #ownQuery" <resource: #query> | _qo | _qo := LensQuery new. _qo description: 'ownQuery'. _qo arrayContainerNames: #((#tableall #Tableall) ). _qo mode: #own. ^_qo
queryById "This method should only be modified using the Query Editor any other edits may be lost." "QueryEditor new openOnClass: self andSelector: #queryById" <resource: #query> | _qo | _qo := LensQuery new. _qo description: 'queryById'. _qo arrayContainerNames: #((#tableall #Tableall) ). _qo answerBlockSource: ''. _qo selectWhere: [:tableall | tableall smallintfield = var]. _qo selectBlockSource: 'tableall smallintfield = var'. _qo orderByBlockSource: ''. _qo groupByBlockSource: ''. _qo mode: nil. ^_qo
</methods> <methods> DB2LensTestAllForm class <category>interface specs</category>
windowSpec "UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: 'DB2LensTestAllForm' #min: #(#{Core.Point} 20 20 ) #bounds: #(#{Graphics.Rectangle} 302 37 723 732 ) ) #component: #(#{UI.SpecCollection} #collection: #( #(#{UI.SubCanvasSpec} #layout: #(#{Graphics.Rectangle} 2 2 332 41 ) #name: #transportControls #minorKey: #transportAndFetchControl ) #(#{UI.SubCanvasSpec} #layout: #(#{Graphics.Rectangle} 3 39 345 73 ) #name: #editControls #flags: 0 #minorKey: #editAndExistenceControl ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 83 409 108 ) #name: #tableallVarcharfieldField #model: #'row @ tableall varcharfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #numChars: 4 #type: #string ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 107 0 0 1 ) #name: #tableallVarcharfieldLabel #label: 'tableall varcharfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 115 409 140 ) #name: #tableallVarcharbitfieldField #model: #'row @ tableall varcharbitfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #numChars: 300 #type: #bytearray ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 139 0 0 1 ) #name: #tableallVarcharbitfieldLabel #label: 'tableall varcharbitfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 147 409 172 ) #name: #tableallCharfieldField #model: #'row @ tableall charfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #numChars: 4 #type: #string ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 171 0 0 1 ) #name: #tableallCharfieldLabel #label: 'tableall charfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 179 409 204 ) #name: #tableallCharbitfieldField #model: #'row @ tableall charbitfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #numChars: 25 #type: #bytearray ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 203 0 0 1 ) #name: #tableallCharbitfieldLabel #label: 'tableall charbitfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 211 409 236 ) #name: #tableallLongvarcharfieldField #model: #'row @ tableall longvarcharfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #numChars: 32700 #type: #string ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 235 0 0 1 ) #name: #tableallLongvarcharfieldLabel #label: 'tableall longvarcharfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 243 409 268 ) #name: #tableallLongvarcharbitfieldField #model: #'row @ tableall longvarcharbitfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #numChars: 32700 #type: #bytearray ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 267 0 0 1 ) #name: #tableallLongvarcharbitfieldLabel #label: 'tableall longvarcharbitfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 275 409 300 ) #name: #tableallIntegerfieldField #model: #'row @ tableall integerfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #type: #number ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 299 0 0 1 ) #name: #tableallIntegerfieldLabel #label: 'tableall integerfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 307 409 332 ) #name: #tableallSmallintfieldField #model: #'row @ tableall smallintfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #type: #number ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 331 0 0 1 ) #name: #tableallSmallintfieldLabel #label: 'tableall smallintfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 339 409 364 ) #name: #tableallBigintfieldField #model: #'row @ tableall bigintfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #type: #number ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 363 0 0 1 ) #name: #tableallBigintfieldLabel #label: 'tableall bigintfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 371 409 396 ) #name: #tableallDecimalfieldField #model: #'row @ tableall decimalfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #type: #fixedpoint ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 395 0 0 1 ) #name: #tableallDecimalfieldLabel #label: 'tableall decimalfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 403 409 428 ) #name: #tableallDecimalfield2Field #model: #'row @ tableall decimalfield2 | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #type: #fixedpoint ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 427 0 0 1 ) #name: #tableallDecimalfield2Label #label: 'tableall decimalfield2' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 435 409 460 ) #name: #tableallFloatfieldField #model: #'row @ tableall floatfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #type: #number ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 459 0 0 1 ) #name: #tableallFloatfieldLabel #label: 'tableall floatfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 467 409 492 ) #name: #tableallDoublefieldField #model: #'row @ tableall doublefield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #type: #number ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 491 0 0 1 ) #name: #tableallDoublefieldLabel #label: 'tableall doublefield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 499 409 524 ) #name: #tableallDatefieldField #model: #'row @ tableall datefield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #type: #date ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 523 0 0 1 ) #name: #tableallDatefieldLabel #label: 'tableall datefield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 530 409 555 ) #name: #tableallTimefieldField #model: #'row @ tableall timefield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #type: #time ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 555 0 0 1 ) #name: #tableallTimefieldLabel #label: 'tableall timefield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 562 409 587 ) #name: #tableallTimestampfieldField #model: #'row @ tableall timestampfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #type: #timestamp ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 587 0 0 1 ) #name: #tableallTimestampfieldLabel #label: 'tableall timestampfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 594 409 619 ) #name: #tableallBlobfieldField #model: #'row @ tableall blobfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #isReadOnly: true #type: #object ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 619 0 0 1 ) #name: #tableallBlobfieldLabel #label: 'tableall blobfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 628 409 653 ) #name: #tableallClobfieldField #model: #'row @ tableall clobfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #isReadOnly: true #type: #object ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 651 0 0 1 ) #name: #tableallClobfieldLabel #label: 'tableall clobfield' ) #(#{UI.InputFieldSpec} #layout: #(#{Graphics.Rectangle} 180 660 409 683 ) #name: #tableallDatalinkfieldField #model: #'row @ tableall datalinkfield | trigger' #callbacksSpec: #(#{UI.UIEventCallbackSubSpec} #valueChangeSelector: #valueChanged #requestFocusInSelector: #focusInRequest ) #isReadOnly: true #type: #object ) #(#{UI.LabelSpec} #layout: #(#{UI.AlignmentOrigin} 11 0 683 0 0 1 ) #name: #tableallDatalinkfieldLabel #label: 'tableall datalinkfield' ) ) ) )
</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>LensDataManager</name> <environment>Lens</environment> <super>Lens.LensApplicationModel</super> <private>false</private> none rows row trigger rowCount isEditing isCreating isDirty lockPolicy rowType <imports></imports> <category>Lens-Applications-Framework</category> <attributes> <package>Lens-Runtime</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>