From 8d5ac0cb974ca22a7d71f83f94865862db202885 Mon Sep 17 00:00:00 2001 Message-Id: <8d5ac0cb974ca22a7d71f83f94865862db202885.1714429269.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 17 Oct 2007 14:31:19 +0000 Subject: [PATCH] New type CONNECT-FLAGS Organization: Straylight/Edgeware From: espen --- glib/gcallback.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/glib/gcallback.lisp b/glib/gcallback.lisp index 329bb60..3856d31 100644 --- a/glib/gcallback.lisp +++ b/glib/gcallback.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gcallback.lisp,v 1.46 2007-08-20 11:15:13 espen Exp $ +;; $Id: gcallback.lisp,v 1.47 2007-10-17 14:31:19 espen Exp $ (in-package "GLIB") @@ -244,6 +244,8 @@ (defun describe-signal (signal-id &optional type) ;;;; Signal connecting and controlling +(define-flags-type connect-flags :after :swapped) + (defvar *overridden-signals* (make-hash-table :test 'equalp)) (defbinding %signal-override-class-closure () nil -- [mdw]