From 1243ca91aac6d368a75905a91587353426c61c16 Mon Sep 17 00:00:00 2001 From: Javi Garate Date: Fri, 29 May 2026 14:00:39 +0200 Subject: [PATCH 1/2] check by app --- kratos.gid/scripts/Controllers/CommonProcs.tcl | 8 +++++--- kratos.gid/scripts/Writing/Writing.tcl | 2 +- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/kratos.gid/scripts/Controllers/CommonProcs.tcl b/kratos.gid/scripts/Controllers/CommonProcs.tcl index 0d5425a3c..5e6029f3c 100644 --- a/kratos.gid/scripts/Controllers/CommonProcs.tcl +++ b/kratos.gid/scripts/Controllers/CommonProcs.tcl @@ -549,9 +549,11 @@ proc spdAux::ProcShowInWriteMode { domNode args } { if {$kw ni [list "Geometries" "Entitites" "geometries" "entitites"]} {return "hidden"} set write_geometries_enabled 0 - set write_mode [::write::GetWriteMode] - if {$write_mode eq "geometries"} { - set write_geometries_enabled 1 + set nodeApp [spdAux::GetAppIdFromNode $domNode] + set write_mode [apps::ExecuteOnApp $nodeApp GetWriteProperty write_mdpa_mode] + set write_geometries_enabled 1 + if {$write_mode ne "geometries"} { + set write_geometries_enabled 0 } if {$write_geometries_enabled} { if {$kw eq "Geometries" || $kw eq "geometries"} {set response "normal"} {set response "hidden"} diff --git a/kratos.gid/scripts/Writing/Writing.tcl b/kratos.gid/scripts/Writing/Writing.tcl index 46be1432a..df3b7dfe1 100644 --- a/kratos.gid/scripts/Writing/Writing.tcl +++ b/kratos.gid/scripts/Writing/Writing.tcl @@ -397,7 +397,7 @@ proc write::isquadratic {} { } proc write::GetWriteMode {} { - return [::write::GetAttribute write_mdpa_mode] + return [::write::GetConfigurationAttribute write_mdpa_mode] } proc write::GetNodesFromElementFace {elem_id face_id} { From a4c767807860a0743017022565cacc3309e62096 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Javi=20G=C3=A1rate?= Date: Mon, 1 Jun 2026 14:31:53 +0200 Subject: [PATCH 2/2] Potential fix for pull request finding Co-authored-by: Copilot Autofix powered by AI <175728472+Copilot@users.noreply.github.com> --- kratos.gid/scripts/Controllers/CommonProcs.tcl | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/kratos.gid/scripts/Controllers/CommonProcs.tcl b/kratos.gid/scripts/Controllers/CommonProcs.tcl index 5e6029f3c..bd09923dd 100644 --- a/kratos.gid/scripts/Controllers/CommonProcs.tcl +++ b/kratos.gid/scripts/Controllers/CommonProcs.tcl @@ -551,10 +551,7 @@ proc spdAux::ProcShowInWriteMode { domNode args } { set nodeApp [spdAux::GetAppIdFromNode $domNode] set write_mode [apps::ExecuteOnApp $nodeApp GetWriteProperty write_mdpa_mode] - set write_geometries_enabled 1 - if {$write_mode ne "geometries"} { - set write_geometries_enabled 0 - } + set write_geometries_enabled [expr {$write_mode eq "geometries"}] if {$write_geometries_enabled} { if {$kw eq "Geometries" || $kw eq "geometries"} {set response "normal"} {set response "hidden"} } else {