[graphic-forms-cvs] r149 - trunk/src/uitoolkit/widgets
junrue at common-lisp.net
junrue at common-lisp.net
Sun Jun 4 17:24:24 UTC 2006
Author: junrue
Date: Sun Jun 4 13:24:24 2006
New Revision: 149
Modified:
trunk/src/uitoolkit/widgets/flow-layout.lisp
Log:
fixed a couple flow-layout regressions
Modified: trunk/src/uitoolkit/widgets/flow-layout.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/flow-layout.lisp (original)
+++ trunk/src/uitoolkit/widgets/flow-layout.lisp Sun Jun 4 13:24:24 2006
@@ -163,10 +163,12 @@
(defun flow-container-layout (layout visible kids width-hint height-hint)
(let ((flows nil)
- (state (init-flow-data layout visible kids -1 -1)))
+ (state (init-flow-data layout visible kids width-hint height-hint)))
(loop with wrap = (find :wrap (style-of layout))
for (kid kid-size) in (flow-data-kid-sizes state)
- do (if (and wrap (wrap-needed-p state layout kid-size))
+ do (if (and wrap
+ (flow-data-current state)
+ (wrap-needed-p state layout kid-size))
(setf flows (append flows (wrap-flow state layout))))
(push (new-flow-element state layout kid kid-size) (flow-data-current state)))
(if (flow-data-current state)
More information about the Graphic-forms-cvs
mailing list