From fa699fe2f1713481486dea3db6bef7370529aa14 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Mon, 14 Oct 2024 21:59:39 +0200
Subject: [PATCH] change_elem_order(): use input_line instead of text_line
 dialog

---
 src/editprop.c | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/editprop.c b/src/editprop.c
index d5a17249..bbe8a1b5 100644
--- a/src/editprop.c
+++ b/src/editprop.c
@@ -1706,19 +1706,23 @@ void change_elem_order(int n)
       my_snprintf(tmp_txt, S(tmp_txt), "%d",xctx->sel_array[0].n);
       tclsetvar("retval",tmp_txt);
       xctx->semaphore++;
-      tcleval("text_line {Object Sequence number} 0");
+      tclvareval("input_line {Object Sequence number} {} ", tmp_txt, NULL);
       xctx->semaphore--;
-      if(strcmp(tclgetvar("tctx::rcode"),"") )
+      if(strcmp(tclgetvar("retval"),"") )
       {
+        int c = 0; 
         xctx->push_undo();
         modified = 1;
         xctx->prep_hash_inst=0;
         xctx->prep_net_structs=0;
         xctx->prep_hi_structs=0;
         xctx->prep_hash_wires=0;
+        c = sscanf(tclgetvar("retval"), "%d",&new_n);
+        if(c != 1 ) return;
+        if(new_n < 0) new_n = 0;
+      } else {
+        return; /* no data or Cancel */
       }
-      sscanf(tclgetvar("retval"), "%d",&new_n);
-      if(new_n < 0) new_n = 0;
     } else {
       new_n = n;
       xctx->push_undo();