gtk/gtk.functions.lisp

   1 (in-package :gtk)
   2
   3 (defcfun gtk-widget-show-all :void
   4   (widget (g-object widget)))
   5
   6 (defcfun gtk-widget-queue-draw :void
   7   (widget (g-object widget)))
   8
   9 (defcfun gtk-widget-create-pango-layout (g-object gdk::pango-layout)
  10   (widget (g-object widget))
  11   (text :string))
  12
  13 (defcfun (object-destroy "gtk_object_destroy") :void
  14   (object (g-object gtk-object)))
  15
  16 (defcfun gtk-text-buffer-insert :void
  17   (buffer (g-object text-buffer))
  18   (iter :pointer)
  19   (text :string)
  20   (len :int))
  21
  22 (defun text-buffer-insert (buffer iter text)
  23   (declare (ignore iter))
  24   (gtk-text-buffer-insert buffer (null-pointer) text (length text)))