From 9468e476a7fc75a810731dab18a8e703983fb6a0 Mon Sep 17 00:00:00 2001
From: Christopher Lackner <clackner@cerbsim.com>
Date: Tue, 19 Jul 2022 12:45:23 +0200
Subject: [PATCH] fix occ error faces in topology explorer

---
 ng/occgeom.tcl | 8 ++++----
 ng/onetcl.cpp  | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/ng/occgeom.tcl b/ng/occgeom.tcl
index 9201cc64..667b84e7 100644
--- a/ng/occgeom.tcl
+++ b/ng/occgeom.tcl
@@ -101,7 +101,7 @@ proc occdialogbuildtree {} {
 	set nrfaces [expr [llength $faces]]
 	if {$nrfaces >= 2} {
 	    #$hlist add ErrorFaces -itemtype text -text "Faces with surface meshing error"
-        $w.tree insert {} -id ErrorFaces -text "Faces with surface meshing error"
+        $w.tree insert {} end -id "ErrorFaces" -text "Faces with surface meshing error"
 	    #$w.mtre open ErrorFaces
         $w.tree item ErrorFaces -open true
 	    set i [expr 0]
@@ -109,12 +109,12 @@ proc occdialogbuildtree {} {
 		set entity [lindex $faces [expr $i]]
         set myroot [string range $entity 0 [string last / $entity]-1]
         if { [string length $myroot] == 0 } {
-            set myroot ErrorFaces
-        }
+            set myroot "ErrorFaces"
+                }
 		incr i 1
 		set entityname [lindex $faces [expr $i]]
 		#$hlist add ErrorFaces/$entity -text $entityname -data $entityname
-        $w.tree insert {myroot} end -id $entity -text $entityname -value 0
+        $w.tree insert $myroot end -id $entity -text $entityname -value 0
 		incr i 1
 	    }
 	}
diff --git a/ng/onetcl.cpp b/ng/onetcl.cpp
index bc3ba224..4b999a6f 100644
--- a/ng/onetcl.cpp
+++ b/ng/onetcl.cpp
@@ -3992,18 +3992,18 @@ DLL_HEADER const char * ngscript[] = {""
 ,"set faces [Ng_OCCCommand getunmeshedfaceinfo]\n"
 ,"set nrfaces [expr [llength $faces]]\n"
 ,"if {$nrfaces >= 2} {\n"
-,"$w.tree insert {} -id ErrorFaces -text \"Faces with surface meshing error\"\n"
+,"$w.tree insert {} end -id \"ErrorFaces\" -text \"Faces with surface meshing error\"\n"
 ,"$w.tree item ErrorFaces -open true\n"
 ,"set i [expr 0]\n"
 ,"while {$i < $nrfaces} {\n"
 ,"set entity [lindex $faces [expr $i]]\n"
 ,"set myroot [string range $entity 0 [string last / $entity]-1]\n"
 ,"if { [string length $myroot] == 0 } {\n"
-,"set myroot ErrorFaces\n"
+,"set myroot \"ErrorFaces\"\n"
 ,"}\n"
 ,"incr i 1\n"
 ,"set entityname [lindex $faces [expr $i]]\n"
-,"$w.tree insert {myroot} end -id $entity -text $entityname -value 0\n"
+,"$w.tree insert $myroot end -id $entity -text $entityname -value 0\n"
 ,"incr i 1\n"
 ,"}\n"
 ,"}\n"