关于处理滑块 （DCL）

处理来自滑块的操作和回调时，应用程序应检查它与回调一起收到的原因代码。这不是必需的，但这是一个好主意，因为它可以减少处理。

当越过滑块上的增量边界时，将发生回调。例如，如果定义滑块的最小值为 0，最大值为 10，小增量和大增量均为 1，则当用户从滑块的一端遍历到另一端时，将发出 10 次回调。

以下函数显示了用于处理滑块的函数的基本方案。它是从与滑块磁贴关联的操作表达式调用的。函数使用的磁贴以十进制形式显示滑块的当前值。通常，这样的磁贴也是一个编辑框，它使用户可以选择操作滑块或直接输入其值。如果用户在 中输入值，则编辑框回调应更新滑块的值，如下所示：slider_infoslider_info

(action_tile
  "myslider"
  "(slider_action $value $reason)"
)

(action_tile
  "slider_info"
  "(ebox_action $value $reason)"
)

.
.
.

(defun slider_action(val why)
  (if (or (= why 2) (= why 1))   ; Check reason code.
    (set_tile "slider_info" val) ; Show interim result.
  )
)

(defun ebox_action(val why)
  (if (or (= why 2) (= why 1))   ; Check reason code.
    (set_tile "myslider" val)    ; Show interim result.
  )
)