Changeset 0ea4b4d in tol for tolbase/lib/toltk

Timestamp:

Dec 21, 2011, 6:10:31 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

bbfe061

Parents:

0afce47

Message:

refs #1364, todas los tipos de TOL, excepto Anything, despliegan opciones de menu definidas en MenuManager, ver ejemplo ​https://www.tol-project.org/browser/tolp/OfficialTolArchiveNetwork/GuiTools/test/test_0005/test.tol?rev=3955

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

File:

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

tolbase/lib/toltk/tolinspe.tcl

@@ -2349 +2349 @@
             NameBlock {
               # entradas desde MenuManager
+              if 0 {
               TolGui_InsertEntriesFromMenuManager \
                   $data_menu(main) \
                   $options_selected(NameBlock)
+              }
               # entradas desde @MenuDesc
+              # @MenuDesc sera reemplazado, ver https://www.tol-project.org/ticket/1372
               set sel_length [ llength $options_selected(NameBlock) ]
               if { $sel_length } {
@@ -2478 +2481 @@
             }
           } ;# end del switch
+          # inserto las opciones definidas en MenuManager
+          if { $grammar ne "Anything" } {
+            TolGui_InsertEntriesFromMenuManager \
+                $data_menu(main) \
+                $options_selected($grammar)
+          }
+
           $data_menu(main) add separator
           puts "grammar = $grammar"