contrib/hgk
branchstable
changeset 13463 22f948c027a9
parent 13462 8641cb094c81
child 17958 0f93bbe8deb7
--- a/contrib/hgk	Wed Feb 23 00:25:01 2011 +0100
+++ b/contrib/hgk	Wed Feb 23 00:25:18 2011 +0100
@@ -2355,7 +2355,7 @@
     global lineid linehtag linentag linedtag
     global canvy0 linespc parents nparents children
     global cflist currentid sha1entry
-    global commentend idtags idline linknum
+    global commentend idtags idbookmarks idline linknum
 
     $canv delete hover
     normalline
@@ -2432,6 +2432,14 @@
     }
     $ctext insert end "Author: [lindex $info 1]  [lindex $info 2]\n"
     $ctext insert end "Committer: [lindex $info 3]  [lindex $info 4]\n"
+    if {[info exists idbookmarks($id)]} {
+	$ctext insert end "Bookmarks:"
+	foreach bookmark $idbookmarks($id) {
+	    $ctext insert end " $bookmark"
+	}
+	$ctext insert end "\n"
+    }
+
     if {[info exists idtags($id)]} {
 	$ctext insert end "Tags:"
 	foreach tag $idtags($id) {