"

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

ApplicationModel subclass:#UISelectionPanel

	instanceVariableNames:'gallery userClass userSpecs userLabels majorSelection

		clipBoardSpec'

	classVariableNames:'UserClass UserSpecs UserLabels'

	poolDictionaries:''

	category:'Interface-UIPainter'

!

Object subclass:#UserDefinedGallery

	instanceVariableNames:''

	classVariableNames:'LabelList SelectorList HolderList NextUniqueNumber'

	poolDictionaries:''

	privateIn:UISelectionPanel

!

!UISelectionPanel 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 the UIPainter by drag & drop.

    [start with:]

        UISelectionPanel open

    [author:]

        Claus Gittinger

        Claus Atzkern

    [see also:]

        TabView

        NoteBookView

        UIGalleryView

        UIPainter

"

! !

!UISelectionPanel class methodsFor:'initialization'!

initialize

    UserClass  := UISelectionPanel::UserDefinedGallery.

    UserSpecs  := #listOfSelectors.

    UserLabels := #listOfLabels.

    "Modified: / 8.12.1997 / 18:53:06 / cg"

! !

!UISelectionPanel class methodsFor:'accessing'!

specifications

    ^ #(

        #( 'Standard'  #( 

                            #('Buttons' standardButtons)

                            #('Menus'   standardMenus)

                            #('Text'    standardTexts)

                            #('Lists'   standardLists)

                            #('Trees'   standardTrees)

                            #('Groups'  standardGroups)

                            #('Embed'   standardEmbed)

                            #('Misc'    standardMisc)

                         )

         )

        #( 'Clipboard'  #(

                            #('Copy & Paste Buffer'     clipBoardSpec)

                          )

         )

        #( 'User Def.'   #userDefined )

     )

    "Modified: / 21.4.1998 / 12:04:22 / cg"

!

userClass

    "return the class which provides the user defined gallery specs."

    ^ UserClass

    "Created: / 5.12.1997 / 15:12:50 / cg"

!

userClass:aClass specSelector:aSpecAccessSelector labelSelector:aLabelListAccessSelector

    "change the class which provides the user defined gallery specs."

    UserClass := aClass.

    UserSpecs := aSpecAccessSelector.

    UserLabels := aLabelListAccessSelector.

    "

     UISelectionPanel 

        userClass:UISelectionPanel::VariableUserDefinedGallery

        specSelector:#listOfSelectors

        labelSelector:#listOfLabels

    "

    "Modified: / 5.12.1997 / 13:54:47 / cg"

    "Created: / 5.12.1997 / 13:56:10 / cg"

! !

!UISelectionPanel class methodsFor:'classAccess'!

galleryClass

    ^ UserDefinedGallery

! !

!UISelectionPanel class methodsFor:'interface specs'!

nameAndSelectorSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:UISelectionPanel andSelector:#nameAndSelectorSpec

     UISelectionPanel new openInterface:#nameAndSelectorSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: nameAndSelectorSpec

        window: 

       (WindowSpec

          label: 'Painter'

          name: 'Painter'

          min: (Point 10 10)

          bounds: (Rectangle 14 46 329 262)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Class & selectors to access user specs:'

              name: 'title'

              layout: (Point 5 10)

              resizeForLabel: true

              adjust: left

            )

           (LabelSpec

              label: 'Class:'

              name: 'classLabel'

              layout: (AlignmentOrigin 68 0.11 51 0 1 0.5)

              resizeForLabel: true

              adjust: right

            )

           (InputFieldSpec

              name: 'classField'

              layout: (LayoutFrame 74 0.11 39 0 -5 1.0 61 0)

              tabable: true

              model: className

              type: string

              acceptOnPointerLeave: false

            )

           (LabelSpec

              label: 'Labels:'

              name: 'labelsLabel'

              layout: (AlignmentOrigin 68 0.11 74 0 1 0.5)

              resizeForLabel: true

              adjust: right

            )

           (InputFieldSpec

              name: 'labelsField'

              layout: (LayoutFrame 74 0.11 64 0 -5 1.0 86 0)

              tabable: true

              model: labelsKey

              type: symbolOrNil

              acceptOnPointerLeave: false

            )

           (LabelSpec

              label: 'Specifications:'

              name: 'specsLabel'

              layout: (AlignmentOrigin 68 0.11 99 0 1 0.5)

              resizeForLabel: true

              adjust: right

            )

           (InputFieldSpec

              name: 'specsField'

              layout: (LayoutFrame 74 0.11 89 0 -5 1.0 111 0)

              tabable: true

              model: specsKey

              type: symbolOrNil

              acceptOnPointerLeave: false

            )

           (HorizontalPanelViewSpec

              name: 'commitPanel'

              layout: (LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0)

              horizontalLayout: fitSpace

              verticalLayout: fit

              horizontalSpace: 3

              verticalSpace: 3

              reverseOrderIfOKAtLeft: true

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'cancel'

                    name: 'cancel'

                    tabable: true

                    model: cancel

                    extent: (Point 153 23)

                  )

                 (ActionButtonSpec

                    label: 'ok'

                    name: 'accept'

                    tabable: true

                    model: accept

                    isDefault: true

                    extent: (Point 153 23)

                  )

                 )

              )

            )

           (CheckBoxSpec

              label: 'Update Default Resources'

              name: 'updateDefaultResources'

              layout: (Point 5 133)

              model: updateDefaultResources

            )

           )

        )

      )

