X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gdk%2Fgdk.functions.lisp;h=922f841d3be6d0b7eb42c59c3d5dca62bbd069c8;hb=bbb81efa5db629f5509af6702bf68bef61a18c18;hp=2094ed4ae07e23229b80ba3abdb6c876869be3fd;hpb=601c7a70db9e99fbbceffad2f82a9fd8578e47e2;p=cl-gtk2.git

diff --git a/gdk/gdk.functions.lisp b/gdk/gdk.functions.lisp
index 2094ed4..922f841 100644
--- a/gdk/gdk.functions.lisp
+++ b/gdk/gdk.functions.lisp
@@ -18,41 +18,6 @@
 
 (export 'gdk-window-events)
 
-(defcfun gdk-gc-new (g-object graphics-context :already-referenced)
-  (drawable (g-object drawable)))
-
-(defcfun gdk-draw-line :void
-  (drawable (g-object drawable))
-  (gc (g-object graphics-context))
-  (x1 :int)
-  (y1 :int)
-  (x2 :int)
-  (y2 :int))
-
-(defcfun gdk-gc-set-rgb-fg-color :void
-  (gc (g-object graphics-context))
-  (color (g-boxed-foreign color)))
-
-(defcfun gdk-drawable-get-size :void
-  (drawable (g-object drawable))
-  (width (:pointer :int))
-  (height (:pointer :int)))
-
-(defun drawable-get-size (drawable)
-  (with-foreign-objects ((x :int)
-                         (y :int))
-    (gdk-drawable-get-size drawable x y)
-    (values (mem-ref x :int) (mem-ref y :int))))
-
-(export 'drawable-get-size)
-
-(defcfun gdk-draw-layout :void
-  (drawable (g-object drawable))
-  (gc (g-object graphics-context))
-  (x :int)
-  (y :int)
-  (layout (g-object pango-layout)))
-
 (defcfun gdk-atom-name (glib:g-string :free-from-foreign t)
   (atom gdk-atom))