#!/bin/sh
old=$HOME/tcl/tk4.0p2
new=$HOME/tcl/Tix4.0/src 
rm -f Fixup 
files=`(cd $new; ls tk*.c)`
for f in $files
 do 
  if [ -f $old/$f ]
   then 
    cp ../pTk/mTk/$f .
    if [ -f $new/$f ]
     then 
      if merge $f $old/$f $new/$f 
       then echo "    $f is okay"
       else 
        echo ">>> $f needs fixing"
        echo $f >> Fixup 
      fi 
     else
      echo "No $new/$f";
    fi 
  fi 
 done

