Time Stretcher Current frame button

{
    Tools = ordered() {
        TimeStretcher = TimeStretcher {
            CtrlWZoom = false,
            Inputs = {
                SourceTime = Input { Value = 1, },
                InterpolateBetweenFrames = Input { Value = 0, },
                SampleSpread = Input { Disabled = true, },
                CommentsNest = Input { Value = 0, },
                FrameRenderScriptNest = Input { Value = 0, },
                CurrentFrame = Input {
                    Value = 40,
                    Expression = "time",
                }
            },
            ViewInfo = OperatorInfo { Pos = { -1375, 709.5 } },
            UserControls = ordered() {
                SetSourceTime = {
                    INP_MaxAllowed = 1000000,
                    INP_Integer = false,
                    INPID_InputControl = "ButtonControl",
                    BTNCS_Execute = "tool.SourceTime = tool.CurrentFrame[CurrentTime]",
                    INP_MaxScale = 1,
                    INP_MinScale = 0,
                    INP_MinAllowed = -1000000,
                    LINKID_DataType = "Number",
                    ICS_ControlPage = "Controls",
                    LINKS_Name = "Set Source Time to Current Frame"
                },
                IndependentLabel = {
                    INP_External = false,
                    INPID_InputControl = "LabelControl",
                    INP_Passive = true,
                    ICS_ControlPage = "Controls",
                    LINKS_Name = "Button doesn't work on Keyframes",
                },
                CurrentFrame = {
                    INPID_InputControl = "ScrewControl",
                    INP_Integer = false,
                    LINKID_DataType = "Number",
                    LINKS_Name = "Current Frame",
                }
            }
        }
    },
    ActiveTool = "TimeStretcher"
}