# BCExtraDialog
# Gerald Banon, 2021

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

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

proc BCExtraDialog {t string {var1 {}} {var2 {}} {var3 {}}} {
# runs with start
	$t delete 1.0 end
	TextStyles $t
# --------------------
	if {$string == \
"deleting a repository"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are asking to delete the repository:}
		$t insert insert "\n\t"
		Insert $t insert \
{<$var1>.} {} $var1
		TagAdd $t fixed {<$var1>} -forward $var1
		$t insert insert "\n\n\t"
		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 delete this repository?}
	}
# --------------------
	if {$string == \
"permission denied"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Warning}
		$t insert insert "\n\n\t"
		Insert $t insert \
{<$var1>.} {} $var1
		TagAdd $t fixed {<$var1>} -forward $var1
		$t insert insert "\n\n\t"
		Insert $t insert \
{Probably the file or directory is in use.}
		$t insert insert "\n\t"
		Insert $t insert \
{Close the file or directory and try again.}
	}
# --------------------
	if {$string == \
"register and back the document up"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are asking to register remotely the last document version}
		$t insert insert "\n\t"
		Insert $t insert \
{and back it up permanently.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{Are you sure you want to register the last document version and back it up?}
	}
# --------------------
}