Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changed: #classMenuSetTag
authorClaus Gittinger <cg@exept.de>
Thu, 13 Jan 2011 14:14:35 +0100
changeset 9682 d3aacf8df479
parent 9681 00195b8c6cf6
child 9683 83fb945b7a5a
changed: #classMenuSetTag
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Thu Jan 13 13:16:26 2011 +0100
+++ b/NewSystemBrowser.st	Thu Jan 13 14:14:35 2011 +0100
@@ -24156,17 +24156,28 @@
 classMenuSetTag
     |log tag knownTags|
 
-    knownTags := Set new.
-    self selectedNonMetaclasses do:[:eachClass |
-        log := eachClass sourceCodeManager revisionLogOf:eachClass fromRevision:nil toRevision:nil finishAfter:20.
-        knownTags addAll:(log at:#symbolicNames) keys.
-    ].
-    knownTags := knownTags asSortedCollection.
-
-    tag := Dialog 
+    (Dialog confirm:'Fetch known tags to choose from ?\(this may take some time)' withCRs) ifTrue:[
+        knownTags := Set new.
+        self selectedNonMetaclasses do:[:eachClass |
+            log := eachClass sourceCodeManager revisionLogOf:eachClass fromRevision:nil toRevision:nil finishAfter:20.
+            log isNil ifTrue:[
+                (Dialog confirm:'Oops - could not fetch log for %1 (cvs connection error?)\\Skip this class and proceed?' withCRs)
+                ifFalse:[
+                    ^ self.
+                ].
+            ].
+            knownTags addAll:(log at:#symbolicNames) keys.
+        ].
+        knownTags := knownTags asSortedCollection.
+        tag := Dialog 
+                    request:(resources string:'Tag:')
+                    initialAnswer:LastTag  
+                    list:knownTags.  
+    ] ifFalse:[
+        tag := Dialog 
                 request:(resources string:'Tag:')
-                initialAnswer:LastTag  
-                list:knownTags.  
+                initialAnswer:LastTag.  
+    ].
     tag isEmptyOrNil ifTrue:[^ self ].
 
     LastTag := tag.
@@ -24175,6 +24186,7 @@
     ]
 
     "Created: / 12-09-2006 / 13:36:59 / cg"
+    "Modified: / 13-01-2011 / 14:12:40 / cg"
 !
 
 classMenuShortRevisionLog
@@ -44779,11 +44791,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1497 2010-12-22 17:44:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1498 2011-01-13 13:14:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1497 2010-12-22 17:44:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1498 2011-01-13 13:14:35 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Thu Jan 13 13:16:26 2011 +0100
+++ b/Tools__NewSystemBrowser.st	Thu Jan 13 14:14:35 2011 +0100
@@ -24156,17 +24156,28 @@
 classMenuSetTag
     |log tag knownTags|
 
-    knownTags := Set new.
-    self selectedNonMetaclasses do:[:eachClass |
-        log := eachClass sourceCodeManager revisionLogOf:eachClass fromRevision:nil toRevision:nil finishAfter:20.
-        knownTags addAll:(log at:#symbolicNames) keys.
-    ].
-    knownTags := knownTags asSortedCollection.
-
-    tag := Dialog 
+    (Dialog confirm:'Fetch known tags to choose from ?\(this may take some time)' withCRs) ifTrue:[
+        knownTags := Set new.
+        self selectedNonMetaclasses do:[:eachClass |
+            log := eachClass sourceCodeManager revisionLogOf:eachClass fromRevision:nil toRevision:nil finishAfter:20.
+            log isNil ifTrue:[
+                (Dialog confirm:'Oops - could not fetch log for %1 (cvs connection error?)\\Skip this class and proceed?' withCRs)
+                ifFalse:[
+                    ^ self.
+                ].
+            ].
+            knownTags addAll:(log at:#symbolicNames) keys.
+        ].
+        knownTags := knownTags asSortedCollection.
+        tag := Dialog 
+                    request:(resources string:'Tag:')
+                    initialAnswer:LastTag  
+                    list:knownTags.  
+    ] ifFalse:[
+        tag := Dialog 
                 request:(resources string:'Tag:')
-                initialAnswer:LastTag  
-                list:knownTags.  
+                initialAnswer:LastTag.  
+    ].
     tag isEmptyOrNil ifTrue:[^ self ].
 
     LastTag := tag.
@@ -24175,6 +24186,7 @@
     ]
 
     "Created: / 12-09-2006 / 13:36:59 / cg"
+    "Modified: / 13-01-2011 / 14:12:40 / cg"
 !
 
 classMenuShortRevisionLog
@@ -44779,11 +44791,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1497 2010-12-22 17:44:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1498 2011-01-13 13:14:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1497 2010-12-22 17:44:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1498 2011-01-13 13:14:35 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool