Changeset d7349ff in tol for tolbase/lib/toltk/markuphelper.tcl

Timestamp:

May 12, 2012, 10:48:51 PM (14 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

a72f642

Parents:

9042aac

Message:

refs #1414, portando solución desde la rama 3.1

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4683 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/markuphelper.tcl (modified) (2 diffs)

tolbase/lib/toltk/markuphelper.tcl

@@ -56 +56 @@
   proc Verbatim { text } {
     return [ string map {\n \n<br>} $text ]
+  }
+
+  proc Preformatted { text } {
+    variable markup
+
+    append markup "#pre\n"
+    append markup "${text}\n"
+    append markup "#unpre\n"
   }
 
@@ -288 +296 @@
     }
     BR
-    LabelValue "Content" [ Verbatim [ Escape $_content ] ]
+    if { $grammar eq "Text" } {
+      Text "Content:" -tags b
+      CR
+      Preformatted $_content
+    } else {
+      LabelValue "Content" [ Verbatim [ Escape $_content ] ]
+      BR
+    }
     if {$path ne ""} {
+      LabelValue "Path" $path
       BR
-      LabelValue "Path" $path
     }
     if {$desc ne ""} {
-      BR
       Text "Description:" -tags b -br 1
       Text \