51 lines
1.2 KiB
Smalltalk
51 lines
1.2 KiB
Smalltalk
Class {
|
|
#name : #CarpStreamingMethodsCoderElement,
|
|
#superclass : #BlElement,
|
|
#traits : 'TBrLayoutResizable + TGtWithStreamingCodersViewModel',
|
|
#classTraits : 'TBrLayoutResizable classTrait + TGtWithStreamingCodersViewModel classTrait',
|
|
#instVars : [
|
|
'list',
|
|
'module'
|
|
],
|
|
#category : #'Carp-Coder'
|
|
}
|
|
|
|
{ #category : #accessing }
|
|
CarpStreamingMethodsCoderElement class >> forModule: aModule [
|
|
^ self new module: aModule
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
CarpStreamingMethodsCoderElement >> initialize [
|
|
|
|
super initialize.
|
|
|
|
self matchParent.
|
|
|
|
list := BrSimpleList new
|
|
itemType: [ :anItemTypeFactory :anItemObject |
|
|
anItemObject ];
|
|
itemStencil: [ :anItem |
|
|
anItem asElement id: GtSourceCoderId ];
|
|
itemsProvider:
|
|
(BrListStreamItemsProvider new stream: AsyncEmptyStream new).
|
|
|
|
self addChild: list
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
CarpStreamingMethodsCoderElement >> initializeForModule [
|
|
list itemsProvider: module expressions asBrItemsProvider
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
CarpStreamingMethodsCoderElement >> module: aModule [
|
|
module := aModule.
|
|
self initializeForModule
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
CarpStreamingMethodsCoderElement >> onTests [
|
|
list itemsProvider: module tests asBrItemsProvider
|
|
]
|