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