gtk/gtk.box.lisp

   1 (in-package :gtk)
   2
   3 (defcfun gtk-box-pack-start :void
   4   (box (g-object box))
   5   (child (g-object widget))
   6   (expand :boolean)
   7   (fill :boolean)
   8   (padding :uint))
   9
  10 (defun box-pack-start (box child &key (expand t) (fill t) (padding 0))
  11   (gtk-box-pack-start box child expand fill padding))
  12
  13 (export 'box-pack-start)
  14
  15 (defcfun gtk-box-pack-end :void
  16   (box (g-object box))
  17   (child (g-object widget))
  18   (expand :boolean)
  19   (fill :boolean)
  20   (padding :uint))
  21
  22 (defun box-pack-end (box child &key (expand t) (fill t) (padding 0))
  23   (gtk-box-pack-end box child expand fill padding))
  24
  25 (export 'box-pack-end)
  26
  27 (defcfun (box-reorder-child "gtk_box_reorder_child") :void
  28   (box g-object)
  29   (child g-object)
  30   (position :int))
  31
  32 (export 'box-reorder-child)