"

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

              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.

"

UIObjectView subclass:#UIPainterView

	instanceVariableNames:'treeView listHolder superclassName className methodName

		categoryName handleColor handleMasterColor'

	classVariableNames:'HandCursor RedefineAspectMethods AspectsAsInstances'

	poolDictionaries:''

	category:'Interface-UIPainter'

!

Object subclass:#ViewProperty

	instanceVariableNames:'view spec identifier'

	classVariableNames:'Identifier'

	poolDictionaries:''

	privateIn:UIPainterView

!

!UIPainterView class methodsFor:'documentation'!

copyright

"

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

              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

"

    buildIn view used by the UIPainter; from this view, the layout of the

    new application derives from.

    [see also:]

        UIBuilder

        UIObjectView

    [author:]

        Claus Gittinger

        Claus Atzkern

"

! !

!UIPainterView class methodsFor:'code generation mode'!

generateAspectsAsInstanceVariables

    "if on, aspects are held as instance variables;

     if off (the default), they are kept in the bindings dictionary.

    "

    ^ AspectsAsInstances

    "Created: / 29.7.1998 / 11:21:38 / cg"

    "Modified: / 29.7.1998 / 11:22:01 / cg"

!

generateAspectsAsInstanceVariables:aBoolean

    "if on, aspects are held as instance variables;

     if off (the default), they are kept in the bindings dictionary.

    "

    AspectsAsInstances := aBoolean

    "Created: / 29.7.1998 / 11:21:26 / cg"

    "Modified: / 29.7.1998 / 11:22:11 / cg"

!

redefineAspectMethods

    "redefine methods yes or no. If a method is defined in super class

     should the message be reinstalled ?

    "

!

redefineAspectMethods:aBoolean

    "redefine methods yes or no. If a method is defined in super class

     should the message be reinstalled ?

    "

    RedefineAspectMethods := aBoolean

! !

!UIPainterView class methodsFor:'defaults'!

defaultMenuMessage   

    "This message is the default yo be sent to the menuHolder to get a menu

    "

    ^ #showMiddleButtonMenu

! !

!UIPainterView methodsFor:'accessing'!

application

    ^ nil

    "Modified: 6.9.1995 / 00:46:44 / claus"

!

applicationName

    ^ self className

!

applicationName:aName

    self className:aName

!

className

    ^ className

!

className:aName

    className := aName

!

className:aClassName superclassName:aSuperclassName selector:aSelector

    className      := aClassName.

    superclassName := aSuperclassName.

    methodName     := aSelector.

!

findInputViewIn:aSuperView

    "returns index of input view into superview or nil

    "

    aSuperView == self ifTrue:[

        ^ self subViews findFirst:[:v| v == inputView ]

    ].

  ^ 0

!

inputView

    ^ inputView

!

methodName

    ^ methodName

!

methodName:aName

    methodName := aName

!

selectNames:aStringOrCollection

    |prop coll s n newSel|

    (aStringOrCollection size == 0) ifTrue:[

        newSel := nil.

    ] ifFalse:[

        (s := aStringOrCollection) isString ifFalse:[

            s size == 1 ifTrue:[

                s := s first

            ] ifFalse:[

                coll := OrderedCollection new.

                s do:[:aName|

                    (prop := self propertyOfName:aName) notNil ifTrue:[

                        coll add:(prop view)

                    ]

                ].

                (n := coll size) == 1 ifTrue:[ 

                    newSel := coll at:1 

                ] ifFalse:[

                    n == 0 ifTrue:[ 

                        newSel := nil

                    ] ifFalse:[

                        newSel := coll

                    ]

                ].

                ^ self select:newSel.

            ]

        ].

        prop := self propertyOfName:s.

        prop isNil ifTrue:[

            newSel := nil

        ] ifFalse:[

            newSel := prop view

        ].

    ].

    ^ self select:newSel

! !

!UIPainterView methodsFor:'change & update'!

layoutChanged

    treeView layoutChanged

! !

!UIPainterView methodsFor:'copy & cut & paste'!

copySelection

    "copy the selection into the cut&paste-buffer

    "

    |specs coll sel|

    sel := treeView selection.

    coll := self minSetOfSuperViews:(self selection).

    coll notNil ifTrue:[

"/        self select:nil.

        specs := coll collect:[:aView| self fullSpecFor:aView ].

        self setSelection:specs.

"/        treeView selection: sel

    ].

!

deleteSelection

    "delete the selection buffered

    "

    self deleteSelectionBuffered: true

!

deleteSelectionBuffered: buffered

    "cut the selection into the cut&paste-buffer

     and open a transaction

    "

    |specs coll oldSelectedNode newSelectedNode newSelection|

    coll := self minSetOfSuperViews:(self selection).

    coll notNil ifTrue:[

        treeView cvsEventsDisabledDo:[

            ((oldSelectedNode := (treeView model selectedNodes at: 1 ifAbsent: nil)) notNil and:

            [oldSelectedNode parent notNil]) ifTrue: [

                oldSelectedNode parent children size <= 1 ifTrue: [

                    newSelectedNode := oldSelectedNode parent

                ]

                ifFalse: [

                    newSelectedNode := oldSelectedNode parent children 

                        at: (oldSelectedNode parent indexOfChild: oldSelectedNode) - 1 

                        ifAbsent: [oldSelectedNode parent children at: 2]

                ].

            ].

            self hideSelection.

            selection := nil.

            specs := coll collect:[:aView| self fullSpecFor:aView ].

            self withinTransaction:#cut objects:coll do:[

                coll reverseDo:[:aView|

                    self createUndoRemove:aView.

                    self remove:aView.

                ]

            ].

            buffered ifTrue: [self setSelection: specs].

            treeView selection: nil. 

            (newSelection := (treeView model indexOf:newSelectedNode)) > 0 ifFalse: [

                 newSelection := 1

            ].

            treeView selection: (Array with: newSelection).

            self setSelection:treeView selectedNode contents view withRedraw: true.

        ]

    ]

