gtk/gtk.container.lisp

   1 (in-package :gtk)
   2
   3 (defcfun (container-add "gtk_container_add") :void
   4   (container (g-object container))
   5   (widget (g-object widget)))
   6
   7 (export 'container-add)
   8
   9 (defcfun (container-remove "gtk_container_remove") :void
  10   (container (g-object container))
  11   (widget (g-object widget)))
  12
  13 (export 'container-remove)
  14
  15 (defcfun (container-check-resize "gtk_container_check_resize") :void
  16   (container g-object))
  17
  18 (export 'container-check-resize)
  19
  20 (defcallback gtk-container-foreach-callback :void
  21     ((widget g-object) (data :pointer))
  22   (restart-case
  23       (funcall (get-stable-pointer-value data)
  24                widget)
  25     (return () nil)))
  26
  27 (defcfun gtk-container-foreach :void
  28   (container g-object)
  29   (callback :pointer)
  30   (data :pointer))
  31
  32 (defun map-container-children (container function)
  33   (with-stable-pointer (ptr function)
  34     (gtk-container-foreach container (callback gtk-container-foreach-callback) ptr)))
  35
  36 (export 'map-container-children)
  37
  38 (defcfun gtk-container-forall :void
  39   (container g-object)
  40   (callback :pointer)
  41   (data :pointer))
  42
  43 (defun map-container-internal-children (container function)
  44   (with-stable-pointer (ptr function)
  45     (gtk-container-forall container (callback gtk-container-foreach-callback) ptr)))
  46
  47 (export 'map-container-internal-children)
  48
  49 (defcfun (container-children "gtk_container_get_children") (glist g-object :free-from-foreign t)
  50   (container g-object))
  51
  52 (export 'container-children)
  53
  54 (defcfun (container-resize-children "gtk_container_resize_children") :void
  55   (container g-object))
  56
  57 (export 'container-resize-children)
  58
  59 (defcfun (container-child-type "gtk_container_child_type") g-type-designator
  60   (container g-object))
  61
  62 (export 'container-child-type)
  63
  64 (defcfun (container-propagate-expose "gtk_container_propagate_expose") :void
  65   (container (g-object container))
  66   (child (g-object widget))
  67   (event (g-boxed-foreign event)))
  68
  69 (export 'container-propagate-expose)