X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/7d2f9e31f958431da7dc2ab4ce7091747ad96510..eba2d996724fcedbb6fc4b0e642d3a88b49bfb72:/gtk/gtk.lisp?ds=sidebyside 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 @@ (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