equal
deleted
inserted
replaced
109 "Modified: / 10-10-2011 / 19:16:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
109 "Modified: / 10-10-2011 / 19:16:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
110 ! |
110 ! |
111 |
111 |
112 doTest |
112 doTest |
113 <resource: #uiCallback> |
113 <resource: #uiCallback> |
|
114 |pkg mgr line| |
114 |
115 |
115 | pkg mgr line | |
116 packageView isNil ifTrue:[ |
116 packageView isNil ifTrue:[^self]. |
117 ^ self |
|
118 ]. |
117 pkg := packageView contents. |
119 pkg := packageView contents. |
118 pkg ifNil:[^self]. |
120 pkg ifNil:[^ self]. |
119 mgr := AbstractSourceCodeManager managerForPackage: pkg. |
121 mgr := AbstractSourceCodeManager managerForPackage:pkg. |
120 line := '%1 -> %2, %3' |
122 line := '%1 -> %2, %3' |
121 bindWith: pkg |
123 bindWith:pkg |
122 with: mgr managerTypeNameShort |
124 with:mgr managerTypeNameShort |
123 with: (mgr repositoryStringForPackage: pkg). |
125 with:(mgr repositoryNameForPackage:pkg). |
124 resultView showCR: line |
126 resultView showCR:line |
125 |
127 |
126 "Modified: / 11-10-2011 / 08:58:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
128 "Modified: / 11-10-2011 / 08:58:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
127 ! ! |
129 ! ! |
128 |
130 |
129 !SourceCodeManagerConfigurationTestTool methodsFor:'aspects'! |
131 !SourceCodeManagerConfigurationTestTool methodsFor:'aspects'! |
152 ! ! |
154 ! ! |
153 |
155 |
154 !SourceCodeManagerConfigurationTestTool class methodsFor:'documentation'! |
156 !SourceCodeManagerConfigurationTestTool class methodsFor:'documentation'! |
155 |
157 |
156 version |
158 version |
157 ^ '$Header: /cvs/stx/stx/libtool/Tools__SourceCodeManagerConfigurationTestTool.st,v 1.1 2011-10-11 11:14:18 vrany Exp $' |
159 ^ '$Header: /cvs/stx/stx/libtool/Tools__SourceCodeManagerConfigurationTestTool.st,v 1.2 2011-10-12 21:10:19 vrany Exp $' |
158 ! |
160 ! |
159 |
161 |
160 version_CVS |
162 version_CVS |
161 ^ '$Header: /cvs/stx/stx/libtool/Tools__SourceCodeManagerConfigurationTestTool.st,v 1.1 2011-10-11 11:14:18 vrany Exp $' |
163 ^ '$Header: /cvs/stx/stx/libtool/Tools__SourceCodeManagerConfigurationTestTool.st,v 1.2 2011-10-12 21:10:19 vrany Exp $' |
162 ! ! |
164 ! ! |