From d0ee3a34fa4b4abfcd6efd3835b9143e6f7bcca5 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Tue, 14 Nov 2023 02:12:23 +0100
Subject: [PATCH] fix additional intersection checks in `proc touches`

---
 src/xschem.tcl | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index f46dc399..06d4cfe3 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -2216,15 +2216,18 @@ proc touches {sel tag} {
   set selend [expr {$sel_lineend * 1000000 + $sel_charend}]
   set tagstart [expr {$tag_linestart * 1000000 + $tag_charstart}]
   set tagend [expr {$tag_lineend * 1000000 + $tag_charend}]
-  # puts "selstart: $selstart"
-  # puts "selend: $selend"
-  # puts "tagstart: $tagstart"
-  # puts "tagend: $tagend"
+  puts "selstart: $selstart"
+  puts "selend: $selend"
+  puts "tagstart: $tagstart"
+  puts "tagend: $tagend"
   if { ($tagstart >= $selstart && $tagstart <= $selend) ||
-       ($tagend >= $selstart && $tagend <= $selend) } {
+       ($tagend >= $selstart && $tagend <= $selend) ||
+       ($selstart >= $tagstart && $selstart <= $tagend) ||
+       ($selend >= $tagstart && $selend <= $tagend)
+     } {
     set res 1
   }
-  # puts "touch: returning $res"
+  puts "touch: returning $res"
   return $res
 }