Interpreting your English, was a good lesson for me, in how to convey information. I thought "this must be an intelligent person", to get that message across without knowing English. :-)

Anyways, to your problem. I am almost sure there is a plain WxCanvas, the GLCanvas is probably an extra type. Google for "Wx canvas".

So, why not just use the WxCanvas, instead of a Tk::Canvas? I think you are mistaken to believe that Wx dosn't have a 2d canvas widget. So google for "WxPerl canvas", and you can be pure Wx. The only reason to keep Tk is if you have some complex Tk::Canvas code that you want to use, but don't quite want to rewrite it in Wx. ;-)

But if you want to go that mixed route, just setup a timer in Wx

use Tk qw/MainLoop tkinit DoOneEvent exit DONT_WAIT ALL_EVENTS/;

#.... setup your Tk code without a MainLoop statement

#then in your Wx timer, put
 $mw->DoOneEvent( DONT_WAIT | ALL_EVENTS );
# to make Tk responsive
[download]