"{ Package: 'stx:goodies/monticello' }"

ApplicationModel subclass:#MCRepositoryBrowser

!

!MCRepositoryBrowser class methodsFor:'initialization'!

initialize

    "/ self installInLauncher.            - now done in phase 2

    ObjectMemory addDependent:self.

!

installInLauncher

    |menuItem action|

    NewLauncher isNil ifTrue:[^ self].

    ToolbarIconLibrary isNil ifTrue:[^ self].

    "/ NewLauncher removeUserTool:#TestRunner2.

    "Class may be changed, and we want to start the changed class"

    "/ action := (MessageSend receiver:(Smalltalk at:self name) selector:#open).

    action := [ (Smalltalk at:self name) open ].

    "Install in Tools menu"

    menuItem := (MenuItem label:'Monticello Browser')

                nameKey:#MonticelloBrowser;

                "/labelImage:self startSUnitIcon;

                value:action;

                isButton:false.

    NewLauncher 

        addMenuItem:menuItem

        from:self

        in:'menu.tools.programming'

        position:nil

        space:false.

    "Created: / 05-05-2012 / 19:12:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

update:something with:aParameter from:changedObject

    something == #initialized ifTrue:[

        changedObject == ObjectMemory ifTrue:[

            self installInLauncher.

            ObjectMemory removeDependent:self.

        ]

    ].

! !

!MCRepositoryBrowser class methodsFor:'help specs'!

flyByHelpSpec

    "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:MCRepositoryBrowser    

    "

    <resource: #help>

    ^ super flyByHelpSpec addPairsFrom:#(

#browseVersion

'Open a changelist browser on the selected version'

#loadVersion

'Load the selected version'

#targetNamespace

'Namespace override. Change via the "Loading"-Menu'

#targetPackage

'ST/X Package override. Change via the "Loading"-Menu'

)

    "Created: / 07-09-2011 / 15:13:00 / cg"

! !

!MCRepositoryBrowser class methodsFor:'interface specs'!

packageDetailsSpec

    "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:MCRepositoryBrowser andSelector:#packageDetailsSpec

     MCRepositoryBrowser new openInterface:#packageDetailsSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: packageDetailsSpec

        window: 

       (WindowSpec

          label: 'MC Package Details'

          name: 'MC Package Details'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 533 326)

        )

        component: 

       (SpecCollection

          collection: (

           (TextEditorSpec

              name: 'PackageDetails'

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

              model: selectedVersionDetailsHolder

              hasHorizontalScrollBar: true

              hasVerticalScrollBar: true

              isReadOnly: true

              hasKeyboardFocusInitially: false

            )

           (LabelSpec

              name: 'Label1'

              layout: (LayoutFrame 2 0 -30 1 -1 0.5 -2 1)

              activeHelpKey: targetNamespace

              level: -1

              translateLabel: true

              labelChannel: targetNamespaceNameHolder

              adjust: left

            )

           (LabelSpec

              name: 'Label2'

              layout: (LayoutFrame 1 0.5 -30 1 -2 1 -2 1)

              activeHelpKey: targetPackage

              level: -1

              translateLabel: true

              labelChannel: targetPackageHolder

              adjust: left

            )

           )

        )

      )

