"

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

                            #('Button & Toggle'         standardButtonToggle)

                            #('Menus'                   standardMenus)

                            #('Panel'                   standardPanels)

                            #('Text'                    standardText)

                            #('Lists'                   standartLists)

                            #('Views'                   standardViews)

                            #('Canvas'                  standardCanvas)

                            #('Sliders'                 standardSliders)

                         )

         )

        #( 'Clip Board'  #(

                            #('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 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:' 'Component Gallery'

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

              #'label:' 'Component 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'!

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

              #'layout:' #(#LayoutFrame 104 0 416 0 582 0 615 0)

              #'label:' 'Buttons'

              #'min:' #(#Point 10 10)

              #'max:' #(#Point 1280 1024)

              #'bounds:' #(#Rectangle 104 416 583 616)

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#ArrowButtonSpec

                    #'name:' 'ArrowButton up'

                    #'layout:' #(#LayoutFrame 276 0 15 0 298 0 37 0)

                    #'isTriggerOnDown:' true

                    #'direction:' #up

                )

                 #(#ActionButtonSpec

                    #'name:' 'Button'

                    #'layout:' #(#LayoutFrame 20 0 15 0 119 0 37 0)

                    #'label:' 'Button'

                )

                 #(#RadioButtonSpec

                    #'name:' 'RadioButton'

                    #'layout:' #(#LayoutFrame 135 0.0 15 0 258 0 37 0)

                    #'label:' 'RadioButton'

                    #'isTriggerOnDown:' true

                    #'showLamp:' true

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

                )

                 #(#ArrowButtonSpec

                    #'name:' 'ArrowButton down'

                    #'layout:' #(#LayoutFrame 276 0 46 0 298 0 68 0)

                    #'isTriggerOnDown:' true

                    #'direction:' #down

                )

                 #(#ArrowButtonSpec

                    #'name:' 'ArrowButton left'

                    #'layout:' #(#LayoutFrame 276 0 77 0 298 0 99 0)

                    #'isTriggerOnDown:' true

                    #'direction:' #left

                )

                 #(#ArrowButtonSpec

                    #'name:' 'ArrowButton right'

                    #'layout:' #(#LayoutFrame 276 0 108 0 298 0 130 0)

                    #'isTriggerOnDown:' true

                    #'direction:' #right

                )

                 #(#CheckToggleSpec

                    #'name:' 'CheckToggle'

                    #'layout:' #(#LayoutFrame 317 0 77 0 337 0 97 0)

                    #'isTriggerOnDown:' true

                    #'showLamp:' false

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

                )

                 #(#ToggleSpec

                    #'name:' 'Toggle'

                    #'layout:' #(#LayoutFrame 317 0 15 0 436 0 37 0)

                    #'label:' 'Toggle'

                    #'isTriggerOnDown:' true

                    #'showLamp:' true

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

                )

                 #(#CheckBoxSpec

                    #'name:' 'CheckBox'

                    #'layout:' #(#LayoutFrame 317 0 46 0 436 0 68 0)

                    #'label:' 'CheckBox'

                )

                 #(#ActionButtonSpec

                    #'name:' 'Button - ok'

                    #'layout:' #(#LayoutFrame 20 0 46 0 119 0 68 0)

                    #'label:' 'ok'

                    #'model:' #accept

                )

                 #(#ActionButtonSpec

                    #'name:' 'Button - cancel'

                    #'layout:' #(#LayoutFrame 20 0 77 0 119 0 99 0)

                    #'label:' 'cancel'

                    #'model:' #cancel

                )

                 #(#ActionButtonSpec

                    #'name:' 'Button - help'

                    #'layout:' #(#LayoutFrame 20 0 108 0 119 0 130 0)

                    #'label:' 'help'

                    #'model:' #help

                )

                 #(#ActionButtonSpec

                    #'name:' 'Button - close'

                    #'layout:' #(#LayoutFrame 20 0 139 0 119 0 161 0)

                    #'label:' 'dismiss'

                    #'model:' #closeRequest

                )

              )

          )

      )

    "Modified: 4.10.1997 / 15:06:03 / cg"

!

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

              #'layout:' #(#LayoutFrame 62 0 64 0 516 0 292 0)

              #'label:' 'Canvas'

              #'min:' #(#Point 10 10)

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

              #'bounds:' #(#Rectangle 62 64 517 293)