Changeset 3209 for branches

Timestamp:

Dec 17, 2012 8:57:04 AM (12 years ago)

Author:

gah

Message:

Added debug window for vtkvis commands

File:

• branches/Rappture 1.2/gui/scripts/vtkheightmapviewer.tcl (modified) (6 diffs)

branches/Rappture 1.2/gui/scripts/vtkheightmapviewer.tcl

@@ -85 +85 @@
     private method BuildAxisTab {}
     private method BuildCameraTab {}
-    private method BuildViewTab {}
     private method BuildColormap { name colors }
+    private method BuildContourTab {}
     private method BuildCutplaneTab {}
     private method BuildDownloadPopup { widget command } 
-    private method BuildContourTab {}
+    private method BuildViewTab {}
+    private method ChangeColormap { dataobj comp color }
+    private method ColorsToColormap { color }
+    private method Combo { option }
     private method ConvertToVtkData { dataobj comp } 
     private method DrawLegend { title }
-    private method Combo { option }
     private method EnterLegend { x y } 
+    private method EventuallyContour { numContours } 
     private method EventuallyResize { w h } 
-    private method EventuallyContour { numContours } 
     private method EventuallyRotate { q } 
     private method EventuallySetCutplane { axis args } 
@@ -106 +108 @@
     private method RequestLegend {}
     private method SetColormap { dataobj comp }
-    private method ChangeColormap { dataobj comp color }
-    private method ColorsToColormap { color }
     private method SetLegendTip { x y }
     private method SetObjectStyle { dataobj comp } 
     private method Slice {option args} 
+
+    private method DebugConsole {} 
+    private method BuildConsole {} 
+    private method TraceComm { channel {data {}} } 
+    private method SendDebugCommand {} 
 
     private variable _arcball ""
@@ -238 +243 @@
 
     array set _settings [subst {
+        debug-console           0
         axis-labels             1
         axis-visible            1
@@ -2011 +2017 @@
         -font "Arial 9"
 
+    checkbutton $inner.debug \
+        -text "Debug " \
+        -variable [itcl::scope _settings(debug-console)] \
+        -command [itcl::code $this DebugConsole] \
+        -font "Arial 9"
+
     blt::table $inner \
         0,0 $inner.view      -anchor w -pady 2 \
@@ -2018 +2030 @@
         5,0 $inner.contour   -anchor w -pady 2 \
         6,0 $inner.heightmap -anchor w -pady 2 \
+        8,0 $inner.debug     -anchor w -pady 2 \
 
     blt::table configure $inner r* c* -resize none
-    blt::table configure $inner r8 c1 -resize expand
-    blt::table configure $inner r4 -height 0.25i
+    blt::table configure $inner r9 c1 -resize expand
+    blt::table configure $inner r4 r7 -height 0.25i
 }
 
@@ -2775 +2788 @@
     }
 }
+
+# ----------------------------------------------------------------------
+# USAGE: show_comm <channel> <data>
+#
+# Invoked automatically whenever there is communication between
+# the rendering widget and the server.  Eavesdrops on the communication
+# and posts the commands in a text viewer.
+# ----------------------------------------------------------------------
+itcl::body Rappture::VtkHeightmapViewer::TraceComm {channel {data ""}} {
+    $itk_component(trace) configure -state normal
+    switch -- $channel {
+        closed {
+            $itk_component(trace) insert end "--CLOSED--\n" error
+        }
+        <<line {
+            $itk_component(trace) insert end $data incoming "\n" incoming
+        }
+        >>line {
+            $itk_component(trace) insert end $data outgoing "\n" outgoing
+        }
+        error {
+            $itk_component(trace) insert end $data error "\n" error
+        }
+        default {
+            $itk_component(trace) insert end "$data\n"
+        }
+    }
+    $itk_component(trace) configure -state disabled
+    $itk_component(trace) see end
+}
+
+# ----------------------------------------------------------------------
+# USAGE: send_command
+#
+# Invoked automatically whenever the user enters a command and
+# presses <Return>.  Sends the command along to the rendering
+# widget.
+# ----------------------------------------------------------------------
+itcl::body Rappture::VtkHeightmapViewer::SendDebugCommand {} {
+    set cmd [$itk_component(command) get]
+    SendBytes "$cmd\n"
+    $itk_component(command) delete 0 end
+}
+
+itcl::body Rappture::VtkHeightmapViewer::BuildConsole {} {
+    toplevel .vtkconsole
+    
+    set f .vtkconsole
+    frame $f.send
+    pack $f.send -side bottom -fill x
+    label $f.send.l -text "Send:"
+    pack $f.send.l -side left
+    itk_component add command {
+        entry $f.send.e -background white
+    } {
+        ignore -background
+    }
+    pack $f.send.e -side left -expand yes -fill x
+    bind $f.send.e <KeyPress-Return> [itcl::code $this SendDebugCommand]
+    
+    scrollbar $f.sb -orient vertical -command "$f.comm yview"
+    pack $f.sb -side right -fill y
+    itk_component add trace {
+        text $f.comm -wrap char -yscrollcommand "$f.sb set" -background white
+    } {
+        ignore -background
+    }
+    pack $f.comm -expand yes -fill both
+
+    $itk_component(trace) tag configure error -foreground red \
+        -font -*-courier-medium-o-normal-*-*-120-*
+    $itk_component(trace) tag configure incoming -foreground blue
+}
+
+itcl::body Rappture::VtkHeightmapViewer::DebugConsole {} {
+    if { ![winfo exists .vtkconsole] } {
+        BuildConsole
+    }
+    if { $_settings(debug-console) } {
+        $this configure -sendcommand [itcl::code $this TraceComm]
+        $this configure -receivecommand [itcl::code $this TraceComm]
+        wm deiconify .vtkconsole
+    } else {
+        $this configure -sendcommand ""
+        $this configure -receivecommand ""
+        wm withdraw .vtkconsole
+    }
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+