#!/usr/local/bin/wish -f
# Copyright (C) 1997 Tomohiro Tanaka

# ɸϤѿ
set stdin file0

label .la
text .la.text -relief raised -bd 2 -yscrollcommand ".la.scroll set"
scrollbar .la.scroll -command ".la.text yview"
pack .la.scroll -side right -fill y
pack .la.text -side left
pack .la

# ƥȤɤ߹
proc loadFile {in} {
	.la.text delete 1.0 end
	while {[gets $in line] >= 0} {
		.la.text insert end $line
		.la.text insert end "\n"
	}
}

loadFile $stdin

label .la1
button .la1.button -text "Ĥ" -command exec_end
#button .la1.button1 -text "֤" -command exec_sav
#pack .la1.button .la1.button1 -side left
pack .la1.button
pack .la1

set entdata ""
proc exec_sav {} {
	global entdata
	frame .enter
	label .enter.inputlabel -text "ե̾"
	entry .enter.inputentry -width 50 -relief sunken -textvariable entdata
	pack .enter.inputlabel .enter.inputentry -in .enter -side left
	pack .enter
        .la1.button1 configure -state disabled
}

proc exec_end {} {
        exec cat << "" > syuuryoushimashita
        exit
}





