"

 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.

"

SelectionBrowser subclass:#ResourceSelectionBrowser

	instanceVariableNames:'resourceMethod resourceClass resourceSuperclass resourceTypes

		allClasses classSelectionBlock'

	classVariableNames:'ClassPresentation'

	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

    [start with:]

        ResourceSelectionBrowser open

    [author:]

        Thomas Zwick, eXept Software AG

"

! !

!ResourceSelectionBrowser class methodsFor:'instance creation'!

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

    "opens a ResourceSelectionBrowser 

        with aTitle

        on aSuperclassOrSymbol, 

        and aClassOrSymbol, 

        and aSelector,

        with allowed aResourceTypes"

    "

    ResourceSelectionBrowser

        request: 'Select a Resource Selector'

        onSuperclass: #ApplicationModel 

        andClass: #MenuEditor 

        andSelector: #menuItemImage 

        withResourceTypes: #(image) 

    "

    ^self new

        title: aTitle;

        openOnSuperclass: aSuperclass

        andClass: aClass

        andSelector: aSelector

        withResourceTypes: resourceTypes

! !

!ResourceSelectionBrowser class methodsFor:'callbacks - default'!

treeViewClassHierarchyChildren

    "returns the children for the contents (class) of aTreeItem as a block"

    ^[:aTreeItem|

        |classes|    

        classes := OrderedCollection new. 

        classes addAll: ((aTreeItem contents subclasses reject: [:cls| cls isPrivate]) asSortedCollection: [:cls1 :cls2| cls1 name < cls2 name]).

        classes addAll: (aTreeItem contents privateClasses asSortedCollection: [:cls1 :cls2| cls1 name < cls2 name]).

        classes

     ]

!

treeViewClassHierarchyContents

    "returns the default contents of the root of the class tree list"

    ^ Object

!

treeViewClassHierarchyIcon

    "returns the icon for aTreeItem as a block"

    ^[:aTreeItem|

        |icon|

        aTreeItem contents isClass

        ifTrue:

        [

            icon := self iconClass.

            aTreeItem contents isPrivate 

            ifTrue:

            [

               icon := self iconPrivateClass

            ].

            icon

        ]

        ifFalse:

        [

            self iconCategory

        ]

    ]

!

treeViewClassHierarchyLabel

    "returns the label for aTreeItem as a block"

    ^[:aTreeItem|

        |label superCls|

        label := aTreeItem contents name.

        (aTreeItem contents isPrivate and: [aTreeItem parent contents ~~ (superCls := aTreeItem contents superclass)])

            ifTrue: [label := label, ' (', superCls name, ')'].

        label

     ]

! !

!ResourceSelectionBrowser class methodsFor:'image specs'!

