modular Smoke kdeui
Annotate for file /src/standard-action.lisp
2010-04-03 tobias 1 (in-package :cl-smoke.kde.ui)
2009-04-05 tobias 2
2010-04-03 tobias 3 (defun kde:make-standard-action (action action-collection &optional slot)
2009-04-05 tobias 4 "Adds the standard-action ACTION to ACTION-COLLECTION and connects
15:36:16 ' 5 the \"triggered()\" signal to SLOT when specified."
2010-04-03 tobias 6 (let ((std-action (kde:standard-action.create action
17:29:08 ' 7 (null-pointer)
' 8 (null-pointer)
' 9 action-collection)))
2009-04-05 tobias 10 (when slot
15:36:16 ' 11 (qt:connect (qt:get-signal std-action "triggered()")
' 12 slot))
' 13 std-action))