From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Tue, 23 Jun 2009 18:39:03 +0000 (+0100)
Subject: Display Unicode decodings
X-Git-Tag: 1.9.2~90^2~40
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=commitdiff_plain;h=7b9827e150247334fab73e7667cfa02105e2db05;ds=sidebyside

Display Unicode decodings
---

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index 7284b37..6ade113 100755
--- 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
-    debug "DB-UPDATE QUERY [string range $query 0 200]..."
+    debug "DB-UPDATE QUERY $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
 
+    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
 
-    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