--- 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