Tweak pane layout for better baseline alignment
parent
999f038567
commit
7cefd48884
|
@ -66,7 +66,7 @@ M: pane gadget-selection ( pane -- string/f )
|
||||||
selection-color >>selection-color ; inline
|
selection-color >>selection-color ; inline
|
||||||
|
|
||||||
: init-last-line ( pane -- pane )
|
: init-last-line ( pane -- pane )
|
||||||
horizontal <track>
|
horizontal <track> 0 >>fill +baseline+ >>align
|
||||||
[ >>last-line ] [ 1 track-add ] bi
|
[ >>last-line ] [ 1 track-add ] bi
|
||||||
dup prepare-last-line ; inline
|
dup prepare-last-line ; inline
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue