[求助]：怎样使双击list_box列表框的字符串成为确定

mhy007

action_tile 时，同时产生六个变量，$reason 的值为4时，双击
（list_box）列表框的字符串，可以自行定义双击代表的意义。
问题是怎样定义？我所查阅的所有资料都只是一句话带过，本
菜鸟捣鼓了一个晚上，就是出不来。只好上网求助各大虾了。
用一个最简单的例子说明一下更好。

aeo

最初由 mhy007 发布
[B]action_tile 时，同时产生六个变量，$reason 的值为4时，双击
（list_box）列表框的字符串，可以自行定义双击代表的意义。
问题是怎样定义？我所查阅的所有资料都只是一句话带过，本
菜鸟捣鼓了一个晚上，就是出?.. [/B]

$reason为4

mhy007

我也知道$reason为4，在我的问题里也说过了，关键是怎样去设定它？急死了！

aeo

到今天还没搞定呀?!

比如:你的list-box的key为"aaa"
你肯定会写到(action_tile "aaa" "(abc)")

abc是你的自定义函数:
(defun abc()
  ...
(if(= $reason 4)(progn ...))
...
)

mhy007

也许是我没有把问题说清楚，我的意思是既能在下拉列表里先选定文字，再在编辑框里
编辑选好的文字，再按确定按钮。又能直接双击下拉列表的字符串作为确定。现在我只
能做到第一种。还是把我的代码写上来，请aeo斑竹直接在上面添加几个码吧！谢谢了！
  mhy:dialog{
       label="常用词库";
       spacer_1;
       :list_box{
                label="常用词库选择";
                key="changcc";
                width=30;
                }
        :edit_box{
                key="bianji";
                }
                spacer_1;
                ok_cancel;

          }


       (defun c:mhy()
      (setvar "cmdecho" 0)
      (setq changcc_list '( "客厅""餐厅""主卧""书房""客房""厨房""卫生间""平面图""立面图""剖面图"))
      (dcl_mhy)  
      (princ)
)
(defun dcl_mhy()
      (setq dcl_id(load_dialog "mhy"))
      (new_dialog "mhy" dcl_id)
      (start_list "changcc")
      (mapcar 'add_list changcc_list)
      (end_list)
      (action_tile "changcc" "(sub_changcc $value)")
      (action_tile "accept""(ok_mhy)(done_dialog 1)")
      (setq dd(start_dialog))
      (if (= dd 1)
          (progn
             (setvar "cmdecho" 1)
             (command"-mtext" pause pause bianji  "")
             (setvar "cmdecho" 0)
          )
      )
)
(defun sub_changcc(vvs)
      (set_tile "bianji" (nth (atoi vvs) changcc_list))
)
(defun ok_mhy()
      (setq bianji (get_tile "bianji"))
)

mmmm

1) Add a property of "allow_accept=true" to list_box tile (in DCL file)
2) Add a line of (Action_tile "bianji" "(setq bianji $Value)") at proper location
3) Modify Sub_changecgg to new codes

(defun sub_changcc(vvs)(set_tile "bianji" (setq bianji (nth (atoi vvs) changcc_list))))

mhy007

增加几行代码就解决了多日困惑的问题，真是令人高兴，非常感谢mmmm,同时也再次
谢谢aeo!

aeo

我以为你要的是双击list_box,来确定把list_box里的相应项加到edit_box里呢,那就是我说的.

如果定义双击来表示退出对话框,那就相应的dcl里加"allow_accept=true"