#!/bin/sh
# line \
exec wish "$0" "$@"

if ![string compare $tcl_platform(platform) "unix"] {
        set path [exec where.tcl]
} else {
        set path "~"
}
set auto_path "$auto_path $path"                              

## This is here to allow the editor to work outside of the 
## IRC Client
proc fake_user_in {junk} {

}
##


package require tked 1.0
set filename [lindex $argv 0]
tked $filename
tkwait window .tked
exit
