Changeset 0bf09a4 in tol for tolbase/lib/toltk/graph.tcl

Timestamp:

Nov 28, 2016, 10:35:21 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

7b8f6fc

Parents:

0f71b65

Message:

Se eliminan algunos tabuladores y espacios adicionales.

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@7358 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/graph.tcl (modified) (11 diffs)

tolbase/lib/toltk/graph.tcl

@@ -20 +20 @@
       }
       default {
-        
+
       }
     }
@@ -52 +52 @@
     bind scroll-$graph <ButtonRelease-1> { rbc::SetScrollPoint %W %x %y }
     # este evento posiblemente ya no hara falta
-    bind scroll-$graph <ButtonPress-3> { 
-      if { [%W inside %x %y] } { 
-        rbc::ResetScroll %W 
+    bind scroll-$graph <ButtonPress-3> {
+      if { [%W inside %x %y] } {
+        rbc::ResetScroll %W
       }
     }
@@ -61 +61 @@
     puts "mode = $mode"
     bind zoom-$graph <ButtonPress-1> { rbc::SetZoomPoint %W %x %y }
-    if { [string equal $mode zoom-frame] } { 
+    if { [string equal $mode zoom-frame] } {
       bind zoom-$graph <ButtonRelease-1> { rbc::SetZoomPoint %W %x %y }
     } else {
       bind zoom-$graph <ButtonRelease-1> ""
     }
-    bind zoom-$graph <ButtonPress-3> { 
-      if { [%W inside %x %y] } { 
-        rbc::ResetZoom %W 
+    bind zoom-$graph <ButtonPress-3> {
+      if { [%W inside %x %y] } {
+        rbc::ResetZoom %W
       }
     }
@@ -80 +80 @@
     set index [lsearch $oldTagList $tag]
     if { $index >= 0 } {
-        bindtags $widget [lreplace $oldTagList $index $index]
+        bindtags $widget [lreplace $oldTagList $index $index]
     }
   }
@@ -87 +87 @@
 proc rbc::InitStack { graph {mode zoom-frame} } {
     global zoomInfo
-  
+
     _rbc_InitStack $graph
     # this is to allow zoom in, out scroll
-  
+
     set zoomInfo($graph,mode) $mode
 }
@@ -135 +135 @@
   }
   set zoomInfo($graph,stack) [linsert $zoomInfo($graph,stack) 0 $cmd]
-  busy hold $graph 
+  busy hold $graph
   # This update lets the busy cursor take effect.
   update
@@ -162 +162 @@
   ::bayesGraph::GrapOptApplyAxisTicks    $this ${this}::options gr,$gr
   update
-  
+
   busy release $graph
 }
@@ -185 +185 @@
     set modifier "Any-"
   }
-  bind select-region-$graph <${modifier}Motion> { 
+  bind select-region-$graph <${modifier}Motion> {
     rbc::GetCoords %W %x %y B
     #rbc::MarkPoint $graph B
@@ -191 +191 @@
   }
   if { $zoomInfo($graph,corner) == "A" } {
-        if { ![$graph inside $x $y] } {
-            return
-        }
-        # First corner selected, start watching motion events
-
-        #rbc::MarkPoint $graph A
-        rbc::ZoomTitleNext $graph 
-
-        rbc::AddBindTag $graph select-region-$graph
-        set zoomInfo($graph,corner) B
-  } else {
-        # Delete the modal binding
-        rbc::RemoveBindTag $graph select-region-$graph
-        rbc::PushZoom $graph 
-        set zoomInfo($graph,corner) A
+    if { ![$graph inside $x $y] } {
+      return
+    }
+    # First corner selected, start watching motion events
+
+    #rbc::MarkPoint $graph A
+    rbc::ZoomTitleNext $graph
+
+    rbc::AddBindTag $graph select-region-$graph
+    set zoomInfo($graph,corner) B
+  } else {
+    # Delete the modal binding
+    rbc::RemoveBindTag $graph select-region-$graph
+    rbc::PushZoom $graph
+    set zoomInfo($graph,corner) A
   }
 }
@@ -213 +213 @@
 
     rbc::GetCoords $graph $x $y A
-    bind scroll-region-$graph <Any-Motion> { 
-        rbc::GetCoords %W %x %y B
-        #rbc::MarkPoint $graph B
-        rbc::Scroll %W
+    bind scroll-region-$graph <Any-Motion> {
+        rbc::GetCoords %W %x %y B
+        #rbc::MarkPoint $graph B
+        rbc::Scroll %W
     }
     if { $zoomInfo($graph,corner) == "A" } {
-        if { ![$graph inside $x $y] } {
-            return
-        }
-        # First corner selected, start watching motion events
-
-        #rbc::MarkPoint $graph A
-        rbc::ScrollTitle $graph 
-
-        rbc::AddBindTag $graph scroll-region-$graph
-        set zoomInfo($graph,corner) B
-    } else {
-        # Delete the modal binding
-      ResetScroll $graph
+        if { ![$graph inside $x $y] } {
+          return
+        }
+        # First corner selected, start watching motion events
+
+        #rbc::MarkPoint $graph A
+        rbc::ScrollTitle $graph
+
+        rbc::AddBindTag $graph scroll-region-$graph
+        set zoomInfo($graph,corner) B
+    } else {
+        # Delete the modal binding
+        ResetScroll $graph
     }
 }
@@ -262 +262 @@
   eval $graph marker delete [$graph marker names "scroll*"]
   rbc::RemoveBindTag $graph scroll-region-$graph
-  set zoomInfo($graph,corner) A  
+  set zoomInfo($graph,corner) A
 }
 
 proc rbc::ScrollTitle { graph } {
     if { [$graph cget -invertxy] } {
-        set coords "-Inf -Inf"
-    } else {
-        set coords "-Inf Inf"
+        set coords "-Inf -Inf"
+    } else {
+        set coords "-Inf Inf"
     }
     $graph marker create text -name "scrollTitle" -text "scrolling ..." \
-        -coords $coords -bindtags "" -anchor nw
-}
+        -coords $coords -bindtags "" -anchor nw
+}