From d37c872a496d5131fd04c571e6124e227aa5c2f2 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sat, 15 Mar 2025 23:47:18 +0100
Subject: [PATCH 1/3] merge in a SuperChayan change in move.c

---
 src/move.c | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/move.c b/src/move.c
index 45fd82ca..89194b78 100644
--- a/src/move.c
+++ b/src/move.c
@@ -1136,13 +1136,11 @@ void move_objects(int what, int merge, double dx, double dy)
           else if(wire[n].sel == SELECTED2) wire[n].sel = SELECTED1;
          }
          
-         #if 0
-         if(wire[n].sel & (SELECTED|SELECTED1))
+         if((wire[n].sel & (SELECTED|SELECTED1)) && tclgetboolvar("orthogonal_wiring"))
          {
           if(xctx->manhattan_lines & 1) xctx->manhattan_lines=2;
           else if(xctx->manhattan_lines & 2) xctx->manhattan_lines=1;
          }
-         #endif
          wire[n].x1 = xctx->rx1;
          wire[n].y1 = xctx->ry1;
          if(xctx->manhattan_lines&1)

From ed8a6dbe110d7b18ea3f4c66fccf2486966da3a9 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sun, 16 Mar 2025 00:02:12 +0100
Subject: [PATCH 2/3] little optimization in insert_symbol

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index a0bbe721..1b05c3b5 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -4911,7 +4911,7 @@ proc insert_symbol_filelist {paths {maxdepth -1}} {
     
     set err [catch {regexp $new_symbol_browser_ext $i} type]
     if {!$err && $type} {
-      set fname [rel_sym_path $i $paths]
+      set fname [file tail $i]
       lappend filelist $fname
       lappend insert_symbol(fullpathlist) $i
     }

From cc90201b27a388cbae8974bfeeea609877b614e1 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sun, 16 Mar 2025 00:13:07 +0100
Subject: [PATCH 3/3] remove debug msgs in insert_symbol

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 1b05c3b5..f63ad815 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -4837,7 +4837,7 @@ proc get_list_of_dirs_with_symbols {{paths {}} {levels -1} {ext {\.(sch|sym)$}}
 
 #### Display preview of selected symbol and start sym placement
 proc insert_symbol_preview {} {
-  puts "insert_symbol_preview"
+  # puts "insert_symbol_preview"
   global insert_symbol
   xschem preview_window close .ins.center.right {}
   .ins.center.right configure -bg white
@@ -4886,7 +4886,7 @@ proc insert_symbol_filelist {paths {maxdepth -1}} {
   set insert_symbol(dirindex) $paths
   # puts "set dirindex=$paths"
   set paths [lindex $insert_symbol(dirs) $paths]
-  puts "insert_symbol_filelist: paths=$paths"
+  # puts "insert_symbol_filelist: paths=$paths"
 
   .ins.top2.dir_e configure -state normal
   .ins.top2.dir_e delete 0 end
@@ -4937,7 +4937,7 @@ proc insert_symbol_filelist {paths {maxdepth -1}} {
 }
 
 proc insert_symbol_place {} {
-  puts insert_symbol_place
+  # puts insert_symbol_place
   global insert_symbol
   set sel [.ins.center.left.l curselection]
   if {$sel eq {}} {