1 (in-package :cl-smoke.kde.ui)

2

3 (defun kde:make-standard-action (action action-collection &optional slot)

4 "Adds the standard-action ACTION to ACTION-COLLECTION and connects

5 the \"triggered()\" signal to SLOT when specified."

6 (let ((std-action (kde:standard-action.create action

7 (null-pointer)

8 (null-pointer)

9 action-collection)))

10 (when slot

11 (qt:connect (qt:get-signal std-action "triggered()")

12 slot))

13 std-action))