3 (defcfun gtk-widget-show-all :void
4 (widget (g-object widget)))
6 (defcfun gtk-widget-queue-draw :void
7 (widget (g-object widget)))
9 (defcfun gtk-widget-create-pango-layout (g-object gdk::pango-layout)
10 (widget (g-object widget))
13 (defcfun gtk-box-pack-start :void
15 (child (g-object widget))
20 (defun box-pack-start (box child &key (expand t) (fill t) (padding 0))
21 (gtk-box-pack-start box child expand fill padding))
23 (defcfun (container-add "gtk_container_add") :void
24 (container (g-object container))
25 (widget (g-object widget)))
27 (defcfun (object-destroy "gtk_object_destroy") :void
28 (object (g-object gtk-object)))
30 (defcfun gtk-text-buffer-insert :void
31 (buffer (g-object text-buffer))
36 (defun text-buffer-insert (buffer iter text)
37 (declare (ignore iter))
38 (gtk-text-buffer-insert buffer (null-pointer) text (length text)))
40 (define-g-flags "GtkAttachOptions" attach-options () :expand :shrink :fill)
42 (defcfun gtk-table-attach :void
43 (table (g-object table))
44 (child (g-object widget))
49 (x-options attach-options)
50 (y-options attach-options)
54 (defun table-attach (table widget left right top bottom &key (x-options '(:expand :fill)) (y-options '(:expand :fill)) (x-padding 0) (y-padding 0))
55 (gtk-table-attach table widget left right top bottom x-options y-options x-padding y-padding))