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

outliner cleanup

cvs
Slava Pestov 2005-09-25 05:35:29 +00:00
parent 900b020733
commit 6c133f3d94
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/ui/outliner.factor
View File

@ -14,9 +14,10 @@ TUPLE: outliner gadget quot pile expanded? ;
swap outliner-pile add-gadget ;
: setup-outliner ( quot outliner -- )
dup outliner-pile clear-gadget
dup outliner-gadget over outliner-pile add-gadget
over [ >r make-pane r> outliner-pile add-gadget ] [ 2drop ] if ;
dup outliner-gadget >r
outliner-pile dup clear-gadget
r> over add-gadget
over [ >r make-pane r> add-gadget ] [ 2drop ] if ;
: collapse-outliner ( outliner -- )
f over set-outliner-expanded? f swap setup-outliner ;