Place in the right place

Author: jginternational

kratos.gid/apps/CDEM/examples/examples.tcl

@@ -4,13 +4,12 @@ namespace eval CDEM::examples {
 
 proc CDEM::examples::Init { } {
     uplevel #0 [list source [file join $::CDEM::dir examples ContinuumDrop.tcl]]
-    uplevel #0 [list source [file join $::CDEM::dir examples BulkGroup.tcl]]
 }
 
 proc CDEM::examples::UpdateMenus { } {
     GiDMenu::InsertOption "Kratos" [list "---"] 8 PRE "" "" "" insertafter =
     GiDMenu::InsertOption "Kratos" [list "Stone block and sand" ] 8 PRE [list ::CDEM::examples::ContinuumDrop] "" "" insertafter =
-    GiDMenu::InsertOption "Kratos" [list "Stone block and sand" ] 8 PRE [list ::CDEM::examples::BulkGroup] "" "" insertafter =
+    GiDMenu::InsertOption "Kratos" [list "Bulk groups" ] 8 PRE [list ::CDEM::xml::BulkGroup] "" "" insertafter =
     GiDMenu::UpdateMenus
 }
 

kratos.gid/apps/CDEM/start.tcl

@@ -36,6 +36,7 @@ proc ::CDEM::LoadMyFiles { } {
     variable dir
 
     uplevel #0 [list source [file join $dir xml GetFromXML.tcl]]
+    uplevel #0 [list source [file join $dir xml BulkGroup.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_Walls.tcl]]
@@ -63,7 +64,7 @@ proc ::CDEM::CustomToolbarItems { } {
     if {$::Model::SpatialDimension eq "2D"} {
         Kratos::ToolbarAddItem "Example" [file join $dir images drop.png] [list -np- ::CDEM::examples::ContinuumDrop] [= "Example\nRocks fall"]
     }
-    Kratos::ToolbarAddItem "Bulk grouping" [file join $dir images stone.png] [list -np- ::CDEM::examples::BulkGroup] [= "Plugin\nBulk grouping"]
+    Kratos::ToolbarAddItem "Bulk grouping" [file join $dir images stone.png] [list -np- ::CDEM::xml::BulkGroup] [= "Plugin\nBulk grouping"]
 }
 
 ::CDEM::Init

…tos.gid/apps/CDEM/examples/BulkGroup.tcl kratos.gid/apps/CDEM/xml/BulkGroup.tclkratos.gid/apps/CDEM/examples/BulkGroup.tcl renamed to kratos.gid/apps/CDEM/xml/BulkGroup.tcl kratos.gid/apps/CDEM/examples/BulkGroup.tcl renamed to kratos.gid/apps/CDEM/xml/BulkGroup.tcl

@@ -1,5 +1,5 @@
 
-proc ::CDEM::examples::BulkGroup {args} {
+proc ::CDEM::xml::BulkGroup {args} {
 
 
     if {![Kratos::IsModelEmpty]} {
@@ -22,7 +22,7 @@ proc ::CDEM::examples::BulkGroup {args} {
     spdAux::RequestRefresh
 }
 
-proc ::CDEM::examples::CreateAndAssignBondedGroups { } {
+proc ::CDEM::xml::CreateAndAssignBondedGroups { } {
 
     # Prepare the variables
     set entity surface