# CheckExtraDialog
# Gerald Banon, 2000

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

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

proc CheckExtraDialog {t string {var1 {}} {var2 {}} {var3 {}}} {
# runs with start
	$t delete 1.0 end
	TextStyles $t
# --------------------
	if {$string == \
"select content type"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Select the appropriate content type for this repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{If no content type applies, then select the blank line.}
		TagAdd $t current9 \
{If no content type applies, then select the blank line.}
	}
# --------------------
	if {$string == \
"define parent repositories"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Define the parent repositories for this repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{A parent repository is a repository whose content is cited in}
		TagAdd $t current9 \
{A parent repository is a repository whose content is cited in}
		$t insert insert "\n\t"
		Insert $t insert \
{the document of the current repository.}
		TagAdd $t current9 \
{the document of the current repository.}
		$t insert insert "\n\t"
		Insert $t insert \
{There are two forms of defining a parent repository.}
		TagAdd $t current9 \
{There are two forms of defining a parent repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{In the explicit form, you insert a line as illustrated below.}
		TagAdd $t current9 \
{In the explicit form, you insert a line as illustrated below.}
		$t insert insert "\n\t"
		Insert $t insert \
{To cite the parent repository iconet.com.br/banon/2000/12.31.20.38, you insert the line:}
		TagAdd $t current9 \
{To cite the parent repository iconet.com.br/banon/2000/12.31.20.38, you insert the line:}
		TagAdd $t fixed \
{iconet.com.br/banon/2000/12.31.20.38}
		$t insert insert "\n\t"
		Insert $t insert \
{../../../../../../col/iconet.com.br/banon/2000/12.31.20.38}
		TagAdd $t fixed \
{../../../../../../col/iconet.com.br/banon/2000/12.31.20.38}
		$t insert insert "\n\t"
		Insert $t insert \
{In the implicit form, you insert a line containing the name of a file, in the <doc> directory,}
		TagAdd $t current9 \
{In the implicit form, you insert a line containing the name of a file, in the <doc> directory,}
		TagAdd $t fixed \
{<doc>}
		$t insert insert "\n\t"
		Insert $t insert \
{having a citation to the parent repository in the explicit form illustrated above.}
		TagAdd $t current9 \
{having a citation to the parent repository in the explicit form illustrated above.}
	}
# --------------------
	if {$string == \
"select copyright"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Select the appropriate copyright for this repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{If no copyright applies, then select the blank line.}
		TagAdd $t current9 \
{If no copyright applies, then select the blank line.}
	}
# --------------------
	if {$string == \
"select author home page"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Select the author home page for this repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{If no author home page applies, then select the blank line.}
		TagAdd $t current9 \
{If no author home page applies, then select the blank line.}
	}
# --------------------
	if {$string == \
"set visibility"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Check the visibility for this repository.}
	}
# --------------------
	if {$string == \
"set permission"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Check and/or add the permission for this repository.}
	}
# --------------------
	if {$string == \
"select mirror sites"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Select the mirror sites for this repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{This repository installed on remote sites may have limited access}
		TagAdd $t current9 \
{This repository installed on remote sites may have limited access}
		$t insert insert "\n\t"
#		Insert $t insert \
#{unless they are defined as mirror sites.}
#		TagAdd $t current9 \
#{unless they are defined as mirror sites.}
		Insert $t insert \
{unless it has a mirror site that matches loCoInRep.}
		TagAdd $t current9 \
{unless it has a mirror site that matches loCoInRep.}
		$t insert insert "\n\t"
		Insert $t insert \
{The sites below are candidates to be mirror sites. Select the ones}
		TagAdd $t current9 \
{The sites below are candidates to be mirror sites. Select the ones}
		$t insert insert "\n\t"
		Insert $t insert \
{you want to be mirror sites for this repository.}
		TagAdd $t current9 \
{you want to be mirror sites for this repository.}
	}
# --------------------
	if {$string == \
"set remote permission"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Check and/or add the remote permission for this repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{The remote permission applies only to non mirror site.}
		TagAdd $t current9 \
{The remote permission applies only to non mirror site.}
	}
# --------------------
	if {$string == \
"select language"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Select the appropriate language for this repository.}
	}
# --------------------
	if {$string == \
"select a user with write permission"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Select the user with write permission for this repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{The document in this repository could be updated by a user having a write permission.}
		TagAdd $t current9 \
{The document in this repository could be updated by a user having a write permission.}
		$t insert insert "\n\t"
		Insert $t insert \
{The users below are candidates to be a user with write permission. Select the one}
		TagAdd $t current9 \
{The users below are candidates to be a user with write permission. Select the one}
		$t insert insert "\n\t"
		Insert $t insert \
{you want to be the user with write permission for this repository.}
		TagAdd $t current9 \
{you want to be the user with write permission for this repository.}
	}
