steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Oops, forgot to call prepare-last-line

db4
Slava Pestov 2009-03-06 13:32:41 -06:00
parent ec186a23dc
commit 5c88b18a9a
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ui/gadgets/panes/panes-tests.factor
View File

@ -106,3 +106,9 @@ ARTICLE: "test-article-2" "This is a test article"
[ ] [ [ ] [
\ = <model> [ see ] <pane-control> [ ] with-grafted-gadget \ = <model> [ see ] <pane-control> [ ] with-grafted-gadget
] unit-test ] unit-test
: <test-pane> ( -- foo )
<gadget> pane new-pane ;
[ t ] [ <test-pane> dup input>> child? ] unit-test
[ t ] [ <test-pane> dup last-line>> child? ] unit-test

4
basis/ui/gadgets/panes/panes.factor
View File

@ -63,7 +63,9 @@ 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> [ >>last-line ] [ 1 track-add ] bi ; inline horizontal <track>
[ >>last-line ] [ 1 track-add ] bi
dup prepare-last-line ; inline
: new-pane ( input class -- pane ) : new-pane ( input class -- pane )
[ vertical ] dip new-track [ vertical ] dip new-track