set path [lindex $argv 0]
set phome [lindex $argv 1]

set tty [open /dev/tty w]
# add the path for wish in each tk file in the directory
catch {exec find $phome -name "*.tk" -print > tkfiles} 
if { [file readable tkfiles] } {
    set fid [open tkfiles r]
    while { [eof $fid] != 1 } {
        gets $fid fn
        if { $fn == "" } {
            continue
            }
        puts $tty "Changing $fn"
        set file [open $fn "r"]
    	gets $file 
    	gets $file 
    	gets $file
    	set content [read $file]
    	close $file
    	set file [open $fn "w"]
    	puts $file "#!$path"
    	puts $file "set pothome $phome"
    	puts $file "source $phome/tkheader.h"
    	puts $file $content
    	close $file
        }
     close $fid
     unlink tkfiles 
    } else {
        puts "File tkfiles not readable"
    }

#update Configure.tk because the wish path gets added here too, we
# remove it after we are all done.
set file [open Configure.tk r]
gets $file 
gets $file
gets $file
set content [read $file]
close $file
set file [open Configure.tk w]
puts $file "   "
puts $file "   "
puts $file "   "
puts $file $content
close $file