"

 COPYRIGHT (c) 2011 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.

"

AbstractSourceCodeManagementSettingsAppl subclass:#PerforceSourceCodeManagementSettingsAppl

!

ApplicationModel subclass:#ManagerPerModuleApp

!

Object subclass:#ModuleManager

!

!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'instance creation'!

openFromSourceCodeManagementSettingsApp:something

    |inst|

    inst := self new.

    inst sourceCodeManagementSettingsApp:something.

    inst openModal.

    ^ inst

! !

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

     PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp new openInterface:#windowSpec

     PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Manager per Module'

          name: 'Manager per Module'

          min: (Point 10 10)

          max: (Point 1024 768)

          bounds: (Rectangle 0 0 653 100)

        )

        component: 

       (SpecCollection

          collection: (

           (VerticalPanelViewSpec

              name: 'VerticalPanel1'

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

              horizontalLayout: fit

              verticalLayout: topSpace

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (HorizontalPanelViewSpec

                    name: 'HorizontalPanel1'

                    horizontalLayout: leftFit

                    verticalLayout: center

                    horizontalSpace: 3

                    verticalSpace: 3

                    component: 

                   (SpecCollection

                      collection: (

                       (LabelSpec

                          label: 'Module:'

                          name: 'Label16'

                          translateLabel: true

                          adjust: right

                          extent: (Point 180 17)

                        )

                       (InputFieldSpec

                          name: 'EntryField7'

                          tabable: true

                          model: moduleHolder

                          acceptChannel: acceptChannel

                          acceptOnPointerLeave: true

                          extent: (Point 465 22)

                        )

                       )

                    )

                    extent: (Point 648 23)

                  )

                 (HorizontalPanelViewSpec

                    name: 'HorizontalPanel4'

                    horizontalLayout: leftFit

                    verticalLayout: topSpace

                    horizontalSpace: 3

                    verticalSpace: 3

                    component: 

                   (SpecCollection

                      collection: (

                       (ViewSpec

                          name: 'Box1'

                          component: 

                         (SpecCollection

                            collection: (

                             (LabelSpec

                                label: 'Manager Info'

                                name: 'Label18'

                                layout: (LayoutFrame 0 0 0 0 149 0 16 0)

                                translateLabel: true

                                adjust: right

                              )

                             (LabelSpec

                                label: 'client:user:pass@host:port '

                                name: 'Label19'

                                layout: (LayoutFrame 0 0 14 0 180 0 29 0)

                                style: (FontDescription helvetica medium roman 10)

                                level: 0

                                translateLabel: true

                                adjust: right

                              )

                             )

                          )

                          extent: (Point 180 35)

                        )

                       (ComboBoxSpec

                          name: 'ComboBox1'

                          model: settingsHolder

                          immediateAccept: false

                          acceptOnLostFocus: true

                          acceptOnPointerLeave: false

                          comboList: defaultSettingsPrototypeList

                          extent: (Point 465 20)

                        )

                       )

                    )

                    extent: (Point 648 35)

                  )

                 )

              )

            )

           (HorizontalPanelViewSpec

              name: 'HorizontalPanel2'

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

              horizontalLayout: fitSpace

              verticalLayout: center

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'Add'

                    name: 'Button1'

                    translateLabel: true

                    model: doAccept

                    enableChannel: acceptEnableChannel

                    extent: (Point 322 22)

                  )

                 (ActionButtonSpec

                    label: 'Cancel'

                    name: 'Button2'

                    translateLabel: true

                    model: doCancel

                    extent: (Point 322 22)

                  )

                 )

              )

            )

           )

        )

      )

! !

!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'accessing'!

canceled

    ^ canceled

!

defaultSettingsPrototypeList

    defaultSettingsPrototypeList isNil ifTrue:[

        defaultSettingsPrototypeList := sourceCodeManagementSettingsApp perforcePrototypeList.

    ].

    ^ defaultSettingsPrototypeList.

