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

Forgot to record change

release
Slava Pestov 2007-10-05 02:07:31 -04:00
parent 76778f45e6
commit 9268cf45e9
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
extra/ui/gadgets/panes/panes.factor
View File

@ -184,33 +184,12 @@ M: pane-stream make-span-stream
: apply-presentation-style ( style gadget -- style gadget ) : apply-presentation-style ( style gadget -- style gadget )
presented [ <presentation> ] apply-style ; presented [ <presentation> ] apply-style ;
TUPLE: scroll-to-me done? ;
: <scroll-to-me>
scroll-to-me construct-empty
[ set-gadget-delegate ] keep ;
: scroll-on-graft? ( gadget -- ? )
parents
[ [ pane? ] is? ] subset
[ pane-scrolls? ] contains? not ;
M: scroll-to-me graft*
dup scroll-to-me-done? [
t over set-scroll-to-me-done?
dup scroll-on-graft? [ dup scroll>gadget ] when
] unless delegate graft* ;
: apply-highlight-style ( style gadget -- style gadget )
highlight [ drop <scroll-to-me> ] apply-style ;
: <styled-label> ( style text -- gadget ) : <styled-label> ( style text -- gadget )
<label> <label>
apply-foreground-style apply-foreground-style
apply-background-style apply-background-style
apply-font-style apply-font-style
apply-presentation-style apply-presentation-style
apply-highlight-style
nip ; nip ;
! Paragraph styles ! Paragraph styles