Help for this page

Select Code to Download

Select or download this
```
use Tk;
use threads;
...
}

MainLoop;
```

Select or download this

print "from Main thread : ", $mw, ":::",$mw->id,"\n\n";
from Main thread : MainWindow=HASH(0x1c57f64):::0x002E0528

print "from Worker thread ", $mw, ":::",$mw->id,"\n\n";
from Worker thread : MainWindow=HASH(0x1e0a98c):::0x002E0528