packaging_v3_0.tcl 836 B

12345678910111213141516171819202122232425
  1. # Definitional proc to organize widgets for parameters.
  2. proc init_gui { IPINST } {
  3. ipgui::add_param $IPINST -name "Component_Name"
  4. #Adding Page
  5. set Page_0 [ipgui::add_page $IPINST -name "Page 0"]
  6. ipgui::add_param $IPINST -name "busWidth" -parent ${Page_0}
  7. }
  8. proc update_PARAM_VALUE.busWidth { PARAM_VALUE.busWidth } {
  9. # Procedure called to update busWidth when any of the dependent parameters in the arguments change
  10. }
  11. proc validate_PARAM_VALUE.busWidth { PARAM_VALUE.busWidth } {
  12. # Procedure called to validate busWidth
  13. return true
  14. }
  15. proc update_MODELPARAM_VALUE.busWidth { MODELPARAM_VALUE.busWidth PARAM_VALUE.busWidth } {
  16. # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
  17. set_property value [get_property value ${PARAM_VALUE.busWidth}] ${MODELPARAM_VALUE.busWidth}
  18. }