Changeset 3702 for trunk/gui/scripts

Timestamp:

Jun 20, 2013 5:36:22 PM (11 years ago)

Author:

ldelgass

Message:

Fix old mesh/node format: names returned for XML children of mesh for
node/element include the id, so weren't found by comparing to element name.
Just search for 'node' or 'element' using element method instead of using
children method.

File:

• trunk/gui/scripts/mesh.tcl (modified) (2 diffs)

trunk/gui/scripts/mesh.tcl

@@ -176 +176 @@
         }
     }
-    set elemcount 0
-    foreach cname [$_mesh children] {
-        foreach type { node element } {
-            if { $cname == $type } {
-                incr elemcount
-                break
-            } 
-        }
-    }
-    if { $elemcount > 0 } {
-        incr $subcount
-    }
-    if { $subcount ==  0 } {
+    if {[$_mesh element "node"] != "" ||
+        [$_mesh element "element"] != ""} {
+        incr subcount
+    }
+
+    if { $subcount == 0 } {
         puts stderr "WARNING: no mesh specified for \"$path\"."
         return
@@ -203 +196 @@
     } elseif {[$_mesh element "unstructured"] != "" } {
         set result [ReadUnstructuredGrid $path]
-    } elseif {[$_mesh element "node"] != "" && [$_mesh element "element"]!=""} {
+    } elseif {[$_mesh element "node"] != "" && [$_mesh element "element"] != ""} {
         set result [ReadNodesElements $path]
     }