# DDExtraDialog
# Gerald Banon, 1998

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

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

proc DDExtraDialog {t string {var1 {}} {var2 {}} {var3 {}}} {
# runs with start
	$t delete 1.0 end
	TextStyles $t
# --------------------
	if {$string == \
"depositing the Default or Empty Document in a non empty doc"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are asking to deposit the $var1 Document} {} $var1
		$t insert insert "\n\t"
		Insert $t insert \
{in the repository <$var1>.} {} $var2
		TagAdd $t fixed {<$var1>} -forward $var2
		$t insert insert "\n\n\t"
#		Insert $t insert \
{Depositing the $var1 Document will lose forever the\
existing document in this repository.} {} $var1
		Insert $t insert \
{In doing so, you will lose forever the\
existing document in this repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{Would you like to replace this existing document with\
the $var1 Document?} {} $var1
	}
# --------------------
	if {$string == \
"depositing a document from the file system in a non empty doc"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are asking to deposit a new document}
		$t insert insert "\n\t"
		Insert $t insert \
{in the repository <$var1>.} {} $var2
		TagAdd $t fixed {<$var1>} -forward $var2
		$t insert insert "\n\n\t"
#		Insert $t insert \
{Depositing the new document will lose forever the\
existing document in this repository.}
		Insert $t insert \
{In doing so, you will lose forever the\
existing document in this repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{Would you like to replace this existing document with\
the new document}
		$t insert insert "\n\t"
		Insert $t insert \
{<$var1>?} {} $var1
		TagAdd $t fixed {<$var1>} -forward $var1
	}
# --------------------
	if {$string == "all disk"} {
		$t insert insert "\n\t"
		Insert $t insert \
"The all disk cannot be deposited."
		$t insert insert "\n\n\t"
		Insert $t insert \
"Please enter a directory name."
	}
# --------------------
	if {$string == "empty entry"} {
		$t insert insert "\n\t"
		Insert $t insert \
"Empty entry."
		$t insert insert "\n\n\t"
		Insert $t insert \
"Please fill the entry."
	}
# --------------------
	if {$string == "empty entries"} {
		$t insert insert "\n\t"
		Insert $t insert \
"Empty entries."
		$t insert insert "\n\n\t"
		Insert $t insert \
"Please fill the entries."
	}
# --------------------
	if {$string == "not a directory"} {
		$t insert insert "\n\t"
		Insert $t insert \
{<$var1>} {} $var1
		TagAdd $t fixed {<$var1>} -forward $var1
		$t insert insert "\n\t"
		Insert $t insert \
"is not a directory."
		TagAdd $t italic not
		$t insert insert "\n\n\t"
		Insert $t insert \
"Please fill the entry until the background becomes  magenta ."
		TagAdd $t magenta { magenta }
	}
# --------------------
	if {$string == "not a repository"} {
		$t insert insert "\n\t"
		Insert $t insert \
{<$var1>} {} $var1
		TagAdd $t fixed {<$var1>} -forward $var1
		$t insert insert "\n\t"
		Insert $t insert \
"is not a repository."
		TagAdd $t italic not
		$t insert insert "\n\n\t"
		Insert $t insert \
"Please fill the entry until the background becomes  magenta ."
		TagAdd $t magenta { magenta }
	}
# --------------------
	if {$string == "not a key"} {
		$t insert insert "\n\t"
		Insert $t insert \
{<$var1>} {} $var1
		TagAdd $t fixed {<$var1>} -forward $var1
		$t insert insert "\n\t"
		Insert $t insert \
"is not a complete identification key."
		TagAdd $t italic not
	}
# --------------------
}