chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Display Unicode decodings
[ypp-sc-tools.db-test.git]
/
pctb
/
dictionary-manager
diff --git
a/pctb/dictionary-manager
b/pctb/dictionary-manager
index 7284b374cc666852e7d4562372562f4ebe4c258d..6ade11380042f7c0e5e2e44067730413c6f5b723 100755
(executable)
--- a/
pctb/dictionary-manager
+++ b/
pctb/dictionary-manager
@@
-488,7
+488,7
@@
proc maybe_upload_entry {im def} {
set query [eval ::http::formatQuery $pl]
regsub -all {%0d} $query {} query
set query [eval ::http::formatQuery $pl]
regsub -all {%0d} $query {} query
- debug "DB-UPDATE QUERY
[string range $query 0 200]...
"
+ debug "DB-UPDATE QUERY
$query
"
if {[regexp {^\.?/} $url]} {
set cmd [list $url $query]
if {[regexp {^\.?/} $url]} {
set cmd [list $url $query]
@@
-1043,11
+1043,20
@@
proc approve_showentry {ix file specdata} {
image create photo approve/$ix -data $ppm
label $wb-image -image approve/$ix -bd 2 -relief sunken
image create photo approve/$ix -data $ppm
label $wb-image -image approve/$ix -bd 2 -relief sunken
+ set unic [exec perl -e {
+ use Unicode::CharName qw(uname);
+ $ARGV[0] =~ s/^ //;
+ foreach $_ (split //,$ARGV[0]) {
+ print uname(ord),"\n" or die $!
+ }
+ } " $def"]
+ label $wb-unicode -text $unic
+
frame $wb-act
button $wb-act.rej -text Reject -command [list approve_reject $ix]
pack $wb-act.rej
frame $wb-act
button $wb-act.rej -text Reject -command [list approve_reject $ix]
pack $wb-act.rej
- grid $wb-def $wb-image $wb-act $wb-inf -padx 3
+ grid $wb-def $wb-image $wb-
unicode $wb-
act $wb-inf -padx 3
grid configure $wb-image -ipadx 3 -ipady 3 -sticky w
lappend approve_ixes $ix
grid configure $wb-image -ipadx 3 -ipady 3 -sticky w
lappend approve_ixes $ix