Changeset 5269 for branches/1.3

Timestamp:

Apr 17, 2015, 10:10:05 PM (9 years ago)

Author:

ldelgass

Message:

Split out DrawLegend? method

File:

• branches/1.3/gui/scripts/nanovisviewer.tcl (modified) (4 diffs)

branches/1.3/gui/scripts/nanovisviewer.tcl

@@ -95 +95 @@
     private method Disconnect {}
     private method DoResize {}
+    private method DrawLegend { tf }
     private method EventuallyResize { w h }
     private method EventuallyResizeLegend { }
@@ -729 +730 @@
 
 #
-# ReceiveLegend --
-#
-#       The procedure is the response from the render server to each "legend"
-#       command.  The server sends back a "legend" command invoked our
-#       the slave interpreter.  The purpose is to collect data of the image
-#       representing the legend in the canvas.  In addition, the isomarkers
-#       of the active transfer function are displayed.
-#
-#       I don't know is this is the right place to display the isomarkers.
-#       I don't know all the different paths used to draw the plot. There's
-#       "Rebuild", "add", etc.
-#
-itcl::body Rappture::NanovisViewer::ReceiveLegend { tf vmin vmax size } {
-    if { ![isconnected] } {
-        return
-    }
-    set bytes [ReceiveBytes $size]
-    $_image(legend) configure -data $bytes
-    ReceiveEcho <<line "<read $size bytes for [image width $_image(legend)]x[image height $_image(legend)] legend>"
-
+# DrawLegend --
+#
+itcl::body Rappture::NanovisViewer::DrawLegend { tf } {
     set c $itk_component(legend)
     set w [winfo width $c]
@@ -765 +749 @@
             [itcl::code $this AddIsoMarker %x %y]
     }
-    # Display the markers used by the active transfer function.
-
+
+    # Display the markers used by the current transfer function.
     array set limits [limits $tf]
     $c itemconfigure vmin -text [format %.2g $limits(min)]
@@ -797 +781 @@
         }
     }
+}
+
+#
+# ReceiveLegend --
+#
+#       The procedure is the response from the render server to each "legend"
+#       command.  The server sends back a "legend" command invoked our
+#       the slave interpreter.  The purpose is to collect data of the image
+#       representing the legend in the canvas.  In addition, the
+#       active transfer function is displayed.
+#
+#
+itcl::body Rappture::NanovisViewer::ReceiveLegend { tf vmin vmax size } {
+    if { ![isconnected] } {
+        return
+    }
+    set bytes [ReceiveBytes $size]
+    $_image(legend) configure -data $bytes
+    ReceiveEcho <<line "<read $size bytes for [image width $_image(legend)]x[image height $_image(legend)] legend>"
+
+    DrawLegend $tf
 }