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

MCDialog subclass:#MCRepositoryDialog

	instanceVariableNames:'repositoryTypeHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Monticello-St/X UI'

!

!MCRepositoryDialog 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:MCRepositoryDialog andSelector:#contentSpec

     MCRepositoryDialog new openInterface:#contentSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: contentSpec

        window: 

       (WindowSpec

          label: 'Content Spec'

          name: 'Content Spec'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 580 300)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Type:'

              name: 'TypeLabel'

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

              translateLabel: true

            )

           (PopUpListSpec

              label: 'PopUp List'

              name: 'PopUpList1'

              layout: (LayoutFrame 100 0 12 0 0 1 37 0)

              tabable: true

              model: repositoryTypeHolder

              menu: 

             (Array

                'HTTP' 'Local'

              )

            )

           (SubCanvasSpec

              name: 'Info'

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

              hasHorizontalScrollBar: false

              hasVerticalScrollBar: false

              createNewBuilder: false

            )

           )

        )

      )

! !

!MCRepositoryDialog methodsFor:'accessing'!

defaultTitle

    "superclass MCDialog says that I am responsible to implement this method"

    ^ 'Monticello Repository'

    "Created: / 13-10-2010 / 15:01:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MCRepositoryDialog methodsFor:'aspects'!

repositoryTypeHolder

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

    repositoryTypeHolder isNil ifTrue:[

        repositoryTypeHolder := ValueHolder with:'HTTP'.

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

"/       repositoryTypeHolder addDependent:self.

"/       repositoryTypeHolder onChangeSend:#repositoryTypeHolderChanged to:self.

    ].

    ^ repositoryTypeHolder.

    "Modified: / 13-10-2010 / 15:17:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MCRepositoryDialog class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryDialog.st,v 1.2 2012-09-11 21:13:56 cg Exp $'

!

version_CVS

    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryDialog.st,v 1.2 2012-09-11 21:13:56 cg Exp $'

!

version_SVN

    ^ '§Id: MCRepositoryDialog.st 19 2010-10-14 10:51:48Z vranyj1 §'

! !