Skip to content

Commit 317e7e4

Browse files
jginternationaljginternational
committed
max groups to tcl file
1 parent c8d659e commit 317e7e4

10 files changed

Lines changed: 57 additions & 138 deletions

File tree

‎kratos.gid/apps/Buoyancy/xml/Procs.spd‎

Lines changed: 12 additions & 22 deletions
Original file line numberDiff line numberDiff line change
@@ -5,16 +5,6 @@
55
return "normal"
66
]]>
77
</proc>
8-
<proc n='MaxGroups' args='args'>
9-
<![CDATA[
10-
set childs [$domNode getElementsByTagName group]
11-
if {[llength $childs] > 1} {
12-
foreach group [lrange $childs 1 end] {$group delete}
13-
gid_groups_conds::actualize_conditions_window
14-
error "You can only set one part"
15-
}
16-
]]>
17-
</proc>
188
<proc n='CheckIdOnMyParent' args='args'>
199
<![CDATA[
2010
set r "hidden"
@@ -39,7 +29,7 @@
3929

4030
<proc n='GetSolutionStrategiesSolid' args='args'>
4131
<![CDATA[
42-
32+
4333
set names ""
4434
set pnames ""
4535
set solutionType [get_domnode_attribute [$domNode selectNodes [spdAux::getRoute STSoluType]] v]
@@ -51,21 +41,21 @@
5141
}
5242
set names [string range $names 0 end-1]
5343
set pnames [string range $pnames 0 end-1]
54-
44+
5545
$domNode setAttribute values $names
5646
if {[$domNode getAttribute v] eq ""} {$domNode setAttribute v [lindex $ids 0]}
5747
spdAux::RequestRefresh
5848
return $pnames
59-
49+
6050
]]>
6151
</proc>
6252

6353
<proc n='GetSolutionStrategiesStructural' args='args'>
6454
<![CDATA[
65-
55+
6656
set names ""
6757
set pnames ""
68-
58+
6959
set solutionType [get_domnode_attribute [$domNode selectNodes [spdAux::getRoute STSoluType]] v]
7060
set arguments $args
7161
lappend arguments "SolutionType" $solutionType
@@ -79,14 +69,14 @@
7969
}
8070
set names [string range $names 0 end-1]
8171
set pnames [string range $pnames 0 end-1]
82-
72+
8373
$domNode setAttribute values $names
8474
set dv [lindex $ids 0]
8575
if {[$domNode getAttribute v] eq ""} {$domNode setAttribute v $dv}
8676
if {[$domNode getAttribute v] ni $ids} {$domNode setAttribute v $dv}
8777
#spdAux::RequestRefresh
8878
return $pnames
89-
79+
9080
]]>
9181
</proc>
9282

@@ -102,7 +92,7 @@
10292
set elemnames [list ]
10393
foreach elem $elems { lappend elemnames [$elem @v]}
10494
set elemnames [lsort -unique $elemnames]
105-
95+
10696
set solutionType [get_domnode_attribute [$domNode selectNodes [spdAux::getRoute STSoluType]] v]
10797
set params [list analysis_type $solutionType]
10898
if {[::Model::CheckElementsNodalCondition $conditionId $elemnames $params]} {return "normal"} else {return "hidden"}
@@ -111,8 +101,8 @@
111101
</proc>
112102

