Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

(ichimunki) Re x 3: Windows GUI programs in Perl

by ichimunki (Priest)
on Jul 03, 2001 at 20:17 UTC ( #93564=note: print w/replies, xml ) Need Help??


in reply to Re: (ichimunki) Re: Windows GUI programs in Perl
in thread Windows GUI programs in Perl

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?

Replies are listed 'Best First'.
Re: (ichimunki) Re x 3: Windows GUI programs in Perl
by John M. Dlugosz (Monsignor) on Jul 03, 2001 at 22:33 UTC
    I think you mean "available in the currently selected code page" not in the font. Yes, the (TM) symbol is present in the A[0-F] range in the Western code page. I chose that one because, since it is indeed in the 8-bit character set, it will be present in every (normal) font. That way, I didn't have to worry about which font the demo program was using, reducing the problem space.

    A font will contain multiple encoding vectors, which map the character ordinal to a glyph (which has some internal ID). Latin-1, Latin-2, etc. may all be present in the same font file.

    The characters I'm interested in, ultimatly, are not in that Latin-1 range. That was just a simple test.

    I'm thinking the way to cope for now is to access the window handle and call SetWindowText directly, to draw the button faces. But my proof-of-concept is doing something funny...

    —John

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://93564]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2023-02-07 18:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (40 votes). Check out past polls.

    Notices?