Thu Jun 11 16:59:48 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* :qt and :qt-impl packages to prevent collision with :cl symbols and fix object with non smoke parent.

--- old-qt.gui/src/signal-slot/signal.lisp 2014-10-30 07:47:16.000000000 +0100

+++ new-qt.gui/src/signal-slot/signal.lisp 2014-10-30 07:47:16.000000000 +0100

@@ -1,4 +1,4 @@

-(in-package :qt)

+(in-package :cl-smoke.qt-impl)

(declaim (optimize (debug 3)))

(defclass qsignal-mixin ()

@@ -12,7 +12,7 @@

See:

http://www.sbcl.org/manual/Metaobject-Protocol.html#index-validate_002dsuperclass-164"))

-(defclass signal-object (object)

+(defclass signal-object (qt:object)

((argument-types :accessor argument-types

:initarg :argument-types

:documentation "List of the argument types"))

@@ -30,7 +30,7 @@

The argument types can be supplied by the :METHOD-TYPES initarg.

Calling an instance emits the signal."))

-(defun make-signal (&rest argument-types)

+(defun qt:make-signal (&rest argument-types)

"Returns a funcallable signal. When ARGUMENT-TYPES are not

specified, they are determined when the first connection is made."

(if argument-types

@@ -60,7 +60,7 @@

slot)))

(when (< id 0)

(setf id (cxx:index-of-slot (cxx:meta-object receiver)

- (cxx:data (meta-object.normalized-signature slot)))))

+ (cxx:data (qt:meta-object.normalized-signature slot)))))

(when (< id 0)

(error "No slot ~S for class ~S.

The valid slots are: ~{~<~%~T~0,75:;~A ~>~}"

@@ -113,11 +113,11 @@

'smoke::smoke-stack-item 'smoke::voidp))))

(setf (mem-aref args :pointer 0)

(null-pointer))

- (meta-object.activate qsignal (cxx:meta-object qsignal)

+ (qt:meta-object.activate qsignal (cxx:meta-object qsignal)

(id qsignal)

args)))))

-(defmethod disconnect-all ((qsignal qsignal))

+(defmethod qt:disconnect-all ((qsignal qsignal))

(unless (disconnect-id (signal-object qsignal)

(id (signal-object qsignal))

0