Inherit fix for CDEM

jginternational · jginternational · commit 4a276d895008 · 2020-09-09T18:49:22.000+02:00
diff --git a/kratos.gid/apps/CDEM/start.tcl b/kratos.gid/apps/CDEM/start.tcl
@@ -71,4 +71,8 @@ proc ::CDEM::CustomToolbarItems { } {
     Kratos::ToolbarAddItem "Bulk grouping" [file join $dir images stone.png] [list -np- ::CDEM::xml::BulkGroup] [= "Plugin\nBulk grouping"]
 }
 
+proc ::CDEM::AfterSaveModel {filespd} {
+    ::DEM::AfterSaveModel $filespd
+}
+
 ::CDEM::Init

Original file line number	Diff line number	Diff line change
`@@ -71,4 +71,8 @@ proc ::CDEM::CustomToolbarItems { } {`
`71`	`71`	`Kratos::ToolbarAddItem "Bulk grouping" [file join $dir images stone.png] [list -np- ::CDEM::xml::BulkGroup] [= "Plugin\nBulk grouping"]`
`72`	`72`	`}`
`73`	`73`
	`74`	`+proc ::CDEM::AfterSaveModel {filespd} {`
	`75`	`+ ::DEM::AfterSaveModel $filespd`
	`76`	`+}`
	`77`	`+`
`74`	`78`	`::CDEM::Init`