From: espen <espen>
Date: Tue, 10 Jul 2007 08:45:06 +0000 (+0000)
Subject: Return type for ACCEL-GROUPS-FROM-OBJECT corrected
X-Git-Tag: clg-0-93~99
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/3f2c422a2e04d97eb95b8376276e45e2343105f0?ds=inline

Return type for ACCEL-GROUPS-FROM-OBJECT corrected
---

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index 6fbe810..5dbcb2e 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