"

 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' }"

"{ NameSpace: Smalltalk }"

NoteBookView subclass:#UIGalleryView

	instanceVariableNames:'majorKey minorKeys minorKeysHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

View subclass:#Palette

	instanceVariableNames:'clientSpecHolder selection specification lastClickPoint

		menuSelector uiBuilder hiddenCounter showBorders

		didWarnAboutUnknownSpecs'

	classVariableNames:''

	poolDictionaries:''

	privateIn:UIGalleryView

!

DropObject subclass:#DropSpec

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UIGalleryView::Palette

!

!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 list:listOfLabels.

    minorKeys := listOfMinorKeys.

    majorKey  := aMajorKey.

    "Modified (comment): / 31-03-2017 / 18:06:25 / stefan"

!

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.

!

showBorders:aBoolean

    "show borders around dragable objects"

    canvas showBorders:aBoolean.

! !

!UIGalleryView methodsFor:'accessing-color & font'!

viewBackground:aColor

    canvas notNil ifTrue:[

        canvas viewBackground:aColor.

    ].

    ^ super viewBackground:aColor

! !

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

        ] on:NotFoundError do:[:ex|

            Transcript showCR:ex description.

            ex proceed.

        ]

"/    ]

!

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 := Palette in:self.

    super initialize.

    self action:[:something| self selectionHasChanged ].

!

release

    minorKeysHolder notNil ifTrue:[

        minorKeysHolder removeDependent:self. 

        minorKeysHolder := nil.

    ].

    super release.

! !

!UIGalleryView::Palette class methodsFor:'documentation'!

documentation

"

    I am the palette of a gallery. Most of what I do is to allow dragging of a widget out

    of myself and to care for the drawing of the selection.

    The arrangement into multiple pages is done by my container, which holds me

    in a subcanvas.

"

! !

!UIGalleryView::Palette 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

    "

    |spec|

    spec := clientSpecHolder value.

    aHolder notNil ifTrue:[ clientSpecHolder := aHolder ]

                  ifFalse:[ clientSpecHolder := nil asValue ].

    clientSpecHolder value:spec.

!

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.

!

showBorders:aBoolean

    showBorders := aBoolean.

!

specification

    "get current specification

    "

    ^ specification

!

specification:aSpecOrSpecArray

    "set a new specification"

    |builder newSpec|

    self selection:nil.

    self destroySubViews.

    specification := nil.

    aSpecOrSpecArray isNil ifTrue:[^ self].

    "/ only warn once - otherwise, its annoying

    MissingClassInLiteralArrayErrorSignal handle:[:ex |

        didWarnAboutUnknownSpecs == true ifFalse:[

            Dialog warn:(ex description,'\\(Will not warn again - please check for unloaded classes/packages)' withCRs).

        ].

        didWarnAboutUnknownSpecs := true.

        ex proceed.

    ] do:[

        newSpec := UISpecification from:aSpecOrSpecArray.

    ].

    newSpec isNil ifTrue:[^ self].

    (newSpec respondsTo:#'buildViewFor:in:') ifFalse:[^ self].

    specification := newSpec.

    (builder := uiBuilder) isNil ifTrue:[

        builder := UIBuilder new isEditing:true.

        builder showDefaults:true.

        builder application:self application. "/ for resources like images

    ].

    specification buildViewFor:builder in:self.

    "/ components notEmptyOrNil ifTrue:[ self halt ].

    subViews size ~~ 0 ifTrue:[

        showBorders ifTrue:[

            subViews do:[:v|

                (self findSpecFor:v) notNil ifTrue:[

                    v borderWidth:1

                ].

            ].

        ].

        realized ifTrue:[ self realizeAllSubViews ].

    ].

! !

!UIGalleryView::Palette methodsFor:'building'!

recursiveBuildSpecFromSpecPrototype:aSpec

    "build spec out of spec prototype"

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

            coll add:spc

        ]

    ].

    coll isEmpty ifTrue:[

        ^ spec

    ].

    comp := comp copy.

    comp collection:coll.

    spec component:comp.

    ^ spec

! !

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

startDragFrom:evView

    "start drag at lastClickPoint"

    |spec dragObj offset clickPos dragAndDropManager|

    clickPos := lastClickPoint.

    clickPos isNil ifTrue:[^ self].

    lastClickPoint := nil.

    spec := clientSpecHolder value.

    spec isNil ifTrue:[^ self].

    self withSelectionHiddenDo:[

        spec := self recursiveBuildSpecFromSpecPrototype:spec.

        spec name:nil.

        dragObj := DropSpec for:selection specification:spec.

        offset  := clickPos - selection origin.

    ].

    dragAndDropManager := DragAndDropManager new.

    dragAndDropManager giveFocusToTargetWidget:false.

    dragAndDropManager 

        startDrag:dragObj

        from:self

        offset:offset

        atEnd:nil

        display:nil.

! !

!UIGalleryView::Palette methodsFor:'event handling'!

processEvent:anEvent

    "filter keyboard events.

     Return true, if I have eaten the event"

    |evView p|

    evView := anEvent view.

    evView isNil ifTrue:[ ^ false ].

    (evView ~~ self and:[ (evView isComponentOf:self) not ]) ifTrue:[ ^ false ].

    (anEvent isButtonPressEvent or:[anEvent isButtonReleaseEvent])ifTrue:[

        lastClickPoint := nil.

    ].

    anEvent isButtonEvent ifFalse:[

        anEvent isInputEvent ifTrue:[^ true].