# --------------------
	if {$string == \
"select users with read permission"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Select the users with read permission for this repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{This repository will have a limited access through passwords}
		TagAdd $t current9 \
{This repository will have a limited access through passwords}
		$t insert insert "\n\t"
		Insert $t insert \
{if some users with read permission were selected.}
		TagAdd $t current9 \
{if some users with read permission were selected.}
		$t insert insert "\n\t"
		Insert $t insert \
{The users below are candidates to be users with read permission. Select the ones}
		TagAdd $t current9 \
{The users below are candidates to be users with read permission. Select the ones}
		$t insert insert "\n\t"
		Insert $t insert \
{you want to be users with read permission for this repository.}
		TagAdd $t current9 \
{you want to be users with read permission for this repository.}
	}
# --------------------
	if {$string == \
"select host collection"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Select the new host collection for this repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{You select a new host collection when you want to transfer the copyright.}
		TagAdd $t current9 \
{You select a new host collection when you want to transfer the copyright.}
		$t insert insert "\n\t"
		Insert $t insert \
{The copyright will be transferred to the selected host collection.}
		TagAdd $t current9 \
{The copyright will be transferred to the selected host collection.}
		$t insert insert "\n\t"
		Insert $t insert \
{To have the copyright back will depend on the administrator of the new host collection.}
		TagAdd $t current9 \
{To have the copyright back will depend on the administrator of the new host collection.}
	}
# --------------------
	if {$string == \
"transferring the copyright"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Are you sure you want to transfer the copyright to:}
		$t insert insert "\n\t"
		Insert $t insert \
{<$var1>.} {} $var1
		TagAdd $t fixed9 {<$var1>} -forward $var1
	}
# --------------------
	if {$string == \
"unknown host"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are asking to transfer the copyright to:}
		$t insert insert "\n\t"
		Insert $t insert \
{<$var1>.} {} $var1
		TagAdd $t fixed9 {<$var1>} -forward $var1
		$t insert insert "\n\n\t"
		Insert $t insert \
{The connection with this host could not be established.}
	}
# --------------------
	if {$string == \
"site not allowed to transfer copyright"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are asking to transfer the copyright to:}
		$t insert insert "\n\t"
		Insert $t insert \
{<$var1>.} {} $var1
		TagAdd $t fixed9 {<$var1>} -forward $var1
		$t insert insert "\n\n\t"
		Insert $t insert \
{This host is not willing to accept the copyright transfer.}
	}
# --------------------
	if {$string == \
"@sitesAllowedToTransferCopyright.tcl not found or permission denied"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are asking to transfer the copyright to:}
		$t insert insert "\n\t"
		Insert $t insert \
{<$var1>.} {} $var1
		TagAdd $t fixed9 {<$var1>} -forward $var1
		$t insert insert "\n\n\t"
		Insert $t insert \
{@sitesAllowedToTransferCopyright.tcl not found or permission denied.}
	}
# --------------------
if 0 {
	if {$string == \
"change password"} {
		$t insert insert "\n\t"
		Insert $t insert \
{Change the update option password.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{Enter the new password twice.}
		TagAdd $t current9 \
{Enter the new password twice.}
		$t insert insert "\n\t"
		Insert $t insert \
{Leaving the two password fields empty is equivalent to}
		TagAdd $t current9 \
{Leaving the two password fields empty is equivalent to}
		$t insert insert "\n\t"
		Insert $t insert \
{suppress the update option.}
		TagAdd $t current9 \
{suppress the update option.}
	}
# --------------------
	if {$string == \
"passwords are different"} {
		$t insert insert "\n\t"
		Insert $t insert \
{The two passwords are different.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{Please enter two identical passwords.}
	}
}
# --------------------
	if {$string == \
"selecting a target file"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are selecting <$var1> as target file for the repository:} {} $var1
		TagAdd $t fixed {<$var1>} -forward $var1
		$t insert insert "\n\t"
		Insert $t insert \
{<$var1>.} {} $var2
		TagAdd $t fixed {<$var1>} -forward $var2
		$t insert insert "\n\n\t"
		Insert $t insert \
{Are you sure you want to select this file as target?}
	}
# --------------------
	if {$string == \
"selecting a new target file"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are selecting <$var1> as new target file for the repository:} {} $var1
		TagAdd $t fixed {<$var1>} -forward $var1
		$t insert insert "\n\t"
		Insert $t insert \
{<$var1>.} {} $var2
		TagAdd $t fixed {<$var1>} -forward $var2
		$t insert insert "\n\n\t"
		Insert $t insert \
{In doing so, the <$var1> file will not be more} {} $var3
		TagAdd $t fixed {<$var1>} -forward $var3
		$t insert insert "\n\t"
		Insert $t insert \
{the target for this repository.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{Are you sure you want to select this file as new target?}
	}
# --------------------
	if {$string == \
"clearing the target file selection"} {
		$t insert insert "\n\t"
		Insert $t insert \
{You are asking to clear the target file selection.}
		$t insert insert "\n\n\t"
		Insert $t insert \
{In doing so, the <$var1> file will not be more} {} $var1
		TagAdd $t fixed {<$var1>} -forward $var1
		$t insert insert "\n\t"
		Insert $t insert \
{the target for the repository:}
		$t insert insert "\n\t"
		Insert $t insert \
{<$var1>.} {} $var2
		TagAdd $t fixed {<$var1>} -forward $var2
		$t insert insert "\n\n\t"
		Insert $t insert \
{Are you sure you want to clear the target file selection?}
	}
# --------------------
}