From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Wed, 18 Mar 2009 10:20:34 +0000 (+0300)
Subject: moved functions to proper files
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=82395678dab5ebdfebde620b2d30875d9b33ef75;p=cl-gtk2.git

moved functions to proper files
---

diff --git a/gtk/gtk.functions.lisp b/gtk/gtk.functions.lisp
index 571b11c..fa36f8d 100644
--- a/gtk/gtk.functions.lisp
+++ b/gtk/gtk.functions.lisp
@@ -1,24 +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 (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
diff --git a/gtk/gtk.widget.lisp b/gtk/gtk.widget.lisp
index 0c6216c..d94695e 100644
--- a/gtk/gtk.widget.lisp
+++ b/gtk/gtk.widget.lisp
@@ -1,3 +1,13 @@
 (in-package :gtk)
 
-; TODO: GtkWidget
\ No newline at end of file
+; TODO: GtkWidget
+
+(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))