iconCategory

    "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

    "

    <resource: #image>

    ^Icon

        constantNamed:#'ResourceSelectionBrowser 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:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); 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

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

    "

    <resource: #image>

    ^Icon

	constantNamed:#'ResourceSelectionBrowser iconClass'

	ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@UUUUU!!Q****(@F**** @Z****@A****(@F**** @Z****@A****(LF**** TZ****@A****(@F**** @Z****@B@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]!

iconPrivateClass

    "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

    "

    <resource: #image>

    ^Icon

	constantNamed:#'ResourceSelectionBrowser 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:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); 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

          #window: 

           #(#WindowSpec

              #name: 'Resource Selection Browser'

              #layout: #(#LayoutFrame 194 0 307 0 793 0 656 0)

              #label: 'Resource Selection Browser'

              #min: #(#Point 400 300)

              #max: #(#Point 1152 864)

              #bounds: #(#Rectangle 194 307 794 657)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#VariableHorizontalPanelSpec

                    #name: 'VariableHorizontalPanel'

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

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#ViewSpec

                              #name: 'Box1'

                              #component: 

                               #(#SpecCollection

                                  #collection: 

                                   #(

                                     #(#HorizontalPanelViewSpec

                                        #name: 'HorizontalPanel2'

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

                                        #component: 

                                         #(#SpecCollection

                                            #collection: 

                                             #(

                                               #(#RadioButtonSpec

                                                  #name: 'ClassCategoriesRadioButton'

                                                  #label: 'Categories'

                                                  #translateLabel: true

                                                  #model: #selectionOfClassPresentation

                                                  #isTriggerOnDown: true

                                                  #lampColor: #(#Color 0.0 0.0 0.0)

                                                  #select: #'Class Categories'

                                                  #extent: #(#Point 124 21)

                                              )

                                               #(#RadioButtonSpec

                                                  #name: 'ClassHierarchyRadioButton'

                                                  #label: 'Hierarchy'

                                                  #translateLabel: true

                                                  #model: #selectionOfClassPresentation

                                                  #isTriggerOnDown: true

                                                  #lampColor: #(#Color 0.0 0.0 0.0)

                                                  #select: #'Class Hierarchy'

                                                  #extent: #(#Point 145 21)

                                              )

                                            )

                                        )

                                        #horizontalLayout: #leftSpace

                                        #verticalLayout: #fit

                                        #horizontalSpace: 3

                                        #verticalSpace: 3

                                    )

                                     #(#SelectionInTreeViewSpec

                                        #name: 'listOfClassHierarchyView'

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

                                        #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

                                    )

                                     #(#SelectionInTreeViewSpec

                                        #name: 'listOfClassCategoriesView'

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

                                        #tabable: true

                                        #model: #selectionOfClassCategories

                                        #hasHorizontalScrollBar: true

                                        #hasVerticalScrollBar: true

                                        #miniScrollerHorizontal: true

                                        #showRoot: false

                                        #showDirectoryIndicator: true

                                        #valueChangeSelector: #classSelected

                                        #hierarchicalList: #rootOfClassCategories

                                        #validateDoubleClickSelector: #validateDoubleClick:

                                        #childrenSelector: #treeViewClassCategoryChildren

                                        #iconSelector: #treeViewClassCategoryIcon

                                    )

                                     #(#InputFieldSpec

                                        #name: 'classNameInputField'

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

                                        #tabable: true

                                        #model: #valueOfClassName

                                    )

                                  )

                              )

                          )

                           #(#ViewSpec

                              #name: 'Box2'

                              #component: 

                               #(#SpecCollection

                                  #collection: 

                                   #(

                                     #(#DataSetSpec

                                        #name: 'resourcesDataSetView'

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

                                        #model: #selectionOfResourceMethod

                                        #hasHorizontalScrollBar: true

                                        #hasVerticalScrollBar: true

                                        #miniScrollerHorizontal: true

                                        #rowClassName: 'ResourceSelectionBrowser::Row'

                                        #dataList: #listOfResourceMethods

                                        #useIndex: false

                                        #has3Dsepartors: true

                                        #has3Dseparators: true

                                        #doubleClickSelector: #resourceDoubleClicked

                                        #columnHolder: #resourceMethodColumns

                                        #valueChangeSelector: #resourceSelected

                                        #verticalSpacing: 1

                                    )

                                     #(#InputFieldSpec

                                        #name: 'selectorInputField'

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

                                        #tabable: true

                                        #model: #valueOfResourceSelector

                                    )

                                  )

                              )

                          )

                        )

                    )

                    #handles: #(#Any 0.5 1.0)

                )

                 #(#HorizontalPanelViewSpec

                    #name: 'HorizontalPanel1'

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

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#ActionButtonSpec

                              #name: 'HelpButton'

                              #activeHelpKey: #dss

                              #label: 'Help'

                              #model: #openHTMLDocument:

                              #initiallyDisabled: true

                              #enableChannel: #helpEnabled

                              #actionValue: 'tools/uipainter/ResourceSelectionBrowser.html'

                              #extent: #(#Point 196 26)

                          )

                           #(#ActionButtonSpec

                              #name: 'cancelButton'

                              #activeHelpKey: #commitCancel

                              #label: 'Cancel'

                              #tabable: true

                              #model: #cancel

                              #extent: #(#Point 196 26)

                          )

                           #(#ActionButtonSpec

                              #name: 'okButton'

                              #activeHelpKey: #commitOK

                              #label: 'OK'

                              #tabable: true

                              #model: #accept

                              #isDefault: true

                              #extent: #(#Point 196 24)

                          )

                        )

                    )

                    #horizontalLayout: #fit

                    #verticalLayout: #fit

                )

              )

          )

      )

    "Modified: / 27.7.1998 / 18:05:40 / cg"

! !

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

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

    "

     DataSetBuilder new openOnClass:ResourceSelectionBrowser andSelector:#tableColumnsForResourceMethodAttributes

    "

    <resource: #tableColumns>

    ^ #(

        #(#DataSetColumnSpec

           #width: 20

           #height: 20

           #printSelector: #iconOn:

           #canSelect: false

       )

        #(#DataSetColumnSpec

           #label: ' Selector'

           #labelAlignment: #left

           #model: #selector

           #canSelect: false

       )

        #(#DataSetColumnSpec

           #label: ' Resource Type'

           #labelAlignment: #left

           #model: #resourceType

           #canSelect: false

       )

     )

! !

!ResourceSelectionBrowser methodsFor:'aspects'!

helpEnabled

    "returns whether there is a documentation file"

    ^true

!

listOfResourceMethods

    "returns the value holder for the list of the resource methods"

    |holder|

    (holder := builder bindingAt:#listOfResourceMethods) isNil ifTrue:[

	builder aspectAt:#listOfResourceMethods put:(holder :=  List new).

    ].

    ^ holder

!

resourceMethodColumns

    "returns the columns for the table of the resource methods as value holder"

    |holder|

    (holder := builder bindingAt:#resourceMethodColumns) isNil ifTrue:[

        builder aspectAt:#resourceMethodColumns put:(holder := List new).

        holder addAll: (self class tableColumnsForResourceMethodAttributes collect: [:i| i decodeAsLiteralArray]).

    ].

    ^ holder

!

rootOfClassCategories

    "returns the value holder for the root of the class tree list"

    |holder|                                

    (holder := builder bindingAt:#rootOfClassCategories) isNil ifTrue:[

        ClassPresentation = #'Class Categories' ifTrue: [

        builder aspectAt:#rootOfClassCategories put: (holder := TreeItem name: 'Categories')].

    ].

    ^ holder