"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 1997-1998 by 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.

"

"{ Package: 'stx:libtool2' }"

"{ NameSpace: Smalltalk }"

SelectionBrowser subclass:#ResourceSelectionBrowser

	instanceVariableNames:'resourceMethod resourceClass resourceSuperclass resourceTypes

		allClasses classSelectionBlock classFilter packageFilter

		metaClassOnly existingOnly filter classPresentation'

	classVariableNames:'LastClassPresentation'

	poolDictionaries:''

	category:'Interface-Dialogs'

!

Object subclass:#ResourceMethod

	instanceVariableNames:'method icon resourceType selector'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ResourceSelectionBrowser

!

!ResourceSelectionBrowser class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997-1998 by 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

"

    The ResourceSelectionBrowser allows you to browse in class hierarchies

    and to select resource methods for loading or to saving resource 

    specifications (#canvas, #menu, etc.).

    [instance variables:]

        resourceMethod          <Symbol>        selector of the resource spec

        resourceClass           <Symbol>        class of the resource spec

        resourceSuperclass      <Symbol>        root class of the tree list

        resourceTypes           <Array>         allowed resource types

        allClasses              <Array>         list of the subclasses of resourceSuperclass

        classSelectionBlock     <Block>         by evaluating this block the class selection is done

        classFilter             <Block>         if non-nil, given a class, has to return true for a class to be shown

        packageFilter           <Block>         if non-nil, given a package, has to return true for a class to be shown

        existingOnly            <Boolean>       if set, only classes with existing resources are shown (for load dialogs);

                                                otherwise, empty classes are also shown (for save dialogs)

    [start with:]

        ResourceSelectionBrowser open

    [author:]

        Thomas Zwick, eXept Software AG

"

! !

!ResourceSelectionBrowser class methodsFor:'instance creation'!

request:aTitle onSuperclass:aSuperclass andClass:aClassOrClassName andSelector:aSelector withResourceTypes:resourceTypes

    "opens a ResourceSelectionBrowser; 

     return a Message-object (whoInfo) or nil."

    ^ (self 

        title:aTitle 

        onSuperclass:aSuperclass 

        andClass:aClassOrClassName andSelector:aSelector 

        withResourceTypes:resourceTypes

      ) openAndLetUserChoose

    "

     ResourceSelectionBrowser

        request: 'Select a Resource Selector'

        onSuperclass: #ApplicationModel 

        andClass: MenuEditor andSelector: #menuItemImage 

        withResourceTypes: #(image) 

    "

!

title:aTitle onSuperclass:aSuperclass andClass:aClassOrClassName andSelector:aSelector withResourceTypes:resourceTypes

    "creates and returns a ResourceSelectionBrowser but does not open it.

     To open,

        send the returned browser an openAndLetUserChoose message,

        which returns the selected resource method's info (whoInfo) or nil on cancel.

     Use this to set additional filters before opening"

    ^ (self new

        title: aTitle)

            onSuperclass:aSuperclass

            andClass:aClassOrClassName

            andSelector:aSelector

            withResourceTypes:resourceTypes

    "

     (ResourceSelectionBrowser

        title: 'Select a Resource Selector'

        onSuperclass: #ApplicationModel 

        andClass: MenuEditor andSelector: #menuItemImage 

        withResourceTypes: #(image)

     ) openAndLetUserChoose

    "

! !

!ResourceSelectionBrowser class methodsFor:'image specs'!

iconCategory

    <resource: #image>

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self iconCategory inspect

     ImageEditor openOnClass:self andSelector:#iconCategory"

    ^ Icon constantNamed:#'ResourceSelectionBrowser class iconCategory'

        ifAbsentPut:[

            (Depth4Image new)

                width:18;

                height:16;

                photometric:(#palette);

                bitsPerSample:(#( 4 ));

                samplesPerPixel:(1);

                bits:(ByteArray 

                            fromPackedString:'3L0@@@@@@L3L3L@@@@@@@@3L3@@3L3L3L0CL3@LQDQDQD#CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@L#L3L3L3CL3@@3L3L3L0CL3L@@@@@@@@3L3L0@@@@@@L3L');

                colorMapFromArray:#[ 0 0 0 255 255 255 170 170 170 127 127 127 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 ];

                mask:((ImageMask new)

                            width:18;

                            height:16;

                            bits:(ByteArray 

                                        fromPackedString:'<@O@8@G@3?3@7?;@7?;@7?;@7?;@7?;@7?;@7?;@7?;@7?;@7?;@3?3@8@G@<@O@');

                            yourself);

                yourself

        ]

!

iconClass

    <resource: #image>

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self iconClass inspect

     ImageEditor openOnClass:self andSelector:#iconClass"

    ^ Icon constantNamed:#'ResourceSelectionBrowser class iconClass'

        ifAbsentPut:[

            (Depth2Image new)

                width:18;

                height:16;

                photometric:(#palette);

                bitsPerSample:(#( 2 ));

                samplesPerPixel:(1);

                bits:(ByteArray 

                            fromPackedString:'@@@@@@@*****ABUUUUT@IUUUUP@%UUUU@BUUUUT@IUUUUP@%UUUU@BUUUUT@IUUUUP@%UUUU@BUUUUT@IUUUUP@%UUUU@A@@@@@@@@@@@@@b');

                colorMapFromArray:#[ 0 0 0 170 170 170 255 255 255 ];

                mask:((ImageMask new)

                            width:18;

                            height:16;

                            bits:(ByteArray 

                                        fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@');

                            yourself);

                yourself

        ]

!

iconPrivateClass

    <resource: #image>

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     ImageEditor openOnClass:self andSelector:#iconPrivateClass"

    ^ Icon constantNamed:#'ResourceSelectionBrowser class iconPrivateClass'

        ifAbsentPut:[

            (Depth2Image new)

                width:18;

                height:16;

                photometric:(#palette);

                bitsPerSample:(#( 2 ));

                samplesPerPixel:(1);

                bits:(ByteArray 

                            fromPackedString:'@@@@@@PUUUUU A****(@F*??* @Z+??*@A*/*>(OF*>+: @Z+??*@A*/?:(DF*>** @Z+:**@A*/**(@F*>** @Z****C2@@@@@@@@@@@@@b');

                colorMapFromArray:#[ 0 0 0 255 255 255 170 170 170 255 0 0 ];

                mask:((ImageMask new)

                            width:18;

                            height:16;

                            bits:(ByteArray 

                                        fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@');

                            yourself);

                yourself

        ]

! !

!ResourceSelectionBrowser class methodsFor:'interface specs'!

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

     ResourceSelectionBrowser new openInterface:#windowSpec

     ResourceSelectionBrowser open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       uuid: 'fb378b3c-07aa-11e8-8563-b8f6b1108e05'

       window: 

      (WindowSpec

         label: 'Resource Selection Browser'

         name: 'Resource Selection Browser'

         uuid: 'f1361a68-0791-11e8-8563-b8f6b1108e05'

         min: (Point 400 300)

         bounds: (Rectangle 0 0 644 460)

       )

       component: 

      (SpecCollection

         collection: (

          (VariableHorizontalPanelSpec

             name: 'VariableHorizontalPanel'

             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -36 1.0)

             uuid: 'f1361c5c-0791-11e8-8563-b8f6b1108e05'

             component: 

            (SpecCollection

               collection: (

                (ViewSpec

                   name: 'Box1'

                   uuid: 'f1361df6-0791-11e8-8563-b8f6b1108e05'

                   component: 

                  (SpecCollection

                     collection: (

                      (HorizontalPanelViewSpec

                         name: 'HorizontalPanel2'

                         layout: (LayoutFrame 0 0 2 0 297 0 23 0)

                         uuid: 'f1361ebe-0791-11e8-8563-b8f6b1108e05'

                         horizontalLayout: leftSpace

                         verticalLayout: fit

                         horizontalSpace: 3

                         verticalSpace: 3

                         component: 

                        (SpecCollection

                           collection: (

                            (RadioButtonSpec

                               label: 'Flat'

                               name: 'RadioButton1'

                               uuid: 'f1362062-0791-11e8-8563-b8f6b1108e05'

                               translateLabel: true

                               model: selectionOfClassPresentation

                               isTriggerOnDown: true

                               lampColor: (Color 0.0 0.0 0.0)

                               select: Flat

                               extent: (Point 80 21)

                             )

                            (RadioButtonSpec

                               label: 'Categories'

                               name: 'ClassCategoriesRadioButton'

                               uuid: 'f1362062-0791-11e8-8563-b8f6b1108e05'

                               translateLabel: true

                               model: selectionOfClassPresentation

                               isTriggerOnDown: true

                               lampColor: (Color 0.0 0.0 0.0)

                               select: #'Class Categories'

                               extent: (Point 124 21)

                             )

                            (RadioButtonSpec

                               label: 'Hierarchy'

                               name: 'ClassHierarchyRadioButton'

                               uuid: 'f136233c-0791-11e8-8563-b8f6b1108e05'

                               translateLabel: true

                               model: selectionOfClassPresentation

                               isTriggerOnDown: true

                               lampColor: (Color 0.0 0.0 0.0)

                               select: #'Class Hierarchy'

                               extent: (Point 145 21)

                             )

                            )

                         )

                       )

                      (SequenceViewSpec

                         name: 'listOfClassesView'

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

                         uuid: 'f13624d6-0791-11e8-8563-b8f6b1108e05'

                         tabable: true

                         model: indexOfSelectedClassInFlatList

                         hasHorizontalScrollBar: true

                         hasVerticalScrollBar: true

                         miniScrollerHorizontal: true

                         useIndex: true

                         sequenceList: listOfClassNames

                       )

                      (SelectionInTreeViewSpec

                         name: 'listOfClassHierarchyView'

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

                         uuid: 'f13624d6-0791-11e8-8563-b8f6b1108e05'

                         tabable: true

                         model: selectionOfClassHierarchy

                         hasHorizontalScrollBar: true

                         hasVerticalScrollBar: true

                         miniScrollerHorizontal: true

                         showDirectoryIndicatorForRoot: false

                         showDirectoryIndicator: true

                         valueChangeSelector: classSelected

                         hierarchicalList: rootOfClassHierarchy

                         validateDoubleClickSelector: validateDoubleClick:

                         contentsSelector: treeViewClassHierarchyContents

                         labelSelector: treeViewClassHierarchyLabel

                         childrenSelector: treeViewClassHierarchyChildren

                         iconSelector: treeViewClassHierarchyIcon

                         highlightMode: line

                       )

                      (SelectionInTreeViewSpec

                         name: 'listOfClassCategoriesView'

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

                         uuid: 'f13627ba-0791-11e8-8563-b8f6b1108e05'

                         tabable: true

                         model: selectionOfClassCategories

                         hasHorizontalScrollBar: true

                         hasVerticalScrollBar: true

                         miniScrollerHorizontal: true

                         showRoot: false

                         showDirectoryIndicator: true

                         valueChangeSelector: classSelected

                         hierarchicalList: rootOfClassCategories

                         validateDoubleClickSelector: validateDoubleClick:

                         childrenSelector: treeViewClassCategoryChildren

                         iconSelector: treeViewClassCategoryIcon

                         highlightMode: line

                       )

                      (InputFieldSpec

                         name: 'classNameInputField'

                         layout: (LayoutFrame 2 0.0 -22 1 -1 1.0 0 1)

                         uuid: 'f1362922-0791-11e8-8563-b8f6b1108e05'

                         tabable: true

                         model: classNameHolder

                         acceptOnLeave: true

                         acceptOnLostFocus: true

                         acceptOnPointerLeave: true

                       )

                      )

                   )

                 )

                (ViewSpec

                   name: 'Box2'

                   uuid: 'f1362aee-0791-11e8-8563-b8f6b1108e05'

                   component: 

                  (SpecCollection

                     collection: (

                      (VariableVerticalPanelSpec

                         name: 'ResourcePanel'

                         layout: (LayoutFrame 2 0.0 2 0.0 -2 1.0 -24 1.0)

                         uuid: '51c4b91e-07a8-11e8-8563-b8f6b1108e05'

                         component: 

                        (SpecCollection

                           collection: (

                            (DataSetSpec

                               name: 'resourcesDataSetView'

                               uuid: 'f1362bac-0791-11e8-8563-b8f6b1108e05'

                               model: selectionOfResourceMethod

                               hasHorizontalScrollBar: true

                               hasVerticalScrollBar: true

                               miniScrollerHorizontal: true

                               rowClassName: 'ResourceSelectionBrowser::Row'

                               dataList: listOfResourceMethods

                               useIndex: false

                               has3Dseparators: true

                               doubleClickSelector: resourceDoubleClicked

                               columnHolder: resourceMethodColumns

                               valueChangeSelector: resourceSelected

                               verticalSpacing: 1

                             )

                            (ArbitraryComponentSpec

                               name: 'ImageView'

                               uuid: '51c4bd9c-07a8-11e8-8563-b8f6b1108e05'

                               hasBorder: false

                               component: ImageView

                             )

                            )

                         )

                         handles: (Any 0.98999999999999999 1.0)

                       )

                      (InputFieldSpec

                         name: 'selectorInputField'

                         layout: (LayoutFrame 2 0.0 -22 1 -2 1.0 0 1)

                         uuid: 'f1362db4-0791-11e8-8563-b8f6b1108e05'

                         tabable: true

                         model: resourceSelectorHolder

                         acceptOnLeave: true

                         acceptOnLostFocus: true

                         acceptOnPointerLeave: true

                       )

                      )

                   )

                 )

                )

             )

             handles: (Any 0.5 1.0)

           )

          (HorizontalPanelViewSpec

             name: 'ButtonPanel'

             layout: (LayoutFrame 2 0.0 -30 1 -18 1.0 -4 1.0)

             uuid: 'f1362f3a-0791-11e8-8563-b8f6b1108e05'

             horizontalLayout: fit

             verticalLayout: fit

             reverseOrderIfOKAtLeft: true

             component: 

            (SpecCollection

               collection: (

                (ActionButtonSpec

                   label: 'Help'

                   name: 'HelpButton'

                   activeHelpKey: dss

                   uuid: 'f136303e-0791-11e8-8563-b8f6b1108e05'

                   translateLabel: true

                   model: openHTMLDocument:

                   initiallyDisabled: true

                   enableChannel: helpEnabled

                   actionValue: 'tools/uipainter/ResourceSelectionBrowser.html'

                   extent: (Point 204 26)

                 )

                (ActionButtonSpec

                   label: 'Cancel'

                   name: 'cancelButton'

                   activeHelpKey: commitCancel

                   uuid: 'f13631ba-0791-11e8-8563-b8f6b1108e05'

                   translateLabel: true

                   tabable: true

                   model: cancel

                   extent: (Point 204 26)

                 )

                (ActionButtonSpec

                   label: 'OK'

                   name: 'okButton'

                   activeHelpKey: commitOK

                   uuid: 'f1363336-0791-11e8-8563-b8f6b1108e05'

                   translateLabel: true

                   tabable: true

                   model: accept

                   isDefault: true

                   extent: (Point 204 26)

                 )

                )

             )

             keepSpaceForOSXResizeHandleH: true

           )

          )

       )

     )

! !

!ResourceSelectionBrowser class methodsFor:'list specs'!

tableColumnsForResourceMethodAttributes

    "This resource specification was automatically generated

     by the DataSetBuilder of ST/X."

    "Do not manually edit this!! If it is corrupted,