"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libwidg2' }"

"{ NameSpace: Smalltalk }"

SelectionInListView subclass:#SelectionInTreeView

	instanceVariableNames:'validateDoubleClickBlock selectionHolder rootHolder imageWidth

		showLines showLinesForRoot listOfNodes imageInset textInset

		labelOffsetY lineMask itemClass lineColor computeResources

		showRoot showDirectoryIndicator closeIndicator openIndicator

		showDirectoryIndicatorForRoot imageOpened imageClosed imageItem

		discardMotionEvents registeredImages supportsExpandAll

		buildInArray drawVLinesFromLevel highlightMode editorWidget

		editorIndex editValueFgColor validateExpandabilityBlock'

	classVariableNames:'DefaultHilightMode SelectionInset'

	poolDictionaries:''

	category:'Views-Trees'

!

!SelectionInTreeView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    OBSOLETE, please use HierarchicalListView.

    somewhat like a SelectionInListView; but specialized for hierarchical (i.e. tree-like)

    lists and adds the functions to show/hide subtrees. 

    Requires SelectionInTree as model and TreeItem (or compatible) list entries.

    Notice: 

        This class obsoletes SelectionInHierarchyView, which is no longer

        maintained but kept for backward compatibility.

    Notice2: 

        Even for this class, an improved replacement now exists:

        HierarchicalListView.

        Please consider using that one.

        (however, this class is kept for backward compatibility).

    [see also:]

        SelectionInTree

        TreeItem

        SelectionInListView

        FileSelectionTree

    [author:]

        Claus Atzkern

"

!

examples

"

    shows the tree of smalltalk classes:

                                                                        [exBegin]

      |top sel|

      top := StandardSystemView new; extent:300@300.

      sel := SelectionInTreeView new.

      sel root:(TreeItem newAsTreeFromSmalltalkClass:Object).

      sel action:[:nr | Transcript show:'selected:'; showCR:nr].

      top add:(ScrollableView forView:sel) in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)).

      top open.

                                                                        [exEnd]

    same, including nil-subclasses (i.e. really all classes):

                                                                        [exBegin]

      |top sel|

      top := StandardSystemView new; extent:300@300.

      sel := SelectionInTreeView new.

      sel root:(TreeItem newAsTreeFromSmalltalkClass:nil).

      sel action:[:nr | Transcript show:'selected:'; showCR:nr].

      sel lineColor:(Color red).

      top add:(ScrollableView forView:sel) in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)).

      top open.

                                                                        [exEnd]

    shows the tree of smalltalk classes; show directory indication and no

    lines.

                                                                        [exBegin]

      |top sel|

      top := StandardSystemView new; extent:300@300.

      sel := SelectionInTreeView new.

      sel showLines:false.

      sel showDirectoryIndicator:true.

      sel root:(TreeItem newAsTreeFromSmalltalkClass:Object).

      sel action:[:nr | Transcript show:'selected:'; showCR:nr].

      top add:(ScrollableView forView:sel) in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)).

      top open.

                                                                        [exEnd]

"

! !

!SelectionInTreeView class methodsFor:'constants'!

minImageInset

    "returns minimum inset from directory indication to image

    "

  ^ 6

! !

!SelectionInTreeView class methodsFor:'defaults'!

defaultModelClass

    "returns the default model

    "

    ^ SelectionInTree

!

updateStyleCache

    "extract values from the styleSheet and cache them in class variables"

    <resource: #style (#'selection.highlightMode')>

    SelectionInset     := 4.

    DefaultHilightMode := StyleSheet at:'selection.highlightMode' default:#line.

    "

     self updateStyleCache

    "

! !

!SelectionInTreeView class methodsFor:'resources'!

closeIndicator

    "returns a little [+] bitmap"

    ^ HierarchicalListView closeIndicator

!

imageClosed

    "returns a closed file-directory bitmap"

    ^ HierarchicalListView collapsedIcon

!

imageItem

    "returns a regular file bitmap"

    ^ HierarchicalListView emptyIcon

!

imageOpened

    "returns an opened file-directory bitmap"

    ^ HierarchicalListView expandedIcon

!

openIndicator

    "returns a little [-] bitmap"

    ^ HierarchicalListView openIndicator

! !

!SelectionInTreeView methodsFor:'accessing'!

highlightMode

    "get the mode how to draw a selected line:

        #line           draw whole line selected

        #label          draw label selected"

    ^ highlightMode

    "Modified (comment): / 04-02-2017 / 22:23:07 / cg"

!

highlightMode:aMode

    "set the mode how to draw a selected line:

        #line           draw whole line selected

        #label          draw label selected"

    |mode|

    (mode := aMode) == #label ifFalse:[

        mode := #line

    ].

    mode ~~ highlightMode ifTrue:[

        highlightMode := mode.

        self invalidate

    ]

    "Modified (comment): / 04-02-2017 / 22:23:12 / cg"

!

itemClass

    "returns current itemClass used"

    ^ itemClass

    "Modified (comment): / 04-02-2017 / 22:22:56 / cg"

!

itemClass:anItemClass

    "set itemClass to be used"

    (anItemClass notNil and:[anItemClass ~~ itemClass]) ifTrue:[

        itemClass := anItemClass.

        computeResources := true.

        self refetchDeviceResources.

    ].

    "Modified (comment): / 04-02-2017 / 22:23:01 / cg"

!

lineColor

    "returns user configured line color or nil"

    ^ lineColor

    "Modified (comment): / 04-02-2017 / 22:23:18 / cg"

!

