pack .d.csr -side top -before .d.mi
pack .d.got .d.ctx -side top -after .d.mi
- read_database ./charset-$rows.txt
+ read_database "./#local-char$rows#.txt"
draw_glyphsdone
startup_cursor
}
set nsel 0
foreach_pixmap_col col {
set cs [.d.pe.grid.l$col curselection]
- incr nsel [llength $cs]
+ set lcs [llength $cs]
+ if {!$lcs} continue
+ incr nsel $lcs
set pixmap_selcol $col
set pixmap_selrow [lindex $cs 0]
}
if {$nsel==1} {
+ debug "MAYBE_OK YES col=$pixmap_selcol row=$pixmap_selrow."
.d.pe.ok configure -state normal -command pixmap_ok
} else {
.d.pe.ok configure -state disabled -command {}
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
+ read_database "./#local-pixmap#.txt"
set mulcols [image width image/main]
set mulrows [image height image/main]
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
}
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]
{--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" }
}
set argv [lrange $argv $ai end]
+debug [exec printenv]
main/$mainkind