added layout-containers

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

diff --git a/gtk/gtk.functions.lisp b/gtk/gtk.functions.lisp
index cb746e5..0539e28 100644 (file)
--- a/gtk/gtk.functions.lisp
+++ b/gtk/gtk.functions.lisp
@@ -35,21 +35,4 @@
 
 (defun text-buffer-insert (buffer iter text)
   (declare (ignore iter))
-  (gtk-text-buffer-insert buffer (null-pointer) text (length text)))
-
-(define-g-flags "GtkAttachOptions" attach-options () :expand :shrink :fill)
-
-(defcfun gtk-table-attach :void
-  (table (g-object table))
-  (child (g-object widget))
-  (left-attach :uint)
-  (right-attach :uint)
-  (top-attach :uint)
-  (bottom-attach :uint)
-  (x-options attach-options)
-  (y-options attach-options)
-  (x-padding :uint)
-  (y-padding :uint))
-
-(defun table-attach (table widget left right top bottom &key (x-options '(:expand :fill)) (y-options '(:expand :fill)) (x-padding 0) (y-padding 0))
-  (gtk-table-attach table widget left right top bottom x-options y-options x-padding y-padding))
\ No newline at end of file
+  (gtk-text-buffer-insert buffer (null-pointer) text (length text)))
\ No newline at end of file