Changeset 3844cff in tol for tolbase/lib/toltk/MenuManager.tcl

Timestamp:

Jul 22, 2010, 7:02:43 AM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

e3362cc

Parents:

32f8c8f

Message:

refs #943, check if rank field is present in order to make it compatible with GuiTools 2.1

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

File:

• tolbase/lib/toltk/MenuManager.tcl (modified) (1 diff)

tolbase/lib/toltk/MenuManager.tcl

@@ -205 +205 @@
   set multiple [ expr { [ llength $objSelection ] > 1 } ]
   # inserto las entries segun el orden inducido por el campo rank
-  foreach entryInfo [ lsort -real -index 4 $entriesInfo ] {
+  if { [ llength [ lindex $entriesInfo 0 ] ] > 4 } {
+    # rank aparecio en la version 2.2 de GuiTools
+    set sortedEntriesInfo [ lsort -real -index 4 $entriesInfo ]
+  } else {
+    # se asume rank 0 para todos, el orden no cambia
+    set sortedEntriesInfo $entriesInfo
+  }
+  foreach entryInfo $sortedEntriesInfo {
     foreach {name label image translate rank group} $entryInfo break
+    if { $group eq "" } {
+      # rank aparecio en la version 2.2 de GuiTools
+      set group $rank
+    }
     if { $group ^ $multiple } continue
     set mm [ createSubMenuIfNeeded $menuWidget $name ]