"

 COPYRIGHT (c) 1995 by 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.

"

ObjectView subclass:#UIPainterTreeView

	instanceVariableNames:'builderView indent yPos maxX'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

!UIPainterTreeView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1995 by 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

"

    not yet finished, not yet published, not yet released.

"

! !

!UIPainterTreeView class methodsFor:'startup'!

start

    |topView v|

    topView := StandardSystemView 

		    label:'View hierarchy'

		    icon:(Form fromFile:'BuildTreeV.icon' resolution:100).

    v  := HVScrollableView for:self in:topView.

    v origin:(0 @ 0) extent:(1.0 @ 1.0).

    topView realize.

    ^ v scrolledView

    "BuilderTreeView start"

! !

!UIPainterTreeView methodsFor:'BuilderView interface'!

builderView:aBuilderView

    builderView := aBuilderView.

!

selectName:aString

    contents do:[:obj |

        (obj text asString withoutSeparators = aString) ifTrue:[

            ^ self select:obj.

        ]

   ]

!

selectNameAdd:aString

    contents do:[:obj |

        (obj text asString withoutSeparators = aString) ifTrue:[

            ^ self addToSelection:obj.

        ]

   ]

!

update:something

    |sel|

    something == #tree ifTrue:[

        ^ self updateTree.

    ].

    something == #widgetName ifTrue:[

        self updateTree

    ] ifFalse:[

        something == #selection ifFalse:[

            ^ self

        ]

    ].

    sel := builderView selection.

    (sel isKindOf:Collection) ifTrue:[

        sel do:[:v | self selectNameAdd:(builderView variableNameOf:v)]

    ] ifFalse:[

        self selectName:(builderView variableNameOf:sel)

    ]

! !

!UIPainterTreeView methodsFor:'drawing'!

showSelected:anObject

    "show an object as selected"

    |oldFg oldBg|

    oldFg := anObject foreground.

    oldBg := anObject background.

    anObject foreground:oldBg.

    anObject background:oldFg.

    anObject drawIn:self.

    anObject foreground:oldFg.

    anObject background:oldBg

    "Modified: 31.8.1995 / 13:52:02 / claus"

! !

!UIPainterTreeView methodsFor:'generating the class-tree picture'!

addToTree:name indent:indent

    |newObject|

    newObject := DrawText new.

    "newObject font:font.  "

    newObject text:name.

    newObject origin:((indent asInteger + margin) @ yPos).

    newObject foreground:Color black. "/ foreground.

    newObject background:Color white. "/background.

    newObject linePattern:1; fillPattern:1. "/ opaque

    yPos := yPos + newObject frame height.

    self add:newObject.

    maxX := maxX max:(newObject frame corner x).

    "Modified: 5.9.1995 / 23:54:26 / claus"

!

addViewsToTreeFrom:aView indent:currentIndent

    |name|

    name := builderView variableNameOf:aView.

    self addToTree:name indent:currentIndent.

    builderView subviewsOf:aView do:[:subview |

        self addViewsToTreeFrom:subview

                           indent:(currentIndent + indent)

    ]

!

updateTree

    self removeAll.

    maxX := 0.

    yPos := (self verticalPixelPerMillimeter:1) rounded asInteger.

    self addViewsToTreeFrom:builderView indent:(self horizontalPixelPerMillimeter:1).

    self contentsChanged

    "Modified: 5.9.1995 / 23:54:35 / claus"

! !

!UIPainterTreeView methodsFor:'initialization'!

initialize

    super initialize.

    maxX := 0.

    yPos := (self verticalPixelPerMillimeter:1) rounded asInteger.

    indent := (self horizontalPixelPerMillimeter:5) rounded asInteger.

    sorted := true.

    pressAction := [:aPoint | self click:aPoint].

    shiftPressAction := [:aPoint | self shiftClick:aPoint]

    "Modified: 6.9.1995 / 00:11:48 / claus"

!

initializeMiddleButtonMenu

    |labels|

    labels := resources array:#(

                        'inspect view'

                        'inspect properties'

                       ).

    self middleButtonMenu:(PopUpMenu

                                labels:labels

                             selectors:#(

                                         inspectView

                                         inspectProps

                                        )

                                receiver:self

                                     for:self)

! !

!UIPainterTreeView methodsFor:'private'!

selectedName

    selection isNil ifTrue:[^ nil].

    ^ selection text asString withoutSeparators

!

withSelectedNameDo:aBlock

    |name|

    name := self selectedName.

    name notNil ifTrue:[aBlock value:name]

! !

!UIPainterTreeView methodsFor:'queries'!

heightOfContents

    ^ yPos  + (self verticalPixelPerMillimeter:1) rounded

    "Modified: 6.9.1995 / 12:56:24 / claus"

!

widthOfContents

    ^ maxX + (self horizontalPixelPerMillimeter:1) rounded

    "Modified: 6.9.1995 / 12:56:28 / claus"

! !

!UIPainterTreeView methodsFor:'user interaction'!

click:aPoint

    |anObject|

    anObject := self findObjectAtVisible:aPoint.

    (anObject ~~ selection) ifTrue:[

        self unselect.

        anObject notNil ifTrue:[

            self select:anObject.

            builderView selectName:(self selectedName)

        ] ifFalse:[

            builderView selectName:'self'

        ]

    ]

!

inspectProps

    builderView inspectAttributes

!

inspectView

    builderView inspectSelection

!

shiftClick:aPoint

    |anObject|

    anObject := self findObjectAtVisible:aPoint.

    anObject notNil ifTrue:[

        (self isSelected:anObject) ifTrue:[

            builderView removeNameFromSelection:anObject text asString withoutSeparators

        ] ifFalse:[

            builderView addNameToSelection:anObject text asString withoutSeparators

        ]

    ]

! !

!UIPainterTreeView class methodsFor:'documentation'!

version

    ^ '$Header$'

! !