From eba2d996724fcedbb6fc4b0e642d3a88b49bfb72 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Tue, 10 Jul 2007 08:45:06 +0000 Subject: [PATCH] Return type for ACCEL-GROUPS-FROM-OBJECT corrected Organization: Straylight/Edgeware From: espen --- gtk/gtk.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp index 16b6530..c70e830 100644 --- a/gtk/gtk.lisp +++ b/gtk/gtk.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: gtk.lisp,v 1.77 2007-07-05 11:34:27 espen Exp $ +;; $Id: gtk.lisp,v 1.78 2007-07-10 08:45:06 espen Exp $ (in-package "GTK") @@ -329,7 +329,7 @@ (defun accel-groups-activate (object accelerator) (multiple-value-bind (key modifiers) (parse-accelerator accelerator) (%accel-groups-activate object key modifiers))) -(defbinding accel-groups-from-object () (gslist accel-groups) +(defbinding accel-groups-from-object () (gslist accel-group) (object gobject)) (defbinding accelerator-valid-p (key &optional modifiers) boolean -- [mdw]