!

sourceCodeManagementSettingsApp

    ^ sourceCodeManagementSettingsApp

!

sourceCodeManagementSettingsApp:something

    sourceCodeManagementSettingsApp := something.

! !

!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'aspects'!

acceptChannel

    <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 ;-)"

    acceptChannel isNil ifTrue:[

        acceptChannel := TriggerValue new.

    ].

    ^ acceptChannel.

!

acceptEnableChannel

    <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 ;-)"

    acceptEnableChannel isNil ifTrue:[

        acceptEnableChannel := true asValue.

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

"/       acceptEnableChannel addDependent:self.

"/       acceptEnableChannel onChangeSend:#acceptEnableChannelChanged to:self.

    ].

    ^ acceptEnableChannel.

!

moduleHolder

    <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 ;-)"

    moduleHolder isNil ifTrue:[

        moduleHolder := ValueHolder new.

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

        moduleHolder addDependent:self.

"/       moduleHolder onChangeSend:#moduleHolderChanged to:self.

    ].

    ^ moduleHolder.

!

settingsHolder

    <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 ;-)"

    settingsHolder isNil ifTrue:[

        settingsHolder := ValueHolder new.

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

"/       settingsHolder addDependent:self.

"/       settingsHolder onChangeSend:#settingsHolderChanged to:self.

    ].

    ^ settingsHolder.

! !

!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'initialization & release'!

doCancel

    canceled := true.

    ^ super doCancel

!

postBuildWith:aBuilder

    "This is a hook method generated by the Browser.

     It will be invoked during the initialization of your app/dialog,

     after all of the visual components have been built,

     but BEFORE the top window is made visible.

     Add any app-specific actions here (reading files, setting up values etc.)

     See also #postOpenWith:, which is invoked after opening."

    "/ add any code here ...

    canceled := false.

    ^ super postBuildWith:aBuilder

!

postOpenWith:aBuilder

    "This is a hook method generated by the Browser.

     It will be invoked right after the applications window has been opened.

     Add any app-specific actions here (starting background processes etc.).

     See also #postBuildWith:, which is invoked before opening."

    "/ add any code here ...

    ^ super postOpenWith:aBuilder

! !

!PerforceSourceCodeManagementSettingsAppl::ModuleManager class methodsFor:'instance creation'!

newForApplication:anApplication

    |instance|

    instance := self new.

    instance app:anApplication.

    ^instance

! !

!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'accessing'!

app

    ^ app

!

app:something

    app := something.

!

check

    |icon|

    check isNil ifTrue:[

        ^'unchecked'

    ].

    check ifTrue:[

        icon := GenericToolbarIconLibrary ledGreen14x14.

    ] ifFalse:[

        icon := GenericToolbarIconLibrary ledRed14x14.

    ].

    ^icon

!

check:something

    check := something.

!

checkIcon

    ^ checkIcon

!

checkIcon:something

    checkIcon := something.

!

manager

    ^ manager

!

manager:something

    manager := something.

!

module

    ^ module

!

module:something

    module := something.

!

settings

    ^ settings

!

settings:something

    settings := something.

    app notNil ifTrue:[

        app listOfModules changed.

    ].

! !

!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'actions'!

doubleClick

    PerforceSourceCodeManager perforceError handle:[:ex|

        self warn:ex description.

        check := false.

    ] do:[

        check := PerforceSourceCodeManager checkPerforceSettings:settings forPackage:module.

    ].

    self changed.

! !

!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'comparing'!

< aModuleManager

    ^ self module < aModuleManager module

! !

!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'queries'!

availableManagerTypeNames

    ^ AbstractSourceCodeManager availableManagers collect:[:cls | cls managerTypeName].

!

managerClass

    ^ AbstractSourceCodeManager availableManagers detect:[:cls | cls managerTypeName = manager] ifNone:[nil].

! !