[LISP程序]：dcl 如何实现双击

zhengliping

在dcl中,如何实现双击???
事件如何写代码?

e2002

Listbox的双击吗?
联机帮助文档 : VlsualLISP参考手册 :

第十二章 -- 管理对话框

动作表达式与回调

  回调原因
回调原因指出了动作发生的原因，并返回到 $reason 变量中。它为任一种动作都设置了值，但只有当动作与 edit_box、list_box、image_button 或 slider 控件相关时，才需要对它进行检验。下表列出了所有可能的值：

回调原因代码

代码        说明
1        这是大多数动作控件的值，用户已选定该控件（可能按 ENTER 键，该控件是缺省控件且操作平台接受加速键）。
2        编辑框：用户已退出编辑框，但尚未作最后选择。
3        滑块：用户通过拖动滑块改变了滑动条的值，但尚未作最后选择。
4        列表框和图像按钮：此回调原因总是跟随代码 1，它通常表示“转移到前一个选择上”。不应放弃上一个选择，这会使用户感到困惑。
代码 1 在表中给出了详细说明，代码 2、3 和 4 的详细文字说明请见表后。

代码 2 -- 编辑框

用户已经按 TAB 键或选择其他控件退出了编辑框，但尚未作最后选择。如果这是一个编辑框回调的原因，应用程序不应更新其相关变量的值，而应检查编辑框中的值的合法性。

代码 3 -- 滑块

用户通过拖动滑块（或等效操作）改变了滑动条的值，但尚未作最后选择。如果这是滑块回调的原因，应用程序不应更新其相关变量的值，而应更新显示滑块状态的文本。详细信息请参见滑块，代码样例请参见处理滑块。

代码 4 -- 列表框

用户双击列表框。可以在应用程序中定义双击的含义。如果对话框的主要目的是选择一个列表项，则双击应作出选择然后退出对话框（此时，list_box 控件的 is_default 属性应该是 true）。如果列表框不是对话框的主要控件，则双击应被看作是一个选择（代码 1）。
允许用户选择多个项目的列表框 (multiple_select = true) 不支持双击。

代码 4 -- 图像按钮

用户已双击图像按钮。可以在应用程序中定义双击的含义。在多数情况下，用单击来选择按钮就可以了。但在某些情况下，用单击（或键盘操作）亮显按钮，而用 ENTER 键或双击选择按钮会更合适一些。

本节内容包括：

   缺省值与 DCL 动作

aeo

看上面"心得" 3楼－－5.

zhengliping

如果列表框不是对话框的主要控件，则双击应被看作是一个选择（代码 1）。何为主要控件？？？？如何设置成主要控件
我的代码 (action_tile "SizeList" "(if (= $Resaon 4) (sub_add 1) (sub_size $value)) ")
双击可返回的直始终是reason＝1