Ignore:
Timestamp:
Mar 9, 2015 8:04:58 PM (6 years ago)
Author:
ldelgass
Message:

whitespace

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.3/gui/scripts/isomarker.tcl

    r4848 r5115  
    1 # -*- mode: tcl; indent-tabs-mode: nil -*- 
     1# -*- mode: tcl; indent-tabs-mode: nil -*-
    22
    33# ----------------------------------------------------------------------
     
    2424    private variable _canvas    ""
    2525    private variable _nvobj     "";     # Parent nanovis object.
    26     private variable _tf        "";     # Transfer function that this marker is 
     26    private variable _tf        "";     # Transfer function that this marker is
    2727                                        # associated with.
    2828    private variable _activeMotion   0
     
    3131    private common   _activeIcon [Rappture::icon nvlegendmark2]
    3232
    33     constructor {c obj tf args} { 
     33    constructor {c obj tf args} {
    3434        set _canvas $c
    3535        set _nvobj $obj
     
    5252            [itcl::code $this HandleEvent "end" %x %y]
    5353    }
    54     destructor { 
     54    destructor {
    5555        $_canvas delete $this
    5656    }
     
    7676        }
    7777    }
    78     public method screenpos { } { 
     78    public method screenpos { } {
    7979        set x [relval]
    8080        if { $x < 0.0 } {
    8181            set x 0.0
    8282        } elseif { $x > 1.0 } {
    83             set x 1.0 
     83            set x 1.0
    8484        }
    85         set low 10 
     85        set low 10
    8686        set w [winfo width $_canvas]
    8787        set high [expr {$w  - 10}]
     
    102102    public method relval  { {x "-get"} } {
    103103        if { $x == "-get" } {
    104             array set limits [$_nvobj limits $_tf] 
     104            array set limits [$_nvobj limits $_tf]
    105105            if { $limits(vmax) == $limits(vmin) } {
    106106                if { $limits(vmax) == 0.0 } {
     
    113113            return [expr {($_value-$limits(vmin))/
    114114                          ($limits(vmax) - $limits(vmin))}]
    115         } 
    116         array set limits [$_nvobj limits $_tf] 
     115        }
     116        array set limits [$_nvobj limits $_tf]
    117117        if { $limits(vmax) == $limits(vmin) } {
    118118            set limits(vmin) 0.0
     
    121121        if { [catch {expr $limits(vmax) - $limits(vmin)} r] != 0 } {
    122122            return 0.0
    123         }           
     123        }
    124124        absval [expr {($x * $r) + $limits(vmin)}]
    125125    }
     
    136136            }
    137137            start {
    138                 $_canvas raise $_tick 
     138                $_canvas raise $_tick
    139139                set _activePress 1
    140140                activate yes
Note: See TracChangeset for help on using the changeset viewer.