diff --git a/elink/projects/xilinx/axi_elink/xgui/axi_elink_v1_0.tcl b/elink/projects/xilinx/axi_elink/xgui/axi_elink_v1_0.tcl new file mode 100755 index 0000000..8e4143e --- /dev/null +++ b/elink/projects/xilinx/axi_elink/xgui/axi_elink_v1_0.tcl @@ -0,0 +1,115 @@ +# 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 "AW" -parent ${Page_0} + ipgui::add_param $IPINST -name "DW" -parent ${Page_0} + ipgui::add_param $IPINST -name "ID" -parent ${Page_0} + ipgui::add_param $IPINST -name "M_IDW" -parent ${Page_0} + ipgui::add_param $IPINST -name "PW" -parent ${Page_0} + ipgui::add_param $IPINST -name "S_IDW" -parent ${Page_0} + + ipgui::add_param $IPINST -name "IOSTD_ELINK" + +} + +proc update_PARAM_VALUE.AW { PARAM_VALUE.AW } { + # Procedure called to update AW when any of the dependent parameters in the arguments change +} + +proc validate_PARAM_VALUE.AW { PARAM_VALUE.AW } { + # Procedure called to validate AW + return true +} + +proc update_PARAM_VALUE.DW { PARAM_VALUE.DW } { + # Procedure called to update DW when any of the dependent parameters in the arguments change +} + +proc validate_PARAM_VALUE.DW { PARAM_VALUE.DW } { + # Procedure called to validate DW + return true +} + +proc update_PARAM_VALUE.ID { PARAM_VALUE.ID } { + # Procedure called to update ID when any of the dependent parameters in the arguments change +} + +proc validate_PARAM_VALUE.ID { PARAM_VALUE.ID } { + # Procedure called to validate ID + return true +} + +proc update_PARAM_VALUE.IOSTD_ELINK { PARAM_VALUE.IOSTD_ELINK } { + # Procedure called to update IOSTD_ELINK when any of the dependent parameters in the arguments change +} + +proc validate_PARAM_VALUE.IOSTD_ELINK { PARAM_VALUE.IOSTD_ELINK } { + # Procedure called to validate IOSTD_ELINK + return true +} + +proc update_PARAM_VALUE.M_IDW { PARAM_VALUE.M_IDW } { + # Procedure called to update M_IDW when any of the dependent parameters in the arguments change +} + +proc validate_PARAM_VALUE.M_IDW { PARAM_VALUE.M_IDW } { + # Procedure called to validate M_IDW + return true +} + +proc update_PARAM_VALUE.PW { PARAM_VALUE.PW } { + # Procedure called to update PW when any of the dependent parameters in the arguments change +} + +proc validate_PARAM_VALUE.PW { PARAM_VALUE.PW } { + # Procedure called to validate PW + return true +} + +proc update_PARAM_VALUE.S_IDW { PARAM_VALUE.S_IDW } { + # Procedure called to update S_IDW when any of the dependent parameters in the arguments change +} + +proc validate_PARAM_VALUE.S_IDW { PARAM_VALUE.S_IDW } { + # Procedure called to validate S_IDW + return true +} + + +proc update_MODELPARAM_VALUE.AW { MODELPARAM_VALUE.AW PARAM_VALUE.AW } { + # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value + set_property value [get_property value ${PARAM_VALUE.AW}] ${MODELPARAM_VALUE.AW} +} + +proc update_MODELPARAM_VALUE.DW { MODELPARAM_VALUE.DW PARAM_VALUE.DW } { + # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value + set_property value [get_property value ${PARAM_VALUE.DW}] ${MODELPARAM_VALUE.DW} +} + +proc update_MODELPARAM_VALUE.PW { MODELPARAM_VALUE.PW PARAM_VALUE.PW } { + # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value + set_property value [get_property value ${PARAM_VALUE.PW}] ${MODELPARAM_VALUE.PW} +} + +proc update_MODELPARAM_VALUE.ID { MODELPARAM_VALUE.ID PARAM_VALUE.ID } { + # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value + set_property value [get_property value ${PARAM_VALUE.ID}] ${MODELPARAM_VALUE.ID} +} + +proc update_MODELPARAM_VALUE.M_IDW { MODELPARAM_VALUE.M_IDW PARAM_VALUE.M_IDW } { + # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value + set_property value [get_property value ${PARAM_VALUE.M_IDW}] ${MODELPARAM_VALUE.M_IDW} +} + +proc update_MODELPARAM_VALUE.S_IDW { MODELPARAM_VALUE.S_IDW PARAM_VALUE.S_IDW } { + # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value + set_property value [get_property value ${PARAM_VALUE.S_IDW}] ${MODELPARAM_VALUE.S_IDW} +} + +proc update_MODELPARAM_VALUE.IOSTD_ELINK { MODELPARAM_VALUE.IOSTD_ELINK PARAM_VALUE.IOSTD_ELINK } { + # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value + set_property value [get_property value ${PARAM_VALUE.IOSTD_ELINK}] ${MODELPARAM_VALUE.IOSTD_ELINK} +} +