--- a/Tools__NewSystemBrowser.st Fri Jul 12 07:50:20 2013 +0200
+++ b/Tools__NewSystemBrowser.st Fri Jul 12 13:09:57 2013 +0200
@@ -40157,9 +40157,10 @@
|tag|
- tag := Dialog request:'Tag:'.
+ tag := Dialog request:'Tag:' initialAnswer:(CVSSourceCodeManager recentTag).
tag isEmptyOrNil ifTrue:[^ self].
+ CVSSourceCodeManager recentTag:tag.
self projectMenuFindClassesNotTaggedAs:tag
!
@@ -59460,15 +59461,15 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1936 2013-07-09 12:16:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1937 2013-07-12 11:09:57 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1936 2013-07-09 12:16:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1937 2013-07-12 11:09:57 cg Exp $'
!
version_SVN
- ^ '$Id: Tools__NewSystemBrowser.st,v 1.1936 2013-07-09 12:16:04 cg Exp $'
+ ^ '$Id: Tools__NewSystemBrowser.st,v 1.1937 2013-07-12 11:09:57 cg Exp $'
! !