"

 COPYRIGHT (c) 1997 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 }"

ResourceSpecEditor subclass:#HierarchicalListEditor

	instanceVariableNames:'treeView'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

!HierarchicalListEditor class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 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 HierarchicalListEditor allows you to create, modify or just inspect

    (statical) hierarchical lists for the SelectionInListView.

    [start with:]

        HierarchicalListEditor open

    [see also:]

        UIPainter

    [author:]

        Claus Atzkern, eXept Software AG

        Thomas Zwick, eXept Software AG

"

! !

!HierarchicalListEditor class methodsFor:'instance creation'!

openModalOnTreeItem: aTreeItem

    "Open a HierarchicalListEditor modal on aTreeItem"

    "self openModalOnTreeItem: (TreeItem name: 'Label' contents: #Contents)"

    ^self new openModalOnTreeItem: aTreeItem

! !

!HierarchicalListEditor class methodsFor:'accessing'!

resourceType

    "get the type of resource of the method generated by the HierarchicalListEditor"

    ^#hierarchicalList

! !

!HierarchicalListEditor class methodsFor:'help specs'!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

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

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

    "

     UIHelpTool openOnClass:HierarchicalListEditor    

    "

    <resource: #help>

    ^super helpSpec addPairsFrom:#(

#addChild

'Adds a new child item.'

#addSister

'Adds a new sister item.'

#contents

'Contents of the tree item.'

#fileLoad

'Opens a dialog for selecting and loading a hierarchical list spec from a class.'

#fileNew

'Creates a new hierarchical list. '

#fileSave

'Saves current hierarchical list spec.'

#fileSaveAs

'Opens a dialog to save current hierarchical list spec.'

#label

'Label of the tree item.'

)

! !

!HierarchicalListEditor class methodsFor:'image specs'!

createChildIcon

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

    "

    <resource: #image>

    ^Icon

        constantNamed:#'HierarchicalListEditor createChildIcon'

        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A<3L308@A33L33H@A30L33H@A33L33H@A<3L008@A?????8@C*****(@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8') ; yourself); yourself]

!

createSisterIcon

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

    "

    <resource: #image>

    ^Icon

        constantNamed:#'HierarchicalListEditor createSisterIcon'

        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A<L<O?8@A3<3??8@A<<<<C8@A?L?O?8@A0<0??8@A?????8@A0LCC?8@A<<?L?8@A<<CC?8@A<<?L?8@A<<CL?8@A?????8@C*****(@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8') ; yourself); yourself]

! !

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

     HierarchicalListEditor new openInterface:#windowSpec

     HierarchicalListEditor open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'Hierarchical List Editor'

          #name: 'Hierarchical List Editor'

          #min: #(#Point 450 280)

          #max: #(#Point 1152 900)

          #bounds: #(#Rectangle 16 46 486 376)

          #menu: #menu

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#MenuPanelSpec

              #name: 'menuToolbarView'

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

              #menu: #menuToolbar

            )

           #(#VariableHorizontalPanelSpec

              #name: 'VariableHorizontalPanel'

              #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0)

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#ArbitraryComponentSpec

                    #name: 'TreeView'

                    #menu: #menuEdit

                    #hasHorizontalScrollBar: true

                    #hasVerticalScrollBar: true

                    #miniScrollerHorizontal: true

                    #miniScrollerVertical: true

                    #hasBorder: false

                    #component: #treeView

                  )

                 #(#ViewSpec

                    #name: 'SpecView'

                    #level: -1

                    #component: 

                   #(#SpecCollection

                      #collection: #(

                       #(#LabelSpec

                          #label: 'Label:'

                          #name: 'nameLabel'

                          #layout: #(#AlignmentOrigin 98 0 26 0 1 0.5)

                          #resizeForLabel: true

                    translateLabel: true

                        )

                       #(#InputFieldSpec

                          #name: 'labelInputField'

                          #layout: #(#LayoutFrame 100 0 15 0 -5 1.0 37 0)

                          #activeHelpKey: #label

                          #tabable: true

                          #model: #itemName

                          #acceptOnLeave: true

                          #acceptOnLostFocus: true

                          #acceptChannel: #acceptChannel

                          #modifiedChannel: #modifiedChannel

                          #acceptOnPointerLeave: true

                        )

                       #(#LabelSpec

                          #label: 'Contents:'

                          #name: 'valueLabel'

                          #layout: #(#AlignmentOrigin 98 0 52 0 1 0.5)

                          #activeHelpKey: #contents

                          #resizeForLabel: true

                    translateLabel: true

                        )

                       #(#InputFieldSpec

                          #name: 'valueInputField'

                          #layout: #(#LayoutFrame 100 0 41 0 -5 1.0 63 0)

                          #activeHelpKey: #contents

                          #tabable: true

                          #model: #itemValue

                          #type: #smalltalkObject

                          #acceptOnLeave: true

                          #acceptOnLostFocus: true

                          #acceptChannel: #acceptChannel

                          #modifiedChannel: #modifiedChannel

                          #acceptOnPointerLeave: true

                        )

                       #(#UISubSpecification

                          #name: 'SubSpecification'

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

                          #majorKey: #ToolApplicationModel

                          #minorKey: #windowSpecForCommit

                        )

                       )

                    )

                  )

                 )

              )

              #handles: #(#Any 0.368421 1.0)

            )

           #(#UISubSpecification

              #name: 'InfoBarSubSpec'

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

              #majorKey: #ToolApplicationModel

              #minorKey: #windowSpecForInfoBar

            )

           )

        )

      )

