From 7abdba43523dd39f28caab7d728d2a2821e30e89 Mon Sep 17 00:00:00 2001 Message-Id: <7abdba43523dd39f28caab7d728d2a2821e30e89.1715204930.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 27 Feb 2005 12:37:01 +0000 Subject: [PATCH] Bug fix Organization: Straylight/Edgeware From: espen --- gdk/gdk.lisp | 6 +++--- gtk/gtk.lisp | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp index b69536f..57c6db4 100644 --- a/gdk/gdk.lisp +++ b/gdk/gdk.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gdk.lisp,v 1.14 2005-02-26 18:53:09 espen Exp $ +;; $Id: gdk.lisp,v 1.15 2005-02-27 12:37:45 espen Exp $ (in-package "GDK") @@ -146,7 +146,7 @@ (defbinding pointer-grab ((%grab-time time) (unsigned 32))) (defbinding (pointer-ungrab "gdk_display_pointer_ungrab") - (&optional (display (display-get-default) time)) nil + (&optional (display (display-get-default)) time) nil (display display) ((%grab-time time) (unsigned 32))) @@ -159,7 +159,7 @@ (defbinding keyboard-grab (window &key owner-events time) grab-status ((%grab-time time) (unsigned 32))) (defbinding (keyboard-ungrab "gdk_display_keyboard_ungrab") - (&optional (display (display-get-default) time)) nil + (&optional (display (display-get-default)) time) nil (display display) ((%grab-time time) (unsigned 32))) diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp index 34b9cec..a672946 100644 --- a/gtk/gtk.lisp +++ b/gtk/gtk.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gtk.lisp,v 1.37 2005-02-26 18:55:41 espen Exp $ +;; $Id: gtk.lisp,v 1.38 2005-02-27 12:37:01 espen Exp $ (in-package "GTK") @@ -67,7 +67,7 @@ (defun clg-init (&optional display) (defbinding grab-add () nil (widget widget)) -(defbinding grab-get-curent () widget) +(defbinding grab-get-current () widget) (defbinding grab-remove () nil (widget widget)) -- [mdw]