From 57ddf46b8cb3a25523a23a29dc0598c932b8f5f6 Mon Sep 17 00:00:00 2001
From: Christopher Lackner <clackner@cerbsim.com>
Date: Sun, 22 Sep 2019 14:56:56 +0200
Subject: [PATCH] enable stop on segment and stop on face debug options

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

diff --git a/ng/dialog.tcl b/ng/dialog.tcl
index f081959c..e47cbaaa 100644
--- a/ng/dialog.tcl
+++ b/ng/dialog.tcl
@@ -677,23 +677,23 @@ proc meshingoptionsdialog { } {
         ttk::checkbutton $f.cb1.haltlargequal -text "Halt on large quality class" \
             -variable debug.haltlargequalclass  -command { Ng_SetDebugParameters }
         ttk::checkbutton $f.cb1.haltseg -text "Halt on Segment:" \
-            -variable debug.haltsegment  -command "enable_cb %W $f.cb1.segs.ent1 $f.cb1.segs.ent2"
+            -variable debug.haltsegment  -command { Ng_SetDebugParameters }
         ttk::checkbutton $f.cb1.haltnode -text "Halt on Node:" \
-            -variable debug.haltnode  -command "enable_cb %W $f.cb1.segs.ent1 $f.cb1.segs.ent2"
+            -variable debug.haltnode  -command { Ng_SetDebugParameters }
         ttk::frame $f.cb1.fr
         ttk::checkbutton $f.cb1.fr.cb -text "Halt on Face:" \
-            -variable debug.haltface -command "enable_cb %W $f.cb1.fr.ent $f.cb1.fr.ent"
-        ttk::entry $f.cb1.fr.ent -textvariable debug.haltfacenr -width 3 -state disabled
+            -variable debug.haltface -command { Ng_SetDebugParameters }
+        ttk::entry $f.cb1.fr.ent -textvariable debug.haltfacenr -width 3
         
         pack $f.cb1.fr.cb $f.cb1.fr.ent -side left 
 
         ttk::frame $f.cb1.segs
         ttk::label $f.cb1.segs.lab1 -text "P1:"
         ttk::entry $f.cb1.segs.ent1 -width 6 \
-            -textvariable debug.haltsegmentp1  -state disabled
+            -textvariable debug.haltsegmentp1
         ttk::label $f.cb1.segs.lab2 -text "P2:"
         ttk::entry $f.cb1.segs.ent2 -width 6 \
-            -textvariable debug.haltsegmentp2  -state disabled
+            -textvariable debug.haltsegmentp2
 
         pack $f.cb1.segs.lab1 $f.cb1.segs.ent1 $f.cb1.segs.lab2 $f.cb1.segs.ent2 -side left
 
diff --git a/ng/onetcl.cpp b/ng/onetcl.cpp
index 9841677b..b2657c30 100644
--- a/ng/onetcl.cpp
+++ b/ng/onetcl.cpp
@@ -1849,21 +1849,21 @@ const char * ngscript[] = {""
 ,"ttk::checkbutton $f.cb1.haltlargequal -text \"Halt on large quality class\" \\\n"
 ,"-variable debug.haltlargequalclass  -command { Ng_SetDebugParameters }\n"
 ,"ttk::checkbutton $f.cb1.haltseg -text \"Halt on Segment:\" \\\n"
-,"-variable debug.haltsegment  -command \"enable_cb %W $f.cb1.segs.ent1 $f.cb1.segs.ent2\"\n"
+,"-variable debug.haltsegment  -command { Ng_SetDebugParameters }\n"
 ,"ttk::checkbutton $f.cb1.haltnode -text \"Halt on Node:\" \\\n"
-,"-variable debug.haltnode  -command \"enable_cb %W $f.cb1.segs.ent1 $f.cb1.segs.ent2\"\n"
+,"-variable debug.haltnode  -command { Ng_SetDebugParameters }\n"
 ,"ttk::frame $f.cb1.fr\n"
 ,"ttk::checkbutton $f.cb1.fr.cb -text \"Halt on Face:\" \\\n"
-,"-variable debug.haltface -command \"enable_cb %W $f.cb1.fr.ent $f.cb1.fr.ent\"\n"
-,"ttk::entry $f.cb1.fr.ent -textvariable debug.haltfacenr -width 3 -state disabled\n"
+,"-variable debug.haltface -command { Ng_SetDebugParameters }\n"
+,"ttk::entry $f.cb1.fr.ent -textvariable debug.haltfacenr -width 3\n"
 ,"pack $f.cb1.fr.cb $f.cb1.fr.ent -side left\n"
 ,"ttk::frame $f.cb1.segs\n"
 ,"ttk::label $f.cb1.segs.lab1 -text \"P1:\"\n"
 ,"ttk::entry $f.cb1.segs.ent1 -width 6 \\\n"
-,"-textvariable debug.haltsegmentp1  -state disabled\n"
+,"-textvariable debug.haltsegmentp1\n"
 ,"ttk::label $f.cb1.segs.lab2 -text \"P2:\"\n"
 ,"ttk::entry $f.cb1.segs.ent2 -width 6 \\\n"
-,"-textvariable debug.haltsegmentp2  -state disabled\n"
+,"-textvariable debug.haltsegmentp2\n"
 ,"pack $f.cb1.segs.lab1 $f.cb1.segs.ent1 $f.cb1.segs.lab2 $f.cb1.segs.ent2 -side left\n"
 ,"grid $f.cb1.slowchecks $f.cb1.debugoutput -sticky nw\n"
 ,"grid $f.cb1.haltexline $f.cb1.haltoverlap -sticky nw\n"