Changeset ceaefa5 in tol

Timestamp:

Jun 26, 2009, 6:21:32 PM (17 years ago)

Author:

Javier Portugal <javipor@…>

Branches:

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

Children:

307a230

Parents:

f8287df

Message:

Fixed bug when selecting default value for "Uni.Ind" subdimensions

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

File:

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

tolbase/lib/byswidget/bsersel/bsersel.tcl

@@ -220 +220 @@
       incr idxMag
     }
-    parray alg    
+    #parray alg    
   }
 
@@ -545 +545 @@
   #   sDi -> subdimension identifier
   #/////////////////////////////////////////////////////////////////////////////
-  #Tolcon_Trace "_fillSubDim mag=$mag, dim=$dim, sDi=$sDi"
+    #Tolcon_Trace "_fillSubDim mag=$mag, dim=$dim, sDi=$sDi"
     set type [$self _getSubDimType $mag $dim $sDi]
     switch -- $type {
@@ -577 +577 @@
   return -1
 }
+
 #/////////////////////////////////////////////////////////////////////////////
 method _fillSubDimHie {mag dim sDi trigger} {
@@ -693 +694 @@
 #   sDi -> subdimension identifier
 #/////////////////////////////////////////////////////////////////////////////
-#Tolcon_Trace "_fillSubDimUniInd mag=$mag dim=$dim, sDi=$sDi"
+#Tolcon_Trace "_fillSubDimDat mag=$mag dim=$dim, sDi=$sDi"
   set w $algwid($mag,$dim,$sDi)
   set lstReg [$self _getSubDimValues $mag $dim $sDi]
@@ -818 +819 @@
         set valCont [expr $valCont+1]
         if {$defval eq [lindex $reg 1]} {
-             set defFound $valCont
+          set defFound $valCont
         }
       }
@@ -848 +849 @@
 
     if {$defval ne ""} {
-       if {$defFound eq 1} {
+       if {$defFound ne 0} {
           $tmp($mag,$dim,$sDi) selectIndex $defFound
        }