Changeset 30a2cda in tol for tolbase/lib/byswidget/bsersel

Timestamp:

Nov 25, 2008, 5:44:56 PM (18 years ago)

Author:

Christian Paz <cpaz@…>

Branches:

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

Children:

01994af

Parents:

3ad2aa3

Message:

Corrected problem with hierarchical tree selector

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

File:

• tolbase/lib/byswidget/bsersel/bsersel.tcl (modified) (2 diffs)

tolbase/lib/byswidget/bsersel/bsersel.tcl

@@ -658 +658 @@
               if {$par ne ""} {
                  set paridx [$self _findcode $alg(sDi,$mag,$dim,-hie,$sDi) $par]
+#                                set cmd "Text WriteLn(\"already inserted pairs $mag $dim $sDi : $alg(sDi,$mag,$dim,-hie,$sDi) \");"
+#                 ::tol::console eval $cmd
                  if { $paridx >= 0 } {
                    set plottedreg [ lreplace $plottedreg $regidx $regidx 1 ]
                    set plotted [expr $plotted+1]
                    set idx [ $tmp($mag,$dim,$sDi) insertNode $paridx 0 $mark $abr $nom $infCols ]
+                                   lappend alg(sDi,$mag,$dim,-hie,$sDi) [list $idx $abr]
+#                                  set cmd "Text WriteLn(\"Inserting it $iteration $abr $nom ($idx) parent $par ($paridx) \");"
+#                   ::tol::console eval $cmd
                  }
               } else {
@@ -667 +672 @@
                  set plotted [expr $plotted+1]
                  set idx [ $tmp($mag,$dim,$sDi) insertNode root 0 $mark $abr $nom $infCols ]
+                                 lappend alg(sDi,$mag,$dim,-hie,$sDi) [list $idx $abr]
+#                                  set cmd "Text WriteLn(\"Inserting it $iteration $abr $nom ($idx) \");"
+#                   ::tol::console eval $cmd
               }
-              lappend alg(sDi,$mag,$dim,-hie,$sDi) [list $idx $abr]
           }
           set regidx [expr $regidx+1]