Ченю push

lib/git.tcl

@@ -173,10 +173,13 @@ namespace eval Git {
         lappend cmd "$url"
         # lappend cmd "$activeProject"
         puts "$cmd"
-        # set pipe [open "|$cfgVariables(gitCommand) $cmd" "RDWR"]
+        catch $cmd pipe
-        # fconfigure $pipe -buffering none -blocking no
+        puts $pipe
-        # close $pipe
+        foreach line [split $pipe "\n"] {
-        return
+            # puts "$line"
+            lappend res $line
+        }
+        return $res
     }
         
     proc Merge {} {