changed:
authorStefan Vogel <sv@exept.de>
Fri, 05 Aug 2011 16:01:37 +0200
changeset 10512 e6b4ff606570
parent 10511 d03f8417d54f
child 10513 cc7a11b7219d
changed: #installInLauncher
Tools__TestRunner2.st
--- 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