src/standard-action.lisp
Sat Apr 3 19:29:08 CEST 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* modular Smoke kdeui
--- old-kde.ui/src/standard-action.lisp 2014-10-30 07:22:23.000000000 +0100
+++ new-kde.ui/src/standard-action.lisp 2014-10-30 07:22:23.000000000 +0100
@@ -1,12 +1,12 @@
-(in-package :kde)
+(in-package :cl-smoke.kde.ui)
-(defun make-standard-action (action action-collection &optional slot)
+(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 (standard-action.create action
- (null-pointer)
- (null-pointer)
- action-collection)))
+ (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))