GiTK running fixed

procedure.tcl

@@ -856,7 +856,7 @@ proc DoModule {mod} {
     }
     close $file
     
-    puts $dir
+    #puts "project dir - $dir"
     
     set curDir [pwd]
     case $mod {
@@ -928,6 +928,8 @@ proc DoModule {mod} {
             fconfigure $pipe -buffering none -blocking no
         }
         gitk {
+            cd $dir
+            #puts "========== $projDir $dir $curDir"
             set pipe [open "|$module(gitk)" "r"]
             fileevent $pipe readable
             fconfigure $pipe -buffering none -blocking no
@@ -1090,3 +1092,7 @@ proc TextOperation {oper} {
 
 
 
+
+
+
+

projects.tcl

@@ -905,3 +905,4 @@ proc InsertTitle {newFile type} {
 }
 
 
+