#endif
-int
-force_directx()
-{
-#if defined WIN32 || WINDOWS
- fprintf( stderr, "SDL Gamma is unsupported in Windows for windib. Forcing directx. \n" );
- SDL_putenv("SDL_VIDEODRIVER=directx");
-#endif
- return 1;
-}
-
Uint32
sdl_perl_timer_callback ( Uint32 interval, void* param )
{
Uint32 flags
CODE:
INIT_NS_APPLICATION
- force_directx();
RETVAL = SDL_Init(flags);
#ifdef HAVE_TLS_CONTEXT
Perl_call_atexit(PERL_GET_CONTEXT, (void*)sdl_perl_atexit,0);