"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

ApplicationModel subclass:#SourceCodeManagerConfigurationTestTool

	instanceVariableNames:'resultView packageView'

	classVariableNames:''

	poolDictionaries:''

	category:'System-SourceCodeManagement'

!

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

     Tools::SourceCodeManagerConfigurationTestTool new openInterface:#windowSpec

     Tools::SourceCodeManagerConfigurationTestTool open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Source Code Management Configuration Test Tool'

          name: 'Source Code Management Configuration Test Tool'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 579 382)

        )

        component: 

       (SpecCollection

          collection: (

           (ViewSpec

              name: 'Box1'

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

              component: 

             (SpecCollection

                collection: (

                 (LabelSpec

                    label: 'Enter package name and press test'

                    name: 'Label1'

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

                    translateLabel: true

                    adjust: left

                  )

                 (InputFieldSpec

                    name: 'Package'

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

                    model: packageHolder

                    immediateAccept: false

                    acceptOnLeave: false

                    acceptOnReturn: true

                    acceptOnTab: false

                    acceptOnPointerLeave: false

                    acceptIfUnchanged: true

                    valueChangeCallBackSelector: doTest

                    postBuildCallback: postBuildPackageView:

                  )

                 (ActionButtonSpec

                    label: 'Test'

                    name: 'Button2'

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

                    translateLabel: true

                    model: doTest

                  )

                 (TextEditorSpec

                    name: 'Result'

                    layout: (LayoutFrame 0 0 70 0 0 1 0 1)

                    hasHorizontalScrollBar: true

                    hasVerticalScrollBar: true

                    hasKeyboardFocusInitially: false

                    viewClassName: 'TextCollector'

                    postBuildCallback: postBuildResultView:

                  )

                 )

              )

            )

           (ActionButtonSpec

              label: 'Close'

              name: 'Button1'

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

              translateLabel: true

              model: doClose

            )

           )

        )

      )

! !

!SourceCodeManagerConfigurationTestTool methodsFor:'actions'!

doClose

    <resource: #uiCallback>

    self closeRequest

    "Modified: / 10-10-2011 / 19:16:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doTest

    <resource: #uiCallback>

    pkg := packageView contents.

    line := '%1 -> %2, %3' 

    "Modified: / 11-10-2011 / 08:58:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SourceCodeManagerConfigurationTestTool methodsFor:'aspects'!

packageHolder

    ^ValueHolder new

    "Created: / 11-10-2011 / 09:00:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SourceCodeManagerConfigurationTestTool methodsFor:'callbacks'!

postBuildPackageView: aView

    packageView := aView

    "Created: / 11-10-2011 / 08:57:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

postBuildResultView: aView

    resultView := aView

    "Created: / 10-10-2011 / 19:21:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SourceCodeManagerConfigurationTestTool class methodsFor:'documentation'!

version

!

version_CVS

! !