*** coverage_vis.c.original	Thu Jun 19 19:51:46 1997
--- coverage_vis.c	Mon Oct  1 20:06:33 2001
***************
*** 28,37 ****
--- 28,38 ----
  #include "coverage_vis.h"
  #include "orbit_utils.h"
  #include "savi.h"
  
  extern int tcl_script(char []);
+ extern Tcl_Interp *interp;
  
  static void grid_and_foreground_to_image(int projection, grid *g);
  static void foreground_to_image(int projection, grid *g);
  static void make_fat_dot(grid *g, int cindex, unsigned char *color);
  static int new_foreground(int projection, grid *g, int force);
*************** void
*** 131,141 ****
  update_display(int projection, grid *g, int coverage_flag, int tracks_flag)
  {
    Tk_PhotoHandle handle;
    char imagename[] = "im_coverage";
  
!   handle = Tk_FindPhoto(imagename);
    if (handle != NULL)
      {
        /* Re-write the entire image, unless we are just displaying ground
         * tracks, and there's not a a new projection, in which case we can 
         * simply write the foreground (which includes ground tracks).  */
--- 132,147 ----
  update_display(int projection, grid *g, int coverage_flag, int tracks_flag)
  {
    Tk_PhotoHandle handle;
    char imagename[] = "im_coverage";
  
!   #if (TK_MAJOR_VERSION < 8)
!     handle = Tk_FindPhoto(imagename);
!   #else
!     handle = Tk_FindPhoto(interp, imagename);
!   #endif
! 
    if (handle != NULL)
      {
        /* Re-write the entire image, unless we are just displaying ground
         * tracks, and there's not a a new projection, in which case we can 
         * simply write the foreground (which includes ground tracks).  */