WIP overhaul of plumbing, databases, etc.

[ypp-sc-tools.db-test.git] / pctb / dictionary-manager

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index 26c880750b3ce23a4e60494f2a797e1ee107a5c1..aaa9e132e457297435b425d0c58cc6f6e8a84a87 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
-    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]
@@ -1051,7 +1051,7 @@ foreach arg $argv {
        {--debug-server}    { proc debug {m} { puts stderr "DICT-MGR-SVR $m" }}
        {--noop-arg}        { }
        {--approve-updates} { set mainkind approve; break }
-       {--automatic-1}     { set mainkind automatic }
+       {--automatic-1}     { set mainkind automatic; break }
        {--remote-server-1} { set mainkind remoteserv; break }
        {--automatic*} - {--remote-server}
                            { error "incompatible versions - install problem" }