Changeset 37254 for trunk/base/src

Timestamp:

05/31/08 22:22:03 (6 months ago)

Author:

raimue@…

Message:

port/port.tcl:
Fix output on occurrences of proc wrap

Files:

• trunk/base/src/port/port.tcl (modified) (4 diffs)

trunk/base/src/port/port.tcl

@@ -1184 +1184 @@
         set ret "Usage: "
         set len [string length $action]
-        append ret [wrap "$action$cmds$args" [expr 80 - $len] [string repeat " " [expr 8 + $len]] 0]
+        append ret [wrap "$action$cmds$args" 80 [string repeat " " [expr 8 + $len]] 0]
         append ret "\n"
 
@@ -1394 +1394 @@
                 global global_variations
 
-                puts -nonewline "Variants:    "
                 set joiner ""
+                set vars ""
                 foreach v [lsort $portinfo(variants)] {
                     set mod ""
@@ -1406 +1406 @@
                     }
                     # TODO: selected by default_variants (with [+]/[-])
-                    puts -nonewline "$joiner$mod$v"
+                    append vars "$joiner$mod$v"
                     set joiner ", "
                 }
-                puts ""
+                puts -nonewline "Variants:    "
+                puts [wrap $vars 80 [string repeat " " 13] 0]
             }
             puts ""
@@ -2095 +2096 @@
                 }
                 puts ""
-                puts [wrap [join $portinfo(description)] 76 [string repeat " " 4]]
+                puts [wrap [join $portinfo(description)] 80 [string repeat " " 4]]
             }