distrib/share/tcl/ctk_API.tcl

   1 #
   2 # Copyright (c) 1998-2005, AVERTEC All Rights Reserved
   3 #
   4 # <StabilityFigure> loadcrosstalkfile <TimingFigure>
   5 #
   6 #
   7 #
   8 #
   9
  10 proc ctk_LoadCrosstalkResults tf {
  11
  12   global avtdisplay
  13   if { ![ info exists avtdisplay ] } {
  14     set avtdisplay 0
  15   }
  16
  17   if { $tf != "NULL" } {
  18     set figname [ ttv_GetTimingFigureProperty $tf FIGNAME ]
  19
  20     if { $avtdisplay == 1 } {
  21       puts "reading crosstalk delays"
  22     }
  23     ttv_LoadCrosstalkFile $tf
  24
  25     if { $avtdisplay == 1 } {
  26       puts "reading switching windows"
  27     }
  28     set sf [ stb_LoadSwitchingWindows $tf "${figname}.sto" ]
  29
  30     if { $avtdisplay == 1 } {
  31       puts "loading agression file"
  32     }
  33     ctk_LoadAggressionFile $sf
  34     return $sf
  35   } else {
  36     return NULL
  37   }
  38 }