[44812] trunk/base/src/port/port.tcl

[raimue at macports.org]

Revision: 44812
          http://trac.macports.org/changeset/44812
Author:   raimue at macports.org
Date:     2009-01-02 22:50:34 -0800 (Fri, 02 Jan 2009)
Log Message:
-----------
port/port.tcl:
Yet again change the port info output slightly, more tabular style

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2009-01-03 06:48:16 UTC (rev 44811)
+++ trunk/base/src/port/port.tcl	2009-01-03 06:50:34 UTC (rev 44812)
@@ -1438,7 +1438,7 @@
             depends_run "Runtime Dependencies"
             depends_lib "Library Dependencies"
             description "Brief Description"
-            long_description ""
+            long_description "Description"
             fullname    "Full Name: "
             homepage    Homepage
             platforms   Platforms
@@ -1448,13 +1448,13 @@
         # Wrap-length map for pretty printing
         array set pretty_wrap {
             heading 0
-            variants 13
+            variants 22
             depends_build 22
             depends_run 22
             depends_lib 22
             description 22
-            long_description 0
-            homepage 13
+            long_description 22
+            homepage 22
             platforms 22
             maintainers 22
         }
@@ -1506,7 +1506,7 @@
         set fields_tried {}
         if {![llength $opts_todo]} {
             set opts_todo {ports_info_heading ports_info_variants 
-                ports_info_description ports_info_skip_line
+                ports_info_skip_line ports_info_description
                 ports_info_long_description ports_info_homepage 
                 ports_info_skip_line ports_info_depends_build
                 ports_info_depends_lib ports_info_depends_run
@@ -1627,7 +1627,11 @@
                     continue
                 }
                 if {![string length $label]} {
-                    lappend fields [wrap $field 0]
+                    set wrap_len 0
+                    if {[info exists pretty_wrap($ropt)]} {
+                        set wrap_len $pretty_wrap($ropt)
+                    }
+                    lappend fields [wrap $field 0 [string repeat " " $wrap_len]]
                 } else {
                     set wrap_len [string length $label]
                     if {[info exists pretty_wrap($ropt)]} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090102/96d3fd87/attachment.html>