Grafoscopio/repository/Grafoscopio/GrafoscopioLinksList.class.st

52 lines
978 B
Smalltalk

"
I model the links of a GrafoscopioNode.
I'm responsable for showing the links and selecting them.
"
Class {
#name : #GrafoscopioLinksList,
#superclass : #ComposablePresenter,
#instVars : [
'links'
],
#category : 'Grafoscopio-UI'
}
{ #category : #specs }
GrafoscopioLinksList class >> defaultSpec [
^ SpLayout composed
add: #links;
yourself
]
{ #category : #accessing }
GrafoscopioLinksList >> content: aGrafoscopioNode [
links items: aGrafoscopioNode links
]
{ #category : #initialization }
GrafoscopioLinksList >> initializeWidgets [
links := self newList.
self focusOrder add: links
]
{ #category : #accessing }
GrafoscopioLinksList >> links [
^ links
]
{ #category : #accessing }
GrafoscopioLinksList >> links: anObject [
links := anObject
]
{ #category : #api }
GrafoscopioLinksList >> title [
^ 'Node links list'
]
{ #category : #'api-events' }
GrafoscopioLinksList >> whenSelectedItemChanged: aBlock [
links whenSelectedItemChanged: aBlock
]