"{ Package: 'stx:libsvn' }"

"{ NameSpace: SVN }"

Dialog subclass:#RepositoryConfigurationDialog

	instanceVariableNames:'packageHolder urlHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'SVN-UI-Dialogs'

!

!RepositoryConfigurationDialog 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:SVN::RepositoryConfigurationDialog    

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#Package

'Package name may contain wild cards: \ * matches any text\ # matches any character\ [...] matches set of characters'

#URL

'Repository url. Following variables are expanded\ %p - full package name (ex: ''stx/goodies/libsvn'')'

)

! !

!RepositoryConfigurationDialog class methodsFor:'interface specs'!

contentSpec

    "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:SVN::RepositoryConfigurationDialog andSelector:#contentSpec

     SVN::RepositoryConfigurationDialog new openInterface:#contentSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: contentSpec

        window: 

       (WindowSpec

          label: 'Repository configuration'

          name: 'Repository configuration'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 647 345)

        )

        component: 

       (SpecCollection

          collection: (

           (TransparentBoxSpec

              name: 'Content'

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

              component: 

             (SpecCollection

                collection: (

                 (LabelSpec

                    label: 'Package:'

                    name: 'PackageLabel'

                    layout: (LayoutFrame 0 0 15 0 120 0 35 0)

                    translateLabel: true

                    adjust: right

                  )

                 (InputFieldSpec

                    name: 'Package'

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

                    activeHelpKey: Package

                    enableChannel: svnEnabledAspect

                    model: packageHolder

                    immediateAccept: false

                    acceptOnReturn: true

                    acceptOnTab: true

                    acceptOnLostFocus: true

                    modifiedChannel: modifiedChannel

                    acceptOnPointerLeave: true

                    valueChangeCallBackSelector: validate

                  )

                 (LabelSpec

                    label: 'Repository URL:'

                    name: 'URLLabel'

                    layout: (LayoutFrame 0 0 47 0 120 0 62 0)

                    translateLabel: true

                    adjust: right

                  )

                 (InputFieldSpec

                    name: 'URL'

                    layout: (LayoutFrame 122 0 37 0 0 1 62 0)

                    activeHelpKey: URL

                    enableChannel: svnEnabledAspect

                    model: urlHolder

                    immediateAccept: false

                    acceptOnReturn: true

                    acceptOnTab: true

                    acceptOnLostFocus: true

                    modifiedChannel: modifiedChannel

                    acceptOnPointerLeave: true

                    valueChangeCallBackSelector: validate

                  )

                 )

              )

            )

           )

        )

      )

! !

!RepositoryConfigurationDialog methodsFor:'accessing'!

answerValueSelector 

    ^#model

    "Modified: / 16-08-2009 / 11:54:10 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

package

    ^self packageHolder value

    "Created: / 16-08-2009 / 17:19:39 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

url

    ^self urlHolder value

    "Created: / 16-08-2009 / 17:02:01 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!RepositoryConfigurationDialog methodsFor:'accessing - defaults'!

defaultModel

    ^RepositoryConfiguration new

    "Created: / 16-08-2009 / 16:02:43 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

defaultTitle

    ^'Repository configuration'

    "Created: / 03-10-2008 / 13:58:40 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 16-08-2009 / 16:12:12 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!RepositoryConfigurationDialog methodsFor:'actions'!

doAccept

    self canDoAccept ifFalse:[^self].

    self model 

        package: self package;

        url: self url.

    super doAccept.

    "Created: / 16-08-2009 / 17:02:49 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!RepositoryConfigurationDialog methodsFor:'aspects'!

packageHolder

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

    packageHolder isNil ifTrue:[

        packageHolder := ValueHolder new.

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

"/       packageHolder addDependent:self.

"/       packageHolder onChangeSend:#packageHolderChanged to:self.

    ].

    ^ packageHolder.

!

urlHolder

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

    urlHolder isNil ifTrue:[

        urlHolder := ValueHolder new.

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

"/       urlHolder addDependent:self.

"/       urlHolder onChangeSend:#urlHolderChanged to:self.

    ].

    ^ urlHolder.

! !

!RepositoryConfigurationDialog methodsFor:'validation'!

validate

    | url |

    [url := self url.

    url 

        ifNil:

            [^self canDoAccept: false]

        ifNotNil:

            [url := url asURL.

            url isValidSvnRepositoryUrl 

                ifFalse:[^self canDoAccept: false]

                ifTrue:[self urlHolder setValue: url printString]].

    self canDoAccept: true.                    

        [self canDoAccept: false].

    "Created: / 16-08-2009 / 16:25:55 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!RepositoryConfigurationDialog class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

!

version_SVN

    ^'§Id: SVN__RepositoryConfigurationDialog.st 107 2009-08-16 17:21:27Z vranyj1 §'

! !