Typo.

[cl-gtk2.git] / gdk / gdk.functions.lisp

diff --git a/gdk/gdk.functions.lisp b/gdk/gdk.functions.lisp
index 922f841..030216b 100644 (file)
--- a/gdk/gdk.functions.lisp
+++ b/gdk/gdk.functions.lisp
@@ -3,21 +3,6 @@
 (defcfun (default-screen "gdk_screen_get_default") (g-object gdk-screen))
 (export 'default-screen)
 
-(defcfun gdk-window-get-events event-mask
-  (window (g-object gdk-window)))
-
-(defcfun gdk-window-set-events :void
-  (window (g-object gdk-window))
-  (flags event-mask))
-
-(defun gdk-window-events (window)
-  (gdk-window-get-events window))
-
-(defun (setf gdk-window-events) (new-value window)
-  (gdk-window-set-events window new-value))
-
-(export 'gdk-window-events)
-
 (defcfun gdk-atom-name (glib:g-string :free-from-foreign t)
   (atom gdk-atom))
 
@@ -25,22 +10,6 @@
   (name :string)
   (only-if-exists :boolean))
 
-(defcfun gdk-pixbuf-get-from-drawable (g-object pixbuf :already-referenced)
-  (dest (g-object pixbuf))
-  (src (g-object drawable))
-  (colormap :pointer)
-  (src-x :int)
-  (src-y :int)
-  (dest-x :int)
-  (dest-y :int)
-  (width :int)
-  (height :int))
-
-(defun pixbuf-get-from-drawable (pixbuf drawable &key (src-x 0) (src-y 0) (dest-x 0) (dest-y 0) (width -1) (height -1))
-  (gdk-pixbuf-get-from-drawable pixbuf drawable (null-pointer) src-x src-y dest-x dest-y width height))
-
-(export 'pixbuf-get-from-drawable)
-
 (defcfun gdk-pixbuf-savev :boolean
   (pixbuf (g-object pixbuf))
   (filename :string)