Index: tolbase/lib/toltk/MenuManager.tcl
===================================================================
--- tolbase/lib/toltk/MenuManager.tcl	(revision 3a5bf7bcc3922bbb19580f3cfbf39f7d3dfc3a9f)
+++ tolbase/lib/toltk/MenuManager.tcl	(revision 3a5bf7bcc3922bbb19580f3cfbf39f7d3dfc3a9f)
@@ -0,0 +1,243 @@
+namespace eval MenuManager {
+}
+
+proc MenuManager::getTypeOfObject { addr } {
+  set rvar "__getTypeOfObject__"
+  set tolExpr [ string map [ list %A $addr %RV $rvar ] {
+    Text %RV = {
+      Anything obj = GetObjectFromAddress( "%A" );
+      Text theGrammar = Grammar( obj );
+      Text theType = If( theGrammar == "NameBlock", {
+        Text theClass = ClassOf( obj );
+        If( theClass == "", "NameBlock", theClass )
+      }, theGrammar )  
+    }
+  } ]
+  tol::console eval $tolExpr
+  set info [ tol::info variable [ list Text $rvar ] ]
+  set value [ string trim [ lindex $info 2 ] \" ]
+  tol::console stack release $rvar
+  return $value
+}
+
+proc MenuManager::getLabelInfoForType { type } {
+  set rvar "__getLabelForType__"
+  set tolExpr [ string map [ list %RV $rvar %T $type ] {
+    Set %RV = {
+      Set aux = MenuManager::getTypeLabelInfo( "%T" );
+      Set If( Card( aux ),
+              aux, MenuManager::getDefaultTypeLabelInfo( "%T" ) )
+    }
+  } ]
+  tol::console eval $tolExpr
+  set value [ TolObj2TclObj [ list Set $rvar ] ]
+  tol::console stack release $rvar
+  return $value
+}
+
+proc MenuManager::getLabelInfoForEntry { entryName } {
+  set rvar "__getLabelInfoForEntry__"
+  set tolExpr [ string map [ list %RV $rvar %N $entryName ] {
+    Set %RV = {
+      Set aux = MenuManager::getEntryInfo( "%N" );
+      Set If( Card( aux ),
+              aux, MenuManager::getDefaultEntryInfo( "%N" ) )
+    }
+  } ]
+  tol::console eval $tolExpr
+  set value [ TolObj2TclObj [ list Set $rvar ] ]
+  tol::console stack release $rvar
+  return $value
+}
+
+proc MenuManager::getMenuOptionsForType { type } {
+  set rvar "__getMenuOptionsForType__"
+  set tolExpr [ string map [ list %RV $rvar %T $type ] {
+    Set %RV = MenuManager::getTypeOptionsInfo( "%T" );
+  } ]
+  tol::console eval $tolExpr
+  set value [ TolObj2TclObj [ list Set $rvar ] ]
+  tol::console stack release $rvar
+  return $value
+}
+
+proc MenuManager::checkEntryState { name objSelection group } {
+  variable typesSelected
+
+  puts "MenuManager::checkEntryState $name $objSelection $group"
+
+  set SOA [ TclList2SetOfText $objSelection ]
+  set rvar "__checkEntryState__"
+  set tolExpr [ string map [ list %RV $rvar %N $name %S $SOA %G $group ] {
+    Real %RV = {
+      Set objAddress = %S;
+      Anything target = If( %G, {
+        EvalSet( objAddress, Anything( Text addr ) { 
+          GetObjectFromAddress( addr )
+        } )
+      }, GetObjectFromAddress( objAddress[ 1 ] ) );
+      WriteLn( "%N" << target );
+      Real MenuManager::checkStateEntry( "%N", target )
+    }
+  } ]
+  tol::console eval $tolExpr
+  set info [ tol::info variable [ list Real $rvar ] ]
+  set value [ lindex $info 2 ]
+  tol::console stack release $rvar
+  return $value
+}
+
+proc MenuManager::invokeCommand { name objSelection group } {
+  variable typesSelected
+
+  set SOA [ TclList2SetOfText $objSelection ]
+  set rvar "__invokeCommand__"
+  set tolExpr [ string map [ list %RV $rvar %N $name %S $SOA %G $group ] {
+    Real %RV = {
+      Set objAddress = %S;
+      Anything target = If( %G, {
+        EvalSet( objAddress, Anything( Text addr ) { 
+          GetObjectFromAddress( addr )
+        } )
+      }, GetObjectFromAddress( objAddress[ 1 ] ) );
+      Real MenuManager::invokeEntry( "%N", target )
+    }
+  } ]
+  tol::console eval $tolExpr
+  set info [ tol::info variable [ list Real $rvar ] ]
+  set value [ lindex $info 2 ]
+  tol::console stack release $rvar
+  return $value
+}
+
+proc MenuManager::checkIfMenuManagerIsLoaded { } {
+  set rvar "__checkIfMenuManagerIsLoaded__"
+  set tolExpr [ string map [ list %RV $rvar  ] {
+    Real %RV = ObjectExist( "NameBlock", "GuiTools::MenuManager" )
+  } ]
+  tol::console eval $tolExpr
+  set info [ tol::info variable [ list Real $rvar ] ]
+  set value [ lindex $info 2 ]
+  tol::console stack release $rvar
+  return [ expr { $value!=0 } ]
+}
+
+proc MenuManager::initTypesInfoFromSelection { selection } {
+  variable typesSelected
+
+  array unset typesSelected
+  array set typesSelected {
+    types {}
+  }
+  if { ![ checkIfMenuManagerIsLoaded ] } return
+  foreach addr $selection {
+    set type [ getTypeOfObject $addr ]
+    set typeOptionInfo [ getMenuOptionsForType $type ]
+    # registro el tipo solo si tiene informacion de menu asociada
+    if { [ llength $typeOptionInfo ] } {
+      if { ![ info exists typesSelected(objects,$type) ] } {
+        lappend typesSelected(types) $type
+        set typesSelected(labelInfo,$type) [ getLabelInfoForType $type ]
+        set typesSelected(entriesInfo,$type) $typeOptionInfo
+        foreach option $typeOptionInfo {
+          set name [ lindex $option 0 ]
+          set typesSelected(optionInfo,$name) $option
+          if { [ catch { lsearch $typesSelected(types,$name) $type } idx ] } {
+            set typesSelected(types,$name) [ list $type ]
+          } elseif { $idx == -1 } {
+            lappend typesSelected(types,$name) $type
+          }
+        }
+      }
+      lappend typesSelected(objects,$type) $addr
+    }
+  }
+  # busco las opciones que se aplican a toda la seleccion
+  set numberOfTypes [ llength $typesSelected(types) ]
+  set typesSelected(globalOptions) [ list ]
+  foreach optionIndex [ array names typesSelected types,* ] {
+    set optionName [ string range $optionIndex 6 end ]
+    if { [ llength $typesSelected(types,$optionName) ] == $numberOfTypes } {
+      lappend typesSelected(globalOptions) $typesSelected(optionInfo,$optionName)
+    }
+  }
+  return $typesSelected(types)
+}
+
+proc MenuManager::kk { } {
+  variable typesSelected
+
+  set numberOfTypes [ llength $typesSelected(types) ]
+  #set typesSelected(globalOptions) [ list ]
+  foreach optionIndex [ array names typesSelected types,* ] {
+    puts "optionIndex = $optionIndex"
+    set optionName [ string range $optionIndex 6 end ]
+    puts "optionName = $optionName"
+    if { [ llength $typesSelected(types,$optionName) ] == $numberOfTypes } {
+      lappend typesSelected(globalOptions) \
+          $typesSelected(optionInfo,$optionName)
+    }
+  }
+}
+
+proc MenuManager::createSubMenuIfNeeded { targetMenu name } {
+  set path0 [ split $name "/" ]
+  set mm $targetMenu
+  set nn ""
+  foreach n [ lrange $path0 0 end-1 ] {
+    set mm0 ${mm}.mm$n
+    if { [ winfo exists $mm0 ] } {
+      $mm0 delete 0 end
+    } else {
+      menu $mm0 -tearoff 0
+    }
+    set nn [ expr { $nn eq "" ? $n : "/$n" } ]
+    set labelInfo [ getLabelInfoForEntry $nn ]
+    foreach { name label image translate } $labelInfo break
+    $mm add cascade -menu $mm0 \
+        -label [ expr { $translate ? [ msgcat::mc $label ] : $label } ] \
+        -image $image
+    set mm $mm0
+  }
+  return $mm
+}
+
+proc MenuManager::insertEntries { menuWidget objSelection entriesInfo } {
+  set multiple [ llength $objSelection ]
+  foreach entryInfo $entriesInfo {
+    foreach {name label image translate group} $entryInfo break
+    if { !$group && $multiple } continue
+    set mm [ createSubMenuIfNeeded $menuWidget $name ]
+    set state [ checkEntryState $name $objSelection $group ]
+    puts "state for $name = $state"
+    set entryLabel [ expr { $translate ? [ msgcat::mc $label ] : $label } ]
+    puts "definiendo entry $entryLabel en $mm"
+    $mm add command -label $entryLabel \
+        -command [ list MenuManager::invokeCommand $name $objSelection $group ] \
+        -state [ expr { $state ? "normal" : "disabled" } ]
+  }
+}
+
+proc MenuManager::insertEntriesForSelection { menuWidget selection } {
+  variable typesSelected
+
+  if { ![ llength [ initTypesInfoFromSelection $selection ] ] } return
+  insertEntries $menuWidget $selection $typesSelected(globalOptions)
+  # inserto las opciones especificas de cada tipo si es que hay mas de
+  # un tipo
+  if { [ llength $typesSelected(types) ] > 1 } {
+    foreach type $typesSelected(types) {
+      set menuType $menuWidget.mtype$type
+      if { ![ winfo exists $menuType ] } {
+        menu $menuType -tearoff 0
+      } else {
+        $menuType delete 0 end
+      }
+      foreach {label translate} $typesSelected(labelInfo,$type) break  
+      set labelCascade [ expr { $translate ? [ msgcat::mc $label ] : $label } ]
+      $menuWidget add cascade -label $labelCascade -menu $menuType
+      insertEntries $menuType \
+          $typesSelected(objects,$type) $typesSelected(entriesInfo,$type)
+    }
+  }
+}
Index: tolbase/lib/toltk/tolinspe.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe.tcl	(revision abd779cd8bb1f7dc981b4ebb1844d6471b44ac0e)
+++ 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