Changeset 37526 for trunk/base/src

Timestamp:

06/11/08 05:58:33 (6 months ago)

Author:

raimue@…

Message:

port/port.tcl:
If env(COLUMNS) is not available, do not wrap.
See #15488.

Files:

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

trunk/base/src/port/port.tcl

@@ -409 +409 @@
             set env(COLUMNS) $cols
             set env(LINES) $rows
-        } else {
-            puts stderr "Warning: Unable to get terminal size, using 80x24!"
-            set cols 80
-            set rows 24
         }
     }
@@ -430 +426 @@
 
     if {$maxlen == 0} {
+        if {![info exists env(COLUMNS)]} {
+            # no width for wrapping
+            return $string
+        }
         set maxlen $env(COLUMNS)
     }
@@ -453 +453 @@
 
     if {$maxlen == 0} {
+        if {![info exists env(COLUMNS)]} {
+            # no width for wrapping
+            return $string
+        }
         set maxlen $env(COLUMNS)
     }