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

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 file {
	.la.text delete 1.0 end
	set f [open $file r]
	while {![eof $f]} {
		.la.text insert end [read $f 1000]
	}
	close $f
}

loadFile $argv

label .la1
button .la1.button -text "Ĥ" -command exit
#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
}






