From 3f255d91391ca47aa800aa973e4c3a340db40eeb Mon Sep 17 00:00:00 2001
From: Christopher Lackner <clackner@cerbsim.com>
Date: Fri, 20 Sep 2019 13:08:15 +0200
Subject: [PATCH] fix set stl tolerance from gui

---
 ng/dialog.tcl | 12 ++++++------
 ng/onetcl.cpp |  8 ++++----
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/ng/dialog.tcl b/ng/dialog.tcl
index 8faac639..f081959c 100644
--- a/ng/dialog.tcl
+++ b/ng/dialog.tcl
@@ -2228,7 +2228,7 @@ proc stloptionsdialog { } {
 }
 
 proc stldoctordialog { } {
-    Ng_STLDoctor 0 0
+    Ng_STLDoctor
     set wd .stldoctor_dlg
 
     if {[winfo exists .stldoctor_dlg] == 1} {
@@ -2642,17 +2642,17 @@ proc stldoctordialog { } {
 
     
     #tixControl $f.gtol -label "load-geometry tolerance factor" -integer false \
-	-variable stldoctor.geom_tol_fact \
-	-options {
+	# -variable stldoctor.geom_tol_fact \
+	# -options {
 	#    entry.width 8
 	#    label.width 30
 	#    label.anchor e
 	#}	
-    ttk::spinbox $f.gtol -from 1 -to 20 -textvariable stldoctor.geom_tol_fact -width 8
-    pack $f.gtol
+    ttk::label $f.gtol_lbl -text "LoadSTL tolerance factor"
+    ttk::spinbox $f.gtol -from 1e-15 -to 0.001 -textvariable stldoctor.geom_tol_fact -width 8
+    pack $f.gtol_lbl $f.gtol
 
     ttk::button $f.adap -text "Apply" -command {
-	.stldoctor_dlg.nb.advanced.gtol invoke
 	Ng_STLDoctor; 
     }
     pack $f.adap -expand yes
diff --git a/ng/onetcl.cpp b/ng/onetcl.cpp
index e61239bb..9841677b 100644
--- a/ng/onetcl.cpp
+++ b/ng/onetcl.cpp
@@ -2804,7 +2804,7 @@ const char * ngscript[] = {""
 ,"}\n"
 ,"}\n"
 ,"proc stldoctordialog { } {\n"
-,"Ng_STLDoctor 0 0\n"
+,"Ng_STLDoctor\n"
 ,"set wd .stldoctor_dlg\n"
 ,"if {[winfo exists .stldoctor_dlg] == 1} {\n"
 ,"wm withdraw $wd\n"
@@ -3055,10 +3055,10 @@ const char * ngscript[] = {""
 ,"-variable stldoctor.conecheck \\\n"
 ,"-command {Ng_STLDoctor;}\n"
 ,"pack $f.sc.bu $f.sc.bu2\n"
-,"ttk::spinbox $f.gtol -from 1 -to 20 -textvariable stldoctor.geom_tol_fact -width 8\n"
-,"pack $f.gtol\n"
+,"ttk::label $f.gtol_lbl -text \"LoadSTL tolerance factor\"\n"
+,"ttk::spinbox $f.gtol -from 1e-15 -to 0.001 -textvariable stldoctor.geom_tol_fact -width 8\n"
+,"pack $f.gtol_lbl $f.gtol\n"
 ,"ttk::button $f.adap -text \"Apply\" -command {\n"
-,".stldoctor_dlg.nb.advanced.gtol invoke\n"
 ,"Ng_STLDoctor;\n"
 ,"}\n"
 ,"pack $f.adap -expand yes\n"