Changeset b5ff1e8 in tol for tolbase/lib/toltk/MenuManager.tcl

Timestamp:

Jun 8, 2010, 8:21:34 AM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

18105286

Parents:

3a5bf7b

Message:

if selection was single the single options where not displayed, also the entries for TOL types accept now an image attribute

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

File:

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

tolbase/lib/toltk/MenuManager.tcl

@@ -204 +204 @@
 
 proc MenuManager::insertEntries { menuWidget objSelection entriesInfo } {
-  set multiple [ llength $objSelection ]
+  set multiple [ expr { [ llength $objSelection ] > 1 } ]
   foreach entryInfo $entriesInfo {
     foreach {name label image translate group} $entryInfo break
-    if { !$group && $multiple } continue
+    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 ] \
@@ -234 +232 @@
         $menuType delete 0 end
       }
-      foreach {label translate} $typesSelected(labelInfo,$type) break  
+      foreach {label image translate} $typesSelected(labelInfo,$type) break  
       set labelCascade [ expr { $translate ? [ msgcat::mc $label ] : $label } ]
       $menuWidget add cascade -label $labelCascade -menu $menuType