"{ 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$'

! !