1 2proc xxx_elementtableau {bgcoul titre texte} { 3 # 4 # mettre le titre s'il y a besoin 5 # 6# if {[string length $titre] > 0} then { 7# set titre "<STRONG>$titre</STRONG>" 8# } 9 10 # 11 # Mettre le contenu s'il y a besoin 12 # 13 if {[string length $texte] > 0} then { 14 set texte "<FONT SIZE=\"-1\">$texte</FONT>" 15 } 16 17 # 18 # Tout mettre en forme 19 # 20# set bg "" 21# if {[string length $bgcoul] > 0} then { 22# set bg " BGCOLOR=\"$bgcoul\"" 23# } 24 return "$texte\n" 25} 26 27 28proc htg_bandeau {} { 29 global partie 30 31 if [catch {set titre [htg getnext]} v] then {error $v} 32 if [catch {set contenu [htg getnext]} v] then {error $v} 33 34 set titre [nettoyer-html $titre] 35 regsub -all "\n" $titre "<BR>" titre 36 37# set retour [xxx_elementtableau {} {} "<A HREF=\"/\">Retour au sommaire</A>"] 38# set contenu "$retour\n$contenu" 39 40 set partie(titrebandeau) $titre 41 set partie(contenubandeau) $contenu 42 43 return {} 44} 45 46proc htg_elementbandeau {} { 47 if [catch {set titre [htg getnext]} v] then {error $v} 48 if [catch {set refs [htg getnext]} v] then {error $v} 49 50 return [xxx_elementtableau {} $titre $refs] 51} 52 53proc htg_reference {} { 54 if [catch {set texte [htg getnext]} v] then {error $v} 55 return "$texte" 56} 57