Changeset ceea866 in tol for tolbase/lib/toltk/tolinspe__wtree2.tcl

Timestamp:

Nov 17, 2016, 12:45:40 PM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

88e6fd7

Parents:

606ed76

Message:

Refs #1933
Se prescinden de algunos métodos auxiliares creados en tolinspe para usar wtree/treectrl.
Quedan algunos por revisar.

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

File:

• tolbase/lib/toltk/tolinspe__wtree2.tcl (modified) (8 diffs)

tolbase/lib/toltk/tolinspe__wtree2.tcl

@@ -18 +18 @@
 
   foreach var $vars_selected {
-    set name [$wt item text $var [RiName]]
+    set name [$wt item text $var Name]
     #puts "name=$name"
     #Quitamos el objeto de la consola de tol
@@ -93 +93 @@
   
   set parent [$wt_tree selection get 0]
-  set parent_tolReference [$wt_tree item text $parent [LiReference]]
+  set parent_tolReference [$wt_tree item text $parent Reference]
   
   set InRootConsole [string equal $parent_tolReference "Console"]
@@ -107 +107 @@
     if { [lsearch $vars_selected $node_act] >= 0 } {
       foreach var $vars_selected {
-        set itemid  [$wt_vars item text $var [RiIndex]]
-        set path    [$wt_vars item text $var [RiPath]]
-        set grammar [$wt_vars item text $var [RiGrammar]]
-        set objName [$wt_vars item text $var [RiName]]
-        set object [$wt_vars item text $var [RiReference]]  
+        set itemid  [$wt_vars item text $var Index]
+        set path    [$wt_vars item text $var Path]
+        set grammar [$wt_vars item text $var Grammar]
+        set objName [$wt_vars item text $var Name]
+        set object  [$wt_vars item text $var Reference] 
         
         #puts "OBJECT=$objName, PATH=$path"
@@ -470 +470 @@
     if { [lsearch $vars_selected $node_act] >= 0 } {
       foreach var $vars_selected {
-        set itemid  [$wt_funcs item text $var [RiIndex]]
-        set path    [$wt_funcs item text $var [RiPath]]
-        set grammar [$wt_funcs item text $var [RiGrammar]]
-        set objName [$wt_funcs item text $var [RiName]]
-        set object [$wt_funcs item text $var [RiReference]]   
+        set itemid  [$wt_funcs item text $var Index]
+        set path    [$wt_funcs item text $var Path]
+        set grammar [$wt_funcs item text $var Grammar]
+        set objName [$wt_funcs item text $var Name]
+        set object  [$wt_funcs item text $var Reference] 
         # La única gramática seleccionable en wt_funcs es Code
         lappend code_selected [list $object $objName $path]
@@ -535 +535 @@
   if { ![string length $selection] } { return }
   
-  set tolReference [$wt_tree item text $selection [LiReference]]
+  set tolReference [$wt_tree item text $selection Reference]
   if { [llength $tolReference] == 2 } {
     set InRootFiles [string equal [lindex $tolReference 0] "File"]
@@ -554 +554 @@
       if { $index == 0 } return
       # if user selects a root or a grammar doesn't nothing      
-      set tolReference [$wt_tree item text $index [LiReference]]
+      set tolReference [$wt_tree item text $index Reference]
       if { [llength $tolReference] == 1 } return
       
       # label of object showed in the tree
-      set objName [$wt_tree item text [LiName]]
-      set object [$wt_tree item text [LiReference]]
+      set objName [$wt_tree item text Name]
+      set object [$wt_tree item text Reference]
       
       if {$InRootFiles} {
@@ -634 +634 @@
 
   foreach var $vars_selected {
-    set reference [$wt item text $var [RiReference]]
+    set reference [$wt item text $var Reference]
     #Tolcon_Trace "GetObjectFromAddress(\"[::tol::info address $reference]\")"
     ::tol::console eval "GetObjectFromAddress(\"[::tol::info address $reference]\")"
@@ -651 +651 @@
   set names ""
   foreach var $vars_selected {   
-    lappend names [$wt item text $var [RiName]]
+    lappend names [$wt item text $var Name]
   }
   ::TolConsole::ToEvalWindow [ListToStr $names]