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))))