Changeset 6371 for branches/multichoice/gui/scripts/transferfunctioneditor.tcl

Timestamp:

Jun 2, 2016, 8:19:06 AM (8 years ago)

Author:

dkearney

Message:

merging changes from trunk into multichoice branch

Location:

branches/multichoice

Files:

• . (modified) (1 prop)
• gui/scripts/transferfunctioneditor.tcl (modified) (2 diffs)

branches/multichoice/gui/scripts/transferfunctioneditor.tcl

@@ -42 +42 @@
     private method GetScreenPosition { name }
     private method LeaveTick { name }
-    private method SetRelativeValue  { name x }
-    private method GetRelativeValue  { name }
+    private method SetRelativeValue { name x }
+    private method GetRelativeValue { name }
     private method RemoveDuplicateMarkers {name x y}
     private method SetScreenPosition { name }
@@ -225 +225 @@
 }
 
-itcl::body Rappture::TransferFunctionEditor::GetRelativeValue  { name } {
+itcl::body Rappture::TransferFunctionEditor::GetRelativeValue { name } {
     return $_values($name)
 }
 
-itcl::body Rappture::TransferFunctionEditor::SetRelativeValue  { name value } {
+itcl::body Rappture::TransferFunctionEditor::SetRelativeValue { name value } {
+    if {$value < 0.0} {
+        set value 0.0
+    } elseif {$value > 1.0} {
+        set value 1.0
+    }
     set _values($name) $value
     set x [GetScreenPosition $name]