75 lines
2.9 KiB
Tcl
75 lines
2.9 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 "c_clkfreq" -parent ${Page_0}
|
|
#Adding Group
|
|
set SPI_parameters [ipgui::add_group $IPINST -name "SPI parameters" -parent ${Page_0}]
|
|
set c_sclkfreq [ipgui::add_param $IPINST -name "c_sclkfreq" -parent ${SPI_parameters}]
|
|
set_property tooltip {Desired SCLK frequency (must be less or equal than aclk_freq/8)} ${c_sclkfreq}
|
|
ipgui::add_param $IPINST -name "c_cpol" -parent ${SPI_parameters}
|
|
ipgui::add_param $IPINST -name "c_cpha" -parent ${SPI_parameters}
|
|
|
|
|
|
|
|
}
|
|
|
|
proc update_PARAM_VALUE.c_clkfreq { PARAM_VALUE.c_clkfreq } {
|
|
# Procedure called to update c_clkfreq when any of the dependent parameters in the arguments change
|
|
}
|
|
|
|
proc validate_PARAM_VALUE.c_clkfreq { PARAM_VALUE.c_clkfreq } {
|
|
# Procedure called to validate c_clkfreq
|
|
return true
|
|
}
|
|
|
|
proc update_PARAM_VALUE.c_cpha { PARAM_VALUE.c_cpha } {
|
|
# Procedure called to update c_cpha when any of the dependent parameters in the arguments change
|
|
}
|
|
|
|
proc validate_PARAM_VALUE.c_cpha { PARAM_VALUE.c_cpha } {
|
|
# Procedure called to validate c_cpha
|
|
return true
|
|
}
|
|
|
|
proc update_PARAM_VALUE.c_cpol { PARAM_VALUE.c_cpol } {
|
|
# Procedure called to update c_cpol when any of the dependent parameters in the arguments change
|
|
}
|
|
|
|
proc validate_PARAM_VALUE.c_cpol { PARAM_VALUE.c_cpol } {
|
|
# Procedure called to validate c_cpol
|
|
return true
|
|
}
|
|
|
|
proc update_PARAM_VALUE.c_sclkfreq { PARAM_VALUE.c_sclkfreq } {
|
|
# Procedure called to update c_sclkfreq when any of the dependent parameters in the arguments change
|
|
}
|
|
|
|
proc validate_PARAM_VALUE.c_sclkfreq { PARAM_VALUE.c_sclkfreq } {
|
|
# Procedure called to validate c_sclkfreq
|
|
return true
|
|
}
|
|
|
|
|
|
proc update_MODELPARAM_VALUE.c_clkfreq { MODELPARAM_VALUE.c_clkfreq PARAM_VALUE.c_clkfreq } {
|
|
# Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
|
|
set_property value [get_property value ${PARAM_VALUE.c_clkfreq}] ${MODELPARAM_VALUE.c_clkfreq}
|
|
}
|
|
|
|
proc update_MODELPARAM_VALUE.c_sclkfreq { MODELPARAM_VALUE.c_sclkfreq PARAM_VALUE.c_sclkfreq } {
|
|
# Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
|
|
set_property value [get_property value ${PARAM_VALUE.c_sclkfreq}] ${MODELPARAM_VALUE.c_sclkfreq}
|
|
}
|
|
|
|
proc update_MODELPARAM_VALUE.c_cpol { MODELPARAM_VALUE.c_cpol PARAM_VALUE.c_cpol } {
|
|
# Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
|
|
set_property value [get_property value ${PARAM_VALUE.c_cpol}] ${MODELPARAM_VALUE.c_cpol}
|
|
}
|
|
|
|
proc update_MODELPARAM_VALUE.c_cpha { MODELPARAM_VALUE.c_cpha PARAM_VALUE.c_cpha } {
|
|
# Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
|
|
set_property value [get_property value ${PARAM_VALUE.c_cpha}] ${MODELPARAM_VALUE.c_cpha}
|
|
}
|
|
|