"

 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

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

    super initialize.

    UserClass  := UISelectionPanel::UserDefinedGallery.

    UserSpecs  := #listOfSelectors.

    UserLabels := #listOfLabels.

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

! !

!UISelectionPanel class methodsFor:'accessing'!

specifications

    ^ #(

        #( 'Standards'  #( 

                            #('Buttons'                 standardButtons)

                            #('Menus'                   standardMenus)

                            #('Text Views'              standardTextViews)

                            #('Lists'                   standardLists)

                            #('Boxes'                   standardBoxes)

                            #('Misc'                    standardMisc)

                         )

         )

        #( 'Clipboard'  #(

                            #('Copy & Paste Buffer'     clipBoardSpec)

                          )

         )

        #( 'User Def.'   #userDefined )

     )

!

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 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:#windowSpec

     UISelectionPanel new openInterface:#windowSpec

    "

    "UISelectionPanel open"

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'Widget Gallery'

              #'layout:' #(#LayoutFrame 78 0 70 0 598 0 352 0)

              #'label:' 'Widget Gallery'

              #'min:' #(#Point 100 280)

              #'max:' #(#Point 1160 870)

              #'bounds:' #(#Rectangle 78 70 599 353)

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#UIGalleryViewSpec

                    #'name:' 'gallery'

                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 -40 1.0 0 1.0)

                    #'tabable:' true

                    #'menu:' #galleryList

                    #'style:' 

                     #(#FontDescription

                        #helvetica #medium

                        #roman #'10'

                    )

                    #'model:' #galleryModel

                    #'useIndex:' true

                    #'minorKeys:' #minorKeys

                    #'clientSpec:' #clientSpec

                    #'raiseMenu:' #raiseMenu

                )

                 #(#TabViewSpec

                    #'name:' 'major'

                    #'layout:' #(#LayoutFrame -40 1.0 30 0.0 0 1.0 0 1.0)

                    #'menu:' #majorList

                    #'style:' 

                     #(#FontDescription

                        #helvetica #medium

                        #roman #'10'

                    )

                    #'model:' #majorChannel

                    #'direction:' #right

                    #'useIndex:' true

                )

              )

          )

      )

! !

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

standardBoxes

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

     UISelectionPanel new openInterface:#standardBoxes

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'Boxes'

              #layout: #(#LayoutFrame 93 0 141 0 593 0 380 0)

              #label: 'Boxes'

              #min: #(#Point 10 10)

              #max: #(#Point 1280 1024)

              #bounds: #(#Rectangle 93 141 594 381)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#ViewSpec

                    #name: 'Box'

                    #layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)

                )

                 #(#LabelSpec

                    #name: 'ViewLabel'

                    #layout: #(#AlignmentOrigin 18 0 17 0 0 0)

                    #label: 'Box'

                    #style: #(#FontDescription #helvetica #medium #roman 10)

                    #adjust: #left

                    #resizeForLabel: true

                    #canUIDrag: false

                )

                 #(#LabelSpec

                    #name: 'VPanelLabel'

                    #layout: #(#LayoutFrame 15 0 116 0 220 0 139 0)

                    #label: 'Variable Panels'

                    #style: #(#FontDescription #helvetica #medium #roman 10)

                    #adjust: #left

                    #canUIDrag: false

                )

                 #(#VariableHorizontalPanelSpec

                    #name: 'VariableHorizontalPanel'

                    #layout: #(#LayoutFrame 15 0 140 0 110 0 230 0)

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#LabelSpec

                              #name: 'label4'

                              #label: 'A'

                              #style: #(#FontDescription #helvetica #medium #roman 12)

                              #level: 2

                              #canUIDrag: false

                          )

                           #(#LabelSpec

                              #name: 'label5'

                              #label: 'B'

                              #style: #(#FontDescription #helvetica #medium #roman 12)

                              #level: 2

                              #canUIDrag: false

                          )

                        )

                    )

                    #handles: #(#Any 0.5 1.0)

                )

                 #(#VariableVerticalPanelSpec

                    #name: 'VariableVerticalPanel'

                    #layout: #(#LayoutFrame 125 0 140 0 220 0 230 0)

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#LabelSpec

                              #name: 'label9'

                              #label: 'A'

                              #style: #(#FontDescription #helvetica #medium #roman 12)

                              #level: 2

                              #canUIDrag: false

                          )

                           #(#LabelSpec

                              #name: 'label10'

                              #label: 'B'

                              #style: #(#FontDescription #helvetica #medium #roman 12)

                              #level: 2

                              #canUIDrag: false

                          )

                        )

                    )

                    #handles: #(#Any 0.5 1.0)

                )

                 #(#FramedBoxSpec

                    #name: 'FramedBox'

                    #layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)

                    #label: 'FramedBox'

                    #labelPosition: #topLeft

                )

                 #(#LabelSpec

                    #name: 'PanelLabel'

                    #layout: #(#LayoutFrame 240 0 116 0 445 0 139 0)

                    #label: 'Panels'

                    #style: #(#FontDescription #helvetica #medium #roman 10)

                    #adjust: #left

                    #canUIDrag: false

                )

                 #(#HorizontalPanelViewSpec

                    #name: 'HorizontalPanelView'

                    #layout: #(#LayoutFrame 240 0 140 0 324 0 230 0)

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#LabelSpec

                              #name: 'label1'

                              #label: 'A'

                              #style: #(#FontDescription #helvetica #medium #roman 12)

                              #level: 2

                              #extent: #(#Point 23 23)

                              #canUIDrag: false

                          )

                           #(#LabelSpec

                              #name: 'label2'

                              #label: 'B'

                              #style: #(#FontDescription #helvetica #medium #roman 12)

                              #level: 2

                              #extent: #(#Point 23 23)