Changeset 7b0030e in tol

Timestamp:

Jun 23, 2010, 7:04:28 AM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

1b22d90

Parents:

827eb3c

Message:

tratando con . en los nombres de tipo

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

File:

• tolbase/lib/toltk/MenuManager.tcl (modified) (2 diffs)

tolbase/lib/toltk/MenuManager.tcl

@@ -166 +166 @@
   set mm $targetMenu
   set nn ""
+  set mapdot [ list . - ]
   foreach n [ lrange $path0 0 end-1 ] {
-    set mm0 ${mm}.mm$n
+    # evito el caracter . en el nombre de widget
+    set n0 [ string map $mapdot $n ]
+    set mm0 ${mm}.mm$n0
     if { [ winfo exists $mm0 ] } {
       $mm0 delete 0 end
@@ -215 +218 @@
   # un tipo
   if { [ llength $typesSelected(types) ] > 1 } {
+    set mapdot [ list . - ]
     foreach type $typesSelected(types) {
-      set menuType $menuWidget.mtype$type
+      # type puede contener . por eso hay que reemplazarlo
+      set type0 [ string map $mapdot $type ]
+      set menuType $menuWidget.mtype$type0
       if { ![ winfo exists $menuType ] } {
         menu $menuType -tearoff 0