12345678910111213141516171819202122 |
- ### --------------------------------------------------------------------
- ### gtkwave.tcl
- ### Author: Simon Schmidt
- ### --------------------------------------------------------------------
-
- # Resources:
- # Manual: http://gtkwave.sourceforge.net/gtkwave.pdf#Appendix-E-Tcl-Command-Syntax
-
- # Add all signals
- set nfacs [ gtkwave::getNumFacs ]
-
- set all_facs [list]
- for {set i 0} {$i < $nfacs } {incr i} {
- set facname [ gtkwave::getFacName $i ]
- lappend all_facs "$facname"
- }
-
- set num_added [ gtkwave::addSignalsFromList $all_facs ]
- puts "num signals added: $num_added"
-
- # zoom full
- gtkwave::/Time/Zoom/Zoom_Full
|