luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'StefanSchippers:master' into master

This commit is contained in:
Chayan Deb 2025-01-02 13:42:56 +05:30 committed by GitHub
parent 96c3dde250 8fa2c9c22a
commit 724f8e834e
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/xschem.tcl
View File

@ -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 global keep_symbols traversal_cnt
set traversal_cnt 0 set traversal_cnt 0
set save_keep $keep_symbols set save_keep $keep_symbols
@ -1907,7 +1907,7 @@ proc traversal {{only_subckts {0}}} {
pack .cv.top.pad -side left -fill x pack .cv.top.pad -side left -fill x
frame .cv.center frame .cv.center
set sf [sframe .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_draw 0
xschem set no_undo 0 xschem set no_undo 0
set keep_symbols $save_keep set keep_symbols $save_keep
@ -1928,7 +1928,7 @@ proc traversal {{only_subckts {0}}} {
} }
# recursive procedure # 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 global nolist_libs traversal_cnt
if {[info tclversion] >= 8.5} { if {[info tclversion] >= 8.5} {
set font {TkDefaultFont 10 bold} ;# Monospace 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 pack $sf.f$traversal_cnt.bsym $sf.f$traversal_cnt.bsch -side left
set done_print 1 set done_print 1
if {$type eq {subcircuit}} { if {$type eq {subcircuit} && $all_hierarchy} {
xschem select instance $i fast xschem select instance $i fast
set descended [xschem descend 1 6] set descended [xschem descend 1 6]
if {$descended} { if {$descended} {