"{ NameSpace: Tools }"

SimpleDialog subclass:#ChangeSetSelectionDialog

	instanceVariableNames:'specHolder specLabelList specLabelIndexHolder

		specEditorSpecHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Dialogs'

!

!ChangeSetSelectionDialog class methodsFor:'instance creation'!

requestChangeSet: title

    | dialog |

    dialog := self new.

    ^(dialog open) 

        ifTrue:[dialog specHolder value changeSet]

        ifFalse:[nil].

    "Created: / 06-07-2011 / 10:52:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetSelectionDialog 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:Tools::ChangeSetSelectionDialog andSelector:#windowSpec

     Tools::ChangeSetSelectionDialog new openInterface:#windowSpec

     Tools::ChangeSetSelectionDialog open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Select Changeset'

          name: 'Select Changeset'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 631 436)

        )

        component: 

       (SpecCollection

          collection: (

           (UISubSpecification

              name: 'Content'

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

              minorKey: windowSpecForEmbedding

            )

           (HorizontalPanelViewSpec

              name: 'ButtonPanel'

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

              horizontalLayout: fitSpace

              verticalLayout: center

              horizontalSpace: 3

              verticalSpace: 2

              reverseOrderIfOKAtLeft: true

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'Cancel'

                    name: 'Button2'

                    translateLabel: true

                    model: doCancel

                    extent: (Point 311 22)

                  )

                 (ActionButtonSpec

                    label: 'OK'

                    name: 'Button1'

                    translateLabel: true

                    model: doAccept

                    enableChannel: doAcceptEnabledHolder

                    extent: (Point 311 22)

                  )

                 )

              )

            )

           )

        )

      )

!

windowSpecForEmbedding

    "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:Tools::ChangeSetSelectionDialog andSelector:#windowSpecForEmbedding

     Tools::ChangeSetSelectionDialog new openInterface:#windowSpecForEmbedding

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpecForEmbedding

        window: 

       (WindowSpec

          label: 'Select Changeset (embedding)'

          name: 'Select Changeset (embedding)'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 406 337)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Source:'

              name: 'SpecTypeLabel'

              layout: (LayoutFrame 3 0 3 0 100 0 25 0)

              translateLabel: true

              adjust: left

            )

           (PopUpListSpec

              label: 'Select...'

              name: 'SpecType'

              layout: (LayoutFrame 103 0 3 0 -3 1 25 0)

              tabable: true

              model: specLabelIndexHolder

              menu: specLabelList

              useIndex: true

            )

           (SubCanvasSpec

              name: 'SubCanvas1'

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

              hasHorizontalScrollBar: false

              hasVerticalScrollBar: false

              specHolder: specEditorSpecHolder

              createNewBuilder: false

            )

           )

        )

      )

! !

!ChangeSetSelectionDialog class methodsFor:'interface specs - editors'!

editorSpecForDirectory

    "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:Tools::ChangeSetSelectionDialog andSelector:#editorSpecForDirectory

     Tools::ChangeSetSelectionDialog new openInterface:#editorSpecForDirectory

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: editorSpecForDirectory

        window: 

       (WindowSpec

          label: 'Directory Spec Editor'

          name: 'Directory Spec Editor'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 441 310)

        )

        component: 

       (SpecCollection

          collection: (

           (FilenameInputFieldSpec

              name: 'Directory'

              layout: (LayoutFrame 103 0 0 0 0 1 22 0)

              model: directoryAspect

              acceptOnPointerLeave: true

              viewClassName: FilenameWidgetWithHistory

            )

           (LabelSpec

              label: 'Directory:'

              name: 'Label1'

              layout: (LayoutFrame 0 0 3 0 100 0 22 0)

              translateLabel: true

              adjust: left

            )

           )

        )

      )

!

editorSpecForPackage

    "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:Tools::ChangeSetSelectionDialog andSelector:#editorSpecForPackage

     Tools::ChangeSetSelectionDialog new openInterface:#editorSpecForPackage

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: 'editorSpecForPackage'

        window: 

       (WindowSpec

          label: 'Package Spec Editor'

          name: 'Package Spec Editor'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 441 310)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Package:'

              name: 'Label1'

              layout: (LayoutFrame 0 0 3 0 100 0 22 0)

              translateLabel: true

              adjust: left

            )

           (InputFieldSpec

              name: 'EntryField1'

              layout: (LayoutFrame 103 0 0 0 -25 1 25 0)

              model: packageAspect

              acceptOnReturn: true

              acceptOnTab: true

              acceptOnPointerLeave: true

              entryCompletionBlock: packageCompletionBlock

            )

           (ActionButtonSpec

              label: '...'

              name: 'Button1'

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

              translateLabel: true

              model: selectPackage

            )

           )

        )

      )

! !

