--- a/contrib/hgk Tue Sep 04 18:37:28 2007 +0200 +++ b/contrib/hgk Wed Sep 05 21:53:59 2007 +0200 @@ -3755,4 +3755,6 @@ setcoords makewindow readrefs +set hgroot [exec $env(HG) root] +wm title . "hgk $hgroot" getcommits $revtreeargs