chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
13955a6
)
Use INITIAL-ADD
author
espen
<espen>
Fri, 17 Dec 2004 00:15:16 +0000
(
00:15
+0000)
committer
espen
<espen>
Fri, 17 Dec 2004 00:15:16 +0000
(
00:15
+0000)
gtk/gtkcontainer.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gtk/gtkcontainer.lisp
b/gtk/gtkcontainer.lisp
index 50284b190d7dd878b593d416f84907f7788a3a63..29a43164502b03a84372e08615227085b210310e 100644
(file)
--- a/
gtk/gtkcontainer.lisp
+++ b/
gtk/gtkcontainer.lisp
@@
-15,16
+15,19
@@
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
;; 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.1
2 2004-11-07 17:55:29
espen Exp $
+;; $Id: gtkcontainer.lisp,v 1.1
3 2004-12-17 00:15:16
espen Exp $
(in-package "GTK")
(in-package "GTK")
-
+
+
(defmethod shared-initialize ((container container) names &rest initargs
&key child children child-args)
(defmethod shared-initialize ((container container) names &rest initargs
&key child children child-args)
- (declare (ignore child))
+ (declare (ignore child
children
))
(call-next-method)
(call-next-method)
- (dolist (child (append children (get-all initargs :child)))
- (apply #'container-add container (append (mklist child) child-args))))
+ (initial-add container
+ #'(lambda (container args)
+ (apply #'container-add container (append (mklist args) child-args)))
+ initargs :child :children))
(defbinding %container-add () nil
(defbinding %container-add () nil