--- a/VSEChunkFileSourceWriter.st Tue Feb 03 20:37:20 2015 +0100
+++ b/VSEChunkFileSourceWriter.st Tue Feb 03 20:37:27 2015 +0100
@@ -267,6 +267,7 @@
first := true.
classesToFileout do:[:eachClass |
+ self activityNotification:'writing ',eachClass name,'...'.
self
fileOut:eachClass on:aStream
withTimeStamp:first withInitialize:true
@@ -276,6 +277,7 @@
].
"/ fileout extensions
+ self activityNotification:'writing extensions...'.
Smalltalk allClassesDo:[:eachClass |
(classesToFileout includes:eachClass) ifFalse:[
eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
@@ -308,15 +310,16 @@
aStream cr.
].
].
+ self activityNotification:'done.'.
! !
!VSEChunkFileSourceWriter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.8 2015-02-02 15:12:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.9 2015-02-03 19:37:27 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.8 2015-02-02 15:12:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.9 2015-02-03 19:37:27 cg Exp $'
! !