"

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

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

SimpleDialog subclass:#ChangeSetSelectionDialog

	instanceVariableNames:'enabledHolder specHolder specLabelList specLabelIndexHolder

		specEditorSpecHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Dialogs'

!

!ChangeSetSelectionDialog class methodsFor:'documentation'!

copyright

"

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

"

! !

!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

              enableChannel: enabledHolder

              menu: specLabelList

              useIndex: true

            )

           (SubCanvasSpec

              name: 'SubCanvas1'

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

              level: 0

              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)

              enableChannel: enabledHolder

              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

            )

           )

        )

      )

!

editorSpecForExplicit

    "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:#editorSpecForExplicit

     Tools::ChangeSetSelectionDialog new openInterface:#editorSpecForExplicit

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: 'editorSpecForExplicit'

        window: 

       (WindowSpec

          label: 'ChangeSet Spec Editor'

          name: 'ChangeSet Spec Editor'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 441 310)

        )

        component: 

       (SpecCollection

          collection: ()

        )

      )

!

editorSpecForFile

    "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:#editorSpecForFile

     Tools::ChangeSetSelectionDialog new openInterface:#editorSpecForFile

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: editorSpecForFile

        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)

              enableChannel: enabledHolder

              model: fileAspect

              acceptOnPointerLeave: true

              viewClassName: FilenameWidgetWithHistory

            )

           (LabelSpec

              label: 'File:'

              name: 'FileLabel'

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

              translateLabel: true

              adjust: left

            )

           )

        )

      )

    "Modified: / 20-03-2012 / 11:13:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

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)

              enableChannel: enabledHolder

              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

              enableChannel: enabledHolder

            )

           )

        )

      )

! !

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

    ^ #(

        #enabledHolder

        #specHolder

      ).

! !

!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>"

!

enabledHolder

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

    enabledHolder isNil ifTrue:[

        enabledHolder := true asValue

    ].

    ^ enabledHolder

    "Modified: / 19-03-2012 / 23:25:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

enabledHolder:something

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

    enabledHolder := something.

!

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>

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