From 141b7b0988aded57e4a2d2870f0f9d1fa2ff48e7 Mon Sep 17 00:00:00 2001 Message-Id: <141b7b0988aded57e4a2d2870f0f9d1fa2ff48e7.1719315092.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 29 Dec 2004 21:14:23 +0000 Subject: [PATCH] CONTAINER-FORALL addedand DO-CONTAINER removed Organization: Straylight/Edgeware From: espen --- gtk/gtkcontainer.lisp | 30 +++++++++++------------------- 1 file changed, 11 insertions(+), 19 deletions(-) diff --git a/gtk/gtkcontainer.lisp b/gtk/gtkcontainer.lisp index 1ac33b2..010fca1 100644 --- a/gtk/gtkcontainer.lisp +++ b/gtk/gtkcontainer.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gtkcontainer.lisp,v 1.14 2004/12/20 20:09:54 espen Exp $ +;; $Id: gtkcontainer.lisp,v 1.15 2004/12/29 21:14:23 espen Exp $ (in-package "GTK") @@ -81,6 +81,15 @@ (defun container-foreach (container function) (with-callback-function (id function) (%container-foreach container id))) +(defbinding %container-forall (container callback-id) nil + (container container) + ((callback %foreach-callback) pointer) + (callback-id unsigned-int)) + +(defun container-forall (container function) + (with-callback-function (id function) + (%container-forall container id))) + (defun map-container (seqtype func container) (case seqtype ((nil) @@ -103,31 +112,14 @@ (defun map-container (seqtype func container) (incf index))) seq)))) -(defmacro do-container ((var container &optional (result nil)) &body body) - (let ((continue (make-symbol "CONTINUE"))) - `(let ((,continue t)) - (container-foreach - ,container - #'(lambda (,var) - (when ,continue - (setq ,continue nil) - (block nil - ,@body - (setq ,continue t))))) - ,result))) - -;; (defbinding %container-get-children () (glist widget) -;; (container container)) - (defmethod container-children ((container container)) -;; (%container-get-children container) (map-container 'list #'identity container)) (defmethod (setf container-children) (children (container container)) (dolist (child (container-children container)) (container-remove container child)) (dolist (child children) - (container-add container child)) + (apply #'container-add container (mklist child))) children) (defun container-length (container) -- [mdw]