<<<<<<< tkglut.C
#include "tkglut.h"
#include "tcltk.h"
#include <GL/glut.h>

int tkglut_currently_on=0;

void glutTimerFunc(int val)
{
  if (tkglut_currently_on)
    {
      tcltk_checkEvents();
      glutTimerFunc(val,glutTimerFunc,val);
    }
} 

void tkglut_on (int interval_in_ms)
{
  // Register timer function
  glutTimerFunc(interval_in_ms,glutTimerFunc,interval_in_ms);
  
  // set status to on
  tkglut_currently_on=1;
}

void tkglut_off()
{
  // set status to off
  tkglut_currently_on=0;
}
=======
#include "tkglut.h"
#include "tcltk.h"
#include <glut.h>

int tkglut_currently_on=0;

void glutTimerFunc(int val)
{
  if (tkglut_currently_on)
    {
      tcltk_checkEvents();
      glutTimerFunc(val,glutTimerFunc,val);
    }
} 

void tkglut_on (int interval_in_ms)
{
  // Register timer function
  glutTimerFunc(interval_in_ms,glutTimerFunc,interval_in_ms);
  
  // set status to on
  tkglut_currently_on=1;
}

void tkglut_off()
{
  // set status to off
  tkglut_currently_on=0;
}
>>>>>>> 1.3