- 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
+ manyset [dict2_reqkind_rows $dict] reqkind
+ approve_showentry_xinfo/$reqkind $wb-xinfo $def
+
+ if {$ix} {
+ label $wb-div -bd 1 -relief sunken -image image/empty
+ grid configure $wb-div -columnspan 5 -sticky ew -padx 5
+ }