equal
deleted
inserted
replaced
1701 "/ only left here for backward compatibility... |
1701 "/ only left here for backward compatibility... |
1702 |
1702 |
1703 |lastResult| |
1703 |lastResult| |
1704 |
1704 |
1705 lastResult := cls lastTestRunResultOrNil. |
1705 lastResult := cls lastTestRunResultOrNil. |
1706 |
1706 lastResult notNil ifTrue:[ |
1707 lastResult == true ifTrue:[ |
1707 lastResult == TestResult statePass ifTrue:[ |
1708 ^ self testCasePassedIcon |
1708 ^ self testCasePassedIcon |
1709 ]. |
1709 ]. |
1710 lastResult == false ifTrue:[ |
1710 lastResult == TestResult stateFail ifTrue:[ |
1711 ^ self testCaseFailedIcon |
1711 ^ self testCaseFailedIcon |
|
1712 ]. |
|
1713 lastResult == TestResult stateError ifTrue:[ |
|
1714 ^ self testCaseErrorIcon |
|
1715 ]. |
1712 ]. |
1716 ]. |
1713 ^ self testCaseUnknownResultIcon |
1717 ^ self testCaseUnknownResultIcon |
1714 |
1718 |
1715 "Modified: / 06-08-2006 / 11:14:12 / cg" |
1719 "Modified: / 06-08-2006 / 11:14:12 / cg" |
|
1720 ! |
|
1721 |
|
1722 testCaseErrorIcon |
|
1723 <resource: #programImage> |
|
1724 |
|
1725 "/ only left here for backward compatibility... |
|
1726 ^ ToolbarIconLibrary testCaseErrorIcon |
1716 ! |
1727 ! |
1717 |
1728 |
1718 testCaseFailedIcon |
1729 testCaseFailedIcon |
1719 <resource: #programImage> |
1730 <resource: #programImage> |
1720 |
1731 |
6000 ! ! |
6011 ! ! |
6001 |
6012 |
6002 !SystemBrowser class methodsFor:'documentation'! |
6013 !SystemBrowser class methodsFor:'documentation'! |
6003 |
6014 |
6004 version_CVS |
6015 version_CVS |
6005 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.314 2013-04-25 13:11:19 stefan Exp $' |
6016 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.315 2013-04-28 13:48:42 cg Exp $' |
6006 ! |
6017 ! |
6007 |
6018 |
6008 version_SVN |
6019 version_SVN |
6009 ^ '§Id: SystemBrowser.st 7772 2011-06-08 21:59:15Z vranyj1 §' |
6020 ^ '§Id: SystemBrowser.st 7772 2011-06-08 21:59:15Z vranyj1 §' |
6010 ! ! |
6021 ! ! |