!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:UISelectionPanel andSelector:#windowSpec

     UISelectionPanel new openInterface:#windowSpec

     UISelectionPanel open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Widget Gallery'

          name: 'Widget Gallery'

          min: (Point 100 280)

          bounds: (Rectangle 14 46 508 348)

        )

        component: 

       (SpecCollection

          collection: (

           (NoteBookViewSpec

              name: 'NoteBook1'

              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

              model: majorChannel

              menu: majorList

              direction: right

              useIndex: true

              canvas: gallery

            )

           )

        )

      )

! !

!UISelectionPanel class methodsFor:'menus'!

menuSelected

    <resource: #menu>

    ^ #(#Menu #(

                #(#MenuItem

                        #'label:' 'copy'

                        #'value:' #copy

                 )

                #(#MenuItem

                        #'label:' 'cut'

                        #'value:' #cut

                 )

                )

               nil

               nil

        )

    "Modified: / 29.10.1997 / 03:20:30 / cg"

!

menuUnselected

    <resource: #menu>

    ^ #(#Menu #(

                #(#MenuItem

                        #'label:' 'paste'

                        #'value:' #paste

                 )

                )

               nil

               nil

        )

    "Modified: / 29.10.1997 / 03:20:38 / cg"

! !

!UISelectionPanel class methodsFor:'resources'!

classResources

    "my translations are found in the UIPainter classes resources"

    ^ UIPainter classResources 

! !

!UISelectionPanel class methodsFor:'standard specifications'!

standardButtons

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:UISelectionPanel andSelector:#standardButtons

     UISelectionPanel new openInterface:#standardButtons

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: standardButtons

        window: 

       (WindowSpec

          label: 'Buttons'

          name: 'Buttons'

          min: (Point 10 10)

          bounds: (Rectangle 16 52 456 210)

        )

        component: 

       (SpecCollection

          collection: (

           (ActionButtonSpec

              label: 'Button'

              name: 'Button'

              layout: (LayoutFrame 2 0 1 0 127 0 23 0)

              translateLabel: true

            )

           (ActionButtonSpec

              label: 'OK'

              name: 'Button - OK'

              layout: (LayoutFrame 2 0 33 0 127 0 55 0)

              translateLabel: true

              model: doAccept

            )

           (ActionButtonSpec

              label: 'Cancel'

              name: 'Button - Cancel'

              layout: (LayoutFrame 2 0 65 0 127 0 87 0)

              translateLabel: true

              model: doCancel

            )

           (ActionButtonSpec

              label: 'Help'

              name: 'Button - Help'

              layout: (LayoutFrame 2 0 97 0 127 0 119 0)

              translateLabel: true

              model: help

            )

           (ActionButtonSpec

              label: 'Close'

              name: 'Button - Close'

              layout: (LayoutFrame 2 0 129 0 127 0 151 0)

              translateLabel: true

              model: closeRequest

            )

           (ToggleSpec

              label: 'Toggle'

              name: 'Toggle'

              layout: (LayoutFrame 144 0 1 0 280 0 23 0)

              translateLabel: true

              isTriggerOnDown: true

              lampColor: (Color 100.0 100.0 0.0)

            )

           (RadioButtonSpec

              label: 'Radio Button'

              name: 'Radio Button'

              layout: (LayoutFrame 144 0.0 33 0 280 0 55 0)

              translateLabel: true

              isTriggerOnDown: true

            )

           (CheckBoxSpec

              label: 'Check Box'

              name: 'Check Box'

              layout: (LayoutFrame 144 0 65 0 280 0 87 0)

              translateLabel: true

            )

           (CheckToggleSpec

              name: 'Check Toggle'

              layout: (LayoutOrigin 144 0 99 0)

              isTriggerOnDown: true

              showLamp: false

              lampColor: (Color 100.0 100.0 0.0)

            )

           (LabelSpec

              label: 'Check Toggle'

              name: 'CheckToggleLabel'

              layout: (AlignmentOrigin 170 0 98 0 0 0)

              resizeForLabel: true

              adjust: left

              canUIDrag: false

            )

           (ButtonSpec

              label: 'Model Button'

              name: 'Model Button'

              layout: (LayoutFrame 296 0 1 0 432 0 23 0)

              translateLabel: true

            )

           (LabelSpec

              label: 'Spin Button'

              name: 'UpDownButtonLabel'

              layout: (AlignmentOrigin 348 0 35 0 0 0)

              resizeForLabel: true

              adjust: left

              canUIDrag: false

            )

           (UpDownButtonSpec

              name: 'UpDown Button'

              layout: (LayoutFrame 296 0 33 0 341 0 55 0)

              orientation: horizontal

            )

           (LabelSpec

              label: 'Arrow Button'

              name: 'ArrowButtonsLabel'

              layout: (AlignmentOrigin 348 0 69 0 0 0)

              resizeForLabel: true

              adjust: left

              canUIDrag: false

            )

           (ArrowButtonSpec

              name: 'Arrow Button'

              layout: (LayoutFrame 296 0 65 0 318 0 87 0)

              isTriggerOnDown: true

              direction: right

            )

           )