"

 COPYRIGHT (c) 1997 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' }"

NoteBookView subclass:#UIGalleryView

	instanceVariableNames:'majorKey minorKeys minorKeysHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

View subclass:#Canvas

	instanceVariableNames:'dragMode clientSpecHolder inputView selection specification

		lastClickPoint menuSelector raiseMenuSelector uiBuilder'

	classVariableNames:''

	poolDictionaries:''

	privateIn:UIGalleryView

!

DropObject subclass:#DropSpec

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UIGalleryView::Canvas

!

!UIGalleryView class methodsFor:'documentation'!

copyright

"

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

"

    implements a selection panel, keeping widgets which could be placed

    into other components by drag & drop or copy @ paste. The objects

    which are draged/droped must be kind of UISpecification's.

    The UISelectionPanel used by the UIPainter is implemented in this way.

    [author:]

	Claus Gittinger

	Claus Atzkern

    [see also:]

	UIPainter

	UISelectionPanel

"

!

examples

"

    opens a gallery

									[exBegin]

    |top sel|

    top := StandardSystemView new label:'gallery'; extent:500@300.

    sel := UIGalleryView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.

    sel labels:#(    'Buttons'

		     'Panels'

		     'Text'

		   ).

    sel minorKeys:#( #standardButtonToggle

		     #standardPanels

		     #standardText

		   ).

    sel majorKey:UISelectionPanel.

    top open.

									[exEnd]

"

! !

!UIGalleryView methodsFor:'accessing'!

builder

    "get the builder used to setup a window from a specification (or nil in case

     of using a new builder)

    "

  ^ canvas builder

!

builder:aBuilderOrNil

    "set the builder used to setup a window from a specification (or nil in case

     of using a new builder)

    "

    canvas builder:aBuilderOrNil

!

canvas:aCanvas

    ^ self

!

labels:listOfLabels minorKeys:listOfMinorKeys majorKey:aMajorKey

    "setup for labels, selectors and class provider

    "

    self labels:listOfLabels.

    minorKeys := listOfMinorKeys.

    majorKey  := aMajorKey.

!

majorKey

    "get the class providing the window specifications

    "

  ^ majorKey

!

majorKey:aKey

    "get the class providing the window specifications

    "

    |appl|

    appl := self application.

    appl notNil ifTrue:[

	majorKey := appl resolveName:aKey

    ] ifFalse:[

	majorKey := Smalltalk resolveName:aKey inClass:self class

    ].

    self selection:nil

!

minorKeys

    "get the list of selector keys

    "

  ^ minorKeys

!

minorKeys:aListOfSelectors

    "set the list of selectors

    "

    minorKeys := aListOfSelectors.

    self selection:nil.

! !

!UIGalleryView methodsFor:'accessing-holders'!

clientSpecHolder

    "get the holder which keeps the current selection or in case of

     no selection the specification under the cursor

    "

  ^ canvas clientSpecHolder

!

clientSpecHolder:aHolder

    "set the holder which keeps the current selection or in case of

     no selection the specification under the cursor

    "

    canvas clientSpecHolder:aHolder

!

menuSelector

    ^ canvas menuSelector

!

menuSelector:aSelector

    ^ canvas menuSelector:aSelector

!

minorKeysHolder

    "get the holder keeping the minor keys; the selectors to access

     specifications from a class associated with the majorKey.

    "

  ^ minorKeysHolder

!

minorKeysHolder:aValueHolder

    "set the holder keeping the minor keys; the selectors to access

     specifications from a class associated with the majorKey.

    "

    minorKeysHolder notNil ifTrue:[

	minorKeysHolder removeDependent:self. 

    ].

    (minorKeysHolder := aValueHolder) notNil ifTrue:[

	minorKeysHolder addDependent:self.

    ].

    self minorKeys:(minorKeysHolder value)

! !

!UIGalleryView methodsFor:'change & update'!

selectionHasChanged

    "selection changed

    "

    |specification selector selection application|

    selection := self listIndexOf:(self selection).

    minorKeysHolder notNil ifTrue:[

        minorKeys := minorKeysHolder value.

    ].

    (selection notNil and:[minorKeys size >= selection]) ifTrue:[

        selector := minorKeys at:selection.

        (majorKey respondsTo:selector) ifTrue:[

            specification := majorKey perform:selector

        ] ifFalse:[

            (application := self application) notNil ifTrue:[

                MessageNotUnderstood handle:[:ex|

                    (application class respondsTo:selector) ifTrue:[

                        specification := application class perform:selector

                    ]

                ] do:[

                    specification := application aspectFor:selector

                ]

            ]

        ]

    ].

    self withWaitCursorDo:[

        canvas specification:specification.

    ]

!

update

    self selectionHasChanged.

!

update:something with:aParameter from:changedObject

    "one of my models changed its value

    "

    changedObject == minorKeysHolder ifTrue:[

        ^ self minorKeys:( minorKeysHolder value)

    ].

    super update:something with:aParameter from:changedObject.

! !

!UIGalleryView methodsFor:'initialization & release'!

initialize

    "setup default attributes

    "

    canvas := Canvas.

    super initialize.

    self action:[:something| self selectionHasChanged ].

!

release

    minorKeysHolder notNil ifTrue:[

        minorKeysHolder removeDependent:self. 

        minorKeysHolder := nil.

    ].

    super release.

