Index: tolbase/lib/toltk/setgraph.tcl
===================================================================
--- tolbase/lib/toltk/setgraph.tcl	(revision 3f32a915ef8abe70cc22dc1cf1eeae40bf17258e)
+++ tolbase/lib/toltk/setgraph.tcl	(revision f69e922567fbf1b5c45ffa03a72758c7e7d2bc6a)
@@ -60,4 +60,5 @@
   set gInfo(xTicks)  ""
 
+  #puts "***** info : ***** \n$info"
   array set gInfo $info
 
@@ -84,27 +85,31 @@
   }
   set i 0
-  foreach vec $gInfo(vectors) {
+  # TICKET 1450
+  foreach segments $gInfo(vectors) {
+    #puts "**** $i -- [llength $segments] -- $segments"
     set j  0
-    set segs  {}
-
-    set xdata [lindex $vec 0]
-    set ydata [lindex $vec 1]
-
-    $grpath line create l$ii-$j -xdata $xdata -ydata $ydata
-    lappend segs l$ii-$j
-    if { $j } {
-      $grpath line configure l$i-$j -label ""
-    } else {
-      set _label_ [lindex $gInfo(names) $i]
-      foreach _it_ [$grpath element names] {
-        if {$_label_ eq [$grpath element cget $_it_ -label]} {
-          append _label_ "x"
+    set segIds  {}
+
+    foreach seg $segments {
+      set xdata [lindex $seg 0]
+      set ydata [lindex $seg 1]
+      $grpath line create l$ii-$j -xdata $xdata -ydata $ydata
+      lappend segIds l$ii-$j
+      if { $j } {
+        $grpath line configure l$i-$j -label ""
+      } else {
+        set _label_ [lindex $gInfo(names) $i]
+        foreach _it_ [$grpath element names] {
+          if {$_label_ eq [$grpath element cget $_it_ -label]} {
+            append _label_ "x"
+          }
         }
-      }
-      $grpath line configure l$ii-0 -label $_label_
+        $grpath line configure l$ii-0 -label $_label_
+      }
+      incr j
     }
     incr i
     incr ii
-    lappend data(gr,$gr,elements) $segs
+    lappend data(gr,$gr,elements) $segIds
   }
   ::bayesGraph::BindLegend $Instance
@@ -294,7 +299,7 @@
   } else  {
 	set tl [::project::CreateForm \
-              -title    "[mc "Set table"]: $nameSet" \
-              -iniconfig Tables \
-              -type     Tables ]
+                    -title    "[mc {Set table}]: $nameSet" \
+                    -iniconfig Tables \
+                    -type     Tables ]
 
     $tl withdraw
@@ -442,4 +447,6 @@
   variable data
 
+  #puts "**** ::SetGraphDialog::DrawSet $tableset type=$type"
+
   ::SetGraphDialog::InitData $tableset
 
@@ -452,5 +459,6 @@
     1 {
       # fill listX and listY
-      ::SetGraphDialog::SetDataVarList
+      # TICKET 1450
+      #::SetGraphDialog::SetDataVarList
       switch $type {
         0 {
@@ -492,5 +500,5 @@
         return $instance
       } else {
-        set msg [mc "Series do not exist that to draw"] 
+        set msg [mc "There are no data to draw"] 
         ::TolConsole::HciWriter "<W>$msg</W>"
       }
@@ -563,4 +571,9 @@
   variable data
 
+  set data(var,listX) \
+    [list [list -1 "<Generic 1-[$tableset info datarows]>"]]
+
+  set data(var,listY) {}
+
   set idx 0
   for {set i 1} {$i <= 4} {incr i} {
@@ -569,4 +582,5 @@
   }
   foreach it [$tableset info columns] {
+    #puts "**** it = $it"
     foreach {key value} $it {
       set data(infCols,$idx,$key) $value
@@ -581,4 +595,5 @@
 
         lappend data(idxColsType2) $idx
+        lappend data(var,listX) [ list $idx $data(infCols,$idx,name) ]
       }
       Real {
@@ -590,8 +605,12 @@
           lappend data(idxColsType4) $idx
 #         lappend data(idxColsType1) $idx
+          lappend data(var,listY) [ list $idx $data(infCols,$idx,name) ]
         } elseif {$data(infCols,$idx,unknown)} {
           lappend data(idxColsType3) $idx
+          lappend data(var,listY) [ list $idx $data(infCols,$idx,name) ]
         } else {
           lappend data(idxColsType1) $idx 
+          lappend data(var,listX) [ list $idx $data(infCols,$idx,name) ]
+          lappend data(var,listY) [ list $idx $data(infCols,$idx,name) ]
         }
       }
@@ -634,4 +653,5 @@
   variable tmpOpt
 
+  #puts "******* ::SetGraphDialog::DrawDialog"
   set dialog [Dialog .t -title [mc "Columns Selector"] -separator yes\
                 -modal local -parent .]
@@ -644,5 +664,6 @@
   
   # fill listX and listY
-  ::SetGraphDialog::SetDataVarList
+  # TICKET 1450
+  #::SetGraphDialog::SetDataVarList
 
   set values ""
@@ -837,5 +858,5 @@
     }
     set parent  
-    set msg "[mc {Item not selectionable}].\n[mc UniqueXAxis]"
+    set msg "[mc {Item not selectable}].\n[mc UniqueXAxis]"
     tk_messageBox -type ok -icon warning -message $msg\
                   -parent $parent        -title [mc Warning] 
@@ -890,4 +911,6 @@
   #puts "DEBUG: ::SetGraphDialog::GrapthEvenUneven"
   set row 0
+
+  # TICKET 1450: que cosa mas rara se hace aqui!!!!!!!
   for {set i 0} {$i<[expr [llength $data(var,listY)] - 1]} {incr i 2} {
     set colX [lindex [lindex $data(var,listY) $i] 0]
@@ -1158,4 +1181,5 @@
 }
 
+# TICKET #1450: aqui es donde se ponen los datos que luego se pintan.
 #/////////////////////////////////////////////////////////////////////////////
   proc ::SetGraphDialog::SetSelection {} {
@@ -1201,19 +1225,37 @@
       set i 0
       set subVectors ""
+      set subcurves {}
       set lstX {}
+      set segX {}
       set lstY {}
+      set segY {}
       foreach item $vecsY {
         #si no es un omitido (vacio o ?)
         if {[string equal $item ""] || [string equal $item "?"]} {
-          incr i
+          # TICKET 1450
+          # close this segment
+          if { [ llength $segX ] } {
+            lappend subcurves [ list $segX $segY ]
+            set segX {}
+            set segY {}
+          }
         } else  {
-          set datX [lindex $vecX $i] 
-          lappend lstX $datX 
-          lappend lstY $item
-          incr i
+          # TICKET 1450
+          #set datX [lindex $vecX $i] 
+          #lappend lstX $datX 
+          #lappend lstY $item
+          lappend segX [lindex $vecX $i]
+          lappend segY $item
         }
-      }
-      lappend data(vectors) [list $lstX $lstY]
+        incr i
+      }
+      # TICKET 1450
+      #lappend data(vectors) [list $lstX $lstY]
+      if { [ llength $segX ] } {
+        lappend subcurves [ list $segX $segY ]
+      }
+      lappend data(vectors) $subcurves
     } else {
+      #puts "****** lappend data(vectors) [list [list $vecX $vecsY]]"
       lappend data(vectors) [list [list $vecX $vecsY]]
     }