chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
WIP new dictionary arrangements
[ypp-sc-tools.main.git]
/
pctb
/
dictionary-manager
diff --git
a/pctb/dictionary-manager
b/pctb/dictionary-manager
index 0037a2a6f57474e6770dea0ad6ab54966874a6d9..49156adc1786115c5f432e6f54c46e47d8eddd58 100755
(executable)
--- a/
pctb/dictionary-manager
+++ b/
pctb/dictionary-manager
@@
-237,7
+237,7
@@
proc required/char {} {
pack .d.csr -side top -before .d.mi
pack .d.got .d.ctx -side top -after .d.mi
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
}
draw_glyphsdone
startup_cursor
}
@@
-294,11
+294,14
@@
proc pixmap_maybe_ok {} {
set nsel 0
foreach_pixmap_col col {
set cs [.d.pe.grid.l$col curselection]
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} {
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 {}
.d.pe.ok configure -state normal -command pixmap_ok
} else {
.d.pe.ok configure -state disabled -command {}
@@
-337,7
+340,7
@@
proc required/pixmap {} {
set alloptions [exec ./dictionary-pixmap-options $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]
set mulcols [image width image/main]
set mulrows [image height image/main]
@@
-1063,4
+1066,5
@@
if {$debug} {
}
set argv [lrange $argv $ai end]
}
set argv [lrange $argv $ai end]
+debug [exec printenv]
main/$mainkind
main/$mainkind