Changeset 264 for trunk/bMotion.tcl

Timestamp:

09/16/03 05:52:03 (9 years ago)

Author:

jamesoff

Message:

auto-indenting of bmotion_loglev output

File:

• trunk/bMotion.tcl (modified) (1 diff)

trunk/bMotion.tcl

@@ -33 +33 @@
 proc bMotion_putloglev { level star text } {
   global bMotion_testing
-  if {![string match -nocase "bMotion: *" $text]} {
-    set text "bMotion: $text"
+  regsub "bMotion:" $text "" text
+  set text2 ""
+  if {$level != "d"} {
+    set text2 [string repeat " " $level]
   }
+  set text "bMotion:$text2 $text"
 
   if {$bMotion_testing == 0} {