Changeset 91585e2 in tol for tolbase

Timestamp:

Dec 20, 2016, 9:55:03 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

820bb4e

Parents:

5e157f6

Message:

Refs #1933
Se comentan algunas trazas.

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

Location:

tolbase/lib

Files:

• renderpane/renderpane.tcl (modified) (1 diff)
• toltk/bysgropt.tcl (modified) (5 diffs)
• toltk/bystable.tcl (modified) (1 diff)
• toltk/bystext.tcl (modified) (1 diff)
• toltk/graph.tcl (modified) (2 diffs)
• toltk/project.tcl (modified) (1 diff)
• toltk/sergraph.tcl (modified) (1 diff)

tolbase/lib/renderpane/renderpane.tcl

@@ -861 +861 @@
     # this helps everything scroll better.
     proc LoadImage {filename {width 0} {height 0}} {
-        puts "LoadImage $filename"
+        #@ puts "LoadImage $filename"
         if { [ file readable $filename ] } {
           # FIRST, load the image

tolbase/lib/toltk/bysgropt.tcl

@@ -3244 +3244 @@
   }
   # marker each
-  puts "::bayesGraph::GrapOptApplyMarkers: $g, var=$var, pre=$pre"
-  puts "[ $g axis cget x -majorticks ]"
+  #@ 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
@@ -3277 +3277 @@
           }
           set j 0
-          puts "lstMarkers = $lstMarkers"
+          #@ puts "lstMarkers = $lstMarkers"
           foreach it $lstMarkers {
             if {$j==5} { set j 0 }
@@ -3292 +3292 @@
             $g marker bind $it <Leave> \
                 [list ::bayesGraph::WriteInfo $this ""]
-            puts "voy con it = $it"
+            #@ puts "voy con it = $it"
             for { set mt 0 } { $mt < [ llength $majorTicks ] } { incr mt } {
               if { [ expr { ( $mt + 1 ) % int( $it ) } ] } continue
@@ -3301 +3301 @@
                 set coord [list -Inf $pos Inf $pos]
               }
-              puts "añadiendo marcador $mt en posicion $pos"
+              #@ puts "añadiendo marcador $mt en posicion $pos"
               catch { 
                 $g marker create line -name ${it}_$pos -coords $coord \
@@ -3328 +3328 @@
     }
   }
-  puts "[ $g axis cget x -majorticks ]"
+  #@ puts "[ $g axis cget x -majorticks ]"
 }
 

tolbase/lib/toltk/bystable.tcl

@@ -342 +342 @@
     set struct "{$numCols {\n} {} { ; }} {1 { ; } {} {}}"
     set txt [ListToStrStruct $list $struct]  
-    puts $fd $txt
+    #@ puts $fd $txt
     close $fd
     return 1

tolbase/lib/toltk/bystext.tcl

@@ -557 +557 @@
 #/////////////////////////////////////////////////////////////////////////////   
   if { ![ catch { set fd [open $path w] } msgerr] } {
-    puts -nonewline $fd $texto
+    #@ puts -nonewline $fd $texto
     close $fd
     return 1

tolbase/lib/toltk/graph.tcl

@@ -28 +28 @@
   rename ::rbc::busy _rbc_busy
   interp alias {} ::rbc::busy {} Busy_Patched
-  puts "interp alias {} ::rbc::busy {} Busy_Patched"
+  #@ puts "interp alias {} ::rbc::busy {} Busy_Patched"
 }
 
@@ -59 +59 @@
     rbc::AddBindTag $graph scroll-$graph
   } elseif { [regexp "zoom-*" $mode] } {
-    puts "mode = $mode"
+    #@ puts "mode = $mode"
     bind zoom-$graph <ButtonPress-1> { rbc::SetZoomPoint %W %x %y }
     if { [string equal $mode zoom-frame] } {

tolbase/lib/toltk/project.tcl

@@ -238 +238 @@
   wm state . normal
   wm geometry . [set geom [::iniFile::Read Project topgeom $defgeom]]
-puts "initWM: geometria: $geom"
+  #@ puts "initWM: geometria: $geom"
   if { [expr $project::data(oculto)] } {
     wm iconify .

tolbase/lib/toltk/sergraph.tcl

@@ -59 +59 @@
   set Instance [::bayesGraph::Create $path $opts(-struct) -photo $opts(-photo)]
   }]
-  puts "time in ::bayesGraph::Create = $t0"
+  #@ puts "time in ::bayesGraph::Create = $t0"
   upvar \#0 ${Instance}::widgets widgets
   upvar \#0 ${Instance}::data data