Tweak pane layout for better baseline alignment

2009-03-12 17:48:46 -05:00 · 2009-03-12 17:48:46 -05:00 · 7cefd48884
parent 999f038567
commit 7cefd48884
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@ -66,7 +66,7 @@ M: pane gadget-selection ( pane -- string/f )
    selection-color >>selection-color ; inline

 : init-last-line ( pane -- pane )
-    horizontal <track>
+    horizontal <track> 0 >>fill +baseline+ >>align
    [ >>last-line ] [ 1 track-add ] bi
    dup prepare-last-line ; inline