Changeset ab2f694 in tol for tolbase/lib

Timestamp:

Jun 10, 2010, 10:09:12 AM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

cf6d1c6

Parents:

2461112

Message:

communication with the ImageManager from TolPkg

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

Location:

tolbase/lib/toltk

Files:

• ImageManager.tcl (added)
• MenuManager.tcl (modified) (15 diffs)

tolbase/lib/toltk/MenuManager.tcl

@@ -1 @@
-namespace eval MenuManager {
-}
-
-proc MenuManager::getTypeOfObject { addr } {
+namespace eval ::MenuManager {
+}
+
+proc ::MenuManager::getTypeOfObject { addr } {
   set rvar "__getTypeOfObject__"
   set tolExpr [ string map [ list %A $addr %RV $rvar ] {
@@ -21 +21 @@
 }
 
-proc MenuManager::getLabelInfoForType { type } {
+proc ::MenuManager::getLabelInfoForType { type } {
   set rvar "__getLabelForType__"
   set tolExpr [ string map [ list %RV $rvar %T $type ] {
     Set %RV = {
-      Set aux = MenuManager::getTypeLabelInfo( "%T" );
+      Set aux = GuiTools::MenuManager::getTypeLabelInfo( "%T" );
       Set If( Card( aux ),
-              aux, MenuManager::getDefaultTypeLabelInfo( "%T" ) )
+              aux, GuiTools::MenuManager::getDefaultTypeLabelInfo( "%T" ) )
     }
   } ]
@@ -36 +36 @@
 }
 
-proc MenuManager::getLabelInfoForEntry { entryName } {
+proc ::MenuManager::getLabelInfoForEntry { entryName } {
   set rvar "__getLabelInfoForEntry__"
   set tolExpr [ string map [ list %RV $rvar %N $entryName ] {
     Set %RV = {
-      Set aux = MenuManager::getEntryInfo( "%N" );
+      Set aux = GuiTools::MenuManager::getEntryInfo( "%N" );
       Set If( Card( aux ),
-              aux, MenuManager::getDefaultEntryInfo( "%N" ) )
+              aux, GuiTools::MenuManager::getDefaultEntryInfo( "%N" ) )
     }
   } ]
@@ -51 +51 @@
 }
 
-proc MenuManager::getMenuOptionsForType { type } {
+proc ::MenuManager::getMenuOptionsForType { type } {
   set rvar "__getMenuOptionsForType__"
   set tolExpr [ string map [ list %RV $rvar %T $type ] {
-    Set %RV = MenuManager::getTypeOptionsInfo( "%T" );
+    Set %RV = GuiTools::MenuManager::getTypeOptionsInfo( "%T" );
   } ]
   tol::console eval $tolExpr
@@ -62 +62 @@
 }
 
-proc MenuManager::checkEntryState { name objSelection group } {
-  variable typesSelected
-
-  puts "MenuManager::checkEntryState $name $objSelection $group"
+proc ::MenuManager::checkEntryState { name objSelection group } {
+  variable typesSelected
 
   set SOA [ TclList2SetOfText $objSelection ]
@@ -77 +75 @@
         } )
       }, GetObjectFromAddress( objAddress[ 1 ] ) );
-      WriteLn( "%N" << target );
-      Real MenuManager::checkStateEntry( "%N", target )
+      Real GuiTools::MenuManager::checkStateEntry( "%N", target )
     }
   } ]
@@ -88 +85 @@
 }
 
-proc MenuManager::invokeCommand { name objSelection group } {
+proc ::MenuManager::invokeCommand { name objSelection group } {
   variable typesSelected
 
@@ -101 +98 @@
         } )
       }, GetObjectFromAddress( objAddress[ 1 ] ) );
-      Real MenuManager::invokeEntry( "%N", target )
+      Real GuiTools::MenuManager::invokeEntry( "%N", target )
     }
   } ]
@@ -111 +108 @@
 }
 
-proc MenuManager::checkIfMenuManagerIsLoaded { } {
+proc ::MenuManager::checkIfMenuManagerIsLoaded { } {
   set rvar "__checkIfMenuManagerIsLoaded__"
   set tolExpr [ string map [ list %RV $rvar  ] {
@@ -123 +120 @@
 }
 
-proc MenuManager::initTypesInfoFromSelection { selection } {
+proc ::MenuManager::initTypesInfoFromSelection { selection } {
   variable typesSelected
 
@@ -165 +162 @@
 }
 
-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 } {
+proc ::MenuManager::createSubMenuIfNeeded { targetMenu name } {
   set path0 [ split $name "/" ]
   set mm $targetMenu
@@ -195 +176 @@
     set labelInfo [ getLabelInfoForEntry $nn ]
     foreach { name label image translate } $labelInfo break
+    set image0 [ ::ImageManager::getImageResourceId $image ]
+    if { $image0 ne "" } {
+      set image $image0
+    }
     $mm add cascade -menu $mm0 \
         -label [ expr { $translate ? [ msgcat::mc $label ] : $label } ] \
-        -image $image
+        -image $image -compound [ expr { $image eq "" ? "none" : "left" } ]
     set mm $mm0
   }
@@ -203 +188 @@
 }
 
-proc MenuManager::insertEntries { menuWidget objSelection entriesInfo } {
+proc ::MenuManager::insertEntries { menuWidget objSelection entriesInfo } {
   set multiple [ expr { [ llength $objSelection ] > 1 } ]
   foreach entryInfo $entriesInfo {
@@ -211 +196 @@
     set state [ checkEntryState $name $objSelection $group ]
     set entryLabel [ expr { $translate ? [ msgcat::mc $label ] : $label } ]
+    set image0 [ ::ImageManager::getImageResourceId $image ]
+    if { $image0 ne "" } {
+      set image $image0
+    }
     $mm add command -label $entryLabel \
-        -command [ list MenuManager::invokeCommand $name $objSelection $group ] \
-        -state [ expr { $state ? "normal" : "disabled" } ]
-  }
-}
-
-proc MenuManager::insertEntriesForSelection { menuWidget selection } {
+        -command [ list ::MenuManager::invokeCommand $name $objSelection $group ] \
+        -state [ expr { $state ? "normal" : "disabled" } ] \
+        -image $image -compound [ expr { $image eq "" ? "none" : "left" } ]
+  }
+}
+
+proc ::MenuManager::insertEntriesForSelection { menuWidget selection } {
   variable typesSelected
 
@@ -234 +224 @@
       foreach {label image translate} $typesSelected(labelInfo,$type) break  
       set labelCascade [ expr { $translate ? [ msgcat::mc $label ] : $label } ]
-      $menuWidget add cascade -label $labelCascade -menu $menuType
+      set image0 [ ::ImageManager::getImageResourceId $image ]
+      if { $image0 ne "" } {
+        set image $image0
+      }
+      $menuWidget add cascade -label $labelCascade -menu $menuType \
+          -image $image -compound [ expr { $image eq "" ? "none" : "left" } ]
       insertEntries $menuType \
           $typesSelected(objects,$type) $typesSelected(entriesInfo,$type)