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

frame .top -bg pink -relief raised -bd 1
pack .top -side top -fill both
frame .bot -bg pink -relief raised -bd 1
pack .bot -side bottom -fill both

message .top.msg1 -bg pink -width 6i -text \
	"You are about to launch Netscape 4.61."\
	-font -Adobe-Times-Medium-R-Normal-*-180-*
message .top.msg2 -bg pink -width 6i -text \
	"4.61 has a number of new default preferences for the\
        Athena environment. Since you already have a 4.x preferences\
        file, 4.61 will use it, and will not attempt to\
        override your preferences with the new defaults."\
	-font -Adobe-Times-Medium-R-Normal-*-180-*
message .top.msg3 -bg pink -width 6i -text \
	"The \'netscape-fix\' command will change your preferences\
        to the new defaults where appropriate."\
	-font -Adobe-Times-Medium-R-Normal-*-180-*
message .top.msg4 -bg pink -width 6i -text \
	"For details on the new settings, see\
        http://web.mit.edu/infoagents/www/netscape/changes.html"\
	-font -Adobe-Times-Medium-R-Normal-*-180-*
pack .top.msg1 .top.msg2 .top.msg3 .top.msg4 -in .top -side top -anchor w -pady 1m

frame .bot.default -bg black -relief ridge -bd 2
button .bot.ok -bg pink -text {Continue} -command { exit 0 }
pack .bot.ok -in .bot.default -expand 1 -ipadx 2m -ipady 1m
pack .bot.default -expand 1 -padx 3m -pady 3m

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

