[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