#!/usr/local/bin/wish
proc NikonViewWithLink {{Rep ""}} {
if {$Rep==""} { set Rep [ChoixDuRepertoire] }
FaireLire $Rep
set LesFichiers [glob -nocomplain "$Rep/page*.htm" "$Rep/*/page*.htm"]
set Fichier [ChoixParmi $LesFichiers]
if {$Fichier==""} { return ""}
set RefFullSize ""
set EmmettreMessage 1
foreach Ligne [LesLignesDuFichier $Fichier] {
if {$EmmettreMessage && [regexp "" $Ligne]} {
set EmmettreMessage 0
regsub "" $Ligne \
"
Click on the lower right corner to see the full size picture" Ligne
}
Espionne $Ligne
if {[regexp {]+>} $Ligne Reference]} {
regsub "images/" $Reference "../" RefFullSize
Espionne "+++++++++++++++++++++++++++++= $Reference $RefFullSize"
}
if {$RefFullSize!="" && [regexp {]+>} $Ligne Coin]} {
regsub ">$" $Coin "" CoinSans
regsub "$CoinSans" $Ligne "$RefFullSize$CoinSans border=\"0\">