Changeset d007920 in tol for tolbase/lib/toltk/init_toltk.tcl

Timestamp:

Jun 27, 2011, 9:30:08 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

95c8c6d

Parents:

9417624

Message:

on unix location of project.ini could be read only

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3664 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/init_toltk.tcl (modified) (2 diffs)

tolbase/lib/toltk/init_toltk.tcl

@@ -144 +144 @@
   set fileProject [file join $dirPrjIni "project.ini"]
   if {[file exists $fileProject]} {
-    set ok 1
+    set ok [ file writable $fileProject ] 
   } else {
     set fileProject [file join $dir "project.ini"]
     if {[file exists $fileProject]} {
-      set ok 1  
+      set ok [ file writable $fileProject ]  
     }
   }
@@ -154 +154 @@
   if {$ok} {
     set id [iniparse:openfile $fileProject]
-    ::iniFile::Create $fileProject
+    catch { ::iniFile::Create $fileProject }
     set values {}
     foreach prj $iniparse($id,sections) {