[graphic-forms-cvs] r232 - trunk/src/uitoolkit/widgets
junrue at common-lisp.net
junrue at common-lisp.net
Tue Aug 22 21:37:23 UTC 2006
Author: junrue
Date: Tue Aug 22 17:37:23 2006
New Revision: 232
Modified:
trunk/src/uitoolkit/widgets/layout.lisp
Log:
fixed layout manager regression
Modified: trunk/src/uitoolkit/widgets/layout.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/layout.lisp (original)
+++ trunk/src/uitoolkit/widgets/layout.lisp Tue Aug 22 17:37:23 2006
@@ -65,10 +65,10 @@
(defun delete-layout-item (layout thing)
"Removes thing from layout."
- (delete thing (data-of layout) :key #'first))
+ (setf (data-of layout) (remove thing (data-of layout) :key #'first)))
(defun cleanup-disposed-items (layout)
- (delete-if #'gfs:disposed-p (data-of layout) :key #'first))
+ (setf (data-of layout) (remove-if #'gfs:disposed-p (data-of layout) :key #'first)))
(defun arrange-hwnds (kid-specs flags-func)
(let ((hdwp (gfs::begin-defer-window-pos (length kid-specs))))
More information about the Graphic-forms-cvs
mailing list