Return type for ACCEL-GROUPS-FROM-OBJECT corrected

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index 6fbe810e2b79025bba6f75e053259bcdd78e63c8..5dbcb2ea37c138d0034101add4e24a5b672a58b7 100644 (file)
--- 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.
 
 ;; 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")
 
 
 (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)))
 
   (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
   (object gobject))
 
 (defbinding accelerator-valid-p (key &optional modifiers) boolean