From ba259b751daee4b1c7a5a36bf2cfad1b059ce902 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Mon, 22 Sep 2025 10:21:50 +0200
Subject: [PATCH] descend instance in case of vectored instances. Pressing
 Cancel when asked which instance to descend into aborts instead of descending
 into first instance

---
 src/xschem.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 72f7f49e..c7843e42 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -7562,7 +7562,7 @@ proc input_line {txt {cmd {}} {preset {}}  {w 12}} {
     set tctx::retval \[.dialog.f1.e get\]
     destroy .dialog
   "
-  button .dialog.f2.cancel -text Cancel -command { destroy .dialog }
+  button .dialog.f2.cancel -text Cancel -command {  set tctx::retval {}; destroy .dialog }
   pack .dialog.f2.ok  -anchor w -side left
   pack .dialog.f2.cancel -anchor e
   pack .dialog.f1