# IRExtraDialog
# Gerald Banon, 2001 - 2016

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

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

proc IRExtraDialog {t string {var1 {}} {var2 {}} {var3 {}}} {
# runs with start
	$t delete 1.0 end
	TextStyles $t
# --------------------
	if {$string == \
"no doc.zip"} {
		$t insert insert "\n\t"
		Insert $t insert \
{There is no repository to install:}
		$t insert insert "\n\t"
		Insert $t insert \
{no <$var1/doc.zip> zip archive was found.} {} $var1
		TagAdd $t fixed {<$var1/doc.zip>} -forward $var1
		$t insert insert "\n\n\t"
		Insert $t insert \
{Before installing a repository, you must download it into\
the 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 \
{The zip archive name must be <doc.zip>.}
		TagAdd $t fixed {<doc.zip>}
	}
# --------------------
	if {$string == \
"unzip is missing"} {
		$t insert insert "\n\t"
		Insert $t insert \
{The unzip program is missing.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{Please install the unzip program at one of the paths}
		$t insert insert "\n\t"
		Insert $t insert \
{defined in <col/dpi.inpe.br/banon/1998/08.02.08.56/doc/knownPathArray.tcl>.}
		TagAdd $t fixed {<col/dpi.inpe.br/banon/1998/08.02.08.56/doc/knownPathArray.tcl>}
	}
# --------------------
	if {$string == \
"not a zipfile"} {
		$t insert insert "\n\t"
		Insert $t insert \
{There is no repository to install:}
		$t insert insert "\n\t"
		Insert $t insert \
{the file <$var1/doc.zip> is not a zipfile.} {} $var1
		TagAdd $t fixed {<$var1/doc.zip>} -forward $var1
		$t insert insert "\n\n\t"
		Insert $t insert \
{Make sure that the <doc.zip> file was obtained through}
		TagAdd $t fixed {<doc.zip>}
		$t insert insert "\n\t"
		Insert $t insert \
{the download of a document part of the URLib collection.}
		TagAdd $t italic {Lib}
	}
# --------------------
	if {$string == \
"not a repository"} {
		$t insert insert "\n\t"
		Insert $t insert \
{There is no repository to install:}
		$t insert insert "\n\t"
		Insert $t insert \
{the file <$var1/doc.zip> doesn't contain a repository.} {} $var1
		TagAdd $t fixed {<$var1/doc.zip>} -forward $var1
		$t insert insert "\n\n\t"
		Insert $t insert \
{Make sure that the <doc.zip> file was obtained through}
		TagAdd $t fixed {<doc.zip>}
		$t insert insert "\n\t"
		Insert $t insert \
{the download of a document part of the URLib collection.}
		TagAdd $t italic {Lib}
	}
# --------------------
	if {$string == \
"doc.zip contains URLibService"} {
		$t insert insert "\n\t"
		Insert $t insert \
{The file <$var1/doc.zip> contains the URLibService repository:} {} $var1
		TagAdd $t fixed {<$var1/doc.zip>} -forward $var1
		TagAdd $t italic {Lib}
		$t insert insert "\n\t"
		Insert $t insert \
{<dpi.inpe.br/banon/1998/08.02.08.56>.}
		TagAdd $t fixed {<dpi.inpe.br/banon/1998/08.02.08.56>}
		$t insert insert "\n\t"
		Insert $t insert \
{The repository <$var1> cannot be installed this way.} {} $var2
		TagAdd $t fixed {<$var1>} -forward $var2
		$t insert insert "\n\n\t"
		Insert $t insert \
{To install the repository <$var1>} {} $var2
		TagAdd $t fixed {<$var1>} -forward $var2
		$t insert insert "\n\t"
		Insert $t insert \
{please do unpost (or Exit) and post (or start).}
	}
# --------------------
	if {$string == \
"there is an original document"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are asking to install 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 \
{This repository cannot be installed because it already exists}
		$t insert insert "\n\t"
		Insert $t insert \
{and it contains, in the local collection, an original document.}
	}
# --------------------
	if {$string == \
"installing an existing repository"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are asking to install 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 \
{This repository already exists in your local collection.}
		$t insert insert "\n\t"
		Insert $t insert \
{In installing it, you will modify the existing document\
in this repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{Would you like to install this repository?}
	}
# --------------------
	if {$string == \
"installing a new repository"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are asking to install 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 \
{Are you sure you want to install this repository?}
	}
# --------------------
	if {$string == \
"cannot delete the old doc"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are asking to install 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 \
{This repository already exists in your local collection}
		$t insert insert "\n\t"
		Insert $t insert \
{and cannot be overwritten.}
		$t insert insert "\n\t"
		Insert $t insert \
{The installation was not completed.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{The reason was:}
		$t insert insert "\n\t"
		Insert $t insert \
{$var1} {} $var2
#		TagAdd $t fixed {$var1} -forward $var2
	}
# --------------------
}