Changeset 1042 for trunk/base

Timestamp:

Oct 12, 2002, 6:40:01 PM (22 years ago)

Author:

jkh

Message:

Small beautification of the output.

File:

• trunk/base/src/port1.0/portcontents.tcl (modified) (1 diff)

trunk/base/src/port1.0/portcontents.tcl

@@ -58 +58 @@
             set contents [lindex $entry [incr ix]]
             set uninst_err 0
-            ui_msg "Contents of ${portname}-${portversion}:"
+            ui_msg "Contents of ${portname}-${portversion}"
             foreach f $contents {
-                ui_msg [lindex $f 0]
+                ui_msg "\t[lindex $f 0]"
             }
         } else {