"

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

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 - standard specifications'!

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"

!

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

            )

           )

        )

      )

!

standardEmbed

    "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:#standardEmbed

     UISelectionPanel new openInterface:#standardEmbed

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: standardEmbed

        window: 

       (WindowSpec

          label: 'Misc'

          name: 'Misc'

          min: (Point 10 10)

          bounds: (Rectangle 14 46 456 269)

        )

        component: 

       (SpecCollection

          collection: (

           (ArbitraryComponentSpec

              name: 'Arbitrary Component'

              layout: (LayoutFrame 3 0 3 0 128 0 104 0)

              hasBorder: false

            )

           (LabelSpec

              label: 'Scrollable'

              name: 'ScrollableArbitraryLabel1'

              layout: (AlignmentOrigin 7 0 7 0 0 0)

              style: (FontDescription helvetica medium roman 10)

              resizeForLabel: true

              adjust: left

              canUIDrag: false

            )

           (LabelSpec

              label: 'Arbitrary-'

              name: 'ScrollableArbitraryLabel2'

              layout: (AlignmentOrigin 7 0 23 0 0 0)

              style: (FontDescription helvetica medium roman 10)

              resizeForLabel: true

              adjust: left

              canUIDrag: false

            )

           (LabelSpec

              label: 'Component'

              name: 'ScrollableArbitraryLabel3'

              layout: (AlignmentOrigin 7 0 39 0 0 0)

              style: (FontDescription helvetica medium roman 10)

              resizeForLabel: true

              adjust: left

              canUIDrag: false

            )

           (UISubSpecification

              name: 'SubSpecification'

              layout: (LayoutFrame 145 0 3 0 280 0 104 0)

            )

           (LabelSpec

              label: 'SubSpecification'

              name: 'SubSpecificationLabel'

              layout: (Point 149 7)

              style: (FontDescription helvetica medium roman 10)

              resizeForLabel: true

              canUIDrag: false

            )

           (SubCanvasSpec

              name: 'SubCanvas'

              layout: (LayoutFrame 297 0 3 0 433 0 104 0)

              hasHorizontalScrollBar: true

              hasVerticalScrollBar: true

            )

           (LabelSpec

              label: 'SubCanvas'

              name: 'SubCanvasLabel'

              layout: (AlignmentOrigin 324 0 7 0 0 0)

              style: (FontDescription helvetica medium roman 10)

              resizeForLabel: true

              adjust: left

              canUIDrag: false

            )

           (NonScrollableArbitraryComponentSpec

              name: 'NonSrollable Arbitrary Component'

              layout: (LayoutFrame 3 0 120 0 128 0 221 0)

            )

           (LabelSpec

              label: 'NonScrollable'

              name: 'NonScrollableArbitraryLabel1'

              layout: (AlignmentOrigin 7 0 124 0 0 0)

              style: (FontDescription helvetica medium roman 10)

              resizeForLabel: true

              adjust: left

              canUIDrag: false

            )

           (LabelSpec

              label: 'Arbitrary-'

              name: 'NonScrollableArbitraryLabel2'

              layout: (AlignmentOrigin 7 0 140 0 0 0)

              style: (FontDescription helvetica medium roman 10)

              resizeForLabel: true

              adjust: left

              canUIDrag: false

            )

           (LabelSpec

              label: 'Component'

              name: 'NonScrollableArbitraryLabel3'

              layout: (AlignmentOrigin 7 0 156 0 0 0)

              style: (FontDescription helvetica medium roman 10)

              resizeForLabel: true

              adjust: left

              canUIDrag: false

            )

           )

        )

      )

!

standardGraphs

    "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:#standardGraphs

     UISelectionPanel new openInterface:#standardGraphs

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: standardGraphs

        window: 

       (WindowSpec

          label: 'Graphs'

          name: 'Graphs'

          min: (Point 10 10)

          bounds: (Rectangle 14 46 453 161)

        )

        component: 

       (SpecCollection

          collection: (

           (GraphColumnView2DSpec

              name: 'GraphColumnView2D'

              layout: (LayoutFrame 3 0 3 0 208 0 98 0)

              gridX: 0

              gridY: 0

            )

           (LabelSpec

              label: 'GraphColumnViewView2D'

              name: 'GraphColumnView2DLabel'

              layout: (AlignmentOrigin 7 0 7 0 0 0)

              style: (FontDescription helvetica medium roman 10)

              resizeForLabel: true

              adjust: left

              canUIDrag: false

            )

           (GraphColumnView3DSpec

              name: 'GraphColumnView3D'

              layout: (LayoutFrame 228 0 3 0 433 0 98 0)

            )

           (LabelSpec

              label: 'GraphColumnViewView3D'

              name: 'GraphColumnView3DLabel'

              layout: (AlignmentOrigin 232 0 7 0 0 0)

              style: (FontDescription helvetica medium roman 10)

              resizeForLabel: true

              adjust: left

              canUIDrag: false

            )

           )

        )

      )

!

standardGroups

    "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:#standardGroups

     UISelectionPanel new openInterface:#standardGroups

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: standardGroups

        window: 

       (WindowSpec

          label: 'Groups'

          name: 'Groups'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 443 222)

        )

        component: 

       (SpecCollection

          collection: (