Changeset 2249 for trunk/gui

Timestamp:

May 18, 2011 9:53:00 AM (13 years ago)

Author:

ldelgass

Message:

Fix constructor debug trace to work when called from top level (fixes the
vtkiewer2-test script)

File:

• trunk/gui/scripts/vtkviewer2.tcl (modified) (1 diff)

trunk/gui/scripts/vtkviewer2.tcl

@@ -140 +140 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::VtkViewer2::constructor {hostlist args} {
-    puts stderr "Enter constructor: [info level -1]"
+    if {[catch {info level -1} caller]} {
+        puts stderr "Enter constructor"
+    } else {
+        puts stderr "Enter constructor: $caller"
+    }
 
     # Rebuild event