From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Tue, 23 Jun 2009 18:55:05 +0000 (+0100)
Subject: Separators between image items in approval
X-Git-Tag: 1.9.2~90^2~38
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=commitdiff_plain;h=c66ef0aed1f8824d916888e308e61ad3ad2ed4e4

Separators between image items in approval
---

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
 }