Fix in "Generate build support files in" menu item. jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 02 Feb 2016 10:25:03 +0000
branchjv
changeset 16105 fecd75656e55
parent 16093 a0705d7461fd
child 16106 9032df14f38c
Fix in "Generate build support files in" menu item. Take care of build files generated to a subdirectory. If it does not exist in the target directory, create it.
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Thu Jan 28 06:50:32 2016 +0100
+++ b/Tools__NewSystemBrowser.st	Tue Feb 02 10:25:03 2016 +0000
@@ -42403,11 +42403,17 @@
     self activityNotification:(resources string:'generating build-support files...').
     self withActivityNotificationsRedirectedToInfoLabelDo:[
         defClass forEachFileNameAndGeneratedContentsDo:[:fileName :fileContents |
-            (directory construct:fileName) contents:fileContents.
+            | file |
+
+            file := directory construct:fileName.
+            file directory recursiveMakeDirectory.
+            file contents:fileContents.
         ].
     ].
 
     self activityNotification:nil.
+
+    "Modified: / 02-02-2016 / 09:41:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 projectMenuGeneratePatchSet