!

deleteTotalSelection

    "delete the selection

    "            

    self deleteSelectionBuffered: false

!

pasteBuffer

    "add the objects in the paste-buffer to the object view

    "

    |sel|

    sel := self pasteSpecifications:(self getSelection) keepLayout:false.

    sel notNil ifTrue:[

        self select:sel.

    ].

!

pasteFromClipBoard:aString

    ^ self

!

pasteSpecifications:aSpecificationOrList keepLayout:keepLayout

    "add the specs to the object view; returns list of pasted components

    "

    ^ self

        pasteSpecifications:aSpecificationOrList 

        keepLayout:keepLayout 

        at:nil

    "Modified: 11.8.1997 / 01:00:35 / cg"

!

pasteSpecifications:aSpecificationOrList keepLayout:keepLayout at:aPointOrNil

    "add the specs to the object view; returns list of pasted components

    "

    |paste frame pasteOrigin pasteOffset builder newSel bounds|

    (self canPaste:aSpecificationOrList) ifFalse:[

        ^ nil

    ].

    aSpecificationOrList isCollection ifTrue:[

        paste := aSpecificationOrList

    ] ifFalse:[

        paste := Array with:aSpecificationOrList

    ].

    (frame := self singleSelection) isNil ifTrue:[

        frame := self

    ].

    self selection:nil.

    newSel  := OrderedCollection new.

    builder := UIBuilder new isEditing:true.

    className notNil ifTrue:[

        builder applicationClass:(self resolveName:className)

    ].

    keepLayout ifFalse:[

        pasteOffset := 0@0.

        aPointOrNil isNil ifTrue:[

            pasteOrigin := self sensor mousePoint.

            pasteOrigin := device translatePoint:pasteOrigin

                                        from:device rootView id

                                          to:frame id.

        ] ifFalse:[

            pasteOrigin := device translatePoint:aPointOrNil

                                            from:self id

                                              to:frame id.

        ]

    ].

    keepLayout ifFalse:[

        bounds := Rectangle origin:0@0 extent:(frame bounds extent)

    ].

    paste do:[:aSpec|

        |view|

        view := self addSpec:aSpec builder:builder in:frame.

        keepLayout ifFalse:[

            (bounds containsPoint:pasteOrigin) ifFalse:[

                self moveObject:view to:pasteOffset.

            ] ifTrue:[

                self moveObject:view to:pasteOrigin + pasteOffset.

            ].

            pasteOffset := pasteOffset + 4

        ].

        view realize.

        newSel add:view.

    ].

    self withinTransaction:#paste objects:newSel do:[

        undoHistory addUndoSelector:#undoCreate:

                           withArgs:(newSel collect:[:v|(self propertyOfView:v) identifier])

    ].

    self realizeAllSubViews.

    newSel do:[:v| v raise].

    inputView raise.

    self elementChangedSize:frame.

    newSel size == 1 ifTrue:[newSel := newSel at:1].

    ^ newSel

!

pasteWithLayout

    "add the objects in the paste-buffer to the object view; don't change the

     layout

    "

    |sel|

    sel := self pasteSpecifications:(self getSelection) keepLayout:true.

    sel notNil ifTrue:[

        self select:sel.

    ].

! !

!UIPainterView methodsFor:'drag & drop'!

canDrop:something

    "returns true if something can be droped

    "      

    (something size == 1 and:[self enabled and:[self numberOfSelections <= 1]]) ifTrue:[

      ^ something first theObject isKindOf:UISpecification

    ].

    ^ false

!

canPaste

    "returns true if something to be past exists and can be paste into

     the selection if exists

    "

    ^ self canPaste:(self getSelection)

!

canPaste:something

    "returns true if something could be paste

    "

    |el size|

    ((size := self numberOfSelections) <= 1 and:[self enabled]) ifFalse:[

        ^ false

    ].

    something isCollection ifTrue:[something notEmpty ifTrue:[el := something first]]

                          ifFalse:[el := something].

    (el isKindOf:UISpecification) ifFalse:[

        ^ false

    ].

    size == 1 ifTrue:[

        ^ self canPasteInto:(self singleSelection)

    ].

  ^ true

!

canPasteInto:aView

    "can paste into a view

    "

    |prop|

    aView notNil ifTrue:[

        (prop := self propertyRespondsToView:aView) notNil ifTrue:[

            ^ prop spec class supportsSubComponents

        ].

      ^ aView specClass supportsSubComponents.

    ].

    ^ false

!

drop:anObjectOrCollection at:aPoint

    |spec newSel oldSel dragOffset|

    self selection notNil ifTrue:[

        oldSel := self singleSelection.

        (self canPasteInto:oldSel) ifFalse:[

            oldSel := nil.

            self setSelection:nil withRedraw:true

        ]

    ].

    spec := (anObjectOrCollection at:1) theObject.

    dragOffset := DragAndDropManager dragOffsetQuerySignal query.

    newSel := self pasteSpecifications:spec keepLayout:false at:aPoint - dragOffset.

    oldSel isNil ifTrue:[self select:newSel]

                ifFalse:[self select:oldSel]