!

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

     MCRepositoryBrowser new openInterface:#windowSpec

     MCRepositoryBrowser open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'MC Repository Browser'

          name: 'MC Repository Browser'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 796 497)

          menu: mainMenu

        )

        component: 

       (SpecCollection

          collection: (

           (VariableVerticalPanelSpec

              name: 'VariableVerticalPanel1'

              layout: (LayoutFrame 0 0 0 0 0 1 0 1)

              component: 

             (SpecCollection

                collection: (

                 (VariableHorizontalPanelSpec

                    name: 'VariableHorizontalPanel1'

                    component: 

                   (SpecCollection

                      collection: (

                       (SubCanvasSpec

                          name: 'RepositoryList'

                          hasHorizontalScrollBar: false

                          hasVerticalScrollBar: false

                          majorKey: MCRepositoryList

                          subAspectHolders: 

                         (Array

                           (SubChannelInfoSpec

                              subAspect: menuHolder

                              aspect: repositoryListMenu

                            ) 

                           (SubChannelInfoSpec

                              subAspect: inGeneratorHolder

                              aspect: repositoriesHolder

                            )

                           (SubChannelInfoSpec

                              subAspect: outGeneratorHolder

                              aspect: packagesHolder

                            ) 

                           (SubChannelInfoSpec

                              subAspect: selectionHolder

                              aspect: selectedRepositoryHolder

                            )

                          )

                          createNewApplication: true

                          createNewBuilder: true

                        )

                       (SubCanvasSpec

                          name: 'PackageList'

                          hasHorizontalScrollBar: false

                          hasVerticalScrollBar: false

                          majorKey: MCPackageList

                          subAspectHolders: 

                         (Array

                           (SubChannelInfoSpec

                              subAspect: menuHolder

                              aspect: packageListMenu

                            ) 

                           (SubChannelInfoSpec

                              subAspect: inGeneratorHolder

                              aspect: packagesHolder

                            )

                           (SubChannelInfoSpec

                              subAspect: outGeneratorHolder

                              aspect: versionsHolder

                            ) 

                           (SubChannelInfoSpec

                              subAspect: selectionHolder

                              aspect: selectedPackageHolder

                            )

                          )

                          createNewApplication: true

                          createNewBuilder: true

                        )

                       (ViewSpec

                          name: 'Box1'

                          component: 

                         (SpecCollection

                            collection: (

                             (SubCanvasSpec

                                name: 'VersionList'

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

                                hasHorizontalScrollBar: false

                                hasVerticalScrollBar: false

                                majorKey: MCVersionList

                                subAspectHolders: 

                               (Array

                                 (SubChannelInfoSpec

                                    subAspect: inGeneratorHolder

                                    aspect: versionsHolder

                                  ) 

                                 (SubChannelInfoSpec

                                    subAspect: menuHolder

                                    aspect: versionsMenu

                                  )

                                 (SubChannelInfoSpec

                                    subAspect: selectionHolder

                                    aspect: selectedVersionHolder

                                  )

                                )

                                createNewApplication: true

                                createNewBuilder: true

                              )

                             (ActionButtonSpec

                                label: 'Browse'

                                name: 'Button1'

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

                                activeHelpKey: browseVersion

                                translateLabel: true

                                model: versionBrowser

                                enableChannel: hasVersionSelectedHolder

                              )

                             (ActionButtonSpec

                                label: 'Load'

                                name: 'LoadButton'

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

                                activeHelpKey: loadVersion

                                translateLabel: true

                                model: versionLoad

                                enableChannel: hasVersionSelectedHolder

                              )

                             )

                          )

                        )

                       )

                    )

                    handles: (Any 0.333333333333333 0.666666666666667 1.0)

                  )

                 (UISubSpecification

                    name: 'SubSpecification1'

                    minorKey: packageDetailsSpec

                  )

                 )

              )

              handles: (Any 0.5 1.0)

            )

           )

        )

      )

    "Modified: / 16-03-2012 / 10:51:24 / cg"

! !

!MCRepositoryBrowser class methodsFor:'menu specs'!

loadingMenu

    "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:MCRepositoryBrowser andSelector:#loadingMenu

     (Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser loadingMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'Set Target Package...'

            itemValue: setTargetPackage

          )

         (MenuItem

            label: 'Set Target Namespace...'

            itemValue: setTargetNamespace

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Update Changefile when Loading'

            indication: updateChangefileHolder

          )

         )

        nil

        nil

      )

!

mainMenu

    "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:MCRepositoryBrowser andSelector:#mainMenu

     (Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser mainMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'File'

            translateLabel: true

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Exit'

                  itemValue: closeRequest

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Repository'

            translateLabel: true

            submenuChannel: repositoryListMenu

          )

         (MenuItem

            label: 'Package'

            translateLabel: true

            submenuChannel: packageListMenu

          )

         (MenuItem

            label: 'Version'

            translateLabel: true

            submenuChannel: versionsMenu

          )

         (MenuItem

            label: 'Loading'

            translateLabel: true

            submenuChannel: loadingMenu

          )

         (MenuItem

            label: 'Help'

            translateLabel: true

            startGroup: conditionalRight

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Documentation'

                  itemValue: openDocumentation

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'About this Application...'

                  itemValue: openAboutThisApplication

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         )

        nil

        nil

      )

!

packageListMenu

    "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:MCRepositoryBrowser andSelector:#packageListMenu

     (Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser packageListMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            enabled: packageSelectedAndOperatingSystemIsWindows

            label: 'No Menuentry Yet'

            translateLabel: true

          )

         )

        nil

        nil

      )

    "Modified: / 07-09-2011 / 11:44:38 / cg"

!

repositoryListMenu

    "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:MCRepositoryBrowser andSelector:#repositoryListMenu

     (Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser repositoryListMenu)) startUp

    "

    <resource: #menu>

    ^