Changeset 3c80442 in tol

Timestamp:

Jan 13, 2010, 12:22:30 PM (17 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

a809fc1

Parents:

d6c5434

Message:

refs #838 : selection is returned as indexes

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

File:

• tol_pkg/GuiTools/MultiDimSelect.tcl (modified) (4 diffs)

tol_pkg/GuiTools/MultiDimSelect.tcl

@@ -115 +115 @@
     puts "getChecked, info : $info"
     set result [ list ]
+    set idx 1
     foreach r $info {
       if { [ lindex $r 0 ] } {
-        lappend result [ lindex $r 1 ]
-      }
+        lappend result $idx
+      }
+      incr idx
     }
     set result
@@ -134 +136 @@
   option -addr -readonly yes -validatemethod _checkAddr
 
-  typemethod _invokeButton { obj_addr method dims } {
+  method _invokeButton { method dims } {
+    set addr $options(-addr)
+    puts "_invokeButton $addr $method $dims"
     set try [ catch {
-      tol::console eval [ string map [ list %A $obj_addr %M $method %D $dims ] {
+      tol::console eval [ string map [ list %A $addr %M $method %D $dims ] {
         NameBlock __aux_instance__ = GetObjectFromAddress("%A");
         Real __aux_result__ = __aux_instance__::%M(%D)
@@ -238 +242 @@
       }
     }
-    $type _invokeButton $options(-addr) $met "SetOfSet([ join $level1 , ])"
+    $self _invokeButton $met "SetOfSet([ join $level1 , ])"
     if { $ex } {
       after idle destroy $win
@@ -345 +349 @@
 
 proc ShowDimSelector { addr } {
+  puts "ShowDimSelector $addr"
   DimSelector .dimsel -addr $addr -geometry 200x200 -parent .
+  puts "[ .dimsel cget -addr]"
   set result [ .dimsel draw ]
   puts "sali con $result"