41 lines
1.6 KiB
Tcl
41 lines
1.6 KiB
Tcl
# Definitional proc to organize widgets for parameters.
|
|
proc init_gui { IPINST } {
|
|
ipgui::add_param $IPINST -name "Component_Name"
|
|
#Adding Page
|
|
set Page_0 [ipgui::add_page $IPINST -name "Page 0"]
|
|
ipgui::add_param $IPINST -name "SIM_ENABLED" -parent ${Page_0}
|
|
|
|
ipgui::add_param $IPINST -name "FPGA_REVISION_DATE"
|
|
|
|
}
|
|
|
|
proc update_PARAM_VALUE.FPGA_REVISION_DATE { PARAM_VALUE.FPGA_REVISION_DATE } {
|
|
# Procedure called to update FPGA_REVISION_DATE when any of the dependent parameters in the arguments change
|
|
}
|
|
|
|
proc validate_PARAM_VALUE.FPGA_REVISION_DATE { PARAM_VALUE.FPGA_REVISION_DATE } {
|
|
# Procedure called to validate FPGA_REVISION_DATE
|
|
return true
|
|
}
|
|
|
|
proc update_PARAM_VALUE.SIM_ENABLED { PARAM_VALUE.SIM_ENABLED } {
|
|
# Procedure called to update SIM_ENABLED when any of the dependent parameters in the arguments change
|
|
}
|
|
|
|
proc validate_PARAM_VALUE.SIM_ENABLED { PARAM_VALUE.SIM_ENABLED } {
|
|
# Procedure called to validate SIM_ENABLED
|
|
return true
|
|
}
|
|
|
|
|
|
proc update_MODELPARAM_VALUE.SIM_ENABLED { MODELPARAM_VALUE.SIM_ENABLED PARAM_VALUE.SIM_ENABLED } {
|
|
# Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
|
|
set_property value [get_property value ${PARAM_VALUE.SIM_ENABLED}] ${MODELPARAM_VALUE.SIM_ENABLED}
|
|
}
|
|
|
|
proc update_MODELPARAM_VALUE.FPGA_REVISION_DATE { MODELPARAM_VALUE.FPGA_REVISION_DATE PARAM_VALUE.FPGA_REVISION_DATE } {
|
|
# Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
|
|
set_property value [get_property value ${PARAM_VALUE.FPGA_REVISION_DATE}] ${MODELPARAM_VALUE.FPGA_REVISION_DATE}
|
|
}
|
|
|