Separators between image items in approval

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index 6ade11380042f7c0e5e2e44067730413c6f5b723..81a480ef476a0278f84f6a7bd6a1f85e66899efa 100755 (executable)
--- 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
 }