mdpa generator app uses new selector

Author: jginternational

kratos.gid/apps/Common/xml/GenericSubModelPart.spd

@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="utf-8"?>
 <condition n="GenericModelParts" pn="Add SubModelPart" un="GenericSubmodelPart" ov="point,line,surface,volume" icon="generic" >
       <value n="WriteNodes" pn="Write nodes" v="True" values="True,False" state="disabled" />
-      <value n="WriteElements" pn="Write elements" v="False" values="True,False" state="[ShowInWriteMode Entitites]"/>
-      <value n="WriteConditions" pn="Write conditions" v="True" values="True,False" state="[ShowInWriteMode Entitites]"/>
+      <value n="WriteElements" pn="Write elements" v="False" values="True,False" state="[ShowInWriteMode entitites]"/>
+      <value n="WriteConditions" pn="Write conditions" v="True" values="True,False" state="[ShowInWriteMode entitites]"/>
+      <value n="WriteGeometries" pn="Write geometries" v="True" values="True,False" state="[ShowInWriteMode geometries]"/>
 </condition>

kratos.gid/apps/MdpaGenerator/app.json

@@ -22,9 +22,6 @@
     "unique_names": {
         "parts": "GenericSubmodelPart"
     },
-    "write": {
-        "write_mdpa_mode": "geometries"
-    },
     "main_launch_file": null,
     "description": "MDPA generator \n-Useful tool to generate modelparts"
 }

kratos.gid/apps/MdpaGenerator/start.tcl

@@ -25,4 +25,8 @@ proc ::MdpaGenerator::Init { app } {
 
 proc ::MdpaGenerator::BreakRunCalculation {} {
     return true
-}
+}
+
+proc write::GetWriteMode {} {
+    return [::MdpaGenerator::xml::GetCurrentWriteMode]
+}

kratos.gid/apps/MdpaGenerator/write/write.tcl

@@ -21,7 +21,6 @@ proc ::MdpaGenerator::write::Init { } {
     set writeAttributes [dict create ]
 
     SetAttribute parts_un [::MdpaGenerator::GetUniqueName parts]
-    SetAttribute write_mdpa_mode [::MdpaGenerator::GetWriteProperty write_mdpa_mode]
 }
 
 # MDPA write event
@@ -42,7 +41,8 @@ proc ::MdpaGenerator::write::writeModelPartEvent { } {
     # Nodal coordinates
     write::writeNodalCoordinates
 
-    set write_mode [::MdpaGenerator::xml::GetCurrentWriteMode]
+    set write_mode [::MdpaGenerator::xml::GetWriteMode]
+    SetAttribute write_mdpa_mode $write_mode
     if {$write_mode eq "geometries"} {
         MdpaGenerator::write::writeGeometries
     } else {

kratos.gid/apps/MdpaGenerator/xml/Main.spd

@@ -2,8 +2,8 @@
 <container n="MdpaGenerator" pn="MdpaGenerator" icon="app" prefix="MDPAGen_" tree_state="open" open_window="0">
   <container n="WriteOptions" pn="Write options" tree_state="open" un="SMP_write_options">
     <value n="note" pn="Note: check kratos preferences first" state="disabled" />
-    <value n="write_mode" pn="Write mode" v="geometries" un="SMP_write_mode" values="elements_and_conditions,geometries" dict="elements_and_conditions,Elements and conditions,geometries,Geometries" help="Write mode for the submodelpart.\nElements and conditions means that the submodelpart will be written as a set of elements and conditions.\nGeometries means that the submodelpart will be written as a set of geometries.">
-      <dependencies value='elements_and_conditions' node="../value[@type='entitites']" att1='state' v1='normal' />
+    <value n="write_mode" pn="Write mode" v="geometries" un="SMP_write_mode" values="entitites,geometries" dict="entitites,Elements and conditions,geometries,Geometries" help="Write mode for the submodelpart.\nElements and conditions means that the submodelpart will be written as a set of elements and conditions.\nGeometries means that the submodelpart will be written as a set of geometries.">
+      <dependencies value='entitites' node="../value[@type='entitites']" att1='state' v1='normal' />
       <dependencies value='geometries' node="../value[@type='entitites']" att1='state' v1='hidden' />
     </value>
     <value n="condition_write_mode" pn="Condition mode" v='unique' values="unique,norepeat" dict="unique,Unique ids,norepeat,overlap ids" state="hidden" type="entitites"