|
com.nodelab.0.10383
Instance of TypeScriptInfo
| Node data | Value |
| org.edgescript.TypeScriptInfo.prerequisiteParcels | List{} |
| org.edgescript.TypeScriptInfo.prerequisiteMethods | List{} |
| org.edgescript.TypeScriptInfo.script | /* 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.! ! */ |
| org.edgescript.TypeScriptInfo.defineType | com.nodelab.equity.HugeTrades |
| org.edgescript.TypeScriptInfo.prerequisiteScripts | List{} |