Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

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]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (2)
As of 2018-02-25 22:21 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (315 votes). Check out past polls.