# HG changeset patch
# User Thomas Arendsen Hein <thomas@intevation.de>
# Date 1183310125 -7200
# Node ID 4a84f7421692a360508a7a7de392d7f9f9717a52
# Parent  e1d1b22bab579d2e9908398107d88840c7ec58c6
Make hgk handle filenames with spaces (issue49)

diff --git a/contrib/hgk b/contrib/hgk
--- a/contrib/hgk
+++ b/contrib/hgk
@@ -2819,7 +2819,9 @@ proc gettreediffline {gdtf ids} {
 	}
 	return
     }
-    set file [lindex $line 5]
+    set tab1 [expr [string first "\t" $line] + 1]
+    set tab2 [expr [string first "\t" $line $tab1] - 1]
+    set file [string range $line $tab1 $tab2]
     lappend treediff $file
 }