Make { wrap-margin f } in a style work

2006-07-09 22:03:43 +00:00 · 2006-07-09 22:03:43 +00:00 · f7871d7055
parent 81e5fd2c9e
commit f7871d7055
1 changed files with 4 additions and 2 deletions
--- a/library/ui/gadgets/presentations.factor
+++ b/library/ui/gadgets/presentations.factor
@ -55,8 +55,10 @@ M: object-button gadget-help ( button -- string )

 : apply-wrap-style ( style pane -- style pane )
    wrap-margin [
-        2dup <paragraph> swap set-pane-prototype
-        <paragraph> over set-pane-current
+        [
+            2dup <paragraph> swap set-pane-prototype
+            <paragraph> over set-pane-current
+        ] when*
    ] apply-style ;

 : apply-border-width-style ( style gadget -- style gadget )