Changeset 5115 for branches/1.3/gui/scripts/isomarker.tcl

Timestamp:

Mar 9, 2015 8:04:58 PM (6 years ago)

Author:

ldelgass

Message:

whitespace

File:

• branches/1.3/gui/scripts/isomarker.tcl (modified) (9 diffs)

branches/1.3/gui/scripts/isomarker.tcl

@@ -1 @@
-# -*- mode: tcl; indent-tabs-mode: nil -*- 
+# -*- mode: tcl; indent-tabs-mode: nil -*-
 
 # ----------------------------------------------------------------------
@@ -24 +24 @@
     private variable _canvas    ""
     private variable _nvobj     "";     # Parent nanovis object.
-    private variable _tf        "";     # Transfer function that this marker is 
+    private variable _tf        "";     # Transfer function that this marker is
                                         # associated with.
     private variable _activeMotion   0
@@ -31 +31 @@
     private common   _activeIcon [Rappture::icon nvlegendmark2]
 
-    constructor {c obj tf args} { 
+    constructor {c obj tf args} {
         set _canvas $c
         set _nvobj $obj
@@ -52 +52 @@
             [itcl::code $this HandleEvent "end" %x %y]
     }
-    destructor { 
+    destructor {
         $_canvas delete $this
     }
@@ -76 +76 @@
         }
     }
-    public method screenpos { } { 
+    public method screenpos { } {
         set x [relval]
         if { $x < 0.0 } {
             set x 0.0
         } elseif { $x > 1.0 } {
-            set x 1.0 
+            set x 1.0
         }
-        set low 10 
+        set low 10
         set w [winfo width $_canvas]
         set high [expr {$w  - 10}]
@@ -102 +102 @@
     public method relval  { {x "-get"} } {
         if { $x == "-get" } {
-            array set limits [$_nvobj limits $_tf] 
+            array set limits [$_nvobj limits $_tf]
             if { $limits(vmax) == $limits(vmin) } {
                 if { $limits(vmax) == 0.0 } {
@@ -113 +113 @@
             return [expr {($_value-$limits(vmin))/
                           ($limits(vmax) - $limits(vmin))}]
-        } 
-        array set limits [$_nvobj limits $_tf] 
+        }
+        array set limits [$_nvobj limits $_tf]
         if { $limits(vmax) == $limits(vmin) } {
             set limits(vmin) 0.0
@@ -121 +121 @@
         if { [catch {expr $limits(vmax) - $limits(vmin)} r] != 0 } {
             return 0.0
-        }           
+        }
         absval [expr {($x * $r) + $limits(vmin)}]
     }
@@ -136 +136 @@
             }
             start {
-                $_canvas raise $_tick 
+                $_canvas raise $_tick
                 set _activePress 1
                 activate yes