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