"{ NameSpace: NewInspector }"
SelectionInListView subclass:#InspectorListView
instanceVariableNames:'actionHolder inspectorList includesSelf'
classVariableNames:''
poolDictionaries:''
category:'Inspector'
!
!InspectorListView class methodsFor:'documentation'!
examples
"
open a list view on an instance
[exBegin]
|top slv a|
a := OrderedCollection new.
a add:1.
top := StandardSystemView new
label:'select';
extent:200@200.
slv := ScrollableView for:self in:top.
slv origin:0.0@0.0 corner:1.0@1.0.
slv := slv scrolledView.
slv inspect:top.
slv action:[:el|Transcript showCR:(el printString)].
top open
[exEnd]
"
! !
!InspectorListView methodsFor:'accessing'!
includesSelf:aBool
includesSelf := aBool
!
list
^ inspectorList
!
list:aList
"set the lists contents from another list
"
aList notNil ifTrue:[inspectorList := aList list]
ifFalse:[inspectorList := InspectorList new].
inspectorList includesSelf:includesSelf.
super list:(inspectorList instanceNames).
!
update
"update the current list
"
inspectorList update.
super list:(inspectorList instanceNames).
! !
!InspectorListView methodsFor:'accessing actions'!
action:aOneArgAction
"set the single click action block. If non-nil, that one is evaluated on single
click, passing the selected instance as argument
"
actionHolder := aOneArgAction
! !
!InspectorListView methodsFor:'drawing'!
drawVisibleLineSelected:visLineNr with:fg and:bg
"redraw a single line as selected.
"
|nr|
(nr := self visibleLineToListLine:visLineNr) notNil ifTrue:[
^ self drawVisibleLine:visLineNr with:fg and:bg.
].
^ super drawVisibleLine:visLineNr with:fg and:bg
!
redrawArrowVisibleLine:visLineNr
"draw a right arrow for visible line
"
|nr|
nr := self visibleLineToListLine:visLineNr.
(inspectorList instanceTypeAt:nr) == #directory ifTrue:[
self drawRightArrowInVisibleLine:visLineNr
]
!
redrawFromVisibleLine:startVisLineNr to:endVisLineNr
"redefined to look for directory in every line
"
super redrawFromVisibleLine:startVisLineNr to:endVisLineNr.
startVisLineNr to:endVisLineNr do:[:visLineNr|
self redrawArrowVisibleLine:visLineNr
]
!
redrawVisibleLine:visLineNr
"if the line is one for a directory, draw a right arrow
"
super redrawVisibleLine:visLineNr.
self redrawArrowVisibleLine:visLineNr.
!
visibleLineNeedsSpecialCare:visLineNr
"returns true if the visible line needs special care
"
|nr|
nr := self visibleLineToListLine:visLineNr.
(inspectorList instanceTypeAt:nr) == #directory ifTrue:[
^ true
].
^ super visibleLineNeedsSpecialCare:visLineNr
!
widthForScrollBetween:firstLine and:lastLine
"return the width in pixels for a scroll between firstLine and lastLine
- return full width here since there might be directory marks
"
^ (width - margin - margin)
! !
!InspectorListView methodsFor:'event handling'!
sizeChanged:how
"redraw marks
"
super sizeChanged:how.
shown ifTrue:[self invalidate]
! !
!InspectorListView methodsFor:'initialization'!
initialize
"initialization
"
super initialize.
ignoreReselect := false.
includesSelf := false.
actionHolder := [:el|].
inspectorList := InspectorList new.
actionBlock := [:dummy|
self setSelection:selection.
actionHolder value:(self selectedInstanceVar)
].
! !
!InspectorListView methodsFor:'private'!
doesNotUnderstand:aMessage
"forward a message to the inspectorList
"
(inspectorList respondsTo:(aMessage selector)) ifTrue:[
^ aMessage sendTo:inspectorList
].
^ super doesNotUnderstand:aMessage
!
list:aCollection keepSelection:aBoolean
"set the list - redefined, since setting the list implies unselecting
and clearing attributes."
"somewhat of a kludge: if selection is first line,
we have to remove the highlight frame by hand here"
(shown and:[hilightLevel ~~ 0]) ifTrue:[
selection == firstLineShown ifTrue:[
self paint:bgColor.
self fillRectangleX:margin y:margin
width:(width - (margin * 2))
height:(hilightLevel abs).
].
].
listAttributes := nil.
super list:aCollection expandTabs:false.
super setSelection:(inspectorList selection).
! !
!InspectorListView methodsFor:'selections'!
setSelection:aNumberOrNil
"select line, aNumber or deselect if argument is nil
"
|oldSize|
oldSize := inspectorList size.
inspectorList setSelection:aNumberOrNil.
oldSize == inspectorList size ifTrue:[super setSelection:(inspectorList selection)]
ifFalse:[super list:(inspectorList instanceNames)].
! !
!InspectorListView methodsFor:'user interaction'!
accept:aText notifying:aView
"evaluating aText on the selected instance var; if an error occurs #Error
is returned otherwise the inspected object instance. On success the list
will be updated.
"
|res|
res := inspectorList accept:aText notifying:aView.
res ~~ #Error ifTrue:[
super list:(inspectorList instanceNames)
].
^ res
!
doIt:aCode notifying:aView
"evaluating aCode on the selected instance var; if an error occurs #Error
is returned otherwise the result returned from the evaluator. On success
the list will be updated.
"
|res|
res := inspectorList doIt:aCode notifying:aView.
res ~~ #Error ifTrue:[
super list:(inspectorList instanceNames)
].
^ res
!
inspect:anObject
"inspect a new instance; update contents
"
(inspectorList inspectedObject) == anObject ifTrue:[
^ self update
].
inspectorList := InspectorList for:anObject.
inspectorList includesSelf:includesSelf.
super list:(inspectorList instanceNames).
! !
!InspectorListView class methodsFor:'documentation'!
version
^ '$Header$'
! !