Fixes #53: quillinfo written to CWD

lib/quillinfo is now written to the project root, as it should be.
wduquette · Dec 22, 2014 · 745ee6e · 745ee6e
1 parent 35411d7
commit 745ee6e
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/lib/app_quill/project.tcl b/lib/app_quill/project.tcl
@@ -675,10 +675,14 @@ snit::type ::app_quill::project {
         assert {[$type gotinfo]}
 
         # FIRST, save the info to quillinfo.
+        set root [project root lib/quillinfo]
         if {[$type gotapp]} {
-            writefile lib/quillinfo/pkgIndex.tcl   [::qfile::quillinfoPkgIndex]
-            writefile lib/quillinfo/pkgModules.tcl [::qfile::quillinfoPkgModules]
-            writefile lib/quillinfo/quillinfo.tcl  [::qfile::quillinfo.tcl]
+            writefile [project root lib/quillinfo/pkgIndex.tcl]   \
+                [::qfile::quillinfoPkgIndex]
+            writefile [project root lib/quillinfo/pkgModules.tcl] \
+                [::qfile::quillinfoPkgModules]
+            writefile [project root lib/quillinfo/quillinfo.tcl]  \
+                [::qfile::quillinfo.tcl]
         }
 
         # NEXT, update Tcl/Tk versions in apploader scripts.