--- a/common/SCMAbstractFileoutLikeTask.st	Sat Jun 29 23:53:57 2013 +0100
+++ b/common/SCMAbstractFileoutLikeTask.st	Sun Jun 30 12:55:18 2013 +0100
@@ -162,15 +162,17 @@
                     (metaCls compiledMethodAt:#copyright) 
                         setPackage:self package name asSymbol
                     ].
-            ProgressNotification 
-                notify:('Compiling %1 (%2)' bindWith:#copyright
-                        with:cls nameWithoutPrefix)
-                progress:(100 / klasses size) * index.
+            ProgressNotification newException
+                messageText: ('Compiling %1 (%2)' bindWith:#copyright
+                                                      with:cls nameWithoutPrefix);
+                parameter: (100 / klasses size) * index;
+                raiseRequest.
+
         ]
 
     "Modified: / 16-08-2009 / 12:59:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Created: / 08-04-2010 / 14:31:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 05-12-2012 / 12:02:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-06-2013 / 12:44:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doCompileVersionMethods
@@ -197,10 +199,11 @@
                             setPackage:self package name asSymbol
                     ].
             self package manager utilities ensureCorrectVersionMethodsInClass: cls usingManager: self package manager.
-            ProgressNotification 
-                notify:('Compiling %1 (%2)' bindWith:versionMethodName
-                        with:cls nameWithoutPrefix)
-                progress:(100 / klasses size) * index.
+            ^ ProgressNotification newException
+                messageText: ('Compiling %1 (%2)' bindWith:versionMethodName
+                                                      with:cls nameWithoutPrefix);
+                parameter: (100 / klasses size) * index;
+                raiseRequest     
         ].
 
     self extensionMethodsToFileOut notEmpty ifTrue:[
@@ -221,7 +224,7 @@
     "Created: / 28-05-2008 / 07:43:43 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 16-08-2009 / 12:59:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 07-07-2011 / 20:15:21 / jv"
-    "Modified: / 16-11-2012 / 23:17:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-06-2013 / 12:43:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doFileOut
@@ -259,14 +262,17 @@
     klasses 
         withIndexDo:[:cls :index | 
             |clsStream|
+            ProgressNotification newException
+                messageText: 'Filing out ' , cls nameWithoutPrefix;
+                parameter: (100 / klasses size) * index;
+                raiseRequest.
 
-            ProgressNotification notify:'Filing out ' , cls nameWithoutPrefix
-                progress:(100 / klasses size) * index.
-            (self shouldFileOutClass:cls) ifTrue:[self package fileOutClass: cls]]
+            (self shouldFileOutClass:cls) ifTrue:[self package fileOutClass: cls]
+        ].
 
     "Created: / 11-04-2008 / 10:58:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 19-08-2009 / 13:44:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 15-11-2012 / 00:26:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-06-2013 / 00:16:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doFileOutPackageExtensions
@@ -581,4 +587,3 @@
 version_SVN
     ^ '§Id::                                                                                                                        §'
 ! !
-