chiark / gitweb /
Separators between image items in approval
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Tue, 23 Jun 2009 18:55:05 +0000 (19:55 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Tue, 23 Jun 2009 18:55:05 +0000 (19:55 +0100)
pctb/dictionary-manager

index 6ade113..81a480e 100755 (executable)
@@ -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
 }