Rename yppsc-* helpers

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

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index 26c880750b3ce23a4e60494f2a797e1ee107a5c1..0037a2a6f57474e6770dea0ad6ab54966874a6d9 100755 (executable)
--- a/pctb/dictionary-manager
+++ b/pctb/dictionary-manager
@@ -335,7 +335,7 @@ proc required/pixmap {} {
     set data [exec pnmscale 2 << $ppm]
     image create photo image/main -data $data
 
-    set alloptions [exec ./yppsc-resolver-pixoptions $unk_what]
+    set alloptions [exec ./dictionary-pixmap-options $unk_what]
 
     read_database ./pixmaps.txt
 
@@ -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" }