#!/mit/tcl/bin/wish -f
wm title . {Netscape Notification}
wm iconname . {Netscape Notification}
wm geometry . +300+200

frame .top -relief raised -bd 1
pack .top -side top -fill both
frame .bot -relief raised -bd 1
pack .bot -side bottom -fill both
set mae_home [lindex $argv 0]
message .top.msg1 -width 6i -text \
	"I have detected a file, ~/.netscape/lock, in your personal netscape\
	directory.  The presence of this file may indicate that someone is\
	already running a copy of Netscape using your ~/.netscape preference\
	files.  It is more likely to indicate, however, that you logged out\
	of an Athena workstation without quitting Netscape first."\
	-font -Adobe-Times-Medium-R-Normal-*-180-*
message .top.msg2 -width 6i -text \
	"If you are certain that you are not running another Netscape, you\
	may choose \"Delete my lock file\" to to remove the file.  If you do\
	not delete the file, you can still run Netscape, but will be unable\
	to use the disk cache, global history, or your personal certificates."\
	-font -Adobe-Times-Medium-R-Normal-*-180-*
message .top.msg3 -width 6i -text \
	"To avoid this message in the future, remember to properly quit\
	Netscape before logging out. Do this by choosing \"Exit\" from the\
	File menu."\
	-font -Adobe-Times-Medium-R-Normal-*-180-*
pack .top.msg1 .top.msg2 .top.msg3 -side top -expand 1 -fill both -padx 3m -pady 3m

button .bot.ok -text {Delete my lock file} -command { exit 0 }
frame .bot.default -relief sunken -bd 1
raise .bot.ok
pack .bot.default -side left -expand 1 -padx 3m -pady 2m
pack .bot.ok -in .bot.default -side left -padx 2m -pady 2m -ipadx 2m -ipady 1m

button .bot.cancel -text {Don't delete the file} -command { exit 1 }
pack .bot.cancel -side left -expand 1 -padx 3m -pady 3m -ipadx 2m -ipady 1m

bind . <Return> ".bot.ok flash; .bot.ok invoke"