!ChangeSetSelectionDialog 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)."

    ^ #(

        #specHolder

      ).

    "Modified: / 06-07-2011 / 10:57:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetSelectionDialog methodsFor:'actions'!

selectPackage

    <resource: #uiCallback>

    self packageAspect value: 

        (Dialog requestProject:'Select package' 

                initialAnswer:nil 

                suggestions:#())

    "Modified: / 06-07-2011 / 10:43:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetSelectionDialog methodsFor:'aspects'!

doAcceptEnabledHolder

    <resource: #uiAspect>

    |holder|

    (holder := builder bindingAt:#doAcceptEnabledHolder) isNil ifTrue:[

        holder := (AspectAdaptor forAspect:#notNil)

                    subjectChannel: self specHolder.

        builder aspectAt:#doAcceptEnabledHolder put:holder.

    ].

    ^ holder.

    "Created: / 06-07-2011 / 10:48:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

specEditorSpecHolder

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

    specEditorSpecHolder isNil ifTrue:[

        specEditorSpecHolder := ValueHolder new.

    ].

    ^ specEditorSpecHolder

!

specHolder

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

    specHolder isNil ifTrue:[

        specHolder := ValueHolder new.

        specHolder addDependent:self.

    ].

    ^ specHolder

!

specHolder:something

    "set the 'specHolder' value holder (automatically generated)"

    |oldValue newValue|

    specHolder notNil ifTrue:[

        oldValue := specHolder value.

        specHolder removeDependent:self.

    ].

    specHolder := something.

    specHolder notNil ifTrue:[

        specHolder addDependent:self.

    ].

    newValue := specHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:specHolder.

    ].

!

specLabelIndexHolder

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

    specLabelIndexHolder isNil ifTrue:[

        specLabelIndexHolder := ValueHolder new.

        specLabelIndexHolder addDependent:self.

    ].

    ^ specLabelIndexHolder

!

specLabelIndexHolder:something

    "set the 'specLabelIndexHolder' value holder (automatically generated)"

    |oldValue newValue|

    specLabelIndexHolder notNil ifTrue:[

        oldValue := specLabelIndexHolder value.

        specLabelIndexHolder removeDependent:self.

    ].

    specLabelIndexHolder := something.

    specLabelIndexHolder notNil ifTrue:[

        specLabelIndexHolder addDependent:self.

    ].

    newValue := specLabelIndexHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:specLabelIndexHolder.

    ].

!

specLabelList

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

    specLabelList isNil ifTrue:[

        specLabelList := List withAll:

            (ChangeSetSpec specClasses collect:[:cls|cls label])

    ].

    ^ specLabelList.

    "Modified: / 05-07-2011 / 23:35:19 / jv"

    "Created: / 06-07-2011 / 09:49:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetSelectionDialog methodsFor:'aspects - spec'!

directoryAspect

    <resource: #uiAspect>

    |holder|

    (holder := builder bindingAt:#directoryAspect) isNil ifTrue:[

        holder := (AspectAdaptor forAspect:#directory)

                    subjectChannel: self specHolder.

        builder aspectAt:#directoryAspect put:holder.

    ].

    ^ holder.

    "Modified: / 06-07-2011 / 10:28:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

packageAspect

    <resource: #uiAspect>

    |holder|

    (holder := builder bindingAt:#packageAspect) isNil ifTrue:[

        holder := (AspectAdaptor forAspect:#package)

                    subjectChannel: self specHolder.

        builder aspectAt:#packageAspect put:holder.

    ].

    ^ holder.

    "Created: / 06-07-2011 / 10:28:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

packageCompletionBlock

    ^DoWhatIMeanSupport packageNameEntryCompletionBlock

    "Created: / 06-07-2011 / 10:45:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetSelectionDialog methodsFor:'change & update'!

update:something with:aParameter from:changedObject 

    changedObject == specLabelIndexHolder 

        ifTrue:

            [ self updateSpec.

            ^ self. ].

    changedObject == specHolder 

        ifTrue:

            [ self updateSpecEditor.

            ^ self. ].

    super 

        update:something

        with:aParameter

        from:changedObject

    "Modified: / 05-07-2011 / 23:53:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateSpec

    |changeSetSpecClass changeSetSpec|

    changeSetSpecClass := ChangeSetSpec specClasses 

                at:specLabelIndexHolder value.

    changeSetSpec := changeSetSpecClass new.

    self specHolder value:changeSetSpec.

    "Created: / 05-07-2011 / 23:51:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateSpecEditor

    | spec |

    spec := self specHolder value.

    spec ifNil:[

        self specEditorSpecHolder value: nil

    ] ifNotNil:[

        self specEditorSpecHolder value: spec editorSpecSelector    

    ]

    "Created: / 05-07-2011 / 23:53:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetSelectionDialog class methodsFor:'documentation'!

version_CVS