ModelSim SE User's Manual - Electrical and Computer Engineering

}
if {$windowName == ""} {
# Dialog canceled
# abort operation
return
}
## Debug
puts "Window name: $windowName\n"
if {$windowName == "{}"} {
set windowName ""
}
if {$windowName != ""} {
named_wave $windowName
} else {
named_wave $defaultName
}
Tcl examples UM-485
## Creates a new wave window with the provided name (defaults to "Wave")
proc named_wave {{name "Wave"}} {
set newWave [view -new wave]
if {[string length $name] > 0} {
wm title $newWave $name
}
}
## Writes out format of all wave windows, stores geometry and title info in
## windowSet.do file. Removes any extra files with the same fileroot.
## Default file name is wave starting from 1.
proc save_wave {{fileroot "wave"}} {
global vsimPriv
set n 1
if {[catch {open windowSet_$fileroot.do w 755} fileId]} {
error "Open failure for $fileroot ($fileId)"
}
foreach w $vsimPriv(WaveWindows) {
echo "Saving: [wm title $w]"
set filename $fileroot$n.do
if {[file exists $filename]} {
# Use different file
set n2 0
while {[file exists ${fileroot}${n}${n2}.do]} {
incr n2
}
set filename ${fileroot}${n}${n2}.do
}
write format wave -window $w $filename
puts $fileId "wm title $w \"[wm title $w]\""
puts $fileId "wm geometry $w [wm geometry $w]"
puts $fileId "mtiGrid_colconfig $w.grid name -width \
[mtiGrid_colcget $w.grid name -width]"
puts $fileId "mtiGrid_colconfig $w.grid value -width \
[mtiGrid_colcget $w.grid value -width]"
flush $fileId
incr n
}
foreach f [lsort [glob -nocomplain $fileroot\[$n-9\].do]] {
echo "Removing: $f"
exec rm $f
ModelSim SE User’s Manual