Changeset c6ca7c7 in tol for tolbase/lib

Timestamp:

Jun 8, 2012, 9:35:17 AM (14 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

2b4b886

Parents:

67cbe29

Message:

fixes #1550, se implementa las opciones para almacenar en un oza desde la selección

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

File:

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

tolbase/lib/toltk/tolinspe.tcl

@@ -2121 +2121 @@
 }
 
+proc TolGui_StoreSetElementsInOZA { object } {
+  set saveIn [ tk_getSaveFile -defaultextension .oza \
+                   -parent . -title [ mc "Store OZA" ] \
+                   -filetypes {{oza {.oza}}} ]
+
+  if { $saveIn ne "" } {
+    set addr [ tol::info address $object ]
+    set tolexpr [ string map [ list %a $addr %f $saveIn ] {
+      Real Ois.Store( GetObjectFromAddress( "%a" ), "%f" );
+    } ]
+    toltcl::eval $tolexpr
+  }
+}
+
+proc TolGui_StoreSelectionInOZA { selection } {
+  set saveIn [ tk_getSaveFile -defaultextension .oza \
+                   -parent . -title [ mc "Store OZA" ] \
+                   -filetypes {{oza {.oza}}} ]
+  if { $saveIn ne "" } {
+    set lst_addr {}
+    foreach r $selection {
+      set a [ tol::info address $r ]
+      lappend lst_addr \"$a\"
+    }
+    set set_addr "\[\[ [join $lst_addr ,] \]\]"
+    set tolexpr [ string map [ list %L $set_addr %f $saveIn ] {
+      Real {
+        Set items = EvalSet( %L, Anything( Text addr ) {
+          Anything GetObjectFromAddress( addr )
+        } );
+        Real Ois.Store( items, "%f" )
+      }
+    } ]
+    toltcl::eval $tolexpr
+  }
+}
+
 proc TolGui_InsertEntriesFromMenuManager { targetMenu selection } {
   set addrList [ list ]
@@ -2213 +2250 @@
 
   array unset options_selected
+  set all_objects {}
 
   foreach it [array names data_menu] {
@@ -2235 +2273 @@
         if { $InRootPool } {
           set object $data(pool,variables,$itemid)
-                } else {
+        } else {
           if {[llength $aryData(Reference)]} {
             #set object [lindex $aryData(Reference) 0]
@@ -2253 +2291 @@
           }
         }
+        lappend all_objects $object
         #puts "PostVariable: OBJECT=$object OBJNAME=$objName TOLSET=$tolset PATH=$path GRAMMAR=$grammar"
         switch -- $grammar {
@@ -2534 +2573 @@
                -menu $data_menu($grammar,File)
             foreach objInfo $options_selected($grammar) {
-              $data_menu($grammar,File) add command -label [lindex $objInfo 1]\
-              -command [list ::TolInspector::ViewDefinition\
-                              [lindex $objInfo 1] [lindex $objInfo 2] $grammar]
+              $data_menu($grammar,File) add command -label [lindex $objInfo 1] \
+                  -command [list ::TolInspector::ViewDefinition\
+                                [lindex $objInfo 1] [lindex $objInfo 2] $grammar]
             }
           }
           $data_menu(main) add separator
         } ;#end del foreach
+
+        # Store selection in oza
+        if { [ llength $all_objects ] > 1 || [ lindex $grammar_selected 0 ] ne "Set" } {
+          $data_menu(main) add command -label [mc "Store selection in OZA"]... \
+              -command [ list TolGui_StoreSelectionInOZA $all_objects ]
+        } else {
+          $data_menu(main) add command -label [mc "Store Set in OZA"]... \
+              -command [ list TolGui_StoreSelectionInOZA $all_objects ]
+          $data_menu(main) add command -label [mc "Store elements in OZA"]... \
+              -command [ list TolGui_StoreSetElementsInOZA [ lindex $all_objects 0 ] ]
+        }
+        $data_menu(main) add separator
+        # Store selection in oza
+
         if { $InRootPool } {
           $data_menu(main) add command -label [mc "Remove from spool"] \