From c66ef0aed1f8824d916888e308e61ad3ad2ed4e4 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Tue, 23 Jun 2009 19:55:05 +0100
Subject: [PATCH 1/1] Separators between image items in approval

---
 pctb/dictionary-manager | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index 6ade113..81a480e 100755
--- a/pctb/dictionary-manager
+++ b/pctb/dictionary-manager
@@ -1052,6 +1052,11 @@ proc approve_showentry {ix file specdata} {
     } " $def"]
     label $wb-unicode -text $unic
 
+    if {$ix} {
+	label $wb-div -bd 1 -relief sunken -image image/empty
+	grid configure $wb-div -columnspan 5 -sticky ew -padx 5
+    }
+
     frame $wb-act
     button $wb-act.rej -text Reject -command [list approve_reject $ix]
     pack $wb-act.rej
@@ -1152,6 +1157,8 @@ proc main/approve {} {
     pack .right -side right
     pack .ok -side bottom
 
+    image create bitmap image/empty
+
     set approve_page 0
     approve_fetch_list
 }
-- 
2.30.2