I just saw your other post and realized this may be a large part of what you're dealing with.
But aren't most of those characters (like math, arrows, and TM) available in regular fonts?
For reference:
#!/usr/bin/perl -w
use strict;
use Tk;
my $mw = MainWindow->new();
my $text =
$mw->Text()->
pack( -expand => 1, -fill => 'both' );
for my $x (0..255) {
$text->insert( 'end', chr($x) );
}
MainLoop;
Obviously the Unicode stuff will need to mature somewhat. But if you are using this all from within Perl, maybe there is a way to cope for now?