use strict;
use Tk;
use Threads;

my ($mw,$sent_recvd_listbox,$server_list_listbox);

threads->new(\&update_thread)->detach;

create_tk_window();
$mw->MainLoop;

sub update_thread {
    print "update_thread called...\n";
    while(1) {
       if(defined($server_list_listbox)) {
        # This never gets executed because the objects from 
        # the tk module are out of scope ??????
        $server_list_listbox->insert('end',"Some string data");
       }else{
            print "Couldn't insert any data cause this thread can't se
+e the tk objects !?\n";
       }
       sleep 1;
    }
    exit();
}

sub create_tk_window {
    $mw=MainWindow->new
    (
        -background=>'#dedede',
        -foreground=>'yellow',
        -title=>"FingerLick"
    );
    $mw->geometry("802x618");
    $mw->minsize(802,618);
    $mw->maxsize(802,618);

    $sent_recvd_listbox=$mw->Listbox
    (
        -height=>1,
        -width=>60,
        -background=>'black',
        -foreground=>'yellow'
    )->pack(-side=>'bottom',-anchor=>'s',-pady=>2);

    $server_list_listbox=$mw->Scrolled
    (
        "Listbox",
        -height=>20,
        -width=>60,
        -background=>'white',
        -foreground=>'black',
        -scrollbars=>'se',
    )->pack();
}
[download]

Running the script above ^^ for me on a windows 2000 machine with v5.8.3, the update_thread (obviously) will just continue printing "Couldn't insert any data cause this thread can't see the tk objects !?" until you interrupt it.

If you create the seperate thread (threads->new(\&update_thread)->detach;) after calling create_tk_window, it gives me the following error:
Free to wrong pool 1e46660 not 15d3f10 at C:/Perl/site/lib/Tk.pm line 228.
(oops, forgot to edit the logical drive out of the path ;)

I have also breifly attempted to share a globally scoped (ie; defined at the top of file) IO::Handle that I would write/read to/from both update_thread and the main process. Ie; instead of trying to call $server_list_listbox->insert('end',"blah"); from inside the while loop in the update_thread. But no results..lol.

I know I could use the Tk repeat method to timeout every n amount of time and run subroutines that collect data outputted from various seperate 'worker' threads, but it seems like a real pain in the side to do that. Im thinking I would have to use 'magic numbers' or predefined values, that both threads relate to specific global shared data. Ie; I would have

my $wt_display_code:shared;
my $wt_data:shared;

$mw->repeat(0.001,sub { display_worker_data() });
[download]

Then, in the display_worker_data() sub, check some shared scalar that relates to what data the worker_thread has to offer, and just as importantly, where it has to go (what Tk widget field).

Eg;

my $wt_display_code:shared;
my $wt_data:shared;

$mw->repeat(0.001,sub { display_worker_data() });

sub display_worker_data() {
 
    if($wt_display_code eq "SENT_RECVD") {
       my $data_for_display="Sent recvd: $wt_data";
       $sent_recvd_listbox->insert('end',$data_for_display");
    }elsif($wt_display_code eq "TIME_STATUS") {
       my $data_for_display="Time: $local_time";
       $time_stats_listbox->insert('end',"$data_for_display");
    }elsif(...) {
       ...
    }elsif(...) {
       ...
    } etc...
}
[download]

BUT THAT IS A NIGHTMARE ^^ The number of possible value pairs are endless.

Is there a way to have the Tk module objects shared in both threads, you know, being able to access the Tk objects from a seperate process/thread ?

Maybe I should be using a simple pipe to communicate data between threads. Don't tell me to use fork. Because it gave me more greif than you can poke a stick at, thats why I am trying to use threads.