"{ Package: 'stx:libtool' }"

"{ 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
    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetSelectionDialog.st,v 1.2 2011-10-02 19:52:17 stefan Exp $'
! !