"{ Encoding: utf8 }"

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

"{ NameSpace: Smalltalk }"

ApplicationModel subclass:#JavaCodeBundleEditor

	instanceVariableNames:'bundleHolder readonlyHolder bundleTree bundleTreeSelectionHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Languages-Java-Tools'

!

HierarchicalItem subclass:#BundleItem

	instanceVariableNames:'bundle'

	classVariableNames:''

	poolDictionaries:''

	privateIn:JavaCodeBundleEditor

!

HierarchicalItem subclass:#LibraryItem

	instanceVariableNames:'library warnings label'

	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: 'Java Code Bundle Editor'

          name: 'Java Code Bundle Editor'

          bounds: (Rectangle 0 0 580 420)

        )

        component: 

       (SpecCollection

          collection: (

           (HierarchicalListViewSpec

              name: 'HierarchicalListView1'

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

              model: bundleTreeSelectionHolder

              menu: listMenu

              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)

                  )

                 )

              )

            )

           (LabelSpec

              label: 'Drag and drop .jar files above'

              name: 'Hint'

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

              visibilityChannel: readwriteHolder

              translateLabel: true

              adjust: left

            )

           (LinkButtonSpec

              label: 'LinkButton'

              name: 'Button1'

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

              visibilityChannel: readwriteHolder

              translateLabel: true

              labelChannel: browseFilesLabel

            )

           )

        )

      )

! !

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

!

readonly

    ^ self readonlyHolder value

    "Created: / 15-04-2014 / 18:52:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

readonly: aBoolean

    self readonlyHolder value: aBoolean

    "Created: / 15-04-2014 / 18:52:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundleEditor methodsFor:'aspects'!

browseFilesLabel

    ^'Browse...' asActionLinkTo:[ self doBrowseFiles ]

    "Created: / 22-02-2013 / 00:22:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

bundleHolder

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

    bundleHolder isNil ifTrue:[

        bundleHolder := JavaCodeBundle new asValue.

        bundleHolder addDependent:self.

    ].

    ^ bundleHolder

    "Modified: / 21-02-2013 / 23:31:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

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.

!

readwriteHolder

    ^BlockValue forLogicalNot: self readonlyHolder

    "Created: / 22-02-2013 / 00:01:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundleEditor methodsFor:'aspects-queries'!

canAddHolder

    ^ BlockValue 

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

        argument: self readonlyHolder

        argument: self bundleTreeSelectionHolder

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

    "Modified: / 21-02-2013 / 23:42:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 17-05-2019 / 16:19:21 / Stefan Vogel"

!

canEditHolder

    ^ BlockValue 

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

        argument: self readonlyHolder

        argument: self bundleTreeSelectionHolder

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

    "Modified: / 17-05-2019 / 16:18:57 / Stefan Vogel"

!

canRemoveHolder

    ^ self canEditHolder

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

    "Modified: / 17-05-2019 / 16:56:14 / Stefan Vogel"

! !

!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 notNil ifTrue:[

        (self bundleTree)

            removeAll;

            root:nil.

    ].

    self bundleTree root:(BundleItem bundle:self bundleHolder value parent:nil).

    self bundleTree root expand.

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

    "Modified (format): / 19-03-2015 / 13:14:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundleEditor methodsFor:'hooks'!

commonPostOpen

    super commonPostOpen.

    self updateTree

    "Created: / 21-02-2013 / 23:33:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaCodeBundleEditor methodsFor:'menu actions'!

doAdd: libraryOrBundle

    | parent parentItem |

    parentItem := self bundleTreeSelectionHolder value.

    parentItem isNil ifTrue:[

        parentItem := bundleTree root

    ].

    parentItem libraryOrBundle isLibrary ifTrue:[

        parentItem := parentItem parent.

    ].

    parent := parentItem libraryOrBundle.

    parent add: libraryOrBundle.

    parentItem expand.

    self doSelect: libraryOrBundle.

    self updateModifiedChannel

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

    "Modified: / 22-02-2013 / 15:36:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doAddBundle

    | name bundle |

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

    name isEmptyOrNil ifTrue:[^self].

    bundle := JavaCodeBundle new.

    bundle name: name.

    self doAdd: bundle

    "Modified: / 22-02-2013 / 13:19:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doAddLibrary

    | dialog |

    dialog := JavaCodeLibraryEditor new.

    dialog open.

    dialog accepted ifTrue:[

        self doAdd: dialog acceptedValue.

    ]

    "Modified: / 22-02-2013 / 13:25:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doBrowseFiles

    FileBrowser default openOnDirectory:  (Array with: ((JavaCodeLibraryEditor lastDirectory)  ? (Filename currentDirectory pathName)) asFilename)

    "Modified: / 08-12-2014 / 00:26:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 01-09-2017 / 14:05:35 / cg"

!

doEdit

    | bundleOrLibraryItem bundleOrLibrary dialog name |

    bundleOrLibraryItem := self bundleTreeSelectionHolder value.

    bundleOrLibraryItem isNil ifTrue:[ ^ self ].

    bundleOrLibrary := bundleOrLibraryItem libraryOrBundle.

    bundleOrLibrary isLibrary ifTrue:[

        dialog := JavaCodeLibraryEditor new.

        dialog library: bundleOrLibrary.

        dialog open.

        bundleOrLibrary isLibrary ifTrue:[ 

            "/ To get rid ow warnings if fixed or revalidate

            bundleOrLibraryItem updateWarnings.

        ].   

    ] ifFalse:[

        name := Dialog request: (resources string: 'Enter new name') initialAnswer:bundleOrLibrary name.

        name isNil ifTrue:[^self].

        bundleOrLibrary name: name.

    ]

    "Modified: / 19-03-2015 / 16:27:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

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.

    parent libraries size > 0 ifTrue:[

        parentItem expand.

    ].

    self doSelect: parent.

    self updateModifiedChannel

    "Modified: / 22-02-2013 / 15:53:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doSelect: libraryOrBundle

    self bundleTree root recursiveDo:[:e|

        e libraryOrBundle == libraryOrBundle ifTrue:[

            self bundleTreeSelectionHolder value: e.

            ^self

        ]

    ]