xchanged:
authorClaus Gittinger <cg@exept.de>
Sun, 21 Aug 2011 16:06:47 +0200
changeset 10641 c4a3b12b9c6e
parent 10640 0a2838f81ca2
child 10642 ce2759d1c03b
xchanged: #askForClassToSearch:single:msgTail:resources:thenDo:
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Sun Aug 21 15:48:35 2011 +0200
+++ b/Tools__NewSystemBrowser.st	Sun Aug 21 16:06:47 2011 +0200
@@ -34690,7 +34690,7 @@
     ].
 
     doWhat isNil ifTrue:[
-        aBlock notNil ifTrue:[aBlock value:className].
+        aBlock notNil ifTrue:[aBlock value:className optionalArgument:singleClass and:doWhat].
         ^ className
     ].
 
@@ -34699,7 +34699,7 @@
     ].
     ^ className
 
-    "Modified: / 14-04-2011 / 10:21:40 / cg"
+    "Modified: / 21-08-2011 / 15:46:25 / cg"
 !
 
 askForClassToSearch:doWhatByDefault single:singleClass msgTail:msgTail thenDo:aBlock
@@ -50085,11 +50085,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1598 2011-08-21 13:01:21 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1599 2011-08-21 14:06:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1598 2011-08-21 13:01:21 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1599 2011-08-21 14:06:47 cg Exp $'
 !
 
 version_SVN