equal
deleted
inserted
replaced
1510 |
1510 |
1511 "Created: / 06-06-2008 / 20:11:22 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1511 "Created: / 06-06-2008 / 20:11:22 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1512 ! |
1512 ! |
1513 |
1513 |
1514 resultListMenuBrowse |
1514 resultListMenuBrowse |
1515 UserPreferences systemBrowserClass |
1515 |rslt test cls selector| |
1516 openInClass: (self selectedResultHolder value test class) selector:(self selectedResultHolder value test selector). |
1516 |
|
1517 rslt := self selectedResultHolder value. |
|
1518 test := rslt test. |
|
1519 test notNil ifTrue:[ |
|
1520 cls := test class. |
|
1521 selector := test selector. |
|
1522 ] ifFalse:[ |
|
1523 cls := Smalltalk classNamed:rslt rawLabel |
|
1524 ]. |
|
1525 |
|
1526 cls notNil ifTrue:[ |
|
1527 UserPreferences systemBrowserClass |
|
1528 openInClass: cls |
|
1529 selector:selector. |
|
1530 ]. |
1517 |
1531 |
1518 "Created: / 23-09-2011 / 18:55:50 / cg" |
1532 "Created: / 23-09-2011 / 18:55:50 / cg" |
1519 ! ! |
1533 ! ! |
1520 |
1534 |
1521 !TestRunner2 methodsFor:'aspects'! |
1535 !TestRunner2 methodsFor:'aspects'! |
1854 ! ! |
1868 ! ! |
1855 |
1869 |
1856 !TestRunner2::ClassList class methodsFor:'documentation'! |
1870 !TestRunner2::ClassList class methodsFor:'documentation'! |
1857 |
1871 |
1858 version |
1872 version |
1859 ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.45 2014-02-05 19:09:00 cg Exp $' |
1873 ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.46 2014-04-16 21:03:08 cg Exp $' |
1860 ! ! |
1874 ! ! |
1861 |
1875 |
1862 !TestRunner2::ClassList methodsFor:'private'! |
1876 !TestRunner2::ClassList methodsFor:'private'! |
1863 |
1877 |
1864 nameListEntryFor:aClass withNameSpace:useFullName |
1878 nameListEntryFor:aClass withNameSpace:useFullName |
2228 realLabel := nil. |
2242 realLabel := nil. |
2229 |
2243 |
2230 "Modified: / 07-02-2010 / 14:36:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2244 "Modified: / 07-02-2010 / 14:36:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2231 ! |
2245 ! |
2232 |
2246 |
|
2247 rawLabel |
|
2248 ^ label. |
|
2249 ! |
|
2250 |
2233 result |
2251 result |
2234 |
2252 |
2235 result ifNil: |
2253 result ifNil: |
2236 [result := self computeResult]. |
2254 [result := self computeResult]. |
2237 ^ result |
2255 ^ result |
2355 ! ! |
2373 ! ! |
2356 |
2374 |
2357 !TestRunner2 class methodsFor:'documentation'! |
2375 !TestRunner2 class methodsFor:'documentation'! |
2358 |
2376 |
2359 version |
2377 version |
2360 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.45 2014-02-05 19:09:00 cg Exp $' |
2378 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.46 2014-04-16 21:03:08 cg Exp $' |
2361 ! |
2379 ! |
2362 |
2380 |
2363 version_CVS |
2381 version_CVS |
2364 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.45 2014-02-05 19:09:00 cg Exp $' |
2382 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.46 2014-04-16 21:03:08 cg Exp $' |
2365 ! |
2383 ! |
2366 |
2384 |
2367 version_SVN |
2385 version_SVN |
2368 ^ '$Id: Tools__TestRunner2.st,v 1.45 2014-02-05 19:09:00 cg Exp $' |
2386 ^ '$Id: Tools__TestRunner2.st,v 1.46 2014-04-16 21:03:08 cg Exp $' |
2369 ! ! |
2387 ! ! |
2370 |
2388 |
2371 |
2389 |
2372 TestRunner2 initialize! |
2390 TestRunner2 initialize! |