Changeset e55369ea in tol

Timestamp:

Jun 13, 2014, 9:36:14 AM (12 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

4f283c7

Parents:

cf80a5d

Message:

Refs #1776
Se añade un valor absoluto para aumentar siempre (no reducir) la ventana que se muestra.

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

File:

• tolbase/lib/toltk/bysgraph.tcl (modified) (2 diffs)

tolbase/lib/toltk/bysgraph.tcl

@@ -657 +657 @@
     set tmpOpt(var,yAxisMax) [lindex $values_y 1]
     ::bayesGraph::GrapOptApplyAxisLimits $this y \
-      [expr $tmpOpt(var,yAxisMin) - ($tmpOpt(var,yAxisMin) / 100)] \
-      [expr $tmpOpt(var,yAxisMax) + ($tmpOpt(var,yAxisMax) / 100)]
+      [expr $tmpOpt(var,yAxisMin) - abs($tmpOpt(var,yAxisMin) / 100)] \
+      [expr $tmpOpt(var,yAxisMax) + abs($tmpOpt(var,yAxisMax) / 100)]
   }
   if {([info exists values_y2]) && ([llength $values_y2])} {
@@ -664 +664 @@
     set tmpOpt(var,y2AxisMax) [lindex $values_y2 1]
     ::bayesGraph::GrapOptApplyAxisLimits $this y2 \
-      [expr $tmpOpt(var,y2AxisMin) - ($tmpOpt(var,y2AxisMin) / 100)] \
-      [expr $tmpOpt(var,y2AxisMax) + ($tmpOpt(var,y2AxisMax) / 100)]
+      [expr $tmpOpt(var,y2AxisMin) - abs($tmpOpt(var,y2AxisMin) / 100)] \
+      [expr $tmpOpt(var,y2AxisMax) + abs($tmpOpt(var,y2AxisMax) / 100)]
   }
   if {([info exists values_x]) && ([llength $values_x])} {