"

 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.

"

ApplicationModel subclass:#UISelectionPanel

	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

    super 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)

                            #('Groups'  standardGroups)

                            #('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:'interface specification'!

nameAndSelectorSpec

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:UISelectionPanel andSelector:#nameAndSelectorSpec

     UISelectionPanel new openInterface:#nameAndSelectorSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'uIPainterView'

              #layout: #(#LayoutFrame 110 0 366 0 424 0 581 0)

              #label: 'Painter'

              #min: #(#Point 10 10)

              #max: #(#Point 1280 1024)

              #bounds: #(#Rectangle 110 366 425 582)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#LabelSpec

                    #name: 'title'

                    #layout: #(#Point 5 10)

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

                    #adjust: #left

                    #resizeForLabel: true

                )

                 #(#LabelSpec

                    #name: 'classLabel'

                    #layout: #(#AlignmentOrigin 68 0.11 51 0 1 0.5)

                    #label: 'Class:'

                    #adjust: #right

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'classField'

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

                    #tabable: true

                    #model: #className

                    #type: #string

                )

                 #(#LabelSpec

                    #name: 'labelsLabel'

                    #layout: #(#AlignmentOrigin 68 0.11 74 0 1 0.5)

                    #label: 'Labels:'

                    #adjust: #right

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'labelsField'

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

                    #tabable: true

                    #model: #labelsKey

                    #type: #symbolOrNil

                )

                 #(#LabelSpec

                    #name: 'specsLabel'

                    #layout: #(#AlignmentOrigin 68 0.11 99 0 1 0.5)

                    #label: 'Specifications:'

                    #adjust: #right

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'specsField'

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

                    #tabable: true

                    #model: #specsKey

                    #type: #symbolOrNil

                )

                 #(#HorizontalPanelViewSpec

                    #name: 'commitPanel'

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

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#ActionButtonSpec

                              #name: 'cancel'

                              #label: 'cancel'

                              #tabable: true

                              #model: #cancel

                              #extent: #(#Point 153 23)

                          )

                           #(#ActionButtonSpec

                              #name: 'accept'

                              #label: 'ok'

                              #tabable: true

                              #model: #accept

                              #isDefault: true

                              #extent: #(#Point 153 23)

                          )

                        )

                    )

                    #horizontalLayout: #fitSpace

                    #verticalLayout: #fit

                    #horizontalSpace: 3

                    #verticalSpace: 3

                )

                 #(#CheckBoxSpec

                    #name: 'updateDefaultResources'

                    #layout: #(#Point 5 133)

                    #model: #updateDefaultResources

                    #label: 'Update Default Resources'

                )

              )

          )

      )

!

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>

      )

! !

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