--- a/Tools__TestRunner2.st Fri Aug 05 15:53:35 2011 +0200
+++ b/Tools__TestRunner2.st Fri Aug 05 16:01:37 2011 +0200
@@ -112,35 +112,35 @@
!
installInLauncher
- "Install in Tools menu"
-
|menuItem|
NewLauncher isNil ifTrue:[^ self].
+ "Install in Tools menu"
menuItem := (MenuItem label:'SUnit Test Runner (enhanced)')
nameKey:'TestRunner2';
labelImage:(NewLauncher startSUnitIcon);
- value:[ Tools::TestRunner2 open ];
+ value:[ self open ];
isButton:false.
NewLauncher
addMenuItem:menuItem
from:self
in:'menu.tools.programming'
- position:#( #after #startSUnitTestRunner )
+ position:#( after startSUnitTestRunner )
space:false.
"Install in Toolbar"
menuItem := (MenuItem new)
nameKey:#'TestRunner2';
- "label: 'SUnit Test Runner (enhanced)'" icon:(NewLauncher startSUnitIcon);
- value:[ Tools::TestRunner2 open ];
+ "label: 'SUnit Test Runner (enhanced)'"
+ icon:(NewLauncher startSUnitIcon);
+ value:[ self open ];
isButton:true.
NewLauncher
addMenuItem:menuItem
from:self
in:'toolbar'
- position:#( #before #garbageCollect )
+ position:#( before garbageCollect )
space:false.
"Created: / 09-06-2008 / 11:11:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -1683,7 +1683,7 @@
!TestRunner2::ClassList class methodsFor:'documentation'!
version
- ^'$Id: Tools__TestRunner2.st,v 1.14 2011-08-05 13:53:35 stefan Exp $'
+ ^'$Id: Tools__TestRunner2.st,v 1.15 2011-08-05 14:01:37 stefan Exp $'
! !
!TestRunner2::ClassList methodsFor:'private'!
@@ -2182,7 +2182,7 @@
!TestRunner2 class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.14 2011-08-05 13:53:35 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.15 2011-08-05 14:01:37 stefan Exp $'
!
version_SVN