"

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

	instanceVariableNames:''

	classVariableNames:''

	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::ExampleUserDefinedGallery.

    UserSpecs  := #listOfSelectors.

    UserLabels := #listOfLabels.

! !

!UISelectionPanel class methodsFor:'accessing'!

specifications

    ^ #(

        #( 'Standards'  #( 

                            #('Button & Toggle'         standardButtonToggle)

                            #('Menus'                   standardMenus)

                            #('Panel'                   standardPanels)

                            #('Text'                    standardText)

                            #('Views'                   standardViews)

                            #('Canvas'                  standardCanvas)

                            #('Sliders'                 standardSliders)

                         )

         )

        #( 'Clip Board'  #(

                            #('Copy & Paste Buffer'     clipBoardSpec)

                          )

         )

        #( 'User Defined' #userDefined )

     )

! !

!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 0 0.0 0 0.0 0 1.0 0 1.0)

              #'label:' 'Painter'

              #'bounds:' #(#Rectangle 0 0 315 216)

          )

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

                              #'isDefault:' true

                              #'model:' #accept

                              #'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:' 'uIPainterView'

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

              #'label:' 'Component Gallery'

              #'bounds:' #(#Rectangle 0 0 471 223)

          )

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

                    #'tabWidget:' #Window

                    #'minorKeys:' #minorKeys

                    #'clientSpec:' #clientSpec

                    #'raiseMenu:' #raiseMenu

                    #'useIndex:' true

                )

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

                    #'tabWidget:' #Window

                    #'direction:' #right

                    #'useIndex:' true

                )

                 #(#LabelSpec

                    #'name:' 'clientSpecLabel'

                    #'layout:' #(#AlignmentOrigin 0 0.0 0 1.0 0 1)

                    #'label:' ''

                    #'adjust:' #left

                    #'resizeForLabel:' true

                )

              )

          )

      )

! !

!UISelectionPanel class methodsFor:'menus'!

menuSelected

    ^ #(#Menu #(

                #(#MenuItem

                        #'label:' 'copy'

                        #'value:' #copy

                 )

                #(#MenuItem

                        #'label:' 'cut'

                        #'value:' #cut

                 )

                )

               nil

               nil

        )

!

menuUnselected

    ^ #(#Menu #(

                #(#MenuItem

                        #'label:' 'paste'

                        #'value:' #paste

                 )

                )

               nil

               nil

        )

! !

!UISelectionPanel class methodsFor:'standard specifications'!

standardButtonToggle

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

     UISelectionPanel new openInterface:#standardButtonToggle

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'uIPainterView'

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

              #'label:' 'unnamed'

              #'bounds:' #(#Rectangle 0 0 439 193)

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#ArrowButtonSpec

                    #'name:' 'ArrowButton up'

                    #'layout:' #(#LayoutFrame 237 0 20 0 259 0 42 0)

                    #'isTriggerOnDown:' true

                    #'direction:' #up

                )

                 #(#ActionButtonSpec

                    #'name:' 'Button'

                    #'layout:' #(#LayoutFrame 20 0 20 0 119 0 42 0)

                    #'label:' 'Button'

                )

                 #(#RadioButtonSpec

                    #'name:' 'RadioButton'

                    #'layout:' #(#LayoutFrame 127 0.0 20 0 226 0 42 0)

                    #'label:' 'RadioButton'

                    #'isTriggerOnDown:' true

                    #'showLamp:' true

                    #'lampColor:' #(#Color 100.0 100.0 0.0)

                )

                 #(#ArrowButtonSpec

                    #'name:' 'ArrowButton down'

                    #'layout:' #(#LayoutFrame 237 0 51 0 259 0 73 0)

                    #'isTriggerOnDown:' true

                    #'direction:' #down

                )

                 #(#ArrowButtonSpec

                    #'name:' 'ArrowButton left'

                    #'layout:' #(#LayoutFrame 237 0 82 0 259 0 104 0)

                    #'isTriggerOnDown:' true

                    #'direction:' #left

                )

                 #(#ArrowButtonSpec

                    #'name:' 'ArrowButton right'

                    #'layout:' #(#LayoutFrame 237 0 113 0 259 0 135 0)

                    #'isTriggerOnDown:' true

                    #'direction:' #right

                )

                 #(#CheckToggleSpec

                    #'name:' 'CheckToggle'

                    #'layout:' #(#LayoutFrame 297 0 82 0 317 0 102 0)

                    #'isTriggerOnDown:' true

                    #'showLamp:' false

                    #'lampColor:' #(#Color 100.0 100.0 0.0)

                )

                 #(#ToggleSpec

                    #'name:' 'Toggle'

                    #'layout:' #(#LayoutFrame 297 0 20 0 396 0 42 0)

                    #'label:' 'Toggle'

                    #'isTriggerOnDown:' true

                    #'showLamp:' true

                    #'lampColor:' #(#Color 100.0 100.0 0.0)

                )

                 #(#CheckBoxSpec

                    #'name:' 'CheckBox'

                    #'layout:' #(#LayoutFrame 297 0 51 0 396 0 73 0)

                    #'label:' 'CheckBox'

                )

                 #(#ActionButtonSpec

                    #'name:' 'ok'

                    #'layout:' #(#LayoutFrame 20 0 51 0 119 0 73 0)

                    #'label:' 'ok'

                    #'model:' #accept

                )

                 #(#ActionButtonSpec

                    #'name:' 'cancel'

                    #'layout:' #(#LayoutFrame 20 0 82 0 119 0 104 0)

                    #'label:' 'cancel'

                    #'model:' #cancel

                )

                 #(#ActionButtonSpec

                    #'name:' 'help'

                    #'layout:' #(#LayoutFrame 20 0 113 0 119 0 135 0)

                    #'label:' 'help'

                    #'model:' #help

                )

              )

          )

      )

!

standardCanvas

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

     UISelectionPanel new openInterface:#standardCanvas

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'uIPainterView'

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

              #'label:' 'unnamed'

              #'bounds:' #(#Rectangle 0 0 370 203)

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#UIGalleryViewSpec

                    #'name:' 'Gallery'

                    #'layout:' #(#LayoutFrame 16 0 19 0 168 0 92 0)

                    #'tabWidget:' #Window

                )

                 #(#LabelSpec

                    #'name:' 'GalleryLabel'

                    #'layout:' #(#AlignmentOrigin 20 0 88 0 0 1)

                    #'label:' 'Gallery'

                    #'style:' 

                     #(#FontDescription

                        #helvetica #medium

                        #roman #'10'

                    )

                    #'adjust:' #left

                    #'resizeForLabel:' true

                    #'canUIDrag:' false

                )

                 #(#UISubSpecification

                    #'name:' 'SubSpecification'

                    #'layout:' #(#LayoutFrame 182 0 19 0 334 0 92 0)

                )

                 #(#LabelSpec

                    #'name:' 'SubSpecificationLabel'

                    #'layout:' #(#AlignmentOrigin 186 0 88 0 0 1)

                    #'label:' 'SubSpecification'

                    #'style:' 

                     #(#FontDescription

                        #helvetica #medium

                        #roman #'10'

                    )

                    #'resizeForLabel:' true

                    #'canUIDrag:' false

                )

                 #(#SubCanvasSpec