git.gag.com Git - debian/gnuradio/blob - usrp2/fpga/opencores/ethernet_tri_mode/sim/rtl_sim/ncsim_sim/script/run_proc.tcl

   1 proc run_proc {} {
   2 source user_lib.tcl
   3 source set_stimulus.tcl
   4 source set_reg_data.tcl
   5 source start_verify.tcl
   6 source batch_mode.tcl
   7 source filesel.tcl
   8
   9 toplevel .frame
  10 focus .frame
  11 wm title .frame "main"
  12 button .frame.b1 -width 20 -text "set_stimulus"
  13 button .frame.b2 -width 20 -text "set_cpu_data"
  14 button .frame.b3 -width 20 -text "start_verify"
  15 button .frame.b4 -width 20 -text "batch_mode"
  16 button .frame.b40 -width 20 -text "exit" -command {cd ../../../../ ;destroy .frame}
  17
  18 bind .frame.b1 <Button-1> {set_stimulus}
  19 bind .frame.b2 <Button-1> {set_reg_data}
  20 bind .frame.b3 <Button-1> {start_verify 0 empty}
  21 bind .frame.b4 <Button-1> {batch_mode}
  22
  23
  24
  25 pack .frame.b1 .frame.b2 .frame.b3 .frame.b4 .frame.b40
  26
  27 }