Index: tolbase/lib/toltk/tolinspe.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe.tcl	(revision 3f0542d67616233edb0ab773716738da8c4db5da)
+++ tolbase/lib/toltk/tolinspe.tcl	(revision 3a5bf7bcc3922bbb19580f3cfbf39f7d3dfc3a9f)
@@ -1851,4 +1851,5 @@
 
 proc TolGui_GetMenuEntries { selection idx } {
+  #puts "TolGui_GetMenuEntries $selection $idx"
   array set instances {}
   array set menu_class {}
@@ -1876,5 +1877,15 @@
     lappend menu_info [ list $c $menu_class($c) $instances($c) ]
   }
+  #puts "$menu_info"
   set menu_info
+}
+
+proc TolGui_InsertEntriesFromMenuManager { targetMenu selection } {
+  set addrList [ list ]
+  foreach obj_info $selection {
+    set tcl_ref [ lindex $obj_info 0 ]
+    lappend addrList [ ::tol::info address $tcl_ref ]
+  }
+  MenuManager::insertEntriesForSelection $targetMenu $addrList
 }
 
@@ -1897,4 +1908,5 @@
 
 proc TolGui_InvokeMethod { method obj_addr } {
+  #puts "TolGui_InvokeMethod $method $obj_addr"
   set try [ catch {
     tol::console eval [ string map [ list %A $obj_addr %M $method ] {
@@ -2130,4 +2142,9 @@
             }
             NameBlock {
+              # entradas desde MenuManager
+              TolGui_InsertEntriesFromMenuManager \
+                  $data_menu(main) \
+                  $options_selected(NameBlock)
+              # entradas desde @MenuDesc
               set sel_length [ llength $options_selected(NameBlock) ]
               if { $sel_length } {
@@ -2137,17 +2154,19 @@
                           $options_selected(NameBlock) $idx_current ]
                 set num_options [ llength $all_nb_options ]
+                #puts "num_options = $num_options"
                 foreach mi $all_nb_options {
                   set _cname [ lindex $mi 0 ]
                   set cname [ string map [ list @ "" . _ ] $_cname ]
+                  #puts "cname = $cname"
                   foreach { ninst obj_addr entries } [ lindex $mi 1 ] break
                   set instances [ lindex $mi 2 ]
+                  if { $num_options > 1 } {
                   # creo el menu de la clase si no existe
-                  set mclass $data_menu(main).cls$cname
-                  if { ![ winfo exists $mclass ] } {
-                    menu $mclass -tearoff 0
-                  } else {
-                    $mclass delete 0 end
-                  }
-                  if { $num_options > 1 } {
+                    set mclass $data_menu(main).cls$cname
+                    if { ![ winfo exists $mclass ] } {
+                      menu $mclass -tearoff 0
+                    } else {
+                      $mclass delete 0 end
+                    }
                     $data_menu(main) add cascade -label $cname -menu $mclass
                     set target_menu $mclass