"

 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.

"

"{ Package: 'stx:libtool2' }"

UIObjectView subclass:#UIPainterView

	instanceVariableNames:'treeView listHolder superclassName className methodName

		categoryName handleColorBlack handleColorWhite 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:'initialization'!

initialize

    AspectsAsInstances := true. "/ false.

    RedefineAspectMethods := false.

    "Created: / 22.9.1999 / 12:32:31 / stefan"

! !

!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

    "Modified: / 22.9.1999 / 12:33:03 / stefan"

!

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.

!

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 notNil ifTrue:[

	treeView layoutChanged

    ]

! !

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

commonContainerOf:someComponents

    |container|

    container := someComponents first container.

    [container notNil

     and:[ (someComponents conform:[:eachComponent | eachComponent isComponentOf:container]) not]]

	whileTrue:[

	container := container container.

    ].

    ^ container

!

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 index oldSelection newSelection treeModel children size nd|

    treeView askForSelectionChangeAllowed ifFalse:[^ self].

    coll := self minSetOfSuperViews:(self selection).

    coll notNil ifTrue:[

	treeView cvsEventsDisabledDo:[

	    treeModel    := treeView model.

	    oldSelection := treeModel selectedNodes at:1 ifAbsent: nil.

	    oldSelection notNil ifTrue:[

		children := oldSelection parent children.

		(size := children size) > 1 ifTrue:[

		    index := children identityIndexOf:oldSelection.

		    size == index ifTrue:[

			index := index - 1

		    ].

		    newSelection := children at:index ifAbsent:1.

		] ifFalse:[

		    newSelection := oldSelection parent

		].

		newSelection := treeModel indexOf:newSelection.

	    ] ifFalse:[

		newSelection := 1

	    ].

	    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.

	    treeView selection:(Array with: newSelection).

	    (nd := treeView selectedNode) notNil ifTrue:[

		self setSelection:nd contents view withRedraw:true.

	    ]

	]

    ]

!

deleteTotalSelection

    "delete the selection

    "

    self deleteSelectionBuffered: false

!

getSelectedViewsAndSpecs

    "return an array filed with selected views and corresponding specs.

     Nil if there is none.

    "

    |specs coll sel|

    sel := treeView selection.

    coll := self minSetOfSuperViews:(self selection).

    coll isNil ifTrue:[^ nil].

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

    ^ Array with: coll with: specs

!

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.

    ].

!

pasteKeepingPosition

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

     translate the layout as appropriate, to position the component

     at the same absolute position (relative to topView) as before

    "

    |sel|

    sel := self

	pasteSpecifications:(self getSelection)

	keepLayout:true

	keepPosition:true

	at:nil.

    sel notNil ifTrue:[

	self select:sel.

    ].

!

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

    "

    ^ self

	pasteSpecifications:aSpecificationOrList

	keepLayout:keepLayout

	keepPosition:false

	at:aPointOrNil

!

pasteSpecifications:aSpecificationOrList keepLayout:keepLayout keepPosition:keepPosition at:aPointOrNil

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

    "

    |paste pasteOrigin pasteOffset builder newSel bounds containerToPasteInto|

    treeView askForSelectionChangeAllowed ifFalse:[^ nil].

    containerToPasteInto := self singleSelection.

    containerToPasteInto isNil ifTrue:[

	self selection size > 0 ifTrue:[

	    containerToPasteInto := self commonContainerOf:self selection

	] ifFalse:[

	    containerToPasteInto := self

	].

	self selection:containerToPasteInto.

    ].

    (self canPasteInto:containerToPasteInto) ifFalse:[

	containerToPasteInto notNil ifTrue:[

	    "/ search up parent list for something we can paste into

	    [containerToPasteInto notNil and:[(self canPasteInto:containerToPasteInto) not]] whileTrue:[

		containerToPasteInto := containerToPasteInto container.

	    ].

	    self selection:containerToPasteInto.

	].

    ].

    containerToPasteInto isNil ifTrue:[

	containerToPasteInto := self

    ].

    (self canPaste:aSpecificationOrList) ifFalse:[

	Dialog warn:'Cannot paste into selected component (not a container ?)'.

	^ nil

    ].

    aSpecificationOrList isCollection ifTrue:[

	paste := aSpecificationOrList

    ] ifFalse:[

	paste := Array with:aSpecificationOrList

    ].

    self setSelection:nil.

    newSel  := OrderedCollection new.

    builder := UIBuilder new isEditing:true.

    className notNil ifTrue:[

	builder applicationClass:(self resolveName:className)

    ].

    (keepLayout not or:[keepPosition]) ifTrue:[

	pasteOffset := 0@0.

	keepPosition ifTrue:[

	    pasteOrigin := device translatePoint:0@0

				  fromView:self

				  toView:containerToPasteInto.

	] ifFalse:[

	    aPointOrNil isNil ifTrue:[

		pasteOrigin := self sensor mousePoint.

		pasteOrigin := device translatePoint:pasteOrigin

					    fromView:nil

					      toView:containerToPasteInto.

	    ] ifFalse:[

		pasteOrigin := device translatePoint:aPointOrNil

					    fromView:self

					      toView:containerToPasteInto.

	    ]

	].

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

    ].

    paste do:[:aSpec|

	|view newOrigin|

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

	keepPosition ifTrue:[

	    self moveObject:view to:(view origin + pasteOrigin).

	] ifFalse:[

	    keepLayout ifFalse:[

		(bounds containsPoint:pasteOrigin) ifFalse:[

		    newOrigin := pasteOffset.

		] ifTrue:[

		    newOrigin := pasteOrigin + pasteOffset.

		].

		self moveObject:view to:newOrigin.

		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].

    self elementChangedSize:containerToPasteInto.

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

    ^ newSel

    "Modified: / 10.10.2001 / 14:15:12 / cg"

!

pasteWithLayout

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