From 8fa2c9c22a353c98387fe70cf968c46067e42075 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Wed, 1 Jan 2025 11:48:33 +0100
Subject: [PATCH] add all_hierarchy parameter to proc traversal

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 1732f10e..17316ceb 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -1879,7 +1879,7 @@ proc traversal_editfile {w parent_sch sch} {
   }
 }
 
-proc traversal {{only_subckts {0}}} {
+proc traversal {{only_subckts 0} {all_hierarchy 1}} {
   global keep_symbols traversal_cnt
   set traversal_cnt 0
   set save_keep $keep_symbols
@@ -1907,7 +1907,7 @@ proc traversal {{only_subckts {0}}} {
   pack .cv.top.pad -side left -fill x
   frame .cv.center
   set sf [sframe .cv.center]
-  hier_traversal 0 $only_subckts
+  hier_traversal 0 $only_subckts $all_hierarchy
   xschem set no_draw 0
   xschem set no_undo 0
   set keep_symbols $save_keep
@@ -1928,7 +1928,7 @@ proc traversal {{only_subckts {0}}} {
 }
 
 # recursive procedure
-proc hier_traversal {{level 0} only_subckts} {
+proc hier_traversal {{level 0} {only_subckts 0} {all_hierarchy 1}} {
   global nolist_libs traversal_cnt
   if {[info tclversion] >= 8.5} {
     set font {TkDefaultFont 10 bold} ;# Monospace
@@ -2005,7 +2005,7 @@ proc hier_traversal {{level 0} only_subckts} {
     pack $sf.f$traversal_cnt.bsym $sf.f$traversal_cnt.bsch -side left
 
     set done_print 1
-    if {$type eq {subcircuit}} {
+    if {$type eq {subcircuit} && $all_hierarchy} {
       xschem select instance $i fast
       set descended [xschem descend 1 6]
       if {$descended} {