Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^2: Tk and thread local storage

by nikosv (Hermit)
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

cheers


Comment on Re^2: Tk and thread local storage
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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (15)
As of 2014-09-19 19:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (144 votes), past polls