"{ Package: 'stx:libjava/tools' }"

ApplicationModel subclass:#JavaCodeBundleEditor

	instanceVariableNames:'bundleHolder readonlyHolder bundleTree bundleTreeSelectionHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Languages-Java-Tools'

!

HierarchicalItem subclass:#Item

	instanceVariableNames:'libraryOrBundle'

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaCodeBundleEditor

!

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

     JavaCodeBundleEditor new openInterface:#windowSpec

     JavaCodeBundleEditor open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'NewApplication'

          name: 'NewApplication'

          bounds: (Rectangle 0 0 580 420)

        )

        component: 

       (SpecCollection

          collection: (

           (HierarchicalListViewSpec

              name: 'HierarchicalListView1'

              layout: (LayoutFrame 0 0 0 0 -100 1 0 1)

              model: bundleTreeSelectionHolder

              hasHorizontalScrollBar: true

              hasVerticalScrollBar: true

              listModel: bundleTree

              useIndex: false

              highlightMode: line

              useDefaultIcons: false

            )

           (VerticalPanelViewSpec

              name: 'Buttons1'

              layout: (LayoutFrame -100 1 0 0 0 1 0 1)

              horizontalLayout: fit

              verticalLayout: top

              horizontalSpace: 5

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'Add Library...'

                    name: 'ButtonAddLibrary'

                    activeHelpKey: addPerPackageManager

                    translateLabel: true

                    model: doAddLibrary

                    enableChannel: canAddHolder

                    extent: (Point 100 22)

                  )

                 (ActionButtonSpec

                    label: 'Add Bundle...'

                    name: 'ButtonAddBundle'

                    activeHelpKey: moveManagerDown

                    translateLabel: true

                    model: doAddBundle

                    enableChannel: canAddHolder

                    extent: (Point 100 22)

                  )

                 (ActionButtonSpec

                    label: 'Edit...'

                    name: 'ButtonEdit'

                    activeHelpKey: editPerPackageManager

                    translateLabel: true

                    model: doEdit

                    enableChannel: canEditHolder

                    extent: (Point 100 22)

                  )

                 (ActionButtonSpec

                    label: 'Remove'

                    name: 'ButtonRemove'

                    activeHelpKey: removePerPackageManager

                    translateLabel: true

                    model: doRemove

                    enableChannel: canRemoveHolder

                    extent: (Point 100 22)

                  )

                 )

              )

            )

           )

        )

      )

! !

!JavaCodeBundleEditor class methodsFor:'menu specs'!

listMenu

    "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:JavaCodeBundleEditor andSelector:#listMenu

     (Menu new fromLiteralArrayEncoding:(JavaCodeBundleEditor listMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            enabled: canAddHolder

            label: 'Add Library...'

            itemValue: doAddLibrary

          )

         (MenuItem

            enabled: canAddHolder

            label: 'Add Bundle...'

            itemValue: doAddBundle

          )

         (MenuItem

            enabled: canEditHolder

            label: 'Edit..'

            itemValue: doEdit

          )

         (MenuItem

            enabled: canRemoveHolder

            label: 'Remove'

            itemValue: doRemove

          )

         )

        nil

        nil

      )

! !

!JavaCodeBundleEditor class methodsFor:'plugIn spec'!

aspectSelectors

    "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."

    "Return a description of exported aspects;

     these can be connected to aspects of an embedding application

     (if this app is embedded in a subCanvas)."

    ^ #(

        #bundleHolder

        #readonlyHolder

      ).

! !

!JavaCodeBundleEditor methodsFor:'accessing'!

bundle: aJavaCodeBundle

    self bundleHolder value: aJavaCodeBundle

    "Created: / 25-01-2013 / 21:50:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundleEditor methodsFor:'aspects'!

bundleHolder

    "return/create the 'bundleHolder' value holder (automatically generated)"

    bundleHolder isNil ifTrue:[

        bundleHolder := ValueHolder new.

        bundleHolder addDependent:self.

    ].

    ^ bundleHolder

!

bundleHolder:something

    "set the 'bundleHolder' value holder (automatically generated)"

    |oldValue newValue|

    bundleHolder notNil ifTrue:[

        oldValue := bundleHolder value.

        bundleHolder removeDependent:self.

    ].

    bundleHolder := something.

    bundleHolder notNil ifTrue:[

        bundleHolder addDependent:self.

    ].

    newValue := bundleHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:bundleHolder.

    ].

!

bundleTree

    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    bundleTree isNil ifTrue:[

        bundleTree := HierarchicalList new.

        bundleTree showRoot: false.

    ].

    ^ bundleTree.

    "Modified: / 28-01-2013 / 20:35:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

bundleTreeSelectionHolder

    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    bundleTreeSelectionHolder isNil ifTrue:[

        bundleTreeSelectionHolder := ValueHolder new.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       bundleTreeSelectionHolder addDependent:self.

"/       bundleTreeSelectionHolder onChangeSend:#bundleTreeSelectionHolderChanged to:self.

    ].

    ^ bundleTreeSelectionHolder.

!

readonlyHolder

    "return/create the 'readonlyHolder' value holder (automatically generated)"

    readonlyHolder isNil ifTrue:[

        readonlyHolder := ValueHolder with: false.

    ].

    ^ readonlyHolder

    "Modified: / 28-01-2013 / 19:27:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

