# ServerExtraDialog
# Gerald Banon, 1998

package provide dpi.inpe.br/banon/1998/08.02.08.56 2.1

# ----------------------------------------------------------------------

proc ServerExtraDialog {t string {var1 {}} {var2 {}} {var3 {}}} {
# runs with start
	global tcl_platform
	$t delete 1.0 end
	TextStyles $t
# --------------------
	if {$string == \
"a port is in use"} {
		$t insert insert "\n\t"
		Insert $t insert \
{The port numbered <$var1> is in use by another application\
or its use is not allowed.} {} $var1
		TagAdd $t fixed {<$var1>} -forward $var1
		$t insert insert "\n\n\t"
		Insert $t insert \
"Please set a port number different from <\$var1>." {} $var2
		TagAdd $t fixed {<$var1>} -forward $var2
	}
# --------------------
}