12345678910111213141516171819202122232425 |
- # 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 "busWidth" -parent ${Page_0}
- }
- proc update_PARAM_VALUE.busWidth { PARAM_VALUE.busWidth } {
- # Procedure called to update busWidth when any of the dependent parameters in the arguments change
- }
- proc validate_PARAM_VALUE.busWidth { PARAM_VALUE.busWidth } {
- # Procedure called to validate busWidth
- return true
- }
- proc update_MODELPARAM_VALUE.busWidth { MODELPARAM_VALUE.busWidth PARAM_VALUE.busWidth } {
- # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
- set_property value [get_property value ${PARAM_VALUE.busWidth}] ${MODELPARAM_VALUE.busWidth}
- }
|