Re^7: Tk Bind scalar

Ive been looking at POE wheel, which will make my job a lot easier and will give me a lot more power within Tk. however for the current setup I have I think using a timmer will be just as good (I only need to check a shared array every couple of seconds) Time HiRes (setitimer) will work fine. with this however comes a complaint from my compiler that 'your vendor has not defined Time::HiRes macro ITIMER_VIRTUAL'

with the following code taken from the HiRes example set

use Time::HiRes qw(tv_interval);

  use Time::HiRes qw ( setitimer ITIMER_VIRTUAL time );

  $SIG{VTALRM} = sub { print time, "\n" };
  setitimer(ITIMER_VIRTUAL, 10, 2.5);
[download]

I am Running Active State Perl 5.88 build 819 on a XP, with HiRes 1.86

any pointers would be greatly apprenticed, however if HiRes will not run on my system I will rewrite with POE

thanks Skywalker

Comment on Re^7: Tk Bind scalar Download Code

Replies are listed 'Best First'.
Re^8: Tk Bind scalar by zentara (Cardinal) on Feb 24, 2009 at 15:48 UTC
Maybe you need a different Time::HiRes module compiled for windows? I don't use MSWindows, but I have noticed there are sometimes multiple xs based versions of modules for MSWindows, and some work better on certain hardware/Windows-release combinations. I'm not really a human, but I play one on earth My Petition to the Great Cosmic Conciousness	[reply]
Re^9: Tk Bind scalar by skywalker (Beadle) on Feb 24, 2009 at 18:48 UTC
Ok ive not managed to find any thing that will get my version of HiRes to function on Windows, or locate any specific Windows modules. however I have found a nice bit of code that I can use directly with Tk, that will run an interval check for me which until I rewrite using POE::Wheel will do me fine. `#start thread $thr = threads->new(\&sub1); #setup timer to process in 500ms intervals $mw->repeat(500 => \&update_display); MainLoop(); sub update_display{ print "Running from Mainloop\n"; $mw->update; } sub sub1{ while (1){ print "Running From thread\n"; sleep(1); } }` [download] Thanks for all the help Skywalker	[reply] [d/l]