X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/55212af123daea1d86d31da21cc1bee77651fb81..baf43ea870b429f04f1bd7ff607d477cb5d9e03f:/gtk/gtkcontainer.lisp

diff --git a/gtk/gtkcontainer.lisp b/gtk/gtkcontainer.lisp
index d5770c5..6c66e62 100644
--- a/gtk/gtkcontainer.lisp
+++ b/gtk/gtkcontainer.lisp
@@ -20,10 +20,16 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: gtkcontainer.lisp,v 1.18 2005/04/23 16:48:52 espen Exp $
+;; $Id: gtkcontainer.lisp,v 1.20 2006/02/28 16:32:18 espen Exp $
 
 (in-package "GTK")
 
+(defgeneric container-add (container widget &rest args))
+(defgeneric container-remove (container widget))
+(defgeneric container-children (container))
+(defgeneric (setf container-children) (children container))
+
+
 (defmethod shared-initialize ((container container) names &rest initargs 
 			      &key child children child-args 
 			           (show-children nil show-children-p))
@@ -89,11 +95,11 @@
 (defbinding container-check-resize () nil
   (container container))
 
-(def-callback-marshal %foreach-callback (nil widget))
+(define-callback-marshal %foreach-callback nil (widget))
 
 (defbinding %container-foreach (container callback-id) nil
   (container container)
-  ((callback %foreach-callback) pointer)
+  (%foreach-callback callback)
   (callback-id unsigned-int))
 
 (defun container-foreach (container function)
@@ -102,7 +108,7 @@
 
 (defbinding %container-forall (container callback-id) nil
   (container container)
-  ((callback %foreach-callback) pointer)
+  (%foreach-callback callback)
   (callback-id unsigned-int))
 
 (defun container-forall (container function)