readonlyHolder:something

    "set the 'readonlyHolder' value holder (automatically generated)"

    readonlyHolder := something.

! !

!JavaCodeBundleEditor methodsFor:'aspects-queries'!

canAddHolder

    ^BlockValue 

        with:[:ro :sel| ro value not and:[sel value isNil or:[sel value libraryOrBundle isBundle]]]

        argument: self readonlyHolder

        argument: self bundleTreeSelectionHolder

    "Created: / 30-01-2013 / 16:43:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

canEditHolder

    ^BlockValue 

        with:[:ro :sel|ro value not and:[sel value notNil]]

        argument: self readonlyHolder

        argument: self bundleTreeSelectionHolder

    "Modified: / 30-01-2013 / 16:33:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

canRemoveHolder

    ^BlockValue 

        with:[:ro :sel|ro value not and:[sel value notNil]]

        argument: self readonlyHolder

        argument: self bundleTreeSelectionHolder

    "Modified: / 30-01-2013 / 16:32:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundleEditor methodsFor:'change & update'!

update:aspect with: parameter from:changedObject

    "Invoked when an object that I depend upon sends a change notification."

    changedObject == bundleHolder ifTrue:[

        self updateTree.

        ^ self.

    ].

    super update:aspect with:parameter from:changedObject

    "Modified: / 25-01-2013 / 21:40:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateModifiedChannel

    (masterApplication respondsTo: #updateModifiedChannel) ifTrue:[

        masterApplication updateModifiedChannel

    ].

    "Created: / 30-01-2013 / 17:22:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateTree

    self bundleTree root:

        (Item libraryOrBundle: self bundleHolder value parent: nil).

    self bundleTree root expand.

    "Created: / 25-01-2013 / 21:40:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 28-01-2013 / 20:35:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundleEditor methodsFor:'menu actions'!

doAdd: libraryOrBundle

    | libraryOrBundleItem parent parentItem |

    parentItem := self bundleTreeSelectionHolder value.

    parentItem isNil ifTrue:[

        parentItem := bundleTree root

    ].

    parent := parentItem libraryOrBundle.

    parent add: libraryOrBundle.

    libraryOrBundleItem := Item libraryOrBundle: libraryOrBundle parent: parentItem.

    parentItem add: libraryOrBundleItem.

    parentItem expand.

    self bundleTreeSelectionHolder value: libraryOrBundleItem.

    self updateModifiedChannel

    "Created: / 30-01-2013 / 17:20:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doAddBundle

    | name bundle |

    name := Dialog request: (resources string: 'Enter name of new bundle').

    name isNil ifTrue:[^self].

    bundle := JavaCodeBundle new.

    bundle name: name.

    self doAdd: bundle

    "Modified: / 30-01-2013 / 17:20:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doAddLibrary

    "automatically generated by UIEditor ..."

    "*** the code below performs no action"

    "*** (except for some feedback on the Transcript)"

    "*** Please change as required and accept in the browser."

    "*** (and replace this comment by something more useful ;-)"

    "action to be added ..."

    Transcript showCR:self class name, ': action for #doAddLibrary ...'.

!

doEdit

    "automatically generated by UIEditor ..."

    "*** the code below performs no action"

    "*** (except for some feedback on the Transcript)"

    "*** Please change as required and accept in the browser."

    "*** (and replace this comment by something more useful ;-)"

    "action to be added ..."

    Transcript showCR:self class name, ': action for #doEdit ...'.

!

doRemove

    | selItem sel parentItem parent |

    selItem := self bundleTreeSelectionHolder value.

    selItem isNil ifTrue:[ ^ self ].

    sel := selItem libraryOrBundle.

    parentItem := selItem parent.

    parent := parentItem libraryOrBundle.

    parent remove: sel.

    parentItem remove: selItem.

    self bundleTreeSelectionHolder value: parentItem.

    self updateModifiedChannel

    "Modified: / 30-01-2013 / 17:22:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundleEditor::Item class methodsFor:'instance creation'!

libraryOrBundle: model parent: parent

    ^self new

        libraryOrBundle: model;

        parent: parent

    "Created: / 25-01-2013 / 21:53:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundleEditor::Item methodsFor:'accessing'!

icon

    ^nil

    "Created: / 25-01-2013 / 21:51:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

label

    ^libraryOrBundle name

    "Created: / 25-01-2013 / 21:41:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

libraryOrBundle

    ^ libraryOrBundle

!

libraryOrBundle:something

    libraryOrBundle := something.

! !

!JavaCodeBundleEditor::Item methodsFor:'protocol-accessing'!

fetchChildren

    ^libraryOrBundle isBundle ifTrue:[

        libraryOrBundle libraries collect:[:each|self class libraryOrBundle:each parent: self]. 

    ] ifFalse:[

        #()

    ]

    "Created: / 25-01-2013 / 21:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundleEditor class methodsFor:'documentation'!

version_CVS

    ^ '$Header: /cvs/stx/stx/libjava/tools/JavaCodeBundleEditor.st,v 1.1 2013-02-16 18:08:44 vrany Exp $'

!

version_HG

    ^ '$Changeset: <not expanded> $'

! !