From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 20 Jun 2009 19:57:28 +0000 (+0100)
Subject: dictionary-manager approval minor fixes
X-Git-Tag: 1.9.2~109
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=ebff4279347400f87f24bd9dbf7f655f425c132e;p=ypp-sc-tools.git

dictionary-manager approval minor fixes
---

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index 26c8807..a2a82a4 100755
--- a/pctb/dictionary-manager
+++ b/pctb/dictionary-manager
@@ -882,7 +882,7 @@ proc approve_showentry {ix file specdata} {
     pack $wb-act.rej
 
     grid $wb-def $wb-image $wb-act $wb-inf -padx 3
-    grid configure $wb-image -ipadx 3 -ipady 3
+    grid configure $wb-image -ipadx 3 -ipady 3 -sticky w
 
     lappend approve_ixes $ix
 }
@@ -982,7 +982,7 @@ proc approve_show_page {delta} {
     eval destroy [winfo children .app]
     set approve_ixes {}
 
-    set per_page 2
+    set per_page 10
     incr approve_page $delta
 
     set ll [llength $approve_list]