Changeset 6343

Timestamp:

May 16, 2016, 7:41:22 AM (8 years ago)

Author:

ldelgass

Message:

Fix for setting isoline color to none in surface viewer.

File:

• trunk/gui/scripts/vtksurfaceviewer.tcl (modified) (2 diffs)

trunk/gui/scripts/vtksurfaceviewer.tcl

@@ -1315 +1315 @@
             set _changed($what) 1
             set color [$itk_component(isolinecolor) value]
-            set _settings($what) $color
-            SendCmd "contour2d linecolor [Color2RGB $color]"
+            if { $color == "none" } {
+                if { $_settings(-isolinesvisible) } {
+                    set _changed(-isolinesvisible) 1
+                    foreach tag [CurrentDatasets -visible] {
+                        SendCmd "contour2d visible 0 $tag"
+                    }
+                    set _settings(-isolinesvisible) 0
+                }
+            } else {
+                set _settings($what) $color
+                if { !$_settings(-isolinesvisible) } {
+                    set _changed(-isolinesvisible) 1
+                    foreach tag [CurrentDatasets -visible] {
+                        SendCmd "contour2d visible 0 $tag"
+                    }
+                    set _settings(-isolinesvisible) 1
+                }
+                SendCmd "contour2d linecolor [Color2RGB $color]"
+            }
             DrawLegend
         }
@@ -1324 +1341 @@
             SendCmd "contour2d visible 0"
             if { $bool } {
+                if { [$itk_component(isolinecolor) value] != $_settings(-isolinecolor)} {
+                    $itk_component(isolinecolor) value $_settings(-isolinecolor)
+                }
                 foreach tag [CurrentDatasets -visible] {
                     SendCmd "contour2d visible $bool $tag"