Hai all,

I am having Urdu text editor which supports UTF-16 fonts.when i
am trying to copy and paste that fonts into Tk text vaiable displaying
junk charectors.But the same code is working for UTF-8 fonts..

Please any one give how to copy and paste UTF-16 fonts into text
varaibles..

Here is a sample code.I am copying little code from my application.so
it won't work..
This just for under staning purpose.

my $txt_location = $ml0->Entry(-textvariable => \$txt_loc, -width =>
25,-font => [$lfont,$lfont_size],-exportselection => 0,-
background=>'white')->grid(-row => 0, -column => 1,-sticky =>"nw", -
pady => 8, -columnspan => 5);

So I am trying to change the window icon and have a 32x32 gif with
some transparency.

I have tried iconimage along w/ a XBM mask using iconmask with no
success. The image always has black where the transparency is. I
figured I created the XBM mask wrong and tried again.. no luck.

This is what I have:
my $icon = $mw->Photo(-file => 'images\icon.gif');
$mw->idletasks;
$mw->iconimage($icon);
$mw->iconmask ('@images\icon.xbm');

Like I said, I figured I pooched the mask somehow an tried again.. I
then tried

$mw->iconbitmap('Tk');
$mw->iconmask('Tk');

This totally stumped me when the standard Tk icon image was now also
showing black where the transparency is.

Obv, if I run w/out mucking around w/ the icon, the Tk icon shows
correctly (transparent) as usual.

What am I missing here?

Hello everybody,

Just uploaded the latest version of my threaded Perl Tk NNTP client.
http://www.cpan.org/authors/id/Q/QO/QOS/Networking/NewsSurfer_v3_02.pl

Please have a look at it if you have some time, this script is evolving,
largely thanks to the threading tips provided by Zentara and others on
this newsgroup; thanks!

One of the difficult issues im experiencing with this version is with
logfiles, I tie a STDERR to a file and _sometimes_ when issuing a warn
from the worker thread the message does not end up in the logfile.

Hi All,
I am stuck with the problem of threads while updating progressbar.

Here is my Code :

I have a Tk app that has a large listbox (typically 75-300 items).
When a user selects an item in the list it drives various image and
text objects to be drawn to a canvas. The app also interacts w/ a cgi
script on a non-local server.

I have bindings for and the arrow keys to perform the
necessary tasks for the selected listbox item but the tasks depending
on what was clicked may take a few seconds to complete.

Wat I noticed is that I could really bork up the app my clicking
several listbox items before the tasks were complete. I put in a
$listbox->grab before doing anything and releasing the grab when
complete as this seemed the best way to combat against this. Now the
grab works, but takes ~.5 seconds before it is actually "grabs" and I
can still do multi clicks. I wrote a small script to verify that it
should work as I expected and in fact it does (the grab is basically
immediate after the list item is clicked).

Dear Colleague,

On behalf of the 2009 USENIX Annual Technical Conference program
committee, we request your ideas, proposals, and papers for tutorials,
refereed papers, and posters.

Authors are invited to submit original and innovative papers to the
Refereed Papers Track of the 2009 USENIX Annual Technical Conference.
Papers can be either full papers of at most 14 pages or short
papers of at most 6 pages. Authors are required to submit papers by
11:59 p.m. PST, Friday, January 9, 2009. (Note new deadline.)

In full papers, we seek high-quality submissions that further the
knowledge and understanding of modern computing systems, with an
emphasis on implementations and experimental results. Short papers
should describe early ideas, advocate a controversial position, or
present interesting results that do not require a full-length paper. We
encourage papers that break new ground or present insightful results
based on practical experience.

The USENIX conference has a broad scope. Specific topics of interest
include but are not limited to:

I'm a little new to perl/tk and linux but here goes...
I have a simple dialog box that I'm trying to get to pop up on both
displays of a dual monitor setup. (Dialog box goes to both Display0
and Display1 when launched). Any ideas?

Native dialogs like how messageBox is now, look much better than raw
Dialogs, imo, but I need to create custom button text so messageBox
won't work for me.

I am currently using "Dialog" now, but would really prefer to have an
OS native look over a raw Tk look.

How man I create custom "message boxes" while retaining a native look?

I have a (test) file named 'xöx' (German Umlaut in the middle).
My locale is set to ISO8859-15

No problem with normal perl I/O, for example:

perl -e '$file = shift; open F,$file or die $!; print "$file ok\n"' xöx
xöx ok

But when I query the file name via Tk::Entry I get an unicode/UTF8 string
on which open fails:

$T = MainWindow->new();

$entry = $T->Entry();
$button = $T->Button(-text => 'open', -command => \&openfile);
$entry->pack();
$button->pack();
MainLoop;

sub openfile {
$file = $entry->get;
open F,$file or die "cannot open $file - $!\n";
close F;
print "ok\n";
}

I have a simple program with one window with an image and two frames
containing some labels and text entries. But when I start my program, the
window size is too small: it shows only the image but not the rest. I have
to manually increase the window with the mouse to see the other widgets
inside. I suppose a beginners geometry manager error :-)

Can someone enlighten me?

@pl = qw(-side left);
@pr = qw(-side right);
@pb = qw(-side bottom);
@pt = qw(-side top);
@relief = qw(-relief sunken -width 80);

$T = MainWindow->new();

$T->Label(-image => $T->Photo(-data => &logo))->pack(@pt);

$f = $T->Frame->pack(@pt,-fill => 'both');

$row = 0;
$to_e = $f->Entry(@relief);
$label = $f->Label(-text => 'Recipient(s): ', -anchor => 'e', -justify => 'right');