DCL文件里面的数据怎么给LSP，button控件

#DCL文件里面的数据怎么给LSP，button控件

求助，我想实现一个控件，如下图，点击上一个返回一个数值：如-1，给LSP文件，点击下一个返回一个数值：如+1给LSP文件

这个button该怎么定义，以及怎么把这个值回调给lsp文件，十分感谢
下面展示一些 内联代码片。

a:dialog{
        label="slider";               
        
        : edit_box {                                //*define edit box
         key = "myedit" ;                                //*give it a name
         label = "第几个注记" ;        //*give it a label
         edit_width = 6 ;                        //*6 characters only
        }

        :row{               
                :button{
                        key=""
                        label="上一个";
                        
                }
                :button{
                        key=""
                        label="下一个";
                }
        }                        
}



;2、命令行输入 test
(defun c:test( / continue curBtn dlgId )   
    (setq dlgId (load_dialog "slider.dcl"))        
        (if (not (new_dialog "a" dlgId))
            (exit)
        )
                (set_tile "myedit" "1")        
        

               

                (action_tile "myedit"                         ;用户修改编辑框文字时触发
                "(ebox_action $value $reason)")                ;调用ebox_action

               
                  
                (defun ebox_action (val why)                        
                        (if (or (= why 2) (= why 1))        
                                (set_tile "myslider" val)
                        )
                )

        (start_dialog)

        (cond ((= curBtn "btn1") (f1))
            ((= curBtn "") (setq continue nil))

        )

    (unload_dialog dlgId)
        
)

这是我参考其他人的改的，接下来不知道怎么改了