! !

!UIGalleryView::Canvas methodsFor:'accessing'!

builder

    "get the builder used to setup a window from a specification (or nil in case

     of using a new builder)

    "

  ^ uiBuilder

!

builder:something

    "set the builder used to setup a window from a specification (or nil in case

     of using a new builder)

    "

    uiBuilder := something.

!

clientSpecHolder

    "get the holder which keeps the current selection or in case of

     no selection the specification under the cursor

    "

    ^ clientSpecHolder

!

clientSpecHolder:aHolder

    "set the holder which keeps the current selection or in case of

     no selection the specification under the cursor

    "

    (clientSpecHolder := aHolder) notNil ifTrue:[

	clientSpecHolder value:selection

    ].

!

menuSelector

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

    ^ menuSelector

!

menuSelector:something

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

    menuSelector := something.

!

specification

    "get current specification

    "

   ^ specification

!

specification:aSpecOrSpecArray

    "set a new specification

    "

    |builder|

    self selection:nil.

    subViews copy do:[:aSubView|

        aSubView ~~ inputView ifTrue:[

            aSubView destroy

        ]

    ].

    aSpecOrSpecArray notNil ifTrue:[

        specification := UISpecification from:aSpecOrSpecArray.

        (specification respondsTo:#buildViewFor:in:) ifFalse:[

            specification := nil.

          ^ self

        ].

        (builder := uiBuilder) isNil ifTrue:[

            builder := UIBuilder new isEditing:true.

            builder showDefaults:true.

        ].

        specification buildViewFor:builder in:self.

        subViews do:[:v|

            (v ~~ inputView and:[(self findSpecFor:v) notNil]) ifTrue:[

                v borderWidth:1.

            ]

        ].

        self shown ifTrue:[

            self realizeAllSubViews.

            inputView raise

        ]

    ] ifFalse:[

        specification := nil

    ]

! !

!UIGalleryView::Canvas methodsFor:'building'!

buildSpecFrom:aSpec

    "build spec out of spec

    "

    |spec comp coll|

    (aSpec notNil and:[aSpec canUIDrag]) ifFalse:[

	^ nil

    ].

    spec := aSpec copy.

    (aSpec class supportsSubComponents and:[aSpec component notNil]) ifFalse:[

	^ spec

    ].

    comp := aSpec component.

    spec component:nil.

    comp canUIDrag ifFalse:[

      ^ spec

    ].

    coll := OrderedCollection new.

    comp do:[:anEntry||spc|

	(spc := self buildSpecFrom:anEntry) notNil ifTrue:[

	    coll add:spc

	]

    ].

    coll isEmpty ifTrue:[

      ^ spec

    ].

    comp := comp copy.

    comp collection:coll.

    spec component:comp.

  ^ spec

! !

!UIGalleryView::Canvas methodsFor:'drag & drop'!

startDrag

    "start drag of selection

    "

    |dragObj spec name|

    spec := self findSpecFor:selection.

    spec notNil ifTrue:[

	spec := self buildSpecFrom:spec.

	name := spec className asString.

	name := name copyFrom:1 to:(name size - ('Spec' size) + 1). 

	name at:1 put:(name at:1) asLowercase.

	name at:(name size) put:$1.

	spec name:name.

	self showUnselected.

	dragObj := DropSpec for:selection specification:spec.

	"/ self showSelected.

	DragAndDropManager startDrag:dragObj from:inputView.

    ]

!

startDragWithOffset:offs

    "start drag of selection

    "

    |dragObj spec o|

    spec := self findSpecFor:selection.

    spec notNil ifTrue:[

	spec := self buildSpecFrom:spec.

	spec name:(spec copy userFriendlyName, $1).

	self showUnselected.

	dragObj := DropSpec for:selection specification:spec.

	"/ self showSelected.

	o := lastClickPoint - selection origin.

	DragAndDropManager 

	    startDrag:dragObj 

	    from:inputView

	    offset:o.

    ]

    "Created: 11.8.1997 / 00:44:17 / cg"

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

! !

!UIGalleryView::Canvas methodsFor:'event handling'!

buttonMotion:state x:x y:y

    "start a drag on selection

    "

    |sensor|

    (state ~~ 0 and:[lastClickPoint notNil and:[selection notNil]]) ifTrue:[

	sensor := self sensor.

	sensor anyButtonPressed ifTrue:[

	    (lastClickPoint dist:(x@y)) > 10.0 ifTrue:[

		^ self startDragWithOffset:(x@y) - lastClickPoint

	    ]

	]

    ]

!

buttonPress:button x:x y:y

    "change selection

    "

    |application|

    (button == 1 or:[button == #select]) ifTrue:[

        lastClickPoint := Point x:x y:y.

        self selection:(self findObjectAtX:x y:y).

    ] ifFalse:[

        lastClickPoint := nil.

        (menuSelector notNil and:[(application := self application) notNil]) ifTrue:[

            MessageNotUnderstood catch:[

                application aspectFor:menuSelector

            ]

        ]

    ]

!

exposeX:x y:y width:w height:h

    "handle an expose event from device; redraw selection

    "

    super exposeX:x y:y width:w height:h.

    (selection notNil and:[self sensor hasExposeEventFor:selection]) ifFalse:[

	self showSelected.

    ].