gtk/gtk.paned.lisp

   1 (in-package :gtk)
   2
   3 (defcfun gtk-paned-pack1 :void
   4   (paned g-object)
   5   (child g-object)
   6   (resize :boolean)
   7   (shrink :boolean))
   8
   9 (defun paned-pack-1 (paned child &key (resize nil) (shrink t))
  10   (gtk-paned-pack1 paned child resize shrink))
  11
  12 (export 'paned-pack-1)
  13
  14 (defcfun gtk-paned-pack2 :void
  15   (paned g-object)
  16   (child g-object)
  17   (resize :boolean)
  18   (shrink :boolean))
  19
  20 (defun paned-pack-2 (paned child &key (resize t) (shrink t))
  21   (gtk-paned-pack2 paned child resize shrink))
  22
  23 (export 'paned-pack-2)
  24
  25 (defcfun (paned-child-1 "gtk_paned_get_child1") g-object
  26   (paned g-object))
  27
  28 (defcfun (paned-child-2 "gtk_paned_get_child2") g-object
  29   (paned g-object))
  30
  31 (export 'paned-child-1)
  32
  33 (export 'paned-child-2)
  34
  35 ; TODO: GtkScale, gtk_scale_get_layout_offsets