dictionary-manager approval minor fixes

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index 26c880750b3ce23a4e60494f2a797e1ee107a5c1..a2a82a442de973eff2497b8885c6525145911228 100755 (executable)
--- 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
     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
 }
 
     lappend approve_ixes $ix
 }


@@ -982,7 +982,7 @@ proc approve_show_page {delta} {
     eval destroy [winfo children .app]
     set approve_ixes {}
 
     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]
     incr approve_page $delta
 
     set ll [llength $approve_list]