# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1461260094 -7200
# Node ID 4e75a66b42af24733a82160152203ca175ed509f
# Parent  15b8e734190acf68811b4493b1066a3f4059d598
#UI_ENHANCEMENT by cg
class: Tools::InternationalLanguageTranslationEditor
changed: #extractTranslationsFromProject
waitcu8rsor

diff -r 15b8e734190a -r 4e75a66b42af Tools__InternationalLanguageTranslationEditor.st
--- a/Tools__InternationalLanguageTranslationEditor.st	Tue Apr 19 16:31:06 2016 +0200
+++ b/Tools__InternationalLanguageTranslationEditor.st	Thu Apr 21 19:34:54 2016 +0200
@@ -1696,17 +1696,18 @@
     lastExtractedProject := LastExtractedProject := projectID.
 
     newTranslations := Set new.
-
-    Smalltalk allClassesDo:[:eachClass |
-        eachClass theNonMetaclass instAndClassMethodsDo:[:eachMethod |
-            eachMethod package == projectID ifTrue:[ 
-                newTranslations addAll:( self extractTranslationsFromMethod:eachMethod ).
-            ]
+    self withWaitCursorDo:[
+        Smalltalk allClassesDo:[:eachClass |
+            eachClass theNonMetaclass instAndClassMethodsDo:[:eachMethod |
+                eachMethod package == projectID ifTrue:[ 
+                    newTranslations addAll:( self extractTranslationsFromMethod:eachMethod ).
+                ]
+            ].
         ].
+
+        self addAllTranslations:newTranslations.
     ].
-
-    self addAllTranslations:newTranslations.
-
+    
     "Modified: / 19-02-2015 / 11:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !