| com.nodelab.equity | |
com.nodelab.0.10178
Instance of Type
Inheriting from Calculator
| Type data | Value |
| org.uninode.Type.displayPattern | a {att:org.uninode.Node.type} |
| org.uninode.Resource.resourceType | |
| org.uninode.Resource.label | |
| org.uninode.Resource.resourceOf | List{} |
| org.uninode.Listable.resources | Reference[org.uninode.Listable.resources] of com.nodelab.equity.HugeTrades |
| Attribute summary | Defined in | Uninode® Id | Properties | Default | |
| Reference[org.uninode.Listable.resources] | resources | Listable | org.uninode.0.2001 | type | |
| String | toString This is the display string. | Node | org.uninode.0.102 | ||
| Type | type The type of an object determines the behaviour and attributes of the object. | Node | org.uninode.0.101 | ||
| String | uri | Node | org.uninode.0.103 | ||
| String | label | Resource | org.uninode.0.2041 | type | |
| List[Type] | resourceOf | Resource | org.uninode.0.2042 | type | |
| Signature | resourceType This defines the type of resource. It can be 'view', 'adapter' or 'action' | Resource | org.uninode.0.2043 | type | |
| Script summary |
com.nodelab.0.10383/*
self tableAspect value = #hugeTrades ifTrue: [
list := List new.
self server report: 'Looking for huge trades...'.
self server
database: (self server databaseAt: #noodle)
execute: 'exec baliHugeTrades @from = "' ,
self server now daysStart asSybaseString ,
'", @to = "' ,
self server now daysEnd asSybaseString , '"'
columns: 7
answerBlock: [:an |
sec := self server element: (an at: 3) asSymbol.
list addLast: (an at: 1).
list addLast: (an at: 2).
sec isNil
ifFalse: [list addLast: sec name]
ifTrue: [list addLast: (an at: 3)].
list addLast: (an at: 4) printString.
list addLast: (an at: 5) asDouble printString.
list addLast: (((an at: 6) / 100000) rounded / 10) asDouble printString , '"'.
list addLast: (BaliTime fromTimestamp: (an at: 7)) asSybaseString].
self tableList: (TwoDList on: list columns: 7).
self server report: ''.
self table columnLabelsArray: #('buyer' 'seller' 'security' 'volume' 'price' 'value' 'time')].
(list isNil and: [self firstSource notNil]) ifTrue: [self firstSource setTableFor: self].
widths := List new.
self table tableView isNil ifTrue: [^nil].
gc := self table tableView graphicsContext.
1 to: self tableList columnSize do: [:col |
width := gc widthOfString: (self table columnLabels value at: col).
1 to: self tableList rowSize do: [:row |
width := width max: (gc widthOfString: (self tableList at: col@row))].
widths add: width + 10].
self table columnWidths: widths.
self table selectionInTable tableHolder value: self tableList.
self redrawDone.! !
*/
|