Changeset 8d0dffc in tol for tolbase/lib/toltk/bysgropt.tcl

Timestamp:

Dec 4, 2011, 2:41:55 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

a64f8ce

Parents:

af9a0af

Message:

fixes #1222

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

File:

• tolbase/lib/toltk/bysgropt.tcl (modified) (7 diffs)

tolbase/lib/toltk/bysgropt.tcl

@@ -3253 +3253 @@
   }
   # marker each
+  puts "::bayesGraph::GrapOptApplyMarkers: $g, var=$var, pre=$pre"
+  puts "[ $g axis cget x -majorticks ]"
   foreach {axis map} {x mapx y mapy x2 mapx y2 mapy} {
     # comprobamos si esta visible el eje
@@ -3268 +3270 @@
             # nos quedamos con el valor minimo y maximo del eje
             #TODO: igual es interesante quedarnos con el max y min de las lineas
-            #      asiciadas al eje
+            #      asociadas al eje
+            $g axis configure x -majorticks [ $g axis cger x -majorticks ]
+            if { 0 } {
             set max [$g axis cget $axis -max]
             set min [$g axis cget $axis -min]
@@ -3280 +3284 @@
           }
           set i 0
+          }
           set j 0
+          puts "lstMarkers = $lstMarkers"
           foreach it $lstMarkers {
             if {$j==5} { set j 0 }
@@ -3292 +3298 @@
             $g marker bind $it <Enter> \
                 [list ::bayesGraph::WriteInfo $this "[mc Marker]${axis}: each $it"]
+            set majorTicks [ $g axis cget $axis -majorticks ]
             $g marker bind $it <Leave> \
                 [list ::bayesGraph::WriteInfo $this ""]
+            puts "voy con it = $it"
+            for { set mt 0 } { $mt < [ llength $majorTicks ] } { incr mt } {
+              if { [ expr { ( $mt + 1 ) % int( $it ) } ] } continue
+              set pos [ lindex $majorTicks $mt ]
+              if { "x" eq [string index $axis 0] } {
+                set coord [list $pos -Inf $pos Inf]
+              } else {
+                set coord [list -Inf $pos Inf $pos]
+              }
+              puts "añadiendo marcador $mt en posicion $pos"
+              catch { 
+                $g marker create line -name ${it}_$pos -coords $coord \
+                    -outline $color -dashes $dashe -$map $axis \
+                    -bindtags $it -linewidth $width -under $under
+              }
+            }
+            if { 0 } {
             while {$pos < $numTicks} {
               set pos [expr $pos + $it]
@@ -3307 +3331 @@
             }
             incr i
+            }
           }
         }
@@ -3312 +3337 @@
     }
   }
-}
-
+  puts "[ $g axis cget x -majorticks ]"
+}
 
 #/////////////////////////////////////////////////////////////////////////////
@@ -3341 +3366 @@
           set lon [llength [$g marker names]]
           set j [expr $lon<5 ? $lon : $lon % 5] 
-
           foreach it $lstMarkersIn {
             if {$j==5} { set j 0 }