"

 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)

                            #('Texts'   standardTexts)

                            #('Lists'   standardLists)

                            #('Groups'  standardGroups)

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

standardButtons

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

     UISelectionPanel new openInterface:#standardButtons

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'Buttons'

              #layout: #(#LayoutFrame 72 0 301 0 550 0 504 0)

              #label: 'Buttons'

              #min: #(#Point 10 10)

              #max: #(#Point 1280 1024)

              #bounds: #(#Rectangle 72 301 551 505)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#ActionButtonSpec

                    #name: 'Button'

                    #layout: #(#LayoutFrame 15 0 15 0 140 0 37 0)

                    #label: 'Button'

                )

                 #(#ActionButtonSpec

                    #name: 'Button - OK'

                    #layout: #(#LayoutFrame 15 0 47 0 140 0 69 0)

                    #label: 'OK'

                    #model: #accept

                )

                 #(#ActionButtonSpec

                    #name: 'Button - Cancel'

                    #layout: #(#LayoutFrame 15 0 79 0 140 0 101 0)

                    #label: 'Cancel'

                    #model: #cancel

                )

                 #(#ActionButtonSpec

                    #name: 'Button - Help'

                    #layout: #(#LayoutFrame 15 0 111 0 140 0 133 0)

                    #label: 'Help'

                    #model: #help

                )

                 #(#ActionButtonSpec

                    #name: 'Button - Close'

                    #layout: #(#LayoutFrame 15 0 143 0 140 0 165 0)

                    #label: 'Close'

                    #model: #closeRequest

                )

                 #(#ToggleSpec

                    #name: 'Toggle'

                    #layout: #(#LayoutFrame 157 0 15 0 293 0 37 0)

                    #label: 'Toggle'

                    #isTriggerOnDown: true

                    #showLamp: true

                    #lampColor: #(#Color 100.0 100.0 0.0)

                )

                 #(#RadioButtonSpec

                    #name: 'RadioButton'

                    #layout: #(#LayoutFrame 157 0.0 47 0 293 0 69 0)

                    #label: 'Radio Button'

                    #isTriggerOnDown: true

                    #showLamp: true

                    #lampColor: #(#Color 100.0 100.0 0.0)

                )

                 #(#CheckBoxSpec

                    #name: 'CheckBox'

                    #layout: #(#LayoutFrame 157 0 79 0 293 0 101 0)

                    #label: 'Check Box'

                )

                 #(#CheckToggleSpec

                    #name: 'CheckToggle'

                    #layout: #(#LayoutFrame 157 0 111 0 176 0 130 0)

                    #isTriggerOnDown: true

                    #showLamp: false

                    #lampColor: #(#Color 100.0 100.0 0.0)

                )

                 #(#LabelSpec

                    #name: 'CheckToggleLabel'

                    #layout: #(#AlignmentOrigin 182 0 115 0 0 0)

                    #label: 'Check Toggle'

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

                    #adjust: #left

                    #resizeForLabel: true

                    #canUIDrag: false

                )

                 #(#ButtonSpec

                    #name: 'Model Button'

                    #layout: #(#LayoutFrame 309 0 15 0 444 0 37 0)

                    #label: 'Model Button'

                )

                 #(#LabelSpec

                    #name: 'UpDownButtonLabel'

                    #layout: #(#AlignmentOrigin 309 0 54 0 0 0)

                    #label: 'UpDown Button'

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

                    #adjust: #left

                    #resizeForLabel: true

                    #canUIDrag: false

                )

                 #(#UpDownButtonSpec

                    #name: 'UpDownButton'

                    #layout: #(#LayoutFrame 422 0 47 0 444 0 91 0)

                )

                 #(#LabelSpec

                    #name: 'ArrowButtonsLabel'

                    #layout: #(#AlignmentOrigin 309 0 86 0 0 0)

                    #label: 'Arrow Buttons'

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

                    #adjust: #left

                    #resizeForLabel: true

                    #canUIDrag: false

                )

                 #(#ArrowButtonSpec

                    #name: 'ArrowButton - Up'

                    #layout: #(#LayoutFrame 309 0 111 0 331 0 133 0)

                    #isTriggerOnDown: true

                    #direction: #up

                )

                 #(#ArrowButtonSpec

                    #name: 'ArrowButton - Down'

                    #layout: #(#LayoutFrame 347 0 111 0 369 0 133 0)

                    #isTriggerOnDown: true

                    #direction: #down

                )

                 #(#ArrowButtonSpec