Changeset 32f8c8f in tol for tolbase

Timestamp:

Jul 21, 2010, 7:27:18 PM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

3844cff

Parents:

301385f

Message:

refs #943, the partial order can be set in the new field rank, ex.

Real MenuManager::defineMenuCommand
( "@Ejemplo1",
  [[ Text name = "WriteMsgGroup1",
     Text label = "(MULTI) Write Msg 1",
     Text image = "checkedBox",
     Real flagGroup = 1,
     Real rank = -2;
     Code CmdInvoke = MyContextMenuFunctions::writeMsgGroup1 ]]
);

rank defaults to 0

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

File:

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

tolbase/lib/toltk/MenuManager.tcl

@@ -204 +204 @@
 proc ::MenuManager::insertEntries { menuWidget objSelection entriesInfo } {
   set multiple [ expr { [ llength $objSelection ] > 1 } ]
-  foreach entryInfo $entriesInfo {
-    foreach {name label image translate group} $entryInfo break
+  # inserto las entries segun el orden inducido por el campo rank
+  foreach entryInfo [ lsort -real -index 4 $entriesInfo ] {
+    foreach {name label image translate rank group} $entryInfo break
     if { $group ^ $multiple } continue
     set mm [ createSubMenuIfNeeded $menuWidget $name ]