class: Tools::NewSystemBrowser
authorClaus Gittinger <cg@exept.de>
Fri, 12 Jul 2013 13:09:57 +0200
changeset 13158 9d511dd58ee9
parent 13157 5226414cb2c1
child 13159 f3fce60b6e52
class: Tools::NewSystemBrowser changed: #projectMenuFindNotTaggedClasses
Tools__NewSystemBrowser.st
--- 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 $'
 ! !