do not mesh if incompatible

Author: jginternational

kratos.gid/kratos.tcl

@@ -454,7 +454,9 @@ proc Kratos::Event_BeforeMeshGeneration {elementsize} {
     }
 
     # Change the mesh settings depending on the element requirements
-    catch {Kratos::CheckMeshCriteria $elementsize}
+    if {[Kratos::CheckMeshCriteria $elementsize]<0} {
+        return "-cancel-"
+    }
 
     # Maybe the current application needs to do some extra job
     set ret [apps::ExecuteOnCurrentApp BeforeMeshGeneration $elementsize]

kratos.gid/scripts/Utils.tcl

@@ -311,7 +311,8 @@ proc Kratos::CheckMeshCriteria { elementsize } {
             } else {
                 if {$forced_mesh_order ne $element_forces} {
                     # W "The element $element_id requires a different mesh order"
-                    error "Incompatible mesh orders in elements"
+                    W "Incompatible mesh orders in elements"
+                    return -1
                 }
             }
         }