113103
<proc n='CheckGeometryStructural' args='args'>
114-
<![CDATA[
115-
if {$::Model::SpatialDimension eq "3D"} {return surface,volume} {return surface}
104+
<![CDATA[
105+
if {$::Model::SpatialDimension eq "3D"} {return surface,volume} {return surface}
116106
]]>
117107
</proc>
118108

@@ -129,14 +119,14 @@
129119
</proc>
130120

131121
<proc n="ElementOutputState" args='args'>
132-
<![CDATA[
122+
<![CDATA[
133123
set resp [::spdAux::CheckElementOutputState $domNode {FLParts CNVDFFParts}]
134124
if {$resp} {return "normal"} else {return "hidden"}
135125
}
136126
]]>
137127
</proc>
138128
<proc n="ActiveIfAnyPartState" args='args'>
139-
<![CDATA[
129+
<![CDATA[
140130
set resp [::spdAux::CheckAnyPartState $domNode {FLParts CNVDFFParts}]
141131
if {$resp} {return "normal"} else {return "hidden"}
142132
}

‎kratos.gid/apps/ConjugateHeatTransfer/xml/Procs.spd‎

Lines changed: 12 additions & 22 deletions
Original file line numberDiff line numberDiff line change
@@ -5,16 +5,6 @@
55
return "normal"
66
]]>
77
</proc>
8-
<proc n='MaxGroups' args='args'>
9-
<![CDATA[
10-
set childs [$domNode getElementsByTagName group]
11-
if {[llength $childs] > 1} {
12-
foreach group [lrange $childs 1 end] {$group delete}
13-
gid_groups_conds::actualize_conditions_window
14-
error "You can only set one part"
15-
}
16-
]]>
17-
</proc>
188
<proc n='CheckIdOnMyParent' args='args'>
199
<![CDATA[
2010
set r "hidden"
@@ -39,7 +29,7 @@
3929

4030
<proc n='GetSolutionStrategiesSolid' args='args'>
4131
<![CDATA[
42-
32+
4333
set names ""
4434
set pnames ""
4535
set solutionType [get_domnode_attribute [$domNode selectNodes [spdAux::getRoute STSoluType]] v]
@@ -51,21 +41,21 @@
5141
}
5242
set names [string range $names 0 end-1]
5343
set pnames [string range $pnames 0 end-1]
54-
44+
5545
$domNode setAttribute values $names
5646
if {[$domNode getAttribute v] eq ""} {$domNode setAttribute v [lindex $ids 0]}
5747
spdAux::RequestRefresh
5848
return $pnames
59-
49+
6050
]]>
6151
</proc>
6252

6353
<proc n='GetSolutionStrategiesStructural' args='args'>
6454
<![CDATA[
65-
55+
6656
set names ""
6757
set pnames ""
68-
58+
6959
set solutionType [get_domnode_attribute [$domNode selectNodes [spdAux::getRoute STSoluType]] v]
7060
set arguments $args
7161
lappend arguments "SolutionType" $solutionType
@@ -79,14 +69,14 @@
7969
}
8070
set names [string range $names 0 end-1]
8171
set pnames [string range $pnames 0 end-1]
82-
72+
8373
$domNode setAttribute values $names
8474
set dv [lindex $ids 0]
8575
if {[$domNode getAttribute v] eq ""} {$domNode setAttribute v $dv}
8676
if {[$domNode getAttribute v] ni $ids} {$domNode setAttribute v $dv}
8777
#spdAux::RequestRefresh
8878
return $pnames
89-
79+
9080
]]>
9181
</proc>
9282

@@ -102,7 +92,7 @@
10292
set elemnames [list ]
10393
foreach elem $elems { lappend elemnames [$elem @v]}
10494
set elemnames [lsort -unique $elemnames]
105-
95+
10696
set solutionType [get_domnode_attribute [$domNode selectNodes [spdAux::getRoute STSoluType]] v]
10797
set params [list analysis_type $solutionType]
10898
if {[::Model::CheckElementsNodalCondition $conditionId $elemnames $params]} {return "normal"} else {return "hidden"}
@@ -111,8 +101,8 @@
111101
</proc>
112102

113103
<proc n='CheckGeometryStructural' args='args'>
114-
<![CDATA[
115-
if {$::Model::SpatialDimension eq "3D"} {return surface,volume} {return surface}
104+
<![CDATA[
105+
if {$::Model::SpatialDimension eq "3D"} {return surface,volume} {return surface}
116106
]]>
117107
</proc>
118108

@@ -129,14 +119,14 @@
129119
</proc>
130120

131121
<proc n="ElementOutputState" args='args'>
132-
<![CDATA[
122+
<![CDATA[
133123
set resp [::spdAux::CheckElementOutputState $domNode {FLParts CNVDFFParts}]
134124
if {$resp} {return "normal"} else {return "hidden"}
135125
}
136126
]]>
137127
</proc>
138128
<proc n="ActiveIfAnyPartState" args='args'>
139-
<![CDATA[
129+
<![CDATA[
140130
set resp [::spdAux::CheckAnyPartState $domNode {FLParts CNVDFFParts}]
141131
if {$resp} {return "normal"} else {return "hidden"}
142132
}

‎kratos.gid/apps/ConvectionDiffusion/xml/Procs.spd‎

Lines changed: 0 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -4,16 +4,6 @@
44
<![CDATA[
55
return "normal"
66
]]>
7-
</proc>
8-
<proc n='MaxGroups' args='args'>
9-
<![CDATA[
10-
set childs [$domNode getElementsByTagName group]
11-
if {[llength $childs] > 1} {
12-
foreach group [lrange $childs 1 end] {$group delete}
13-
gid_groups_conds::actualize_conditions_window
14-
error "You can only set one part"
15-
}
16-
]]>
177
</proc>
188
<proc n='CheckIdOnMyParent' args='args'>
199
<![CDATA[

‎kratos.gid/apps/EmbeddedFluid/xml/Procs.spd‎

Lines changed: 0 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -5,16 +5,6 @@
55
return "normal"
66
]]>
77
</proc>
8-
<proc n='MaxGroups' args='args'>
9-
<![CDATA[
10-
set childs [$domNode getElementsByTagName group]
11-
if {[llength $childs] > 1} {
12-
foreach group [lrange $childs 1 end] {$group delete}
13-
gid_groups_conds::actualize_conditions_window
14-
error "You can only set one part"
15-
}
16-
]]>
17-
</proc>
188
<proc n='CheckIdOnMyParent' args='args'>
199
<![CDATA[
2010
set r "hidden"

‎kratos.gid/apps/FSI/xml/Procs.spd‎

Lines changed: 16 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -4,16 +4,6 @@
44
<![CDATA[
55
return "normal"
66
]]>
7-
</proc>
8-
<proc n='MaxGroups' args='args'>
9-
<![CDATA[
10-
set childs [$domNode getElementsByTagName group]
11-
if {[llength $childs] > 1} {
12-
foreach group [lrange $childs 1 end] {$group delete}
13-
gid_groups_conds::actualize_conditions_window
14-
error "You can only set one part"
15-
}
16-
]]>
177
</proc>
188
<proc n='CheckIdOnMyParent' args='args'>
199
<![CDATA[
@@ -35,11 +25,11 @@
3525
return $r
3626
]]>
3727
</proc>
38-
39-
28+
29+
4030
<proc n='GetSolutionStrategiesSolid' args='args'>
4131
<![CDATA[
42-
32+
4333
set names ""
4434
set pnames ""
4535
set solutionType [get_domnode_attribute [$domNode selectNodes [spdAux::getRoute STSoluType]] v]
@@ -51,21 +41,21 @@
5141
}
5242
set names [string range $names 0 end-1]
5343
set pnames [string range $pnames 0 end-1]
54-
44+
5545
$domNode setAttribute values $names
5646
if {[$domNode getAttribute v] eq ""} {$domNode setAttribute v [lindex $ids 0]}
5747
spdAux::RequestRefresh
5848
return $pnames
59-
49+
6050
]]>
6151
</proc>
62-
52+
6353
<proc n='GetSolutionStrategiesStructural' args='args'>
6454
<![CDATA[
65-
55+
6656
set names ""
6757
set pnames ""
68-
58+
6959
set solutionType [get_domnode_attribute [$domNode selectNodes [spdAux::getRoute STSoluType]] v]
7060
set arguments $args
7161
lappend arguments "SolutionType" $solutionType
@@ -79,22 +69,22 @@
7969
}
8070
set names [string range $names 0 end-1]
8171
set pnames [string range $pnames 0 end-1]
82-
72+
8373
$domNode setAttribute values $names
8474
set dv [lindex $ids 0]
8575
if {[$domNode getAttribute v] eq ""} {$domNode setAttribute v $dv}
8676
if {[$domNode getAttribute v] ni $ids} {$domNode setAttribute v $dv}
8777
#spdAux::RequestRefresh
8878
return $pnames
89-
79+
9080
]]>
9181
</proc>
9282
<proc n='CheckGeometryStructural' args='args'>
93-
<![CDATA[
94-
if {$::Model::SpatialDimension eq "3D"} {return surface,volume} {return surface}
83+
<![CDATA[
84+
if {$::Model::SpatialDimension eq "3D"} {return surface,volume} {return surface}
9585
]]>
9686
</proc>
97-
87+
9888
<proc n='GetSolutionStrategiesSolid' args='args'>
9989
<![CDATA[
10090
return [Structural::xml::ProcGetSolutionStrategiesSolid $domNode $args]
@@ -104,13 +94,13 @@
10494
<![CDATA[
10595
return [Structural::xml::CheckNodalConditionStateStructural $domNode $args]
10696
]]>
107-
</proc>
108-
97+
</proc>
98+
10999
<proc n='CheckNodalConditionStateStructural' args='args'>
110100
<![CDATA[
111101
return [Structural::xml::ProcCheckNodalConditionStateStructural $domNode $args]
112102
]]>
113-
</proc>
103+
</proc>
114104
<proc n='HideIfElement' args='args'>
115105
<![CDATA[
116106
return [Fluid::xml::ProcHideIfElement $domNode {*}$args]

‎kratos.gid/apps/Fluid/xml/Procs.spd‎

Lines changed: 0 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -4,16 +4,6 @@
44
<![CDATA[
55
return "normal"
66
]]>
7-
</proc>
8-
<proc n='MaxGroups' args='args'>
9-
<![CDATA[
10-
set childs [$domNode getElementsByTagName group]
11-
if {[llength $childs] > 1} {
12-
foreach group [lrange $childs 1 end] {$group delete}
13-
gid_groups_conds::actualize_conditions_window
14-
error "You can only set one part"
15-
}
16-
]]>
177
</proc>
188
<proc n='CheckIdOnMyParent' args='args'>
199
<![CDATA[

0 commit comments

Comments
 (0)