diff -r 86df5844137f -r 0c49a3b13e43 Tools__SourceCodeManagerConfigurationTestTool.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Tools__SourceCodeManagerConfigurationTestTool.st	Sun Jan 29 15:33:37 2012 +0000
@@ -0,0 +1,164 @@
+"{ 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 mgr line|
+
+    packageView isNil ifTrue:[
+        ^ self
+    ].
+    pkg := packageView contents.
+    pkg ifNil:[^ self].
+    mgr := AbstractSourceCodeManager managerForPackage:pkg.
+    line := '%1 -> %2, %3' 
+                bindWith:pkg
+                with:mgr managerTypeNameShort
+                with:(mgr repositoryNameForPackage:pkg).
+    resultView showCR:line
+
+    "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
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__SourceCodeManagerConfigurationTestTool.st,v 1.2 2011/10/12 21:10:19 vrany Exp $'
+!
+
+version_CVS
+    ^ '§Header: /cvs/stx/stx/libtool/Tools__SourceCodeManagerConfigurationTestTool.st,v 1.2 2011/10/12 21:10:19 vrany Exp §'
+! !
\ No newline at end of file