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

(defun kde:make-standard-action (action action-collection &optional slot)
  "Adds the standard-action ACTION to ACTION-COLLECTION and connects
the \"triggered()\" signal to SLOT when specified."
  (let ((std-action (kde:standard-action.create action
                                                (null-pointer)
                                                (null-pointer)
                                                action-collection)))
    (when slot
      (qt:connect (qt:get-signal std-action "triggered()")
                  slot))
    std-action))