--- a/BeeProjectDefinitionWriter.st Mon Nov 02 20:30:10 2015 +0000
+++ b/BeeProjectDefinitionWriter.st Tue Nov 03 07:19:15 2015 +0000
@@ -60,14 +60,34 @@
classes do:[:class |
stream nextPutAll: 'project addClass: '; nextPutAll: class name storeString; nextPutAll: '.'; cr.
- ]
+ ].
+ stream cr.
- "Modified: / 02-11-2015 / 19:14:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 03-11-2015 / 07:05:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
fileOutExtensions:methods on: stream
- "Modified: / 02-11-2015 / 19:15:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ stream nextPutAll: '#('; cr.
+ methods do:[:method |
+ stream nextPut:'''';
+ nextPutAll: method mclass name;
+ nextPutAll: '>>';
+ nextPutAll: method seelctore;
+ nextPut:'''';
+ cr.
+ ].
+ stream nextPutAll: ') do: [:string | project addMethod: string].'
+
+ "Modified: / 03-11-2015 / 07:07:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+fileOutFooterOn:aStream
+ aStream cr.
+ aStream cr.
+ aStream nextPutAll: '^ project'.
+
+ "Created: / 03-11-2015 / 23:05:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
fileOutHeaderOn:aStream
@@ -92,3 +112,10 @@
"Modified: / 02-11-2015 / 19:16:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!BeeProjectDefinitionWriter class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+