# DDDialog
# Gerald Banon, 1998

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

# ----------------------------------------------------------------------
# not used

proc UtilitiesExtraDialog2 {t string {var1 {}} {var2 {}} {var3 {}}} {
# runs with start
	$t delete 1.0 end
	TextStyles $t
# --------------------
	if {$string == \
"target file change"} {
		$t insert insert "\n\t"
		Insert $t insert \
{The target file was <$var1>.} {} $var1
		TagAdd $t fixed {<$var1>} -forward $var1
		$t insert insert "\n\t"
		Insert $t insert \
{You change it to <$var1>.} {} $var2
		TagAdd $t fixed {<$var1>} -forward $var2
		$t insert insert "\n\n\t"
		Insert $t insert \
{Please confirm your change or cancel it.}
	}
# --------------------
}