X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.functions.lisp;h=fa36f8d0f2efff70f351a100207cd3f1f899cb4b;hb=96aa7293addaacdfe29ce32e60e2feac7df6ffce;hp=0539e28c8a19c0f755590c1968ba3e30ce8aef06;hpb=f8e29849b2c16860261744c85b5021a0a7a2859f;p=cl-gtk2.git

diff --git a/gtk/gtk.functions.lisp b/gtk/gtk.functions.lisp
index 0539e28..fa36f8d 100644
--- a/gtk/gtk.functions.lisp
+++ b/gtk/gtk.functions.lisp
@@ -1,38 +1,4 @@
 (in-package :gtk)
 
-(defcfun gtk-widget-show-all :void
-  (widget (g-object widget)))
-
-(defcfun gtk-widget-queue-draw :void
-  (widget (g-object widget)))
-
-(defcfun gtk-widget-create-pango-layout (g-object gdk::pango-layout)
-  (widget (g-object widget))
-  (text :string))
-
-(defcfun gtk-box-pack-start :void
-  (box (g-object box))
-  (child (g-object widget))
-  (expand :boolean)
-  (fill :boolean)
-  (padding :uint))
-
-(defun box-pack-start (box child &key (expand t) (fill t) (padding 0))
-  (gtk-box-pack-start box child expand fill padding))
-
-(defcfun (container-add "gtk_container_add") :void
-  (container (g-object container))
-  (widget (g-object widget)))
-
 (defcfun (object-destroy "gtk_object_destroy") :void
   (object (g-object gtk-object)))
-
-(defcfun gtk-text-buffer-insert :void
-  (buffer (g-object text-buffer))
-  (iter :pointer)
-  (text :string)
-  (len :int))
-
-(defun text-buffer-insert (buffer iter text)
-  (declare (ignore iter))
-  (gtk-text-buffer-insert buffer (null-pointer) text (length text)))
\ No newline at end of file