Changeset 8837 for code/branches/output/data/tcl

Timestamp:

Aug 13, 2011, 9:41:38 PM (13 years ago)

Author:

landauf

Message:

added console command "orxout" (and also "orxout_context")
re-added the shortcut commands log, error, warning, status, info, and debug
adjusted init.tcl

File:

• code/branches/output/data/tcl/init.tcl (modified) (1 diff)

code/branches/output/data/tcl/init.tcl

@@ -169 +169 @@
     foreach {channel s} $input break
 
-    if {$channel == "stdout" || $channel == "stderr"} {
-        execute puts $newline $s
+    if {$channel == "stdout"} {
+        execute log $s
+    } elseif {$channel == "stderr"} {
+        execute error $s
     } else {
         eval [concat ::tcl::puts $args]