lineColor:aColor

    "returns user configured line color or nil"

    |col|

    col := aColor = fgColor ifTrue:[nil] ifFalse:[aColor].

    col = lineColor ifFalse:[

        lineColor := col.

        lineColor notNil ifTrue:[lineColor := lineColor onDevice:device].

        self invalidate

    ]

    "Modified (comment): / 04-02-2017 / 22:23:23 / cg"

!

nodeAtIndex:anIndex

    "returns node at an index or nil"

    (anIndex notNil and:[anIndex between:1 and:listOfNodes size]) ifTrue:[

        ^ listOfNodes at:anIndex

    ].

    ^ nil

    "Modified (comment): / 04-02-2017 / 22:23:30 / cg"

!

root

    "gets the root of the model; the first item into list."

    ^ self nodeAtIndex:1

    "Modified (comment): / 04-02-2017 / 22:23:36 / cg"

!

root:aRoot

    "sets the root of the model; the first item into list."

    aRoot notNil ifTrue:[aRoot expand].

    model root:aRoot

    "Modified (comment): / 04-02-2017 / 22:23:40 / cg"

!

textInset

    "get the left inset of the text label"

    ^ textInset

    "Modified (comment): / 04-02-2017 / 22:23:44 / cg"

!

textInset:anInset

    "set the left inset of the text label"

    anInset ~~ textInset ifTrue:[

        anInset >= 0 ifTrue:[

            textInset := anInset.

            self invalidate

        ] ifFalse:[

            self error

        ]

    ].

    "Modified (comment): / 04-02-2017 / 22:23:48 / cg"

! !

!SelectionInTreeView methodsFor:'accessing-behavior'!

drawVLinesFromLevel

    "returns the level vertical lines are drawn from;

     starting at 1 up to n"

    ^ drawVLinesFromLevel

    "Modified (comment): / 04-02-2017 / 22:23:55 / cg"

!

drawVLinesFromLevel:aLevel

    "set the level vertical lines are drawn from;

     starting at 1 up to n"

    |lvl|

    lvl := (aLevel ? 1) max:1.

    lvl ~~ drawVLinesFromLevel ifTrue:[

        drawVLinesFromLevel := lvl.

        self invalidate

    ]

    "Modified (format): / 04-02-2017 / 22:24:09 / cg"

!

supportsExpandAll

    ^ supportsExpandAll

!

supportsExpandAll:aBool

    supportsExpandAll := aBool

!

validateDoubleClickBlock

    "return the conditionBlock; this block is evaluated before a doubleClick action

     on a node will be performed. In case of returning false, the doubleClick will

     not be handled."

   ^ validateDoubleClickBlock

    "Modified (comment): / 04-02-2017 / 22:24:18 / cg"

!

validateDoubleClickBlock:aOneArgBlock

    "set the conditionBlock; this block is evaluated before a doubleClick action

     on a node will be performed. In case of returning false, the doubleClick will

     not be handled."

   validateDoubleClickBlock := aOneArgBlock

    "Modified (comment): / 04-02-2017 / 22:24:25 / cg"

!

validateExpandabilityBlock

    "return the expand conditionBlock; this block is evaluated before an expand due to

     a doubleClick on a node will be performed. In case of returning false, 

     the node will not be expanded."

   ^ validateExpandabilityBlock

    "Modified (comment): / 04-02-2017 / 22:24:30 / cg"

!

validateExpandabilityBlock:aOneArgBlock

    "set the expand conditionBlock; this block is evaluated before an expand due to

     a doubleClick on a node will be performed. In case of returning false, 

     the node will not be expanded."

   validateExpandabilityBlock := aOneArgBlock

    "Modified (comment): / 04-02-2017 / 22:24:36 / cg"

! !

!SelectionInTreeView methodsFor:'accessing-channels'!

rootHolder

    "get the holder which keeps the hierarchical list entry or nil"

    ^ rootHolder

    "Modified (comment): / 04-02-2017 / 22:24:41 / cg"

!

rootHolder:aValueHolder

    "set the holder which keeps the hierarchical list entry or nil"

    rootHolder notNil ifTrue:[

        rootHolder removeDependent:self

    ].

    (rootHolder := aValueHolder) notNil ifTrue:[

        rootHolder addDependent:self.

        self rootFromModel.

    ].

    "Modified (comment): / 04-02-2017 / 22:24:47 / cg"

!

selectionHolder

    "get the holder which keeps a list of selected items or nil"

    ^ selectionHolder

    "Modified (comment): / 04-02-2017 / 22:24:51 / cg"

!

selectionHolder:aHolder

    "set the holder which keeps a list of selected items or nil"

    selectionHolder notNil ifTrue:[

        selectionHolder removeDependent:self

    ].

    (selectionHolder := aHolder) notNil ifTrue:[

        selectionHolder addDependent:self.

        self selectionFromModel

    ].

    "Modified (comment): / 04-02-2017 / 22:24:57 / cg"

! !

!SelectionInTreeView methodsFor:'accessing-images'!

closeIndicator

    "return the bitmap image shown for expandable tree items (a little right arrow)

     (initialized to a right arrow)"

    ^ closeIndicator

    "Created: / 04-02-2017 / 21:15:24 / cg"

!

closeIndicator:aBitmapIcon

    "set the bitmap image shown for expandable tree items

     (defaults to a right arrow)"

    closeIndicator := aBitmapIcon

    "Created: / 04-02-2017 / 21:15:39 / cg"

!

imageClosed

    "return the value of the instance variable 'imageClosed'.

     That's the (default) bitmap image shown for closed folders

     (initialized to a file-directory bitmap)"

    ^ imageClosed

    "Created: 3.7.1997 / 12:34:31 / cg"

!

imageClosed:anIconImage