Merge pull request #813 from KratosMultiphysics/dem/mat-rel-window

Dem/mat rel window

Author: jginternational

kratos.gid/apps/DEM/start.tcl

@@ -33,6 +33,7 @@ proc ::DEM::LoadMyFiles { } {
     uplevel #0 [list source [file join $dir xml material_relations MaterialRelations.tcl]]
 
     uplevel #0 [list source [file join $dir xml XmlController.tcl]]
+    uplevel #0 [list source [file join $dir xml material_relations material_relations_window.tcl]]
     uplevel #0 [list source [file join $dir write write.tcl]]
     uplevel #0 [list source [file join $dir write writeMDPA_Parts.tcl]]
     uplevel #0 [list source [file join $dir write writeMDPA_Inlet.tcl]]

kratos.gid/apps/DEM/xml/XmlController.tcl

@@ -135,9 +135,6 @@ proc DEM::xml::MaterialRelationsValidation { } {
     return $err
 }
 
-proc DEM::xml::ShowMaterialRelationWindow { } {
-    
-}
 
 
 DEM::xml::Init

kratos.gid/apps/DEM/xml/material_relations/material_relations_window.tcl

@@ -0,0 +1,60 @@
+
+
+proc DEM::xml::ShowMaterialRelationWindow { } {
+    
+
+    set materials [list ]
+    foreach mat_node [DEM::write::GetMaterialsNodeList] {
+        set mat_name [write::getValueByNode $mat_node]
+        if {$mat_name ni $materials} {
+            lappend materials $mat_name
+        }
+    }
+
+    set relations [dict create]
+
+    foreach relation [DEM::write::GetMaterialRelationsNodeList] {
+        
+        set mat_a [write::getValueByNode [$relation selectNodes "./value\[@n = 'MATERIAL_A'\]"]]
+        set mat_b [write::getValueByNode [$relation selectNodes "./value\[@n = 'MATERIAL_B'\]"]]
+        dict lappend relations $mat_a $mat_b
+        if {$mat_a ne $mat_b} { dict lappend relations $mat_b $mat_a }
+    }
+    
+    if {[llength $materials]>0} {
+        # window name
+        set w .gid.windowmatrel
+        
+        if {[winfo exist $w]} {destroy $w}
+        toplevel $w
+        wm withdraw $w
+        set x [expr [winfo rootx .gid]+[winfo width .gid]/2-[winfo width $w]/2]
+        set y [expr [winfo rooty .gid]+[winfo height .gid]/2-[winfo height $w]/2]
+        wm geom $w +$x+$y
+        wm transient $w .gid    
+        InitWindow $w [_ "Kratos Multiphysics - DEM - Material Relations"] Kratos "" "" 1
+
+    
+        set table $w.tree
+        ttk::treeview $table -columns $materials -displaycolumns $materials
+        foreach header $materials {
+            $table heading $header -text $header -anchor center
+        }
+        pack $table
+
+        set length [llength $materials]
+        for {set i 0} { $i < $length } { incr i } {
+            set row [list]
+            set ref_mat_name [lindex $materials $i]
+            for {set j 0} { $j < $length } { incr j } {
+                set check_mat_name [lindex $materials $j]
+                set exists 0
+                if {[dict exists $relations $ref_mat_name]} {
+                    if {$check_mat_name in [dict get $relations $ref_mat_name]} {set exists 1}
+                }
+                if {$exists} {lappend row OK} {lappend row MISSING}
+            }
+            $table insert "" end -id $ref_mat_name -text $ref_mat_name -values $row
+        }
+    }
+}