! !

!HierarchicalListEditor class methodsFor:'menu specs'!

menu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menu)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #label: 'File'

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'New'

                          #value: #doNew

                          #activeHelpKey: #fileNew

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Load...'

                          #translateLabel: true

                          #value: #doLoad

                          #activeHelpKey: #fileLoad

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Save'

                          #value: #doSave

                          #activeHelpKey: #fileSave

                      )

                       #(#MenuItem

                          #label: 'Save As...'

                          #value: #doSaveAs

                          #activeHelpKey: #fileSaveAs

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Browse Class'

                          #value: #doBrowseClass

                          #activeHelpKey: #fileBrowseClass

                          #enabled: #hasValidClass

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Exit'

                          #value: #closeRequest

                          #activeHelpKey: #fileExit

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'Edit'

                #submenuChannel: #menuEdit

            )

             #(#MenuItem

                #label: 'Add'

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'Child'

                          #value: #doCreateChild

                          #activeHelpKey: #addChild

                          #enabled: #canCreateChildChannel

                          #labelImage: #(#ResourceRetriever #HierarchicalListEditor #createChildIcon 'Child')

                      )

                       #(#MenuItem

                          #label: 'Sister'

                          #value: #doCreateSister

                          #activeHelpKey: #addSister

                          #enabled: #canCreateSisterChannel

                          #labelImage: #(#ResourceRetriever #HierarchicalListEditor #createSisterIcon 'Sister')

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'History'

                #submenuChannel: #menuHistory

            )

             #(#MenuItem

                #label: 'Help'

                #startGroup: #right

                #submenuChannel: #menuHelp

            )

          ) nil

          nil

      )

!

menuEdit

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menuEdit

     (Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menuEdit)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #label: 'Cut'

                #value: #doCut

                #activeHelpKey: #editCut

                #enabled: #valueOfCanCut

            )

             #(#MenuItem

                #label: 'Copy'

                #value: #doCopy

                #activeHelpKey: #editCopy

                #enabled: #valueOfCanCopy

            )

             #(#MenuItem

                #label: 'Paste'

                #value: #doPaste

                #activeHelpKey: #editPaste

                #enabled: #valueOfCanPaste

            )

             #(#MenuItem

                #label: 'Delete'

                #value: #doDelete

                #activeHelpKey: #editPaste

                #enabled: #valueOfCanCut

            )

             #(#MenuItem

                #label: '-'

            )

             #(#MenuItem

                #label: 'Move Up'

                #value: #doStepUp

                #activeHelpKey: #editMoveUp

                #enabled: #canStepOverChannel

                #labelImage: #(#ResourceRetriever #Icon #upIcon 'Move Up')

            )

             #(#MenuItem

                #label: 'Move Down'

                #value: #doStepDown

                #activeHelpKey: #editMoveDown

                #enabled: #canStepOverChannel

                #labelImage: #(#ResourceRetriever #Icon #downIcon 'Move Down')

            )

             #(#MenuItem

                #label: 'Move In'

                #value: #doStepIn

                #activeHelpKey: #editMoveIn

                #enabled: #canStepInChannel

                #labelImage: #(#ResourceRetriever #Icon #downRightIcon 'Move In')

            )

             #(#MenuItem

                #label: 'Move Out'

                #value: #doStepOut

                #activeHelpKey: #editMoveOut

                #enabled: #canStepOutChannel

                #labelImage: #(#ResourceRetriever #Icon #leftDownIcon 'Move Out')

            )

          ) nil

          nil

      )

!

menuToolbar

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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