"

 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.

"

SelectionInListView subclass:#SelectionInTreeView

	poolDictionaries:''

	category:'Views-Text'

!

!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

"

    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.

    This class obsoletes SelectionInTreeView, which is no longer

    maintained but kept for backward compatibility.

    [see also:]

        SelectionInTree

        TreeItem

        SelectionInTreeView

        SelectionInListView

    [author:]

        Claus Atzkern

"

!

examples

"

    shows the tree of smalltalk classes:

                                                                        [exBegin]

      |top model sel root|

      root  := TreeItem newAsTreeFromSmalltalkClass:Object.

      root expand.

      model := SelectionInTree new root:root.

      top := StandardSystemView new.

      top extent:300@300.

      sel := SelectionInTreeView new.

      sel model: model.

      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 model sel root|

      root  :=  TreeItem newAsTreeFromSmalltalkClass:nil.

      root expand.

      model := SelectionInTree new root:root.

      top   := StandardSystemView new.

      top extent:300@300.

      sel := SelectionInTreeView new.

      sel model: model.

      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]

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

    lines.

                                                                        [exBegin]

      |top model sel root|

      root  := TreeItem newAsTreeFromSmalltalkClass:Object.

      root expand.

      model := SelectionInTree new root:root.

      top := StandardSystemView new.

      top extent:300@300.

      sel := SelectionInTreeView new.

      sel showLines:false.

      sel showDirectoryIndicator:true.

      sel model: model.

      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'!

    "

!

imageClosed

    ImageClosed isNil ifTrue:[

        ImageClosed := Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir.xpm').

    ].

  ^ ImageClosed

"

ImageClosed := nil

"

!

imageItem

    ImageItem isNil ifTrue:[

        ImageItem := Image fromFile:('xpmBitmaps/document_images/tiny_file_plain.xpm')  

    ].

  ^ ImageItem

"

ImageItem := nil

"

!

imageOpened

    ImageOpened isNil ifTrue:[

        ImageOpened := Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir_open.xpm').

    ].

  ^ ImageOpened

"

ImageOpened := nil

"

! !

!SelectionInTreeView methodsFor:'accessing'!

imageClosed

    "return the value of the instance variable 'imageClosed' (automatically generated)"

    ^ imageClosed

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

!

imageClosed:something

    "set the value of the instance variable 'imageClosed' (automatically generated)"

    imageClosed := something.

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

!

imageItem

    "return the value of the instance variable 'imageItem' (automatically generated)"

    ^ imageItem

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

!

imageItem:something

    "set the value of the instance variable 'imageItem' (automatically generated)"

    imageItem := something.

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

!

imageOpened

    "return the value of the instance variable 'imageOpened' (automatically generated)"

    ^ imageOpened

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

!

imageOpened:something

    "set the value of the instance variable 'imageOpened' (automatically generated)"

    imageOpened := something.

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

! !

!SelectionInTreeView methodsFor:'drawing'!

drawLine:line atX:atX inVisible:visLineNr with:fg and:bg

    self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg

!

drawLine:line fromX:x inVisible:visLineNr with:fg and:bg

    self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg

!

drawLine:line inVisible:visLineNr with:fg and:bg

    self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg

!

drawVisibleLine:visLineNr col:col with:fg and:bg

    self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg

!

drawVisibleLine:visLineNr from:startCol to:endCol with:fg and:bg

    self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg

!

drawVisibleLine:visLineNr from:startCol with:fg and:bg

    self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg

! !

!SelectionInTreeView methodsFor:'drawing basics'!

drawFromVisibleLine:startVisLineNr to:endVisLineNr with:fg and:bg

     x x1 xFig xStr node level lvl idx image isCollapsable hasChildren radius extent xCross|

    nodeIndex := self visibleLineToAbsoluteLine:startVisLineNr.

    listSize  := listOfNodes size.

    yTop      := self yOfVisibleLine:startVisLineNr.

    end       := endVisLineNr - startVisLineNr + 1.

"/  clear rectangle line and set background color

    self paint:bg.

    self fillRectangleX:0 y:yTop width:width height:(end * fontHeight).

    nodeIndex isNil ifTrue:[^ self].

    fontHgDiv2 := fontHeight // 2.

    self paint:fg on:bg.

    (end := nodeIndex + end) > listSize ifTrue:[

        end := listSize + 1

    ].

    [nodeIndex < end] whileTrue:[

        node  := listOfNodes at:nodeIndex.

        yBot  := yTop + fontHeight.

        yCtr  := yTop + fontHgDiv2.

        image := self figureFor:node.

        (hasChildren := node hasChildren) ifTrue:[ 

            isCollapsable := node isCollapsable.

        ].

        (lvl := node level) == level ifFalse:[

            level  := lvl.

            xFig   := self xOfFigureNode:node.

            xStr   := self xOfStringNode:node.

        ].

        showLines ifTrue:[

            (isCollapsable and:[node numberOfChildren ~~ 0]) ifTrue:[

                self displayLineFromX:x y:yCtr toX:x y:yBot

            ].

        "/  draw horizontal and vertical line

            self displayLineFromX:xCross y:yCtr toX:xFig   y:yCtr.       "/ horizontal

        "/  draw vertical lines

            idx  := nodeIndex.

            idx ~~ listSize ifTrue:[

                [(lvl > 0 and:[(idx := idx + 1) <= listSize])] whileTrue:[

                    node := listOfNodes at:idx.

                    node level > lvl ifFalse:[

                        x1 := (self xOfFigureNode:node) - x.

                        self displayLineFromX:x1 y:yTop toX:x1 y:yBot.

                        lvl := node level - 1

                    ]

                ]

            ]

        ].

        "/ draw image

        self displayForm:image x:xFig y:(yCtr - (image height // 2)).

        "/ draw text label

        self drawLabelIndex:nodeIndex atX:xStr y:yCtr.

        (hasChildren and:[showDirectoryIndicator]) ifTrue:[

        ].

        "/ setup next line

        nodeIndex := nodeIndex + 1.

        yTop      := yBot.

    ].

!

drawLabelIndex:anIndex atX:x y:yCenter

    "draw text label at x and y centered

    "

    |y lbl|

    lbl := (listOfNodes at:anIndex) name.

    lbl notNil ifTrue:[

        y := yCenter - ((lbl heightOn:self) // 2).

        (lbl respondsTo:#string) ifTrue:[

            y := y + fontAscent.

        ].

        self displayOpaqueString:lbl x:x y:y.

    ]    

! !