Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re^2: Tk and thread local storage

by nikosv (Chaplain)
on Nov 15, 2010 at 17:29 UTC ( #871516=note: print w/replies, xml ) Need Help??

in reply to Re: Tk and thread local storage
in thread Tk and thread local storage

BrowserUk,well-set explanation,as always!

And if you cleaned those up you'd get: done that but removed it for clarity since falls into the thread safety-breaking category


Replies are listed 'Best First'.
Re^3: Tk and thread local storage
by BrowserUk (Pope) on Nov 15, 2010 at 17:39 UTC
    but removed it for clarity

    I'm not sure how the extra two lines at the top and two additional mys detract from clarity, but each to their own :)

    [16:18:28.03] C:\test>type junk.pl8 #! perl -slw use strict; use Tk; use threads; my $mw = new MainWindow; $mw->minsize(qw(300 50)); $mw->title("Main thread window"); my $button = $mw -> Button(-text => "Fire Thread", -command => \&fire_thread) -> pack(); print "from Main thread ", $mw, ":::",$mw->id,"\n\n"; sub fire_thread { my $t = threads->create(\&worker_thread); $t->detach(); } sub worker_thread { $mw->title("Worker thread window"); print "from Worker thread ", $mw, ":::",$mw->id,"\n\n"; } MainLoop;

    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
      because the use of my in
      my $t = threads->create(\&worker_thread);
      would kill the execution immediatelly and I wanted to make it continue

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://871516]
[Tanktalus]: perldigious: I'm not looking to get rich. I'm looking for interesting work, with good continuity of employment, and maintenance of our current lifestyle. (An improvement wouldn't be bad, either, but that's not a requirement ;) )
erix enjoys the confusion++
[Your Mother]: :P
[Tanktalus]: Without confusion, I'd be out of a job ;)
[Tanktalus]: Already. :D
[Lady_Aleena]: Your Mother, I wish it did have a way to put in a directory to search.
[Your Mother]: Thatís silly. Itís a string op tool.
[Lady_Aleena]: So I guess I'll go argue with File::Find and grep.
[Your Mother]: I would probably use Path::Tiny instead for it's slurp and such.
[Your Mother]: s/it's/its/

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (10)
As of 2017-05-23 19:35 GMT
Find Nodes?
    Voting Booth?