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